Создание БД в DataBase Desktop и подключение в Delfi
Подключение удаленной базы данных, созданной в программе MS Access, создание клиент-серверного приложения в визуальной среде Delphi
Создание базы данных средствами Database Desktop и сортировка в среде Delphi
Сортировка и связывание таблиц
Организация сортировки базы данных, созданной в Access, средствами Delphi
Организация фильтра по полям различных типов таблицы базы данных
Организация работы с графическим объектом в базе данных средствами Delphi
При организации базы данных в Database Desktop объявить графическое поле
При организации базы данных в Access объявить назначить поле объекта OLE
Организация работы с компонентом TrackBar
- Свойства Min и Max задают минимальное и максимальное значение движка (например от 0 до 255 ). Свойство задает Pozition положение движка при запуске программы.
Свойство Color задает цвет формы. Свойство AlphBlendValue задает прозрачность цвета ( от 0 до 255) формы, работает если свойство AlphBlend=True
Взаимодействие двух форм
Организовать две формы:
В первой форме подключить базу данных и вывести в окно формы, используя компоненты с вкладки ADO
Либо используя компонентs с вкладки Data Access
Для отображения в окне формы используйте компонент с вкладки Data Controls
Описать подключение второй формы в коде программы вызывающей формы (uses Unit2), написать код программы с объектами и событиями:
Вывод в многострочный редактор окна формы содержимого файла
Возьмите на вкладке Диалог компонент
Разместите на Форме
Возьмите другие компоненты (командную кнопку и поле МЕМО со стандартной вкладки) и расположите на Форме.
Двойным щелчком по командной кнопке перейдите в код программы, напишите код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
Memo1.Lines.loadfromfile(OpenDialog1.FileName);
end;
end.
Запустите код
Вывод в многострочный редактор окна формы содержимого файла
Возьмите на вкладке Диалог компонент
Разместите на Форме
Возьмите другие компоненты (командную кнопку и поле МЕМО со стандартной вкладки) и расположите на Форме.
Двойным щелчком по командной кнопке перейдите в код программы, напишите код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
Memo1.Lines.loadfromfile(OpenDialog1.FileName);
end;
end.
Запустите код