CheckBox1: TCheckBox;

DateTimePicker3: TDateTimePicker;

Button6: TButton;

Button7: TButton;

CheckBox2: TCheckBox;

Edit13: TEdit;

Label16: TLabel;

Label17: TLabel;

Edit14: TEdit;

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

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

procedure Button6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

EDPers: TEDPers;

var

DUV:string;

gat:integer;

bufCity:integer;

bufotdel:integer;

bufprofes:integer;

buffilial:integer;

bufstus:integer;

implementation

uses Upers, UDM, UCity, UFilial, UOtdel, UProfesion, UStat;

{$R *.dfm}

procedure TEDPers.Button1Click(Sender: TObject);

begin

gat:=9;

Application.CreateForm(TCity, City);

end;

procedure TEDPers.Button2Click(Sender: TObject);

begin

gat:=6;

Application.CreateForm(TOtdel, Otdel);

end;

procedure TEDPers.Button3Click(Sender: TObject);

begin

gat:=5;

Application.CreateForm(TProfession, Profession);

end;

procedure TEDPers.Button4Click(Sender: TObject);

begin

gat:=8;

Application.CreateForm(TFilial, Filial);

end;

procedure TEDPers.Button5Click(Sender: TObject);

begin

gat:=7;

Application.CreateForm(TSTatus, STatus);

end;

procedure TEDPers.Button6Click(Sender: TObject);

{сохраняем изменения}

begin

if (CheckBox1.Checked=true) then

begin

dm.SPPers.ParamByName('DATE_UVOLNENIYA_XP').value:=DateToStr(DateTimePicker3.Date);

end

else

begin

dm.SPPers.ParamByName('DATE_UVOLNENIYA_XP').Value:='';

end;

begin

dm.SPPers.ParamByName('NAME_XP').Value:=edit2.Text;

dm.SPPers.ParamByName('NUMBER_PASSPORT_XP').Value:=edit3.Text;

dm.SPPers.ParamByName('CITY_NAME_XP').Value:=bufCity;

dm.SPPers.ParamByName('ADDRESS_XP').Value:=edit5.Text;

dm.SPPers.ParamByName('PHONE_CITY_XP').Value:=edit6.Text;

dm.SPPers.ParamByName('PHONE_SOTKA_XP').Value:=edit7.Text;

dm.SPPers.ParamByName('OTDEL_NAME_XP').Value:=bufotdel;

dm.SPPers.ParamByName('DOLGNOST_NAME_XP').Value:=bufprofes;

dm.SPPers.ParamByName('FILIAL_COD_XP').Value:=buffilial;

dm.SPPers.ParamByName('OKLAD_XP').Value:=edit11.Text;

dm.SPPers.ParamByName('STATUS_PERS_XP').Value:=bufstus;

dm.SPPers.ParamByName('DATE_BIRTHDAY_XP').value:=DateToStr(DateTimePicker1.Date);

dm.SPPers.ParamByName('DATE_PRIXOD_XP').value:=DateToStr(DateTimePicker2.Date);

dm.SPPers.ParamByName('NUMBER_RNN_XP').Value:=edit13.Text;

dm.SPPers.ParamByName('NUMBER_SIK_XP').Value:=edit14.Text;

{Ок начинаем транзакцию}

begin

try

dm.SPPers.ExecProc;

{если не выполгилось то

соообщаем об ошибке}

except

Showmessage ('Операция не получилась!' +#13+

'Повторите попытку');

{откат транзакции}

dm.Transaction.RollbackRetaining;

{выходим делать тут больше нечего}

exit

end;

{если всё прошло нармально то подтверждааем

изменения}

dm.Transaction.CommitRetaining;

dm.IBPers.Close;

dm.IBPers.Open;

EDPers.Close;

end;

end;

end;

procedure TEDPers.Button7Click(Sender: TObject);

begin

