Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
else IBQExecSQL.SQL.Append('Special=0');
IBQExecSQL.SQL.Append('where ID='+IntToStr(RecSave));
end;
IBQExecSQL.ExecSQL;
IBQBookWorks.Close;
IBQBookWorks.Open;
IBQBookWorks.Locate('ID',RecSave,[loCaseInsensitive]);
FEditBookWorks.Close;
end;
27: FEditBookWorks.Close;
end;
end;
procedure TFEditBookWorks.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FEditEmployers.Enabled:=True;
end;
procedure TFEditBookWorks.CBDateEndClick(Sender: TObject);
begin
if CBDateEnd.Checked then DTPEnd.Visible:=True
else DTPEnd.Visible:=False;
end;
end.
unit EditAwards;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, DB;
type
TFEditAwards = class(TForm)
LabelNumberDocum: TLabel;
EditNumberDocum: TEdit;
LabelDateDocum: TLabel;
DTPDocum: TDateTimePicker;
SBEditAwards: TStatusBar;
EditAward: TEdit;
LabelAward: TLabel;
LabelDocuments: TLabel;
EditDocuments: TEdit;
PanelAwards: TPanel;
procedure FormActivate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FEditAwards: TFEditAwards;
AddAward:Boolean;
implementation
uses DataModule, EditEmployers;
{$R *.dfm}
procedure TFEditAwards.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
with DM do begin
if AddAward then begin
EditAward.Text:='Премия ';
EditDocuments.Text-Приказ ';
EditNumberDocum.Text:='';
DTPDocum.DateTime:=Trunc(Date());
end else begin
EditAward.Text:=Trim(IB QAwardsAward.As String);
EditDocuments.Text:=Trim(IBQAwardsDocuments.AsString);
EditNumberDocum.Text:=Trim(IBQAwardsNumberDocum.AsString);
DTPDocum.DateTime:=IBQAwardsDateDocum.AsDateTime;
end;
EditAward.SetFocus;
end;
end;
procedure TFEditAwards.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var RecSave:LongInt;
begin
with DM do
case key of
13: begin
if AddAward then begin
IBQID.SQL.Clear;
IBQID.SQL.Append('select Gen_ID(ID_Awards,0) from Awards');
IBQID.Open;
RecSave:=IBQIDGen_ID.AsInteger+1;
IBQID.Close;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert into Awards (Employers,');
IBQExecSQL.SQL.Append('Award,');
IBQExecSQL.SQL.Append('Documents,');
IBQExecSQL.SQL.Append('NumberDocum,');
IBQExecSQL.SQL.Append('DateDocum)');
IBQExecSQL.SQL.Append('Values ('+IntToStr(IBQEmployersID.AsInteger)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditAward.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditDocuments.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditNumberDocum.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPDocum.DateTime)+chr(39)+')');
end else begin
RecSave:=IBQAwardsId.AsInteger;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Update Awards');
IBQExecSQL.SQL.Append('Set Award='+chr(39)+Trim(EditAward.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Documents='+chr(39)+Trim(EditDocuments.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('NumberDocum='+chr(39)+Trim(EditNumberDocum.Text)+chr(
39)+',');
IBQExecSQL.SQL.Append('DateDocum='+chr(39)+DateToStr(DTPDocum.DateTime)+chr(
39));
IBQExecSQL.SQL.Append('Where ID='+IntToStr(RecSave));
end;
IBQExecSQL.ExecSQL;
IBQAwards.Close;
IBQAwards.Open;
IBQAwards.Locate('ID',RecSave,[loCaseInsensitive]);
FEditAwards.Close;
end;
27: FEditAwards.Close;
end;
end;
procedure TFEditAwards.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FEditEmployers.Enabled:=True;
end;
end.
unit DataModule;
interface
uses
SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBQuery, IBTable,
Word2000, OleServer, IBDatabaseInfo, WordXP;
type
TDM = class(TDataModule)
IBDB: TIBDatabase;
IBTrans: TIBTransaction;
IBQEmployers: TIBQuery;
DSEmployers: TDataSource;
IBTEmployers: TIBTable;
IBQJobTitles: TIBQuery;
IBQJobTitlesID: TIntegerField;
IBQJobTitlesJ OB TITLE: TIBStringField;
DSJobTitles: TDataSource;
IBQExecSQL: TIBQuery;
IBQID: TIBQuery;
IBQMotionEmployers: TIBQuery;
IBQMotionEmployersID: TIntegerField;
IBQMotionEmployersEMPLOYERS: TIntegerField;
IB QMoti onEmpl oyersJ OB TITLE: TIntegerF iel d;
IB QMoti onEmpl oyersDATEORDER: TDateTimeField;
IBQMotionEmployersORDERNUMBER: TIB StringField;
IB QMoti onEmpl oyersDATEFROM: TDateTimeF ield;
IB QMoti onEmpl oyersDATETO: TDateTimeF ield;
IBQMotionEmployersPEDAGOGS: TSmallintField;
DSMotionEmployers: TDataSource;
IB QMoti onEmpl oyersNameJobTitle: TStringField;
IBQFamily: TIBQuery;
IBQFamilyID: TIntegerField;
IBQFamilyEMPLOYERS: TIntegerField;
IBQFamilyRELATIVES: TIBStringField;
IBQFamilyFAMILYS: TIBStringField;
DSFamily: TDataSource;
IBQChangeFIO: TIBQuery;
IBQChangeFIOID: TIntegerField;
IBQChangeFIOEMPLOYERS: TIntegerField;
IBQChangeFIODATECHANGE: TDateTimeField;
IBQChangeFIOFAMILYNEW: TIBStringField;
IBQChangeFIONAMENEW: TIBStringField;
IBQChangeFIOFATHERSNEW: TIBStringField;
IBQChangeFIOBASIS: TIBStringField;
IBQChangeFIONOTE: TIBStringField;
DSChangeFIO: TDataSource;
IBQEmployersID: TIntegerField;
IB QEmpl oyersJ OB TITLE: TIntegerField;
IBQEmployersFAMILY: TIBStringField;
IBQEmployersNAME: TIBStringField;
IBQEmployersFATHERS: TIBStringField;
IBQEmployersPHOTO: TBlobField;
IBQEmployersDATES: TDateTimeField;
IB QEmpl oyersDATEB IRTH: TDateTimeF ield;
IBQEmployersFLOOR: TIBStringField;
IBQEmployersAGREEMENT: TIBStringField;
IBQEmployersDATEAGREEMENT: TDateTimeField;
IB QEmpl oyersF ORMATION: TIB StringF ield;
IBQEmployersDEGREE: TIBStringField;
IBQEmployersCLOCKS: TSmallintField;
IBQEmployersNATUREWORKS: TIBStringField;
IB QEmpl oyersTYPEW ORKS: TIB StringF ield;
IB QEmpl oyersLAN GUAGE: TIBStringField;
IBQEmployersPROFESSION: TIBStringField;
IB QEmpl oyersSELEC TED: TIB StringF ield;
IB QEmpl oyersPLACEB IRTH: TIB StringField;
IBQEmployersCITIZENCHIP: TIBStringField;
IBQEmployersSERIALPASPORT: TIBStringField;
IBQEmployersNUMBERPASPORT: TIBStringField;
IBQEmployersDATEPASPORT: TDateTimeField;
IBQEmployersISSUEDPASPORT: TIBStringField;
IB QEmpl oyersPOSTCODE: TIBStringField;
IBQEmployersDATEREGISTRATIONS: TDateTimeField;
IBQEmployersADDRESS: TIBStringField;
IB QEmpl oyersPHONEHOME: TIB StringF ield;
IB QEmpl oyersPHONEW ORKS: TIBStringField;
IBQEmployersPHONEMOBILE: TIBStringField;
IBQEmployersINN: TIBStringField;
IB QEmpl oyersPENS ION: TIB StringF ield;
IBQEmployersPOLIS: TIBStringField;
IBQEmployersINSURANCE: TIBStringField;
IBQEmployersNOTE: TIBStringField;
IB QEmpl oyersRESIDEN CE: TIB StringF ield;
IBQBookWorks: TIBQuery;
IBQBookWorksID: TIntegerField;
IBQBookWorksEMPLOYERS: TIntegerField;
IBQBookWorksORDERNUMBER: TIBStringField;
IBQBookWorksDATEORDER: TDateTimeField;
IBQBookWorksDATEFROM: TDateTimeField;
IBQBookWorksDATETO: TDateTimeField;
IBQBookWorksENTERPRISES: TIBStringField;
IBQB ookW orksJ OB TITLE: TIBStringField;
IBQBookWorksNOTE: TIBStringField;
IBQB ookW orksSPECIAL: TSmallintField;
IBQBookWorksPEDAGOGICAL: TSmallintField;
IBQBookWorksKXMT: TSmallintField;
IBQBookWorksQUALIFICATION: TIBStringField;
IBQB ookW orksPROFES SION: TIBStringField;
IBQB ookW orksDIPLOMA: TIB StringF ield;
DSBookWorks: TDataSource;
IBQQualifications: TIBQuery;
IBQQualificationsID: TIntegerField;
IBQQualificationsEMPLOYERS: TIntegerField;
IBQQualificationsDATES: TDateTimeField;
IBQQualificationsDECISION: TIBStringField;
IBQQualificationsCATEGORY: TIBStringField;
IBQQualificationsCATEGORYSHORT: TIBStringField;
IBQQualificationsNUMBERPROTOCOL: TIBStringField;
IBQQualificationsDATEPROTOCOL: TDateTimeField;
IBQQualificationsDATEORDER: TDateTimeField;
DSQualifications: TDataSource;
Источник: https://baza.diplomsite.ru/previewfile/2244