Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4.0, Детальна інформація

Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4.0
Тип документу: Реферат
Сторінок: 8
Предмет: Комп`ютерні науки
Автор: фелікс
Розмір: 128.2
Скачувань: 2266
CalendarForm.Close; // закриваємо форму

end;

В модуль slave.dpr введемо наступний текст:

uses

Forms,

SysUtils,

Classes,

cal in 'cal.pas' {CalendarForm};

function GetDate: TDateTime; stdcall;

begin

Application.CreateForm(TCalendarForm, CalendarForm); // динамічно створюємо форму

CalendarForm.ShowModal; // виводимо форму на екран

GetDate:=selDate;// значенню що повертає функція присвоюємо значення вибраної дати

end;

exports

GetDate; // функція для зовнішнього використання

begin

end.

Так як для більшої швидкості виконання програми, форми створюються динамічно, то відповідно в властивостях проекта (Projects \xF0DE Properties) потрібно забирати форми з поля “AutoCreate Forms”.

Для SpeedButton1 i SpeedButton2 в основній програмі, в процедуру обробки події OnClick вставимо наступний текст:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

DBEdit1.Text:=DateToStr(GetDate);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

DBEdit2.Text:=DateToStr(GetDate);

end;

Відповідно перед секцією Implementation вставимо наступне:

{export from slave.dll}

The online video editor trusted by teams to make professional video in minutes