if MessageDlg ('Отменить ввод и закрыть окно?',

mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin

EDPers.Close;

end;

end;

procedure TEDPers.CheckBox1Click(Sender: TObject);

begin

if (CheckBox1.Checked=true) then

begin

DateTimePicker3.Enabled:=true;

end

else

begin

DateTimePicker3.Enabled:=false;

end;

end;

procedure TEDPers.CheckBox2Click(Sender: TObject);

begin

if (CheckBox2.Checked=true) then

begin

button6.Enabled:=true;

end

else

begin

button6.Enabled:=false;

end;

end;

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

begin

gat:=0;

action:=cafree;

end;

procedure TEDPers.FormCreate(Sender: TObject);

begin

gat:=0;

DateTimePicker1.Date:=date;

DateTimePicker2.Date:=date;

if (st=1) then

begin

EDPers.Caption:='Добовление нового сотрудника';

dm.SPPers.ParamByName('PERS_ID_XP').Value:=null;

dm.SPPers.ParamByName('PERS_PROC').Value:=1;

end

else

if (st=2) then

begin

{проверка на наличие нулевой даты}

if (dm.IBPersDATE_UVOLNENIYA.Value='') then

begin

{если дата нулевая то устанавливаем

системную иначе }

DateTimePicker3.Date:=date;

end

else

begin

{дату которая указана в таблице}

DateTimePicker3.Date:=StrToDate(dm.IBPersDATE_UVOLNENIYA.Value);

end;

Begin

{заполнение полей для изменений}

EDPers.Caption:='Изменение данных о сотруднике';

edit1.Text:=IntToStr(dm.IBPersID_PERSONNEL.Value);

edit2.Text:=dm.IBPersNAME.Value;

edit3.Text:=dm.IBPersNUMBER_PASSPORT.Value;

edit4.Text:=dm.IBPersNAME_CITY.Value;

bufCity:=dm.IBPersid_CITY.Value;

edit5.Text:=dm.IBPersADDRESS.Value;

edit6.Text:=dm.IBPersPHONE_CITY.Value;

edit7.Text:=dm.IBPersPHONE_SOTKA.value;

edit8.Text:=dm.IBPersNAME_OTDEL.Value;

bufotdel:=dm.IBPersid_OTDEL.Value;

edit9.Text:=dm.IBPersNAME_DOLGNOST.Value;

bufprofes:=dm.IBPersID_DOLGNOST.Value;

edit10.Text:=dm.IBPersNAME_FILIAL.Value;

buffilial:=dm.IBPersID_FILIAL.Value;

edit11.Text:=dm.IBPersOKLAD.value;

edit12.Text:=dm.IBPersNAME_STATUS.Value;

edit13.Text:=dm.IBPersNUMBER_RNN.Value;

edit14.text:=dm.IBPersNUMBER_SIK.Value;

bufstus:=dm.IBPersID_STATUS.Value;

DateTimePicker2.Date:=StrToDate(dm.IBPersDATE_PRIXOD.Value);

DateTimePicker1.Date:=StrToDate(dm.IBPersDATE_BIRTHDAY.Value);

dm.SPPers.ParamByName('PERS_ID_XP').Value:=dm.IBPersID_PERSONNEL.Value;

dm.SPPers.ParamByName('PERS_PROC').Value:=2;

End;

end;

end;

end.

Приложение G. Текст программы модуля - UDM

unit UDM;

interface

uses

SysUtils, Classes, DB, IBStoredProc, IBCustomDataSet, IBQuery, IBDatabase;

type

TDM = class(TDataModule)

Perssonel: TIBDatabase;

Transaction: TIBTransaction;

IBPers: TIBQuery;

SPPers: TIBStoredProc;

DataPers: TDataSource;

DataProfess: TDataSource;

IBProfess: TIBQuery;

SPProfess: TIBStoredProc;

IBProfessNAME_DOLGNOST: TIBStringField;

IBFilial: TIBQuery;

DataFilial: TDataSource;

SPFilial: TIBStoredProc;

IBFilialNAME_FILIAL: TIBStringField;

IBCity: TIBQuery;

SPCity: TIBStoredProc;

DataCity: TDataSource;

DataOtdel: TDataSource;

IBOtdel: TIBQuery;

SPOtdel: TIBStoredProc;

IBStat: TIBQuery;

SPStat: TIBStoredProc;

DataStat: TDataSource;

IBOtdelNAME_OTDEL: TIBStringField;

IBStatID_STATUS: TIntegerField;

IBStatNAME_STATUS: TIBStringField;

IBCityNAME_CITY: TIBStringField;

IBCityID_CITY: TIntegerField;

IBFilialID_FILIAL: TIntegerField;

IBOtdelID_OTDEL: TIntegerField;

IBProfessID_DOLGNOST: TIntegerField;

IBFilialADDRESS: TIBStringField;

IBFilialPHONE: TIBStringField;

IBFilialPOST_INDEX: TIBStringField;

IBPersID_OTDEL: TIntegerField;

IBPersNAME_OTDEL: TIBStringField;

IBPersID_FILIAL: TIntegerField;

IBPersNAME_FILIAL: TIBStringField;

IBPersADDRESS: TIBStringField;

IBPersPHONE: TIBStringField;

IBPersPOST_INDEX: TIBStringField;

IBPersID_STATUS: TIntegerField;

IBPersNAME_STATUS: TIBStringField;

IBPersID_DOLGNOST: TIntegerField;

IBPersNAME_DOLGNOST: TIBStringField;

IBPersID_CITY: TIntegerField;

IBPersNAME_CITY: TIBStringField;

IBPersID_PERSONNEL: TIntegerField;

IBPersNAME: TIBStringField;

IBPersNUMBER_PASSPORT: TIBStringField;

IBPersCITY_NAME: TIntegerField;

IBPersADDRESS1: TIBStringField;

IBPersPHONE_CITY: TIBStringField;

IBPersPHONE_SOTKA: TIBStringField;

IBPersOTDEL_NAME: TIntegerField;

IBPersDOLGNOST_NAME: TIntegerField;

IBPersOKLAD: TIBStringField;

IBPersSTATUS_PERS: TIntegerField;

IBPersDATE_PRIXOD: TIBStringField;

IBPersDATE_UVOLNENIYA: TIBStringField;

IBPersFILIAL_COD: TIntegerField;

IBPersDATE_BIRTHDAY: TIBStringField;

IBPersNUMBER_RNN: TIBStringField;

IBPersNUMBER_SIK: TIBStringField;

procedure DataModuleCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses umain;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);

