Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатные рефераты и курсовые, quality assurance design patterns системный анализ
| Добавил(а) на сайт: Аксёнов.
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
var
FrmMain: TFrmMain;
implementation
uses AdminDM, DB;
{$R *.DFM}
procedure TFrmMain.EditDSChange(Sender: TObject);
begin
With DMAdmin do begin
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); if (TblDSTITLE.Value EditDS.Text) and
(EditDS.Text '') then
BtnSAVE.Enabled := True else
BtnSAVE.Enabled := False;
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn2Click(Sender: TObject);
begin
EditDS.Enabled := True;
EditDS.SetFocus;
end;
procedure TFrmMain.BtnSAVEClick(Sender: TObject);
begin
DMAdmin.TblDS.Insert;
DMAdmin.TblDSCODE.Value := DMAdmin.TblDS.RecordCount;
DMAdmin.TblDSTITLE.Value := EditDS.Text;
DMAdmin.TblDS.Post;
DMAdmin.TblDS.Refresh;
EditDS.Text := '';
EditDS.Enabled := False;
BtnSAVE.Enabled := False;
end;
procedure TFrmMain.EditDSClick(Sender: TObject);
begin
With DMAdmin do begin
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); if (TblDSTITLE.Value EditDS.Text) and
(EditDS.Text '') then
BtnSAVE.Enabled := True else
BtnSAVE.Enabled := False;
TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn4Click(Sender: TObject);
begin
EditENTER.Enabled := True;
EditENTER.SetFocus;
end;
procedure TFrmMain.BitBtn3Click(Sender: TObject);
begin
EditDS.Text := '';
EditDS.Enabled := False;
BtnSAVE.Enabled := False;
end;
procedure TFrmMain.BitBtn5Click(Sender: TObject);
begin
EditENTER.Text := '';
EditENTER.Enabled := False;
BtnSAVEENTER.Enabled := False;
end;
procedure TFrmMain.BtnSAVEENTERClick(Sender: TObject);
begin
DMAdmin.TblENTERA.Insert;
DMAdmin.TblENTERACODE.Value := DMAdmin.TblENTERA.RecordCount;
DMAdmin.TblENTERATITLE.Value := EditENTER.Text;
DMAdmin.TblENTERA.Post;
DMAdmin.TblENTERA.Refresh;
EditENTER.Text := '';
EditENTER.Enabled := False;
BtnSAVEENTER.Enabled := False;
end;
procedure TFrmMain.EditENTERChange(Sender: TObject);
begin
With DMAdmin do begin
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); if (TblENTERATITLE.Value EditENTER.Text) and
(EditENTER.Text '') then
Рекомендуем скачать другие рефераты по теме: дипломная работа проект, защита диплома.
Категории:
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
Главная