Программный код к Form7 (Клиенты)

unit Unit7;

interface

uses

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

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

jpeg, Buttons;

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

Edit1: TEdit;

BitBtn1: TBitBtn;

Image1: TImage;

Label1: TLabel;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

N7: TMenuItem;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses unit5,unit8, unit1,unit2, unit3,unit6, unit4, unit9;

{$R *.dfm}

procedure TForm7.Pretty1Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm7.N2Click(Sender: TObject);

begin

form7.Close;

end;

procedure TForm7.N3Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm7.N4Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm7.N6Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

Edit1.Clear;

end;

procedure TForm7.N1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm7.N9Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm7.N5Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Filter:='Familiya='''+Edit1.Text+'''';

ADOTable1.Filtered:=True;

end;

procedure TForm7.BitBtn3Click(Sender: TObject);

begin

adotable1.delete;

end;

procedure TForm7.BitBtn4Click(Sender: TObject);

begin

Form8.show;

end;

procedure TForm7.N7Click(Sender: TObject);

begin

Winhelp(form1.Handle,'справка.hlp',HELP_CONTEXT,1);

end;

end.

Программный код к Form8 (Добавить клиента)

unit Unit8;

interface

uses

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

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

type

TForm8 = class(TForm)

Image1: TImage;

Label1: TLabel;

SpeedButton1: TSpeedButton;

BitBtn1: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label6: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure SpeedButton1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses unit2, unit7;

{$R *.dfm}

procedure TForm8.SpeedButton1Click(Sender: TObject);

begin

Form7.ADOTable1.Insert;

Form7.ADOTable1.FieldByName('Familiya').AsString:=Edit1.Text;

Form7.ADOTable1.FieldByName('Imya').AsString:=Edit2.Text;

Form7.ADOTable1.FieldByName('Otchestvo').AsString:=Edit3.Text;

Form7.ADOTable1.FieldByName('Telefon').AsString:=Edit4.Text;

Form7.ADOTable1.FieldByName('Adress').AsString:=Edit5.Text;

Form7.ADOTable1.Post;

end;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin

Form8.Close;

end;

end.