begin

OpenBD;

dm.IBPers.Active:=true;

dm.IBProfess.Active:=true;

dm.IBFilial.Active:=true;

dm.IBCity.Active:=true;

dm.IBOtdel.Active:=true;

dm.IBStat.Active:=true;

end;

end.

Приложение H. Текст проекта программы Personnel

program Personnel;

uses

Forms,

UStart in 'UStart.pas' {Start},

umain in 'umain.pas' {Main},

Upers in 'Upers.pas' {Pers},

UDM in 'UDM.pas' {DM: TDataModule},

UProfesion in 'UProfesion.pas' {Profession},

UFilial in 'UFilial.pas' {Filial},

UOtdel in 'UOtdel.pas' {Otdel},

UCity in 'UCity.pas' {City},

UStat in 'UStat.pas' {STatus},

EDITPers in 'EDITPers.pas' {EDPers},

UEDFilial in 'UEDFilial.pas' {EDFilial},

UEDCity in 'UEDCity.pas' {EDCity},

UEDProfes in 'UEDProfes.pas' {EDProfess},

UNStatus in 'UNStatus.pas' {NStatus},

UEDOtdel in 'UEDOtdel.pas' {EDOtdel},

UFind in 'UFind.pas' {find},

UOtchet in 'UOtchet.pas' {Otchet},

Uved in 'Uved.pas' {ved},

UOtchet_pers in 'UOtchet_pers.pas' {Otchet_pers},

UTB in 'UTB.pas' {TB};

{$R *.res}

begin

Application.Initialize;

Application.MainFormOnTaskbar := True;

Application.CreateForm(TMain, Main);

Application.CreateForm(TStart, Start);

Application.CreateForm(TDM, DM);

Application.CreateForm(Tved, ved);

Application.CreateForm(TOtchet_pers, Otchet_pers);

Application.Run;

end.

Размещено на Allbest.ru