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)+',');
Л
о
+
ей
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);