Форма оформления заказа

unit zak;

interface

uses

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

Dialogs, StdCtrls;

type

TZakaz = class(TForm)

Button3: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Button1: TButton;

Button2: TButton;

Edit7: TEdit;

Edit8: TEdit;

Label9: TLabel;

Label10: TLabel;

Edit9: TEdit;

Edit10: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Zakaz: TZakaz;

implementation

uses klient, avto, module, zak2, main, cek;

{$R *.dfm}

procedure TZakaz.Button1Click(Sender: TObject);

begin

PoiskKlienta.Show;

end;

procedure TZakaz.Button2Click(Sender: TObject);

begin

Form_Avto.show;

end;

procedure TZakaz.Button3Click(Sender: TObject);

var

zakazid,warehouseid,i:Integer;

begin

ModuleBD.ADOQuery_Zakaz.Insert;

zakazid:=ModuleBD.ADOQuery_Zakaz.RecordCount+1;

ModuleBD.ADOQuery_Zakaz.FieldByName('id_orders').AsInteger:= zakazid;

ModuleBD.ADOQuery_Zakaz.FieldByName('id_clients').AsInteger:= StrToInt(Edit1.Text);

ModuleBD.ADOQuery_Zakaz.FieldByName('Order_status').AsBoolean:=false;

ModuleBD.ADOQuery_Zakaz.FieldByName('Status_oplati').AsBoolean:=false;

ModuleBD.ADOQuery_Zakaz.FieldByName('Date_vipiski').AsString:=Edit7.Text;

ModuleBD.ADOQuery_Zakaz.FieldByName('Date_oplati').AsString:=Edit8.Text;

ModuleBD.ADOQuery_Zakaz.FieldByName('№_engine').AsInteger:= StrToInt(Edit3.Text);

ModuleBD.ADOQuery_Zakaz.FieldByName('№_kuzova').AsInteger:= StrToInt(Edit4.Text);

ModuleBD.ADOQuery_Zakaz.FieldByName('Color').AsString:=Edit5.Text;

ModuleBD.ADOQuery_Zakaz.FieldByName('Price').AsString:=Edit6.Text;

ModuleBD.ADOQuery_Zakaz.FieldByName('id_cars').AsFloat:= StrToFloat(Edit2.Text);

Chek.QRLabel13.Caption:=Edit9.Text;

Chek.QRLabel14.Caption:=Edit10.Text;

Chek.QRLabel15.Caption:=Edit2.Text;

Chek.QRLabel16.Caption:=Edit3.Text;

Chek.QRLabel17.Caption:=Edit4.Text;

Chek.QRLabel18.Caption:=Edit5.Text;

Chek.QRLabel19.Caption:=Edit8.Text;

Chek.QRLabel20.Caption:=Edit7.Text;

Chek.QRLabel12.Caption:=Edit6.Text;

Chek.QuickRep1.PreviewModal;

end;

end.