Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21

TblPERSONALNAME1: TStringField;

TblPERSONALNAME2: TStringField;

TblPERSONALTYPE: TSmallintField;

TblPERSONALISACTIVE: TSmallintField;

TblPERSONALPSW: TStringField;

TblPTYPECODE: TSmallintField;

TblPTYPETITLE: TStringField;

TblPERSONALPTYPEs: TStringField; procedure DMAdminCreate(Sender: TObject); procedure TblDATACalcFields(DataSet: TDataSet); private

{ Private declarations } public

{ Public declarations } end;

var
DMAdmin: TDMAdmin;

implementation

{$R *.DFM}

procedure TDMAdmin.DMAdminCreate(Sender: TObject); begin
TblDATA.Open;
TblDATA2.Open;
TblYEARS.Open;
TblENTER.Open;
TblENTER2.Open;
TblDS.Open;
TblSTREET.Open;
TblVILLAGE.Open;
TblENTERA.Open;
TblENTER2A.Open;
TblPERSONAL.Open;
TblPTYPE.Open; end;

procedure TDMAdmin.TblDATACalcFields(DataSet: TDataSet); begin
TblDATABORNTIMEs.Value := IntToStr(TblDATABORNTIMEH.Value) +

':' +

IntToStr(TblDATABORNTIMEM.Value);
TblDATAENTERTIMEs.Value := IntToStr(TblDATAENTERTIMEH.Value) +

':' +

IntToStr(TblDATAENTERTIMEM.Value);

Case TblDATASEX.AsInteger of

0:

TblDATASexs.Value := 'МУЖ';

1:

TblDATASexs.Value := 'ЖЕН'; else

TblDATASexs.Value := '???'; end; { Case }

Case TblDATADN.AsInteger of

0:

TblDATADNs.Value := 'ДОН';

1:

TblDATADNs.Value := 'НЕД'; else

TblDATADNs.Value := '???'; end; { Case }

Case TblDATASTATUS.AsInteger of

0:

TblDATASTATUSs.Value := 'БЕЗ ИЗМЕНЕНИЙ';

1:

TblDATASTATUSs.Value := 'ПЕРЕВЕДЕН';

2:

TblDATASTATUSs.Value := 'УМЕР'; else

TblDATASTATUSs.Value := '???'; end; { Case }

Case TblDATAADDRESS.AsInteger of

0:

TblDATAADDRESSs.Value := 'СУРГУТ';

1:

TblDATAADDRESSs.Value := 'РАЙОН'; else

TblDATAADDRESSs.Value := '???'; end; { Case }

end;

end.
--------------------
[pic]

[pic]

Скачали данный реферат: Вергунов, Pankov, Кирхенштейн, Ozerov, Яшин, Lapin, Savasin.
Последние просмотренные рефераты на тему: реферат финансовый, доклад по географии, конспект на тему, сочинение сказка.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21

Поделитесь этой записью или добавьте в закладки