Программный код к Form5 (Выбор материала для нового заказа)

unit Unit5;

interface

uses

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

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

Menus, Mask, jpeg;

type

TForm5 = class(TForm)

GroupBox1: TGroupBox;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBImage1: TDBImage;

DBNavigator1: TDBNavigator;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit8: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

DBGrid1: TDBGrid;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Image1: TImage;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

ADOTable1: TADOTable;

DBGrid3: TDBGrid;

ADOTable3: TADOTable;

DataSource3: TDataSource;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

ADOTable1ID: TAutoIncField;

ADOTable1N_mat: TWideStringField;

ADOTable1F_mat: TBlobField;

ADOTable1Cenarub: TSmallintField;

DBImage2: TDBImage;

DBImage3: TDBImage;

ADOTable2: TADOTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

DBEdit2: TDBEdit;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Pretty1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

Uses unit1, Unit7, unit9, Unit6, unit3, Unit2, unit4;

{$R *.dfm}

procedure TForm5.N2Click(Sender: TObject);

begin

form5.Close;

end;

procedure TForm5.N3Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm5.Pretty1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm5.N4Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm5.N6Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

form9.Show;

end;

procedure TForm5.N1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm5.N9Click(Sender: TObject);

begin

form9.Show;

end;

procedure TForm5.N7Click(Sender: TObject);

begin

form3.Show;

end;

end.

Программный код к Form6 (Выбор украшения для нового заказа)

unit Unit6;

interface

uses

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

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

Mask, OleServer, ExcelXP, ComObj,Buttons, jpeg;

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBImage3: TDBImage;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

DBGrid3: TDBGrid;

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBGrid1: TDBGrid;

DataSource2: TDataSource;

DataSource3: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

DBGrid2: TDBGrid;

DBImage1: TDBImage;

DBImage2: TDBImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

BitBtn1: TBitBtn;

procedure N2Click(Sender: TObject);

procedure dsjl1Click(Sender: TObject);

procedure Pretty1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses unit5,Unit1,unit2,unit7,unit3,unit4, unit9;

{$R *.dfm}

procedure TForm6.N2Click(Sender: TObject);

begin

form6.close;

end;

procedure TForm6.dsjl1Click(Sender: TObject);

begin

form6.Close;

end;

procedure TForm6.Pretty1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm6.N3Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

form9.Show;

end;

procedure TForm6.N1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm6.N6Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm6.N7Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm6.N9Click(Sender: TObject);

begin

form9.Show;

end;

procedure TForm6.N4Click(Sender: TObject);

begin

form7.Show;

end;

end.