(Обязательное)

1 unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Visible:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Visible:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form4.Visible:=true;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form5.Visible:=true;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form6.Visible:=true;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Form6.Visible:=true;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, DBCtrls, Mask, ExtCtrls;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Button1: TButton;

Label1: TLabel;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

procedure FormActivate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);

begin

DBgrid1.Columns[0].Title.caption:='Номер';

DBgrid1.Columns[1].Title.caption:='Фамилия';

DBgrid1.Columns[2].Title.caption:='Имя';

DBgrid1.Columns[3].Title.caption:='Отчество';

DBgrid1.Columns[4].Title.caption:='Паспорт';

DBgrid1.Columns[5].Title.caption:='Зарплата';

DBgrid1.Columns[6].Title.caption:='Телефон';

DBgrid1.Columns[7].Title.caption:='Адрес';

DBgrid1.Columns[8].Title.caption:='Дата';

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm2.Button3Click(Sender: TObject);

var otvet:byte;

begin

otvet:=MessageDLG ('Запись будет удалена, Вы согласны?', mtConfirmation, [mbYes,mbNo],0);

if otvet = 6 then table1.Delete;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

Table1.Active:=False;

Table1.IndexName:='Famlnd';

Table1.Active:=True;

Table1.SetKey;

Table1.FieldByName('shurname').AsString:=Edit1.Text;

Table1.GotoKey;

Table1.SetKey;

Table1.FieldByName('shurname').AsString:=Edit1.Text;

Table1.GotoKey;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit3;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm3 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

DBgrid1.Columns[0].Title.caption:='Номер';

DBgrid1.Columns[1].Title.caption:='Наименование';

DBgrid1.Columns[2].Title.caption:='Юредическое наименование';

DBgrid1.Columns[3].Title.caption:='Адрес';

DBgrid1.Columns[4].Title.caption:='Контактные данные';

DBgrid1.Columns[5].Title.caption:='Номер договора';

DBgrid1.Columns[6].Title.caption:='Сумма договора';

DBgrid1.Columns[7].Title.caption:='Дата начала договора';

DBgrid1.Columns[8].Title.caption:='Дата конца договора';

DBgrid1.Columns[9].Title.caption:='Норма списание';

DBgrid1.Columns[10].Title.caption:='Инвентарь';

DBgrid1.Columns[11].Title.caption:='Режим регламентных работ';

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm3.Button3Click(Sender: TObject);

var otvet:byte;

begin

otvet:=MessageDLG ('Запись будет удалена, Вы согласны?', mtConfirmation, [mbYes,mbNo],0);

if otvet = 6 then table1.Delete;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Table1.Post;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, ExtCtrls, DBCtrls;

type

TForm4 = class(TForm)

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

DBgrid1.Columns[0].Title.caption:='Номер';

DBgrid1.Columns[1].Title.caption:='Дата';

DBgrid1.Columns[2].Title.caption:='Объект';

DBgrid1.Columns[3].Title.caption:='Контактная информация';

DBgrid1.Columns[4].Title.caption:='Вид работ';

DBgrid1.Columns[5].Title.caption:='Сумма работ';

DBgrid1.Columns[6].Title.caption:='Сотрудники';

DBgrid1.Columns[7].Title.caption:='Зарплата';

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm4.Button3Click(Sender: TObject);

var otvet:byte;

begin

otvet:=MessageDLG ('Запись будет удалена, Вы согласны?', mtConfirmation, [mbYes,mbNo],0);

if otvet = 6 then table1.Delete;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm5 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

begin

DBgrid1.Columns[0].Title.caption:='Номер';

DBgrid1.Columns[1].Title.caption:='Наименование';

DBgrid1.Columns[2].Title.caption:='Весс';

DBgrid1.Columns[3].Title.caption:='Применение';

DBgrid1.Columns[4].Title.caption:='Колличество на складе';

DBgrid1.Columns[5].Title.caption:='Отсаток';

DBgrid1.Columns[6].Title.caption:='Стоимость';

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm5.Button3Click(Sender: TObject);

var otvet:byte;

begin

otvet:=MessageDLG ('Запись будет удалена, Вы согласны?', mtConfirmation, [mbYes,mbNo],0);

if otvet = 6 then table1.Delete;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Table1.Post;

end;

end.

45