Тажриба иши. Borland Delphi дастурлаш тизимида ишлаш асослари. Ишдан максад: Borland Delphi

22. Ёзувларни тахрирлаш ва кўшиш амалларининг умумий блок схемаси ва алгоритми 31-расмда кўрсатилган. Ходисалар менюсининг Кўшиш пункти процедураси куйидагича:
procedure TForm1.N7Click(Sender: TObject);
begin
{жадвалга ёзувни (запись) кўшиш}
DataModule2.Adotable1.Insert;
{Янги ёзувга сана ва вактнинг кийматларини ўрнатиш}
DataModule2.Adotable1.FieldByName('DateS').Value:= Date();
DataModule2.Adotable1.FieldByName('FromTime').Value:= Date();
DataModule2.Adotable1.FieldByName('ToTime').Value:= Date();
if Form3.ShowModal=mrOK then
{ўзгаришни белгилаш (фиксируем изменения)}
DataModule2.ADOTable1.Post
else
{ёзувни ўчириш}
DataModule2.ADOTable1.Delete;
end;

31-расм. Ёзувларни тахрирлаш ва кўшиш амалларининг умумий блок схемаси.
23. Ходисалар менюсидаги Ўчириш ва Тахрирлаш пункти процедурасини куйидагича ўзгартиринг:
procedure TForm1.N8Click(Sender: TObject);
{Ходисалар / Ўчириш}
begin
{Ёзувни ўчириш}
DataModule2.ADOTable1.Delete;
end;
procedure TForm1.N9Click(Sender: TObject);
{Ходисалар / Тахрирлаш}
begin
if Form3.ShowModal=mrOK then
{Ўзгартиришларни булгилаб куйиш (зафиксировать)}
DataModule2.ADOTable1.Post
else
DataModule2.ADOTable1.Cancel;
end;
24. Проектни саканг ва уни ишга туширинг. MainData жадвалиги бир нечта ёзувларни кўшинг. MS-Access дастурини ишга туширинг ва db1.mdb файлини очинг. Киритилган ўзгартиришларни кузатинг.
25. Form1 формасидаги Кидириш менюси пунктларини ишга тушириш учун 32-расмда кўрсатилганидек яна иккита форма тузинг.

32-расмда. Фильтрларни ўрнатиш (кидириш) учун формалар (Form4 ва Form5).