Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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:-';
Источник: https://baza.diplomsite.ru/previewfile/2244