046.Бф книту-каи.29400.09 - 12 01 – 1 лу

Нормоконтролер ______________Семенова И.В. «____»________________2014г.		Исполнитель _______________ Львова Н.А. «____»__________________2014г.

2014

Министерство образования и науки Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Казанский национальный исследовательский технический университет

им. А.Н.Туполева - КАИ»

УтверждеН 046.БФ КНИТУ-КАИ.29400.09 - 12 01 – 1 ЛУ

Разработка автоматизированной системы управления кадровым агентством

Текст программы

046.Бф книту-каи.29400.09 - 12 01

Листов 12

2014

unit Unit1; // главный модуль с основной формой

interface

uses

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

Dialogs, Menus, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

//подключенные модули

uses datamod, Rab, Unit3, UnitVak, help_unit;

{$R *.dfm}

// пункт меню Выход

procedure TForm1.N4Click(Sender: TObject);

begin

Close; // Закрыть программу

end;

// Пункт меню Анкета

procedure TForm1.N1Click(Sender: TObject);

begin

Form2.Show;

end;

// Пункт меню Работодатели

procedure TForm1.N2Click(Sender: TObject);

begin

FormRab.Show; // показать форму Работодатели

FormRab.DBGrid1.DataSource:=dm.ds_z; // указать источник данных для таблицы

FormRab.DBNavigator1.DataSource:=dm.ds_z;

end;

// Пункт меню Вакансии

procedure TForm1.N3Click(Sender: TObject);

begin

FormVak.Show;

end;

// Пункт меню Помощь

procedure TForm1.N5Click(Sender: TObject);

begin

FormHelp.show;

end;

end.

// модуль Анкета

unit datamod;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls;

type

TForm2 = class(TForm)

DBComboBox1: TDBComboBox;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

Label8: TLabel;

DBEdit8: TDBEdit;

Label9: TLabel;

DBEdit9: TDBEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

DBEdit12: TDBEdit;

Label13: TLabel;

Label14: TLabel;

DBEdit13: TDBEdit;

DBComboBox2: TDBComboBox;

DBCheckBox1: TDBCheckBox;

DBComboBox3: TDBComboBox;

DBNavigator1: TDBNavigator;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

var cifri,kod:integer;// переменные для функции val – ограничение ввода только цифр

stroka:string;

implementation

// подключение модулей

uses Unit3, STab;

{$R *.dfm}

// открыть форму FormSTAb с табличным выводом анкет

procedure TForm2.Button1Click(Sender: TObject);

begin

FormSTAb.Show;

end;

// ограничить ввод только цифр в поле Возраст

procedure TForm2.DBEdit6Change(Sender: TObject);

begin

stroka:=DBEdit6.Field.AsString;

Val(stroka,cifri,kod);

if kod <> 0 then DBEdit6.Field.Clear;

end;

end.

unit Rab; // модуль с формой Работодатели

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TFormRab = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormRab: TFormRab;

implementation

// подключенные модули

uses Unit3, datamod, STab, Unit1;

{$R *.dfm}

end.

// модуль анкет в табличной форме

unit STab;

interface

uses

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

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

type

TFormSTAb = class(TForm)

DBGrid1: TDBGrid;

ComboBox1: TComboBox;

Label1: TLabel;

Button1: TButton;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormSTAb: TFormSTAb;

Implementation

// подключенные модули

uses Unit3;

{$R *.dfm}

procedure TFormSTAb.Button1Click(Sender: TObject);

begin

// для сортировки выбрано поле из списка

dm.t_s.IndexFieldNames:=ComboBox1.Text;

end;

end.

unit Unit3; // модуль подключения к базе данных

interface

uses

SysUtils, Classes, DB, ADODB;

type

Tdm = class(TDataModule)

ADOConnection1: TADOConnection;

ds_s: TDataSource;

t_s: TADOTable;

ds_z: TDataSource;

t_z: TADOTable;

ds_v: TDataSource;

t_v: TADOTable;

t_zDSDesigner: TAutoIncField;

t_zDSDesigner2: TWideStringField;

t_zDSDesigner3: TWideStringField;

t_zDSDesigner4: TWideStringField;

t_zDSDesigner5: TWideStringField;

t_zDSDesigner6: TWideStringField;

t_vDSDesigner: TAutoIncField;

t_vDSDesigner2: TWideStringField;

t_vDSDesigner4: TWideStringField;

t_vDSDesigner5: TIntegerField;

t_vDSDesigner6: TWideStringField;

t_vDSDesigner7: TIntegerField;

t_vDSDesigner8: TBooleanField;

t_vDSDesigner9: TDateTimeField;

t_vDSDesigner10: TIntegerField;

t_sDSDesigner: TAutoIncField;

t_sDSDesigner2: TWideStringField;

t_sDSDesigner3: TWideStringField;

t_sDSDesigner4: TWideStringField;

t_sDSDesigner5: TIntegerField;

t_sDSDesigner6: TWideStringField;

t_sDSDesigner7: TWideStringField;

t_sDSDesigner8: TWideStringField;

t_sDSDesigner9: TWideStringField;

t_sDSDesigner10: TWideStringField;

t_sDSDesigner11: TWideStringField;

t_sDSDesigner12: TBooleanField;

t_sDSDesigner13: TIntegerField;

t_sDSDesigner14: TBCDField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

dm: Tdm;

implementation

{$R *.dfm}

end.

// модуль таблицы вакансий

unit UnitVak;

interface

uses

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

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

type

TFormVak = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormVak: TFormVak;

implementation

uses Unit3;

{$R *.dfm}

procedure TFormVak.Button1Click(Sender: TObject);

begin

// сортировка по профессии

dm.t_v.IndexFieldNames:='Профессия вакансии';

end;

end.

// модуль help

unit UnitVak;

interface

uses

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

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

type

TFormVak = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormVak: TFormVak;

implementation

uses Unit3;

{$R *.dfm}

procedure TFormVak.Button1Click(Sender: TObject);

begin

dm.t_v.IndexFieldNames:='Профессия вакансии';

end;

end.

Министерство образования и науки Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Казанский национальный исследовательский технический университет

им. А.Н.Туполева - КАИ»

УТВЕРЖДАЮ Руководитель работы _____________Семенова И.В. «_____»______________2014г

Разработка автоматизированной системы управления кадровым агентством

Руководство программиста

Лист утверждения