Программный код к Form10 (Выбор фурнитуры)

unit Unit10;

interface

uses

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

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

Buttons, jpeg, Menus;

type

TForm10 = class(TForm)

GroupBox1: TGroupBox;

ADOTable2: TADOTable;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

ADOTable1ID: TAutoIncField;

ADOTable1N_fur: TWideStringField;

ADOTable1F_fur: TBlobField;

ADOTable1Cenarub: TIntegerField;

DBImage2: TDBImage;

Image1: TImage;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

Label3: TLabel;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

DBImage1: TDBImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DataSource3: TDataSource;

ADOTable3: TADOTable;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DBGrid3: TDBGrid;

DBImage3: TDBImage;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses unit9;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

form9.show;

end;

end.

Программный код к Form11 (Выбор услуг для нового заказа)

unit Unit11;

interface

uses

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

Dialogs, DB, ADODB, Buttons, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls,

Menus;

type

TForm11 = class(TForm)

Image1: TImage;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

DBEdit12: TDBEdit;

DBEdit6: TDBEdit;

CheckBox2: TCheckBox;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

CheckBox4: TCheckBox;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

CheckBox6: TCheckBox;

DBEdit11: TDBEdit;

DBEdit1: TDBEdit;

CheckBox8: TCheckBox;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

CheckBox10: TCheckBox;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

CheckBox12: TCheckBox;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

CheckBox14: TCheckBox;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

CheckBox16: TCheckBox;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

CheckBox18: TCheckBox;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

CheckBox20: TCheckBox;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

CheckBox22: TCheckBox;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

CheckBox24: TCheckBox;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

CheckBox26: TCheckBox;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

CheckBox28: TCheckBox;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

CheckBox30: TCheckBox;

DBEdit31: TDBEdit;

Label1: TLabel;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1Naim_tovara: TWideStringField;

ADOTable1usluga1: TWideStringField;

ADOTable1cena1: TFloatField;

ADOTable1usluga2: TWideStringField;

ADOTable1cena2: TIntegerField;

ADOTable1usluga3: TWideStringField;

ADOTable1cena3: TIntegerField;

ADOTable1usluga4: TWideStringField;

ADOTable1cena4: TIntegerField;

ADOTable1usluga5: TWideStringField;

ADOTable1cena5: TIntegerField;

ADOTable1usluga6: TWideStringField;

ADOTable1cena6: TIntegerField;

ADOTable1usluga7: TWideStringField;

ADOTable1cena7: TIntegerField;

ADOTable1usluga8: TWideStringField;

ADOTable1cena8: TIntegerField;

ADOTable1usluga9: TWideStringField;

ADOTable1cena9: TIntegerField;

ADOTable1usluga10: TWideStringField;

ADOTable1cena10: TIntegerField;

ADOTable1usluga11: TWideStringField;

ADOTable1cena11: TIntegerField;

ADOTable1usluga12: TWideStringField;

ADOTable1cena12: TIntegerField;

ADOTable1usluga13: TWideStringField;

ADOTable1cena13: TIntegerField;

ADOTable1usluga14: TWideStringField;

ADOTable1cena14: TIntegerField;

ADOTable1usluga15: TWideStringField;

ADOTable1cena15: TIntegerField;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses unit9;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

ADOTable1.Filter:='Naim_tovara='''+Edit2.Text+'''';

ADOTable1.Filtered:=True;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

end;

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

form9.show;

end;

end.

25