Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Выяснить, входит ли в строку буква “ж” Составить программу, выполняющую следующее задание: дана строка символов. Выяснить, входит ли в строку буква “ж”. https://www.cyberforum.ru/ delphi-beginners/ thread2248064.html	Delphi Список учета нуждающихся в улучшении жилищных условий Составить программу для выполнения указанного ниже задания. Исходные списки в программах описать в виде массивов записей. Имеется список учета нуждающихся в улучшении жилищных условий. Каждая запись этого списка содержит фамилию, имя, отчество и дату постановки на учет. Список упорядочен по дате постановки на учет. Известно число квартир, выделяемых по данному списку в течение года. Рассчитать,...
Delphi Заданы проекции вектора на оси координат X и Y. Найти его модуль https://www.cyberforum.ru/ delphi-beginners/ thread2248057.html Составить программу с использованием записей для выполнения указанного ниже задания. Заданы проекции вектора на оси координат X и Y. Найти его модуль.	Delphi Поменять порядок слов в тексте на противоположный Дана строка символов. Группа символов, разделенная пробелами и не содержащая пробелов внутри себя, называется словом. Поменять порядок слов в тексте на противоположный. https://www.cyberforum.ru/ delphi-beginners/ thread2248056.html
От первого символа до второго Delphi XE Delphi Есть вот такой код: var s,res: String; i,k: Integer; begin s:=Memo1.Lines.text; i:=pos('"',s); while i<>0 do begin	Delphi Переименование компонент Shelllistview https://www.cyberforum.ru/ delphi-beginners/ thread2248021.html Добрый день!Подскажите пожалуйста в чем ошибка при переименовании файлов и каталогов и как ее исправить
Delphi Посоветуйте литературу по Delphi (только не старую) https://www.cyberforum.ru/ delphi-beginners/ thread2247895.html Тему "Литература Delphi" я видел, но может есть что-нибудь более актуальнее, а то там книги 2000-2006 годов, буду очень благодарен если скажете какую литературу (для начинающих) сейчас лучше поизучать, чтобы не зря. И еще какую-нибудь книжку по ООП в Delphi.	Нужно сделать чтобы выбранную строку в strinngrid1 переносило в stringgrid2 Delphi Нужно сделать чтобы выбранную строку в strinngrid1 переносило в другой stringgrid2 .а в stringgrid строка оставалась при нажатии button
Delphi Как рисовать текст DefaultDrawing = false? https://www.cyberforum.ru/ delphi-beginners/ thread2247757.html Текст рисую вот так, получается как на скриншоте, как мне изменить ориентацию именно по центру ячейки, изменить шрифт и размер, и если можно, то определить тип у определенных ячеек (сделать их фиксированными)? procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Format: System.word; C: array of Char; begin Format :=...	Delphi Вывести все отрицательные элементы массива Написать программу ввод с клавиатуры массива из 6-и элементов типа integer, после чего вывести на экране все отрицательные элементы массива. https://www.cyberforum.ru/ delphi-beginners/ thread2247708.html
Delphi Нужно процедуру переделать чтобы удаляла файл который в папке с программой Нужно чтобы файл удаялался без путя , а просто любой файл который лежит в папке с программой,ВВОДИШЬ в edit и он удалился procedure TForm2.N10Click(Sender: TObject); begin form2.edit1.Visible :=true; form2.Button2.Visible:=true; end; procedure TForm2.Button2Click(Sender: TObject);	Delphi Описать и проверить функцию https://www.cyberforum.ru/ delphi-beginners/ thread2247527.html Добрый день,дана функция c(n,m)=(n!)/(m!(n-m)!) где n и m неотрицательные целые числа. Объясните,как это записать эту функцию используя рекурсию?

krapotkin

5868 / 4596 / 1448

Регистрация: 14.04.2014

Сообщений: 20,393

Записей в блоге: 20

18.05.2018, 23:57

Delphi 6-7

Выгрузка данных из Delphi 7 в БД Access - Delphi - Ответ 12402526

18.05.2018, 23:57. Показов 2082. Ответов 60

Метки (Все метки)

Ответ

что непонятно вам в статье по ссылке?
там написано, как создать объект.
в этом объекте запомните логин, который вы ввели
туда же запишите роль, которую вы получили тоже запросом из своей базы
создайте новый юнит. File--New--Unit. Вот текст юнита. Сохраните как UMySettings.pas

Кликните здесь для просмотра всего текста

Delphi

unit UMySettings;
interface
uses Classes, Types, Sysutils;
 
TMySettings=class
public
  ID:integer;
  Login:string;
  Role:string;
end;
var 
  Settings:TMySettings;
implementation
initialization
  Settings:=TMySettings.Create;
finalization
  FreeAndNil(Settings);
end.

в файле формы в верхний uses добавьте UMySettings
вот ваша процедура логина. только теперь в Settings запоминаем что вы там навводили, чтобы можно было потом в других местах использовать

Delphi

var ID:integer;
Pass:String;
...
DataModule2.ADOQuery1.SQL.text:='Select  Пароль,ID FROM   Матрица_доступа WHERE Логин=:login';
DataModule2.ADOQuery1.Parameters.ParamByName('login').value := edit1.text;
DataModule2.ADOQuery1.Open;
Pass := DataModule2.ADOQuery1.FieldByName('Пароль').AsString;
ID:=DataModule2.ADOQuery1.FieldByName('ID').AsInteger;
if Edit2.Text = Pass then
begin
  Settings.ID:=ID;
  Settings.Login := edit1.text;
  //я без понятия как там вы свои роли храните. в вашем запросе ничего про это нет. возьмите из базы сами
  Settings.Role := ????
  ShowMessage('Добро пожаловать, '+Settings.Login);
end
else
begin
  ShowMessage('Вы ввели неверный пароль');
  Application.terminate;
end;

Вернуться к обсуждению:
Выгрузка данных из Delphi 7 в БД Access Delphi

Следующий ответ

Заказать работу у эксперта

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

18.05.2018, 23:57

Готовые ответы и решения:

Выгрузка данных из Программного модуля, работающего с базами данных, построенного на Delphi
Всем привет, работаю на модуле на предприятии, который предоставлен мне в виде программы уже...

Выгрузка изображений из бд access 2003 (delphi)
Здравствуйте, много времени пыхтел, так и не смог разобраться, проблема в следующем: Добавлено...

Выгрузка данных из access
Добрый день! Выгружаю данные из access в excel. Использую copyfromrecordset. Все гуд и все...

Выгрузка данных из Access в Excel
Здравствуйте форумчане! Подскажите в Access есть возможность выгрузить данные в Excel, как у меня в...

	18.05.2018, 23:57

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

18.05.2018, 23:57

Помогаю со студенческими работами здесь

Выгрузка данных из таблицы MS Access в MS excel
Добрый день , форумчане. Столкнулся с такой проблемой - имеется база данных, в ней несколько...

Выгрузка данных из Delphi в Excel
Делаю выгрузку данных через процедуру SendtoExcel. При заполнении массива пишу следующий код:...

Выгрузка данных из таблицы Access в тестовой файл
Добрый вечер. Работаю с делфи недавно есть такая задача надо выгрузить данные по sql запросу из...

Выгрузка данных из 1С SQL Торговля и склад в Access
Поставлена задача, настроить выгрузку данных из 1С SQL Торговля и склад в Access. Опыта ...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх