Библиографический список

1. Баженова И. Ю. Delphi 5. Самоучитель программиста – М.; КУДИЦ – ОБРАЗ, 2001. – 336 с.

2. Керман М.К. Программирование и отладка в Delphi. Пер. с англ. — М.; Вильямc, 2003, - 672 с.

3. Лабзина Т.А. Алгоритмические языки и программирование. Юнита 4 - М.; Издательство НОУ СГУ, 1999. - 98 с.

4. Дарахвелидзе П., Марков Е. Программирование в Delphi 4. - СПб.; БХВ - СПб., 1999.

5. Лабзина Т.А. Алгоритмические языки и программирование. Юнита 2 - М.; Издательство НОУ СГУ, 1999. – 85 с.

6. www.itcompanies.ru

7. www.fictionbook.ru

Приложение Программный код к главной форме

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, Buttons;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

N5: TMenuItem;

N8: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3,unit9, Unit4, Unit5,unit7, unit10, unit11,unit6;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form1.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form4.show;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form9.show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

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

end;

end.

Программный код к Form2 (Информация о мастерах)

unit Unit2;

interface

uses

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

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

Mask, XPMan, Menus, Buttons;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

Image1: TImage;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1FIO_mastera: TWideStringField;

ADOTable1N_uslug: TWideStringField;

ADOTable1Stazh_raboty: TWideStringField;

ADOTable1Konakt_infotel: TWideStringField;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

Edit1: TEdit;

BitBtn1: TBitBtn;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

BitBtn2: TBitBtn;

N5: TMenuItem;

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 BitBtn2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses unit1, Unit8,unit7, unit4,unit3,unit6, unit9;

{$R *.dfm}

procedure TForm2.Pretty1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form2.close;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm2.N4Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm2.N6Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

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

ADOTable1.Filtered:=True;

end;

procedure TForm2.N1Click(Sender: TObject);

begin

form1.Show;

end;

procedure TForm2.N9Click(Sender: TObject);

begin

Form9.show;

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Filtered:=false;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm2.N5Click(Sender: TObject);

begin

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

end;

end.