Interface

uses

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

Dialogs, StdCtrls, Buttons, Mask, ExtCtrls, Grids, DBGrids, DBCtrls,

ComCtrls;

type

TForm7 = class(TForm)

DBNavigator1: TDBNavigator;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

Label1: TLabel;

MaskEdit1: TMaskEdit;

BitBtn1: TBitBtn;

LabeledEdit6: TLabeledEdit;

DBGrid1: TDBGrid;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

LabeledEdit7: TLabeledEdit;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

Implementation

uses Unit5;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

try

if (Trim(LabeledEdit1.Text)='') or (Trim(LabeledEdit2.Text)='') or (Trim(MaskEdit1.Text)='') or (Trim(LabeledEdit3.Text)='') or (Trim(LabeledEdit4.Text)='') or (Trim(LabeledEdit5.Text)='') or (Trim(LabeledEdit6.Text)='') or (Trim(LabeledEdit7.Text)='') then

begin

exit; // LabeledEdit

end;

DataModule5.ADOQuery2.Insert;

DataModule5.ADOQuery2.FieldByName('Поставщик').AsString:=LabeledEdit1.Text;

DataModule5.ADOQuery2.FieldByName('Товар').AsString:=LabeledEdit2.Text;

DataModule5.ADOQuery2.FieldByName('Количество').AsString:=LabeledEdit3.Text;

DataModule5.ADOQuery2.FieldByName('Телефон').AsString:=LabeledEdit4.Text;

DataModule5.ADOQuery2.FieldByName('Адрес').AsString:=LabeledEdit5.Text;

DataModule5.ADOQuery2.FieldByName('Öåíà_çà_1øò').AsString:=LabeledEdit6.Text;

DataModule5.ADOQuery2.FieldByName('Äàòà').AsString:=MaskEdit1.Text;

DataModule5.ADOQuery2.Post;

DataModule5.ADOQuery4.Insert;

DataModule5.ADOQuery4.FieldByName('Товар').AsString:=LabeledEdit2.Text;

DataModule5.ADOQuery4.FieldByName('Количество').AsString:=LabeledEdit3.Text; // LabeledEdit5

DataModule5.ADOQuery4.FieldByName('Öåíà çà 1 øò').AsString:=LabeledEdit6.Text;

DataModule5.ADOQuery4.Post;

DataModule5.ADOQuery6.Insert;

DataModule5.ADOQuery6.FieldByName('Наименование').AsString:=LabeledEdit2.Text; // LabeledEdit5

DataModule5.ADOQuery6.FieldByName('Öåíà').AsString:=LabeledEdit6.Text;

DataModule5.ADOQuery6.FieldByName('Описание').AsString:=LabeledEdit7.Text;

DataModule5.ADOQuery6.Post;

except

on e:Exception do

end;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

DataModule5.ADOQuery2.Delete;

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

try

DataModule5.ADOQuery2.Filtered:=false;

DataModule5.ADOQuery2.Filter:='[Äàòà]>='+QuotedStr(DateToStr(DateTimePicker1.DateTime))+'and [Äàòà]<='+QuotedStr(DateToStr(DateTimePicker2.DateTime))+'';

DataModule5.ADOQuery2.Filtered:=true;

DataModule5.ADOQuery2.Open;

except

on e:Exception do

end;

end;

procedure TForm7.BitBtn4Click(Sender: TObject);

begin

DataModule5.ADOQuery2.Filtered:=false;

end;

end.

unit Unit8;