Приложение

Текст программы:

unit Unit1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, Mask;

Type TForm1 = class(TForm)

DBGrid1: TDBGrid; RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup;

GroupBox1: TGroupBox; Label1: TLabel; MaskEdit1: TMaskEdit;

Button1: TButton; Button2: TButton; Label2: TLabel; Edit1: TEdit;

DBGrid2: TDBGrid; Button3: TButton; Button4: TButton; Button5: TButton;

procedure RadioGroup1Click(Sender: TObject);

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject); procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject); end;

var Form1: TForm1; uses UnitDM, Otbor, Redactor;

procedure TForm1.RadioGroup1Click(Sender: TObject);var ns: string;

begin case RadioGroup2.ItemIndex of 0: ns:=' ASC'; 1: ns:=' DESC'; end;

with RadioGroup1 do DM.ADOTable1.Sort:=Items[ItemIndex]; end;

procedure TForm1.Button1Click(Sender: TObject); begin with DM.ADOTable1 do begin Filter:='[Стоимость]<='+MaskEdit1.Text;Filtered:=True; end; end;

procedure TForm1.Button2Click(Sender: TObject);

begin with DM.QueryMagazin do begin Active:=False;

Parameters.ParamByName('cena').Value:=Edit1.Text; Active:=True;

Form2.Label1.Caption:='Отобрано записей: '+IntToStr(RecordCount); end; Form2.ShowModal; end;

procedure TForm1.Button5Click(Sender: TObject);

begin FormRedactor.ShowModal; end; procedure TForm1.Button3Click(Sender: TObject);

begin DM.ADOTable1.Insert; FormRedactor.ShowModal; end;

procedure TForm1.Button4Click(Sender: TObject);

begin if MessageBox(0, PChar('Удалить запись '+ DM.ADOTable1DSDesigner2.AsString +' '+ DM.ADOTable1DSDesigner3.AsString +'?'),

'Подумайте', MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2)=id_yes

then DM.ADOTable1.Delete; end;

end.

Рис. 9. Внешний вид главной формы.

Рис. 10. Работа кнопки «Добавить новую запись».

Рис. 11. Работа кнопки «Удалить запись».

Рис. 12. Работа кнопки «Редактировать текущую запись».

Рис. 13. Работа кнопки «Отбор».

Рис. 14. Работа кнопки «Искать».