PanelFamily: TPanel;
LabelRelatives: TLabel;
LabelFamilys: TLabel;
EditRelatives: TEdit;
LabelDateBirth: TLabel;
SBEditFamily: TStatusBar;
EditFamilys: TEdit;
EditDateBirth: TEdit;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FEditFamilys: TFEditFamilys;
FamilyAdd:Boolean;
implementation
uses DataModule, EditEmployers;
{$R *.dfm}
procedure TFEditFamilys.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
with DM do begin
if FamilyAdd then begin
EditRelatives.Text:='';
EditFamilys.Text:='';
EditDateBirth.Text:=copy(DateToStr(Date()),7,4);
end else begin
EditRelatives.Text:=Trim(IBQFamilyRelatives.AsString);
EditFamilys.Text:=Trim(IBQFamilyFamilys.AsString);
EditDateBirth.Text:=IntToStr(IBQFamilyDateBirth.AsInteger);
end;
EditFamilys.SetFocus;
end;
end;
procedure TFEditFamilys.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FEditEmployers.Enabled:=T rue;
end;
procedure TFEditFamilys.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var RecSave,Dig:LongInt;
Continues:Boolean;
begin
with DM do
case key of
13: begin
Continues:=True;
try
Dig:=StrToInt(EditDateBirth.T ext);
except
Continues:=False;
Application.MessageBox('Неправиный формат года
рождения...','Message',MB_OK);
EditDateBirth.Text:=copy(DateToStr(Date()),7,4);
EditDateBirth.Text;
end;
if Continues then begin
if FamilyAdd then begin
IBQID.SQL.Clear;
IBQID.SQL.Append('select Gen_ID(ID_Family,0) from Family');
IBQID.Open;
RecSave:=IBQIDGen_ID. AsInteger+1;
IBQID.Close;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert into Family (Employers,');
IBQExecSQL.SQL.Append('Relatives,');
IBQExecSQL.SQL.Append('Familys,');
IBQExecSQL.SQL.Append('DateBirth)');
IBQExecSQL.SQL.Append('Values ('+IntToStr(IBQEmployersID.AsInteger)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditRelatives.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditFamilys.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(Trim(EditDateBirth.Text)+')');
end else begin
RecSave:=IBQFamilyID.AsInteger;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append(Update Family');
IBQExecSQL.SQL.Append('Set
Relatives='+chr(39)+Trim(EditRelatives.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(Tamilys-+chr(39)+Trim(EditFamilys.Text)+chr(39)+7);
IBQExecSQL.SQL.Append('DateBirth='+Trim(EditDateBirth.Text));
IBQExecSQL.SQL.Append('where ID='+IntToStr(RecSave));
end;
IBQExecSQL.ExecSQL;
IBQFamily.Close;
IBQFamily.Open;
IBQFamily.Locate('ID',RecSave,[loCaseInsensitive]);
FEditFamilys.Close;
end;
end;
27: FEditFamilys.Close;
end;
end;
end.
unit EditEnterPrises;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls;
type
TFEditEnterPrises = class(TForm)
PanelEditEnterPrises: TPanel;
SBEditEnterPrises: TStatusBar;
EditEnterPrises: TEdit;
LabelEnterPrises: TLabel;
LabelOKPO: TLabel;
EditOKPO: TEdit;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FEditEnterPrises: TFEditEnterPrises;
implementation
uses DataModule, Select;
{$R *.dfm}
procedure TFEditEnterPrises.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
with DM do begin
if IBQEnterPrises.RecordCount>0 then begin
EditEnterprises.Text:=Trim(IBQEnterprisesName.AsString);
EditOKPO.Text:=Trim(IBQEnterprisesOKPO.AsString);
end else begin
EditEnterprises.Text:='';
EditOKPO.Text:='';
end;
EditEnterPrises.SetFocus;
end;
end;
procedure TFEditEnterPrises.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
with DM do begin
IB QEnterprises.Close;
FSelect.Enabled:=True;
end;
end;
procedure TFEditEnterPrises.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with DM do
case key of
13: begin
if IBQEnterPrises.RecordCount>0 then begin
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Update EnterPrises');
IB QExec S QL S QL Append('Set
Name='+chr(39)+T rim(EditEnterPrises.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('OKPO='+chr(39)+Trim(EditOKPO.Text)+chr(39));
end else begin
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert Into EnterPrises (Name,OKPO)');
IBQExecSQL.SQL.Append('Values ('+chr(39)+Trim(EditEnterPrises.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditOKPO.Text)+chr(39)+')');
end;
IBQExecSQL.ExecSQL;
FEditEnterPrises.Close;
end;
27: FEditEnterPrises.Close;
end;
end;
end.
unit EditEmployers;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls, jpeg, DB,
Mask, word2000;
type
TFEditEmployers = class(TForm)
TCEmployer: TTabControl;
SBEditEmployers: TStatusBar;
PanelMain: TPanel;
LabelCode: TLabel;
PanelEmployer: TPanel;
LabelFamily: TLabel;
LabelName: TLabel;
LabelFathers: TLabel;
LabelFloor: TLabel;
LabelBirth: TLabel;
LabelPlaceBirth: TLabel;
LabelMotion: TLabel;
LabelDateAgrement: TLabel;
LabelAgrement: TLabel;
LabelNatureWorks: TLabel;
LabelTypeWorks: TLabel;
LabelCitizenChip: TLabel;
LabelLanguage: TLabel;
EditFamily: TEdit;
EditName: TEdit;
EditFathers: TEdit;
DTPBirth: TDateTimePicker;
CBPlaceBirth: TComboBox;
DBGMotion: TDBGrid;
CBFloor: TComboBox;
DTPAgreement: TDateTimePicker;
EditAgreement: TEdit;
CBNatureWorks: TComboBox;
CBTypeWorks: TComboBox;
PanelPhoto: TPanel;
ImagePhoto: TImage;
CBCitizenchip: TComboBox;
CBLanguage: TComboBox;
CBLoads: TCheckBox;
PanelPrivate: TPanel;
LabelINN: TLabel;
LabelPolis: TLabel;
LabelPension: TLabel;
LabelInsurance: TLabel;
LabelNote: TLabel;
EditNote: TEdit;
EditINN: TEdit;
EditPolis: TEdit;
EditPension: TEdit;
EditInsurance: TEdit;
LabelLoads: TLabel;
GBPasport: TGroupBox;
LabelPasportSerial: TLabel;
EditPasportSerial: TEdit;
LabelPasportNumber: TLabel;
EditPasportNumber: TEdit;
DTPPasport: TDateTimePicker;
LabelDatePasport: TLabel;
Labellssued: TLabel;
CBIssuedPasport: TComboBox;
GBPhone: TGroupBox;
LabelWorks: TLabel;
EditPhoneWorks: TEdit;
LabelHome: TLabel;
EditPhoneHome: TEdit;
LabelMobile: TLabel;
EditPhoneMobile: TEdit;
LabelID: TLabel;
LabelFullName: TLabel;
CBResidence: TComboBox;
LabelResidence: TLabel;
LabelPostCode: TLabel;
EditPostCode: TEdit;
CBAddress: TComboBox;
LabelAddress: TLabel;
LabelDateRegistrations: TLabel;
DTPRegistrations: TDateTimePicker;
LabelJobTitle: TLabel;
DBEditJobTitle: TDBEdit;
ImageBuffer: TImage;
DBGFamily: TDBGrid;
DBGrChangeFIO: TDBGrid;
LabelFailyCondition: TLabel;
LabelModify: TLabel;
PanelBookWorks: TPanel;
LabelBookWorks: TLabel;
DBGrBookWorks: TDBGrid;
DTPEnter: TDateTimePicker;
LabelEnter: TLabel;
LabelWedding: TLabel;
CBWedding: TComboBox;
LabelProfession: TLabel;
EditProfession: TEdit;
LabelCategory: TLabel;
EditCategory: TEdit;
PanelFormations: TPanel;
LabelFormations: TLabel;
DBGrFormation: TDBGrid;
LabelFormation: TLabel;
CBFormation: TComboBox;
LabelDegree: TLabel;
CBDegree: TComboBox;
DBGQualification: TDBGrid;
LabelQualification: TLabel;
LabelIncQualifics: TLabel;
DBGIncQualifics: TDBGrid;
PanelFurloughs: TPanel;
LabelFurloughs: TLabel;
DBGFurloughs: TDBGrid;
PanelMilitary: TPanel;
CBMilitary: TCheckBox;
LabelCategorySpare: TLabel;
EditCategorySpare: TEdit;
LabelRank: TLabel;
CBRank: TComboBox;
EditComposition: TEdit;
LabelComposition: TLabel;
LabelCodeProfession: TLabel;
EditCodeProfession: TEdit;
LabelFitness: TLabel;
CBFitness: TComboBox;
LabelKomissariat: TLabel;
CBKomissariat: TComboBox;
LabelTitle: TLabel;
LabelComandOne: TLabel;
EditComandOne: TEdit;
LabelComandTwo: TLabel;
EditComandTwo: TEdit;
DTPFill: TDateTimePicker;
LabelDates: TLabel;
DTPRemoving: TDateTimePicker;
LabelRemoving: TLabel;
LabelAward: TLabel;
DBGrAward: TDBGrid;
LabelCategoryShort: TLabel;
EditCategoryShort: TEdit;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TCEmployerChange(Sender: TObject);
procedure EditFamilyExit(Sender: TObject);
procedure EditNameExit(Sender: TObject);
procedure EditFathersExit(Sender: TObject);
procedure DBEditJobTitleEnter(Sender: TObject);
procedure DBEditJobTitleExit(Sender: TObject);
procedure DBGrFormationEnter(Sender: TObject);
procedure DBGFamilyExit(Sender: TObject);
procedure DBGrChangeFIOEnter(Sender: TObject);
procedure DBGrChangeFIOExit(Sender: TObject);
procedure DBGMotionKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGMotionEnter(Sender: TObject);
procedure DBGMotionExit(Sender: TObject);
procedure DBGrFormationExit(Sender: TObject);
procedure CBMilitaryClick(Sender: TObject);
procedure DBEditJobTitleKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGFamilyKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrChangeFIOKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrBookWorksKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrFormationKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGQualificationKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGIncQualificsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrAwardKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGFurloughsKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FEditEmployers: TFEditEmployers;
EmployerAdd:Boolean;
FirstRun:Boolean;
implementation
uses DataModule, Employers, SelectPhoto, EditMotions, JobTitles,
EditFamilys, EditChangesFIO, EditBookWorks, EditFormations,
EditQualifications, EditIncQualifics, EditFurloughs, EditAwards;
{$R *.dfm}
const Title:array[1..6] of string[15]=(^aHHbie',^4Hbie данные','Трудовая
книжка','Образование','Отпуск','Воинский учет');
var StreamPicture: TStream;
RecSave: LongInt;
procedure InitMilitary(Check:Boolean);
begin
with FEditEmployers do begin
LabelCategorySpare.Visible:=Check;
LabelRank.Visible:=Check;
LabelComposition.Visible:=Check;
LabelCodeProfession.Visible:=Check;
LabelFitness.Visible:=Check;
LabelKomissariat.Visible:=Check;
LabelComandOne.Visible:=Check;
LabelComandTwo.Visible:=Check;
LabelRemoving.Visible:=Check;
LabelDates. Visible:=Check;
LabelTitle.Visible:=Check;
EditCategorySpare.Visible:=Check;
CBRank.Visible:=Check;
EditComposition.Visible:=Check;
EditC odeProfessi on.Visible:=Check;
CBF itness.Visible:=Check;
CBKomissariat.Visible:=Check;
EditComandOne.Visible:=Check;
EditComandTwo.Visible:=Check;
DTPRemoving.Visible:=Check;
DTPFill.Visible:=Check;
end;
end;
procedure InitPanel;
begin
with FEditEmployers do begin
PanelEmployer.Visible:=False;
PanelPrivate.Visible:=F alse;
PanelB ookW orks.Visible:=False;
PanelFormations.Visible:=False;
PanelFurloughs.Visible:=False;
PanelMilitary.Visible:=False;
SBEditEmployers.SimpleText:='F5-ne4aTb <Enter>-Изменить -OTMeHa';
case TCEmployer.TabIndex of
0: begin
SBEditEmployers.SimpleText:='F3^0TO F5-ne4aTb <ЕПег>-Изменитъ -
Отмена';
PanelEmployer.Visible:=True;
EditFamily.SetFocus;
end;
1: begin
PanelPrivate.Visible:=True;
EditPasportSerial.SetFocus;
end;
2: begin
PanelBookWorks.Visible:=True;
EditProfession.SetFocus;
end;
3: begin
PanelFormations.Visible:=True;
CBFormation.SetFocus;
end;
4: begin
PanelFurloughs.Visible:=True;
if not EmployerAdd then DBGFurloughs.SetFocus;
end;
5: begin
PanelMilitary.Visible:=True;
CBMilitary.SetFocus;
end;
end;
end;
end;
procedure CalcFamily;
begin
with FEditEmployers do begin
LabelFullName.Caption:=Trim(EditFamily.Text)+' '+Trim(EditName.Text)+'
'+Trim(EditF athers.Text);
end;
end;
procedure InitGrid(Enable:Boolean);
begin
with FEditEmployers do begin
DBGMotion.Enabled:=Enable;
DBGFamily.Enabled:=Enable;
DBGrChangeFIO.Enabled:=Enable;
DBGrBookWorks.Enabled:=Enable;
DBGQualification.Enabled:=Enable;
DBGFurloughs.Enabled:=Enable;
DBGIncQualifics.Enabled:=Enable;
DBGrFormation.Enabled:=Enable;
end;
end;
procedure TFEditEmployers.FormActivate(Sender: TObject);
var i:byte;
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2)-6;
with DM do
if FirstRun then begin
EditC ategorySpare .Text:='';
CBRank.Text:='';
EditComposition.Text:='';
EditC odeProfessi on.Text:='';
CBFitness.Text:='';
CBKomissariat.Text:='';
EditC omandOne.Text:='';
EditC omandTwo.Text:='';
DTPRemoving.DateTime:=Trunc(Date());
DTPFill.DateTime:=Trunc(Date());
if EmployerAdd then begin
InitGrid(False);
IBQID.SQL.Clear;
IBQID.SQL.Append('select Gen_ID(ID_Employers,0) from Employers');
IBQID.Open;
RecSave:=IBQIDGen_ID.AsInteger+1;
IBQID.Close;
EditF ami ly.T ext:='';
EditName.Text:='';
EditF athers.Text:-';