DTPChange.Date:=IBQChangeFIODateChange.AsDateTime;
EditFamilyNew.Text:=Trim(IBQChangeFIOFamilyNew.AsString);
EditNameNew.Text:=Trim(IBQChangeFIONameNew.AsString);
EditFathersNew.Text:=Trim(IBQChangeFIOFathersNew.AsString);
EditBasis.Text:=Trim(IBQChangeFIOBasis.AsString);
EditNote.Text:=Trim(IBQChangeFIONote.AsString);
end;
DTPChange.SetFocus;
end;
procedure TFEditChangesFIO.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FEditEmployers.Enabled:=True;
end;
procedure TFEditChangesFIO.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var RecSave:LongInt;
begin
with DM do
case key of
13: begin
if ChangeFIOAdd then begin
IBQID.SQL.Clear;
IBQID.SQL.Append('select Gen_ID(ID_ChangeFIO,0) from ChangeFIO');
IBQID.Open;
RecSave:=IBQIDGen_ID.AsInteger+1;
IBQID.Close;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert into ChangeFIO (Employers,');
IBQExecSQL.SQL.Append('DateChange,');
IB QExec S QL .S QL .Append('FamilyN ew,');
IB QExec S QL .S QL .Append('N ameN ew,');
IB QExec S QL .S QL .Append('F athersNew,');
IBQExecSQL.SQL.Append('Basis,');
IBQExecSQL.SQL.Append('Note)');
IBQExecSQL.SQL.Append('Values ('+IntToStr(IBQEmployersID.AsInteger)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPChange.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditFamilyNew.Text)+chr(39)+',');
IB QExec S QL .S QL. Append(chr(39)+Trim(EditNameNew.Text)+chr(39)+',');
IB QExec S QL .S QL .Append(chr(39)+Trim(EditF athersN ew.T ext)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditBasis.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditNote.Text)+chr(39)+')');
end else begin
RecSave :=IBQChangeFIOID.AsInteger;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Update ChangeFIO');
IB QExec S QL S QL Append('Set
DateChange='+chr(39)+DateToStr(DTPChange.Date)+chr(39)+',');
IBQExecSQL.SQL.Append('FamilyNew='+chr(39)+Trim(EditFamilyNew.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('NameNew='+chr(39)+Trim(EditNameNew.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('FathersNew='+chr(39)+Trim(EditFathersNew.Text)+chr(39)+',')
;
IBQExecSQL.SQL.Append('Basis='+chr(39)+Trim(EditBasis.Text)+chr(39)+',');
IB QExec S QL .S QL .Append('Note='+chr(39)+Trim(EditNote .Text)+chr(39));
end;
IBQExecSQL.ExecSQL;
IBQChangeFIO.Close;
IBQChangeFIO.Open;
IBQChangeFIO.Locate('ID',RecSave,[loCaseInsensitive]);
FEditChangesFIO.Close;
end;
27: FEditChangesFIO.Close;
end;
end;
end.
unit EditBookWorks;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ExtCtrls, DB;
type
TFEditBookWorks = class(TForm)
PanelWorkBooks: TPanel;
SBEditWorkBooks: TStatusBar;
LabelDateOrder: TLabel;
DTPOrder: TDateTimePicker;
LabelBegin: TLabel;
DTPBegin: TDateTimePicker;
CBPedagogs: TCheckBox;
CBDateEnd: TCheckBox;
CBSpecial: TCheckBox;
DTPEnd: TDateTimePicker;
EditOrder: TEdit;
LabelJobTitle: TLabel;
LabelEnterprises: TLabel;
LabelNumberOrder: TLabel;
EditEnterprises: TEdit;
EditProfession: TEdit;
LabelProfession: TLabel;
LabelQualification: TLabel;
EditQualification: TEdit;
EditJobTitle: TEdit;
CBKxmt: TCheckBox;
EditDiploma: TEdit;
LabelDiploma: TLabel;
EditNote: TEdit;
LabelNote: TLabel;
procedure FormActivate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure CBDateEndClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FEditBookWorks: TFEditBookWorks;
BookWorkAdd:Boolean;
implementation
uses DataModule, EditEmployers;
{$R *.dfm}
procedure TFEditBookWorks.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
with DM do begin
DTPEnd.Date:=Trunc(Date);
if BookWorkAdd then begin
EditEnterprises.Text:-';
EditProfession.Text:='';
EditQualification.Text:='';
EditJobTitle.Text:='';
EditDiploma.Text:='';
EditNote.Text:-';
DTPOrder.Date:=Trunc(Date());
EditOrder.Text:='';
DTPBegin.Date:=Trunc(Date());
DTPEnd.Date:=Trunc(Date());
CBPedagogs.Checked:=False;
CB Special.Checked:=False;
CBKxmt.Checked:=False;
CBDateEnd.Checked:=True;
end else begin
EditEnterprises.Text:=Trim(IBQBookWorksEnterPrises.AsString);
EditProfession.Text:=Trim(IBQBookWorksProfession.AsString);
EditQualification.Text:=Trim(IBQBookWorksQualification.AsString);
EditJobTitle.Text:=Trim(IBQBookWorksJobTitle.AsString);
EditDiploma.Text:=Trim(IBQBookWorksDiploma.AsString);
EditNote .Text:=Trim(IB QB ookW orksN ote.AsString);
DTPOrder.Date:=Trunc(IBQBookWorksDateOrder.AsDateTime);
EditOrder.Text:=Trim(IBQBookWorksOrderNumber.AsString);
DTPBegin.Date:=Trunc(IBQBookWorksDateFrom.AsDateTime);
if IBQBookWorksDateTo.AsDateTime=0 then begin
CBDateEnd.Checked:=False;
DTPEnd.Visible:=False;
end else begin
CBDateEnd.Checked:=T rue;
DTPEnd.Visible:=True;
DTPEnd.Date:=Trunc(IBQBookWorksDateTo.AsDateTime);
end;
if IBQBookWorksPedagogical.AsInteger=1 then CBPedagogs.Checked:=True
else CBPedagogs.Checked:=False;
if IBQBookWorksSpecial.AsInteger=1 then CBSpecial.Checked:=True
else CBSpecial.Checked:=False;
if IBQBookWorksKxmt.AsInteger=1 then CBKxmt.Checked:=True
else CBKxmt.Checked:=False;
end;
EditEnterPrises.SetFocus;
end;
procedure TFEditBookWorks.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var RecSave:LongInt;
begin
with DM do
case key of
13: begin
if BookWorkAdd then begin
IBQID.SQL.Clear;
IBQID.SQL.Append('select Gen_ID(ID_BookWorks,0) from BookWorks');
IBQID.Open;
RecSave:=IBQIDGen_ID. AsInteger+1;
IBQID.Close;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert into BookWorks (Employers,');
IBQExecSQL.SQL.Append('EnterPrises,');
IBQExecSQL.SQL.Append('Profession,');
IBQExecSQL.SQL.Append('Qualification,');
IBQExecSQL.SQL.Append('JobTitle,');
IBQExecSQL.SQL.Append('Diploma,');
IBQExecSQL.SQL.Append('Note,');
IBQExecSQL.SQL.Append('DateOrder,');
IBQExecSQL.SQL.Append('OrderNumber,');
IBQExecSQL.SQL.Append('DateFrom,');
IBQExecSQL.SQL.Append('DateTo,');
IBQExecSQL.SQL.Append('Pedagogical,');
IBQExecSQL.SQL.Append('Special,');
IBQExecSQL.SQL.Append('Kxmt)');
IBQExecSQL.SQL.Append('Values ('+IntToStr(IBQEmployersID.AsInteger)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditEnterPrises.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditProfession.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditQualification.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditJobTitle.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditDiploma.Text)+chr(39)+',');
IB QExecSQL .SQL.Append(chr(39)+Trim(EditNote .Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPOrder.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditOrder.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPBegin.Date)+chr(39)+',');
if CBDateEnd.Checked=False then DTPEnd.DateTime:=0;
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPEnd.Date)+chr(39)+',');
if CBPedagogs.Checked then IBQExecSQL.SQL.Append('1,')
else IBQExecSQL.SQL.Append('0,');
if CBSpecial.Checked then IBQExecSQL.SQL.Append('1,')
else IBQExecSQL.SQL.Append('0,');
if CBKxmt.Checked then IBQExecSQL.SQL.Append('1)')
else IBQExecSQL.SQL.Append('0)');
end else begin
RecSave:=IB QBookW orksID.AsInteger;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Update BookWorks');
IBQExecSQL.SQL.Append('Set
EnterPrises='+chr(39)+T rim(EditEnterPrises.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Profession='+chr(39)+Trim(EditProfession.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Qualification='+chr(39)+Trim(EditQualification.Text)+chr(39)+'
,');
IBQExecSQL.SQL.Append('JobTitle='+chr(39)+Trim(EditJobTitle.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Diploma='+chr(39)+Trim(EditDiploma.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Note='+chr(39)+Trim(EditNote.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('DateOrder='+chr(39)+DateToStr(DTPOrder.Date)+chr(39)+',');
IBQExecSQL.SQL.Append('OrderNumber='+chr(39)+Trim(EditOrder.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('DateFrom='+chr(39)+DateToStr(DTPBegin.Date)+chr(39)+',');
if CBDateEnd.Checked=False then DTPEnd.DateTime:=0;
IBQExecSQL.SQL.Append('DateTo='+chr(39)+DateToStr(DTPEnd.Date)+chr(39)+',');
if CBPedagogs.Checked then IBQExecSQL.SQL.Append('Pedagogical=1,')
else IBQExecSQL.SQL.Append('Pedagogical=0,');
if CBKxmt.Checked then IBQExecSQL.SQL.Append('Kxmt=1,')
else IBQExecSQL.SQL.Append('Kxmt=0,');
if CBSpecial.Checked then IBQExecSQL.SQL.Append('Special=1')
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;