Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатные рефераты и курсовые, quality assurance design patterns системный анализ
| Добавил(а) на сайт: Аксёнов.
Предыдущая страница реферата | 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