Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
FEditEmployers.ImagePhoto.Picture.Bitmap:=FEditEmployers.ImageBuffer.Picture.Bitmap;
DTPEnter.DateTime:=Trunc(Date());
DTPBirth.DateTime:=Trunc(Date());
CBFloor.Text:='';
EditAgreement.Text:-';
DTPAgreement.Date:=Date();
CBFormation.Text:='';
CBDegree .Text:-';
CBLoads.Checked:=False;
CBNatureW orks.Text:='';
CBTypeWorks.Text:='';
CBLanguage .Text:-';
EditProfessi on.Text:='';
EditC ategory .Text:-';
EditC ategoryShort.T ext:='1';
CBPlaceBirth.Text:='';
CBCitizenChip.Text:-';
CBW edding.Text:='';
EditPasportSerial.Text:='';
EditPasportNumber.Text:='';
DTPPasport.DateTime:=Trunc(Date());
CBIssuedPasport.Text:='';
CBResidence.Text:='';
EditPostCode.Text:='';
DTPRegistrations.DateTime:=Trunc(Date());
CBAddress.Text:-';
EditPhoneHome.Text :='';
EditPhoneW orks.T ext:='';
EditPhoneMobile.T ext:='';
EditINN.Text:=M;
EditPension.Text:='';
EditPolis.Text:-';
EditInsurance .Text:='';
EditNote.Text:='';
CBMilitary.Checked:=False;
InitMilitary(False);
end else begin
InitGrid(True);
RecSave:=IB QEmpl oyersID.AsInteger;
EditFamily.Text:=Trim(IBQEmployersFamily.AsString);
EditName.Text:=Trim(IBQEmployersName.AsString);
EditFathers.Text:=Trim(IB QEmpl oyersFathers .AsString);
IBTEmployers.Open;
IBTEmployers.Locate('ID',RecSave,[loCaseInsensitive]);
StreamPicture :=IB TEmpl oyers.CreateBlobStream(IB TEmployersPhoto, bmRead);
try
ImagePhoto.Picture.Bitmap.LoadFromStream(StreamPicture); {если это картинка}
finally
StreamPicture.Free;
end;
IBTEmployers.Close;
DTPEnter.DateTime:=Trunc(IBQEmployersDates.AsDateTime);
DTPBirth.DateTime:=Trunc(IBQEmployersDateBirth.AsDateTime);
CBFloor.Text:=Trim(IBQEmployersFloor.AsString);
EditAgreement.Text:=Trim(IBQEmployersAgreement.AsString);
DTPAgreement.Date:=Trunc(IBQEmployersDateAgreement.AsDateTime);
CBFormation.Text:=Trim(IBQEmployersFormation.AsString);
CBDegree.Text:=Trim(IBQEmployersDegree.AsString);
if IBQEmployersClocks.AsInteger=0 then CBLoads.Checked:=False
else CBLoads.Checked:=True;
CBNatureW orks.Text:=Trim(IB QEmpl oyersN atureW orks.AsString);
CBTypeWorks.Text:=Trim(IBQEmployersTypeWorks.AsString);
CBLanguage.Text:=Trim(IBQEmployersLanguage.AsString);
EditProfession.Text:=Trim(IBQEmployersProfession.asString);
EditC ategory .Text:=Trim(IB QEmpl oyersCategory. asString);
EditCategoryShort.Text:=IntToStr(IBQEmployersCategoryShort.asInteger);
CBPlaceBirth.Text:=Trim(IBQEmployersPlaceBirth.AsString);
CBCitizenChip.Text:=Trim(IBQEmployersCitizenChip.AsString);
CBWedding.Text:=Trim(IBQEmployersWedding.AsString);
EditPasportSerial.Text:=Trim(IBQEmployersSerialPasport.AsString);
EditPasportNumber.Text:=Trim(IBQEmployersNumberPasport.AsString);
DTPPasport.DateTime:=Trunc(IBQEmployersDatePasport.AsDateTime);
CBIssuedPasport.Text:=Trim(IBQEmployersIssuedPasport.AsString);
CBResidence.Text:=Trim(IBQEmployersResidence.AsString);
EditPostCode.Text:=Trim(IBQEmployersPostCode.AsString);
DTPRegistrations.DateTime:=Trunc(IBQEmployersDateRegistrations.AsDateTime);
CBAddress.Text:=Trim(IBQEmployersAddress.AsString);
EditPhoneHome.Text:=Trim(IBQEmployersPhoneHome.AsString);
EditPhoneW orks.T ext:=Trim(IB QEmpl oyersPhoneW orks.AsString);
EditPhoneMobile.Text:=Trim(IBQEmployersPhoneMobile.AsString);
EditINN.Text:=Trim(IBQEmployersINN.AsString);
EditPension.Text:=Trim(IBQEmployersPension.AsString);
EditPolis.Text:=Trim(IBQEmployersPolis.AsString);
EditInsurance.Text:=Trim(IBQEmployersInsurance.AsString);
EditNote .Text:=Trim(IB QEmpl oyersN ote.As String);
if IBQMilitary.Locate('ID',RecSave,[loCaseInsensitive]) then begin
CBMilitary.Checked:=True;
InitMilitary(True);
EditCategorySpare.Text:=Trim(IBQMilitaryCategorySpare.AsString);
CBRank.Text:=Trim(IBQMilitaryRank.AsString);
EditComposition.Text:=Trim(IBQMilitaryComposition.AsString);
EditCodeProfession.Text:=Trim(IBQMilitaryCodeProfession.AsString);
CBFitness.Text:=Trim(IBQMilitaryFitness.AsString);
CBKomissariat.Text:=Trim(IBQMilitaryKomissariat.AsString);
EditComandOne.Text:=Trim(IBQMilitaryComandOne.AsString);
EditComandTwo.Text:=Trim(IBQMilitaryComandTwo.AsString);
DTPRemoving.Date:=Trunc(IBQMilitaryDateRemoving.AsDateTime);
DTPF ill.Date:=Trunc(IB QMilitaryDates.asDateTime);
end else begin
CBMilitary.Checked:=False;
InitMilitary(False);
end;
end;
TCEmployer.Tabs.Clear;
for i:=1 to 6 do TCEmployer.Tabs.Append(Title[i]);
LabelID.Caption:=IntToStr(RecSave);
InitPanel;
CalcFamily;
EditFamily.SetFocus;
FirstRun:=False;
end;
end;
procedure TFEditEmployers.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
with DM do
if not EmployerAdd then begin
IBQFamily.Close;
IBQMotionEmployers.Close;
IBQChangeFIO.Close;
IBQFormations.Close;
IBQQualifications.Close;
IBQIncQualifics.Close;
IBQBookWorks.Close;
IBQFurloughs.Close;
IBQAwards.Close;
end;
FEmployers.Enabled:=True;
end;
procedure PrintEmployers;
var vsChange, Borders:OleVariant;
T1:Table;
i:Integer;
begin
with DM do begin
WordApp.Free;
W ordApp:=TW ordApplicati on.Create(nil);
WordApp.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
W ordDoc.ConnectTo(W ordApp.ActiveDocument);
WordParagraph.ConnectTo(WordApp.Selection.ParagraphFormat);
WordParagraph.Alignment:=wdAlignParagraphRight;
WordParagraph.LineSpacingRule:=wdLineSpaceMultiple;
WordParagraph.LineSpacing:=6;
WordApp.Selection.Font.Size:=6;
WordApp.Selection.TypeText('Унифицированная форма № T-2'#10#13);
W ordApp. Selection .TypeT ext('Утверждена постановлением Госкомстата'#10#13);
WordApp.Selection.TypeText(гРоссии от 06.04.2001 № 26'#10#13);
Borders:=1;
T1:=WordDoc.Tables.Add(WordApp.Selection.Range,3,2,Borders,EmptyParam);
T1.Rows.Height:=8;
T1.Columns.Width:=50;
T1.Rows.VerticalPosition:=0;
T1.Rows.HorizontalPosition:=370;
for i:=1 to 3 do begin
T1.Cell(i,1).Borders.Item(wdBorderTop).LineStyle:=wdLineStyleNone;
T1.Cell(i,1).Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleNone;
T1.Cell(i,1).Borders.Item(wdBorderBottom).LineStyle:=wdLineStyleNone;
end;
WordApp.Selection.Start:=T1.Range.End_;
W ordParagraph.Space 1;
WordApp.Selection.Font.Size:=10;
WordParagraph.Alignment:=wdAlignParagraphLeft;
WordApp.Selection.TypeText(rМестная администрация городского округа
Нальчик'#10#13);
WordApp.Visible:=True;
Application.MessageBoxCOK-закрыть документ',rMessage',MB_OK);
WordApp.Visible:=False;
vsChange:=wdDoNotSaveChanges;
WordDoc.Close(vsChange);
end;
end;
procedure TFEditEmployers.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var Continues:Boolean;
begin
with DM do
case key of
VK_RETURN: begin
if EmployerAdd then begin
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert into Employers (JobTitle,');
IBQExecSQL.SQL.Append('Family,');
IBQExecSQL.SQL.Append('Name,');
IBQExecSQL.SQL.Append('Fathers,');
IBQExecSQL.SQL.Append('Dates,');
IBQExecSQL.SQL.Append('DateBirth,');
IBQExecSQL.SQL.Append('Floor,');
IBQExecSQL.SQL.Append('Agreement,');
IBQExecSQL.SQL.Append('DateAgreement,');
IBQExecSQL.SQL.Append('Formation,');
IBQExecSQL.SQL.Append('Degree,');
IBQExecSQL.SQL.Append('Clocks,');
IBQExecSQL.SQL.Append('NatureWorks,');
IBQExecSQL.SQL.Append('TypeWorks,');
IBQExecSQL.SQL.Append('Language,');
IBQExecSQL.SQL.Append('Profession,');
IBQExecSQL.SQL.Append('Category,');
IBQExecSQL.SQL.Append('CategoryShort,');
IBQExecSQL.SQL.Append('Selected,');
IBQExecSQL.SQL.Append('PlaceBirth,');
IBQExecSQL.SQL.Append('CitizenChip,');
IBQExecSQL.SQL.Append('Wedding,');
IBQExecSQL.SQL.Append('SerialPasport,');
IBQExecSQL.SQL.Append('NumberPasport,');
IBQExecSQL.SQL.Append('DatePasport,');
IBQExecSQL.SQL.Append('IssuedPasport,');
IBQExecSQL.SQL.Append('Residence,');
IBQExecSQL.SQL.Append('PostCode,');
IBQExecSQL.SQL.Append('DateRegistrations,');
IBQExecSQL.SQL.Append('Address,');
IBQExecSQL.SQL.Append('PhoneHome,');
IBQExecSQL.SQL.Append('PhoneWorks,');
IBQExecSQL.SQL.Append('PhoneMobile,');
IBQExecSQL.SQL.Append('INN,');
IBQExecSQL.SQL.Append('Pension,');
IBQExecSQL.SQL.Append('Polis,');
IBQExecSQL.SQL.Append('Insurance,');
IBQExecSQL.SQL.Append('Note)');
IBQExecSQL.SQL.Append('Values ('+IntToStr(IBQJobTitlesID.AsInteger)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditFamily.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditName.Text)+chr(39)+',');
IB QExecSQL .SQL.Append(chr(39)+Trim(EditF athers.T ext)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPEnter.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPBirth.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBFloor.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditAgreement.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPAgreement.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBFormation.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBDegree.Text)+chr(39)+',');
if CBLoads.Checked then IBQExecSQL.SQL.Append('1,')
else IBQExecSQL.SQL.Append('0,');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBNatureWorks.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBTypeWorks.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBLanguage.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditProfession.Text)+chr(39)+',');
IB QExecSQL .SQL.Append(chr(39)+Trim(EditC ategory .T ext)+chr(39)+',');
IBQExecSQL.SQL.Append(Trim(EditCategoryShort.Text)+',');
IBQExecSQL.SQL.Append(chr(39)+' '+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBPlaceBirth.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBCitizenChip.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBWedding.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditPasportSerial.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditPasportNumber.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPPasport.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBIssuedPasport.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBResidence.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditPostCode.Text)+chr(39)+',');
Источник: https://baza.diplomsite.ru/previewfile/2244