Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4.0, Детальна інформація
Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4.0
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}
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
© Referats, Inc · All rights reserved 2021