Реферат: Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4 0

end;

sDate:=StringReplace(Edit9.Text,'.','/',fRep);

sDate:=StringReplace(sDate,'.','/',fRep);

DataModule1.Query1.SQL.Clear;

sqlStr:='Select Товар.[Назва товару],Товар.[Опис товару],[Партія товару].[Код рахунку],Рахунок.[Дата проплати],Рахунок.[Дата виписки],Рахунок.[Сума оплати] from Товар inner join ([Партія товару] inner join '+

'Рахунок on Рахунок.[Код рахунку]=[Партія товару].[Код рахунку]) on '+

'Товар.[Код товару]=[Партія товару].[Код товару] where Рахунок.[Дата виписки]=#'+sDate+'#';

if ComboBox3.Items[ComboBox3.ItemIndex]<>'' then sqlStr:=sqlStr+' Order By '+ComboBox3.Items[ComboBox3.ItemIndex];

sqlStr:=sqlStr+';';

DataModule1.Query1.SQL.Add(sqlStr);

DataModule1.Query1.Active:=True;

end;

????? ?????? ?????? ??? ???????? ???? ? ?????????? ?? ????? ?????? ???? ???? ??????:

Перейдемо до створення останньої закладки програми – “Звітність”, в якій проілюструємо роботу з QuickReports. Виберемо в меню опцію File Þ New, в вікні вибору натиснемо на піктограмці “Report”. Збережемо новий модуль, і заберемо його з опцій проекту, як форму що створюється автоматично. На нашу закладку звітність помістимо GroupBox, Сaption якого присвоїмо “Прайс лист товарів”. Помістимо на GroupBox кнопку «Перегляд і друк», події OnClick якої присвоїмо наступне:

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

Application.CreateForm(TQuickRPrice, QuickRPrice);

QuickRPrice.Preview;

QuickRPrice.Destroy;

end;

??? QuickReport1 ???????????? ? QuickRPrice, ???? ??????????? DataSet ?????? ???????? DataModule1.Table1. ³??????? ? ???????????? ????? ?Bands? ?????? ???????? True ???????????? HasTitle (????? ?????), HasColumnHeader (????????? ???????), HasDetail (???? ????, ???????? ????? ???????). ? ???????? QReports ?? Title ????????? QRLabel, ? Caption = ??????-???? ????????, ?? ColumnHeader ?'??? ????????? QRLabel ? ??????? ????? ????? ???????, ? ?? ??????? Detail ?'??? QRDBText, ???????????? ???? DataSet ?????? ???????? DataModule1.Table1, ? DataField ?????????? ???? ????? ???????:

На цьому закінчимо розробку першого звіту. Помістимо на закладку звітність ще один GroupBox, який назвемо відомості про продаж товарів, і організуємо як складний звіт з деталізацією інформації з різних таблиць. Для кнопки «Перегляд і друк» звіту введемо такий текст програми:

procedure TForm1.SpeedButton9Click(Sender: TObject);

begin

DataModule1.Table1.MasterSource:=DataModule1.DataSource2;

DataModule1.Table1.MasterFields:='Код товару';

Application.CreateForm(TQuickRSum, QuickRSum);

QuickRSum.Preview;

QuickRSum.Destroy;

DataModule1.Table1.MasterSource:=nil;

DataModule1.Table1.MasterFields:='';