ПРИЛОЖЕНИЕ А (обязательное)

Листинг программы

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, DB, DBTables, ADODB, StdCtrls, Unit2, ExtCtrls,

ComCtrls, Menus;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Image1: TImage;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

Button3: TButton;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit3, Unit7, Unit4, Unit6, Unit9, Unit8, Unit10, Unit13, Unit14,

Unit15, Unit16, Unit11, Unit17;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.N3Click(Sender: TObject);

var

x:integer;

begin

Form6.show;

form6.ADODataSet1.Append;

form6.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form13.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form14.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form15.ADODataSet1.Append;

form15.show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form16.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form11.Show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form17.show;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form8.Show;

end;

end.

unit Unit2;

interface

uses

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

Dialogs;

type

TFrame2 = class(TFrame)

private

{ Private declarations }

public

{ Public declarations }

end;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4, Unit1, Unit6, Unit7, Unit17;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

form6.ADODataSet1.Append;

form6.show;

end;

end.

unit Unit4;

interface

uses

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

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

FMTBcd, SqlExpr;

type

TForm4 = class(TForm)

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

ADODataSet2: TADODataSet;

DBGrid2: TDBGrid;

ADOTable1: TADOTable;

DBMemo1: TDBMemo;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

DBMemo2: TDBMemo;

Label3: TLabel;

DataSource2: TDataSource;

DBNavigator1: TDBNavigator;

procedure FormCreate(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

ed : string;

end;

var

ed: String;

Form4: TForm4;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

var x :integer;

begin

x:=2;

if Form1.label1.Caption > inttostr(x) then

begin

end;

end;

procedure TForm4.Edit1Change(Sender: TObject);

begin

AdoDataset1.close;

AdoDataset1.CommandText :='select * from Вакансии where ' + ' Название like ''%' + Edit1.Text + '%''';

AdoDataset1.open;

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Show;

end;

end.

unit Unit5;

Interface

uses

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

Dialogs;

type

TFrame5 = class(TFrame)

private

{ Private declarations }

public

{ Public declarations }

end;

Implementation

{$R *.dfm}

end.

unit Unit6;

Interface

uses

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

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

type

TForm6 = class(TForm)

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBGrid1: TDBGrid;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

Button1: TButton;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);

begin

ADODataSet1.Append;

label5.Show;

end;

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

label5.Hide;

form1.Show;

end;

end. unit Unit7;

Interface

uses

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

Dialogs, ComCtrls, StdCtrls, DBCtrls, DB, ADODB, ExtCtrls, Grids, DBGrids;

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

DBMemo3: TDBMemo;

DBMemo4: TDBMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

Implementation

uses Unit1;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

adodataset1.Close;

adodataset1.Open;

end;

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Show;

end;

end.

unit Unit8;

Interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Unit9;

type

TForm8 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit17;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

application.terminate;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

form17.show;

form8.Hide;

end;

end.

unit Unit9;

interface

uses

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

Dialogs;

type

TFrame9 = class(TFrame)

private

{ Private declarations }

public

{ Public declarations }

end;

implementation

{$R *.dfm}

end.

unit Unit10;

interface

uses

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

Dialogs, StdCtrls;

type

TForm10 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;