Реферат: Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4 0
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 Þ 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}
function GetDate: TDateTime; stdcall; external 'slave.dll';
Тепер при натисненні на кнопку біля відповідних полів користувач зможе вибрати дату з календаря.
Створимо нову закладку PageControl1, назвемо її “Запити”. Створимо для цієї закладки нову панель інструментів, помістивши на ControlBar1 ToolBar1. Додамо декілька кнопок викликаючи контектне меню на ToolBar1 і вибираючи опцію New Button. Помістимо на закладку DBGrid для перегляду результатів запитів. Помістимо на закладку GroupBox, на якому розташуємо для початку 6 компонент Edit, над якими розмістимо по Label з назвами відповідних полів з таблиці “Товар”. Розташуємо між двома останніми полями ComboBox1. Будемо використовувати відповідні поля для вводу критеріїв для запитів. Перш за все зробимо вікно в якому ми зможемо контролювати правильність створення запиту SQL. Виберемо в меню команду File Þ New Form, надамо її властивостям наступних значень: Name = SQLText, BorderStyle = bsToolWindow, Position = poDesktopCenter. Помістимо на форму Memo1, змінимо властивість Align = AllClient. Для Query1 з DataModule1 введемо такий текст для обробки події AfterOpen:
var