Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
Л
о
+
ей
Q
+->
с
а
и-
ЛО
С
Рн
н
Q
GO
О
н
ей
Q
ч ^
S 4
го
U-
о
+
сз
u-
ЛО
ей
Q
т ?
с
Он
Он
С
н4
а
GO
н4
а
GO
О > г
X о
и ^
СУ ON
Г О
'+ З к
Ж - §
4
? +
к
н
й
о
Пн
О
Рн
рр
о
• с
н
+N
г о
Пн
Рн
О
+
II
й
о
15
х
к
н
О
к
Пн
Ы)
к
Q
РР
О
• с
н
+ч
г о
!н
Р З
О
+
к
к
!н
Ы)
к
a s
о
Рн
й
0 3
й
к
Он
Он
0 3
S Ч/
Он СУ
Он GO
4 н4
нР а
СУ аз
<*? 8
нР X
СУ РР
м а
о по
X
РР
а
р р
о
о
р
■ о "
й
0
О н Х
Он - п
<С о
1 II
нР Й
а - 3
GO О
нР О
a w
GO ^
О О
X Он
рр ъ
СУ <3
нР
а
s
■5 нР
^ a
S аз
РР У
о
X
РР
О СУ
' й
о
ел
"аЗ
й
Оу
г о
SC^
Л
о
ч ^
' ^ ч
X
н
ел
$-н
О
и-
£
рр
о
¥
• с
н
+N
г о
!н
Р З
О
+
рр
!н
О
о
Пн
£
т ?
сз
Он
Он
<
н4
а
GO
н4
а
GO
О
X
М
а
Оу
г о
и
^3
О
+
X
н
ел
- й
о
о
Он
Н
РР
О
• с
н
+N
а \
г о
Пн
Р З
О
+
II
ел
РР
!н
О
о
Он
Н
■ о "
й
о
Он
Он
<
нР
а
GO
нР
а
GO
О
О
X
РР
а
On
г о
!н
Р З
О
4 ^
ИИ
X
о
Н
о
Ы)
аЗ
Й
Ы)
й
ей
нР
рр
о
Пн
н
+N
о \
г о
Пн
Р З
О
+
II
о
Ы)
ей
Й
Ы)
й
аЗ
нР
■о"
й
о
Он
Он
<
нР
а
GO
нР
а
GO
О
О
X
РР
а
On
го
!н
Р З
О
+
х
о
Н
й
о
г11*
<+ч
О
Пн
ь
”3
рр.
Пн
н
+N
О ^
го
Пн
Р З
о
+
II
й
О
,
<нч
О
Пн
?н
■3"
й
о
Он
Он
<
нР
а
GO
нР
а
GO
О
О
X
РР
а
+ ~ +
X
о
н
O n
го
S3
Р З
О
+
С
О
Р З
X СО
н О ,
>% ЭД *
• \ J
$-н
о
адг N
ей
Оу
го
ей
U
р->
-3
ш
- о
М
U-
^3
О
S -+
• с +
Цн
н
+
н
+
O n
го
!н
Р З
О
+
ИНН О
O n <н
ГО GO
нЙ "У
I
1 ^ "
ЙЗ -ХЗ
у й
3 у
и
(D
GO
ЙЧ й й й й
03
й
о
Он Он
Он Он
03 н^
§ нР нР
й с у а
Он GO GO
4 нР нР
нР СУ СУ
СУ аз GO
GO У У
. о о
нР X X
СУ рр рр
и а а
§йй
><
рр
а
O n
го
нГ
Р З
О
4 ^
НИ
>4
О
Н
Рн"
И
о
о
сеЗ
S
рр
О
Нн
н
4 ^
О ^
го
Нн
Р З
О
+
II
Р З
рр
о
о
сеЗ
0 3
й
о
Он
Он
<
нР
а
GO
нР
а
GO
О
О
X
РР
а
O n
го
Пн
Р З
О
4 ^
ни
X
О
Н
_Он
1й
О
й
о
N
О
РР
О
Пн
Н
4 ^
о \
го
Пн
Р З
о
+
II
_Он
Р З
О
й
о
_N
* о
о
■3"
й
о
Он
Он
<
нР
а
GO
нР
а
GO
О
О
X
РР
а
й й
I B Q E x e c S Q L . S Q L . A p p e n d f W e d d i n g - + c h r ( 3 9 ) + T r i r n ( C B W e d d i n g , T e x t ) + c h r ( 3 9 ) + 7 )
IBQExecSQL.SQL.Append('SerialPasport='+chr(39)+Trim(EditPasportSerial.Text)+chr(39)+
' ')•
5 /5
IBQExecSQL.SQL.Append('NumberPasport='+chr(39)+Trim(EditPasportNumber.Text)+chr(
39)+',');
IBQExecSQL.SQL.Append('DatePasport='+chr(39)+DateToStr(DTPPasport.Date)+chr(39)+',
');
IBQExecSQL.SQL.Append('IssuedPasport='+chr(39)+Trim(CBIssuedPasport.Text)+chr(39)+
' ')•
5 /5
IBQExecSQL.SQL.Append('Residence='+chr(39)+Trim(CBResidence.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('PostCode='+chr(39)+Trim(EditPostCode.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('DateRegistrations='+chr(39)+DateToStr(DTPRegistrations.Date)
+chr(39)+',');
IBQExecSQL.SQL.Append('Address='+chr(39)+Trim(CBAddress.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('PhoneHome='+chr(39)+Trim(EditPhoneHome.Text)+chr(39)+','
);
IB QExec S QL .S QL .Append('PhoneW orks='+chr(3 9)+Trim(EditPhoneW orks.T ext)+chr(39)+',
');
IBQExecSQL.SQL.Append('PhoneMobile='+chr(39)+Trim(EditPhoneMobile.Text)+chr(39)+
' ')•
5 /5
IBQExecSQL.SQL.Append('INN='+chr(39)+Trim(EditINN.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Pension='+chr(39)+Trim(EditPension.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Polis='+chr(39)+Trim(EditPolis.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Insurance='+chr(39)+Trim(EditInsurance.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Note='+chr(39)+Trim(EditNote.Text)+chr(39));
IB QExecSQL SQL.Append('Where ID='+IntToStr(Rec S ave));
end;
IBQExecSQL.ExecSQL;
{начало Military}
if CBMilitary.Checked then begin
if IBQMilitary.Locate('ID',RecSave,[loCaseInsensitive]) then begin
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Update Military');
IBQExecSQL.SQL.Append('Set
CategorySpare='+chr(39)+Trim(EditCategorySpare.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Rank='+chr(39)+Trim(CBRank.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Composition='+chr(39)+Trim(EditComposition.Text)+chr(39)+',
');
IBQExecSQL.SQL.Append('Fitness='+chr(39)+Trim(CBFitness.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('Komissariat='+chr(39)+Trim(CBKomissariat.Text)+chr(39)+',');
IBQExecSQL.SQL.Append('ComandOne='+chr(39)+Trim(EditComandOne.Text)+chr(39)+','
);
IBQExecSQL.SQL.Append('ComandTwo='+chr(39)+Trim(EditComandTwo.Text)+chr(39)+'
,');
IBQExecSQL.SQL.Append('DateRemoving='+chr(39)+DateToStr(DTPRemoving.Date)+chr(
39)+',');
IBQExecSQL.SQL.Append('Dates='+chr(39)+DateToStr(DTPFill.Date)+chr(39));
IBQExecSQL.SQL.Append('where ID='+IntToStr(RecSave));
IBQExecSQL.ExecSQL;
end else begin
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Insert into Military (ID,');
IBQExecSQL.SQL.Append('CategorySpare,');
IBQExecSQL.SQL.Append('Rank,');
IBQExecSQL.SQL.Append('Composition,');
IBQExecSQL.SQL.Append('Fitness,');
IBQExecSQL.SQL.Append('Komissariat,');
IBQExecSQL.SQL.Append('ComandOne,');
IBQExecSQL.SQL.Append('ComandTwo,');
IBQExecSQL.SQL.Append('DateRemoving,');
IBQExecSQL.SQL.Append('Dates)');
IBQExecSQL.SQL.Append('Values ('+IntToStr(RecSave)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditCategorySpare.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBRank.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditComposition.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBFitness.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(CBKomissariat.Text)+chr(39)+',');
IB QExec SQL.S QL .Append(chr(39)+Trim(EditC omandOne.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+Trim(EditComandTwo.Text)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPRemoving.Date)+chr(39)+',');
IBQExecSQL.SQL.Append(chr(39)+DateToStr(DTPFin.Date)+chr(39)+')');
IBQExecSQL.ExecSQL;
end
end else begin
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Delete from Military');
IBQExecSQL.SQL.Append('where ID='+IntToStr(RecSave));
IBQExecSQL.ExecSQL;
end;
IBQMilitary.Close;
IBQMilitary.Open;
{конец Military}
IBTEmployers.Open;
IBTEmployers.Locate('ID',RecSave,[loCaseInsensitive]);
IB TEmployers.Edit;
StreamPicture :=IB TEmpl oyers.CreateBlobStream(IB TEmployersPhoto, bmW rite);
try
ImagePhoto.Picture.Bitmap.SaveToStream(StreamPicture); {если это картинка}
finally
IBTEmployers.Post;
StreamPicture.Free;
end;
IBTEmployers.Close;
IBQEmployers.Close;
IBQEmployers.Open;
IBQEmployers.Locate('ID',RecSave,[loCaseInsensitive]);
FEditEmployers.Close;
end;
VK_F3: if TCEmployer.TabIndex=0 then begin
FEditEmployers.Enabled:=False;
FSelectPhoto.Show;
end;
VK_F5: PrintEmployers;
VK_ESCAPE: FEditEmployers.Close;
end;
end;
procedure TFEditEmployers.TCEmployerChange(Sender: TObject);
begin
InitPanel;
end;
procedure TFEditEmployers.EditFamilyExit(Sender: TObject);
begin
CalcFamily;
end;
procedure TFEditEmployers.EditNameExit(Sender: TObject);
begin
CalcFamily;
end;
procedure TFEditEmployers.EditFathersExit(Sender: TObject);
begin
CalcFamily;
end;
procedure TFEditEmployers.DBEditJobTitleEnter(Sender: TObject);
begin
SBEditEmployers.SimpleText:=rF3-Фото F5-Печать nter>-Изменить sc>-Отмена F4-
Выбор должности';
end;
procedure TFEditEmployers.DBEditJobTitleExit(Sender: TObject);
begin
SBEditEmployers.SimpleText:='F3^oTO F5-ne4aTb nter>-Изменить -OTMeHa';
end;
procedure TFEditEmployers.DBGrFormationEnter(Sender: TObject);
begin
SBEditEmployers.SimpleText:='F2-Добавить F4-Изменить F5-ne4aTb F8-Удалить
<Enter>-Ввод -OTMeHa';
end;
procedure TFEditEmployers.DBGFamilyExit(Sender: TObject);
begin
SBEditEmployers.SimpleText:='F5-ne4aTb <Enter>-Изменить -OTMeHa';
end;
procedure TFEditEmployers.DBGrChangeFIOEnter(Sender: TObject);
begin
SBEditEmployers.SimpleText:='F2-Добавить F4-Изменить F5-ne4aTb F8-Удалить
<Enter>-Ввод -OTMeHa';
end;
procedure TFEditEmployers.DBGrChangeFIOExit(Sender: TObject);
begin
SBEditEmployers.SimpleText:='F5-ne4aTb <Enter>-Изменить -OTMeHa';
end;
procedure AddMotion;
begin
with DM do begin
EditMoti ons.MotionAdd:=True;
EditMotions.First:=True;
JobTitles.SelectJobTitle:=2;
FEditEmployers.Enabled:=False;
EditMotions.RecSaveJobTitle:=IBQJobTitlesID.AsInteger;
FJobTitles.Show;
end;
end;
procedure EditMotion;
begin
with DM do
if IBQMotionEmployers.RecordCount>0 then begin
EditMotions.MotionAdd:=False;
EditMotions.First:=True;
FEditEmployers.Enabled:=False;
EditMotions.RecSaveJobTitle:=IBQJobTitlesID.AsInteger;
IBQJobTitles.Locate('ID',IBQMotionEmployersJobTitle.AsInteger,[loCaseInsensitive]);
FEditMotions.Show;
end else Application.MessageBox('HeT данных для
редактирования...','Message' ,MB_OK);
Источник: https://baza.diplomsite.ru/previewfile/2244