Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатные рефераты и курсовые, quality assurance design patterns системный анализ
| Добавил(а) на сайт: Аксёнов.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
BtnSAVEENTER.Enabled := True else
BtnSAVEENTER.Enabled := False;
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditENTERClick(Sender: TObject);
begin
With DMAdmin do begin
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); if (TblENTERTITLE.Value EditENTER.Text) and
(EditENTER.Text '') then
BtnSAVEENTER.Enabled := True else
BtnSAVEENTER.Enabled := False;
TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn6Click(Sender: TObject);
begin
EditENTER2.Enabled := True;
EditENTER2.SetFocus;
end;
procedure TFrmMain.BitBtn7Click(Sender: TObject);
begin
EditENTER2.Text := '';
EditENTER2.Enabled := False;
BtnSAVEENTER2.Enabled := False;
end;
procedure TFrmMain.BtnSAVEENTER2Click(Sender: TObject);
begin
DMAdmin.TblENTER2A.Insert;
DMAdmin.TblENTER2ACODE.Value := DMAdmin.TblENTER2A.RecordCount;
DMAdmin.TblENTER2ATITLE.Value := EditENTER2.Text;
DMAdmin.TblENTER2A.Post;
DMAdmin.TblENTER2A.Refresh;
EditENTER2.Text := '';
EditENTER2.Enabled := False;
BtnSAVEENTER2.Enabled := False;
end;
procedure TFrmMain.EditENTER2Change(Sender: TObject);
begin
With DMAdmin do begin
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); if (TblENTER2ATITLE.Value EditENTER2.Text) and
(EditENTER2.Text '') then
BtnSAVEENTER2.Enabled := True else
BtnSAVEENTER2.Enabled := False;
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditENTER2Click(Sender: TObject);
begin
With DMAdmin do begin
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); if (TblENTER2TITLE.Value EditENTER2.Text) and
(EditENTER2.Text '') then
BtnSAVEENTER2.Enabled := True else
BtnSAVEENTER2.Enabled := False;
TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn8Click(Sender: TObject);
begin
EditPERSONAL.Enabled := True;
EditPERSONAL.SetFocus;
end;
Рекомендуем скачать другие рефераты по теме: дипломная работа проект, защита диплома.
Категории:
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
Главная