Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
Категория реферата: Рефераты по информатике, программированию
Теги реферата: бесплатные рефераты и курсовые, quality assurance design patterns системный анализ
Добавил(а) на сайт: Аксёнов.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
procedure TFrmMain.BitBtn9Click(Sender: TObject);
begin
EditPERSONAL.Text := '';
EditPERSONAL.Enabled := False;
BtnSAVEPERSONAL.Enabled := False;
end;
procedure TFrmMain.BtnSAVEPERSONALClick(Sender: TObject);
begin
DMAdmin.TblPERSONAL.Insert;
DMAdmin.TblPERSONALID.Value := DMAdmin.TblPERSONAL.RecordCount + 1;
DMAdmin.TblPERSONALFIO.Value := EditPERSONAL.Text;
DMAdmin.TblPERSONAL.Post;
DMAdmin.TblPERSONAL.Refresh;
EditPERSONAL.Text := '';
EditPERSONAL.Enabled := False;
BtnSAVEPERSONAL.Enabled := False;
end;
procedure TFrmMain.EditPERSONALChange(Sender: TObject);
begin
With DMAdmin do begin
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]); if (TblPERSONALFIO.Value EditPERSONAL.Text) and
(EditPERSONAL.Text '') then
BtnSAVEPERSONAL.Enabled := True else
BtnSAVEPERSONAL.Enabled := False;
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditPERSONALKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do begin
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]); if (TblPERSONALFIO.Value EditPERSONAL.Text) and
(EditPERSONAL.Text '') then
BtnSAVEPERSONAL.Enabled := True else
BtnSAVEPERSONAL.Enabled := False;
TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn10Click(Sender: TObject);
begin
EditPTYPE.Enabled := True;
EditPTYPE.SetFocus;
end;
procedure TFrmMain.BitBtn11Click(Sender: TObject);
begin
EditPTYPE.Text := '';
EditPTYPE.Enabled := False;
BtnSAVEPTYPE.Enabled := False;
end;
procedure TFrmMain.BtnSAVEPTYPEClick(Sender: TObject);
begin
DMAdmin.TblPTYPE.Insert;
DMAdmin.TblPTYPECODE.Value := DMAdmin.TblPTYPE.RecordCount + 1;
DMAdmin.TblPTYPETITLE.Value := EditPTYPE.Text;
DMAdmin.TblPTYPE.Post;
DMAdmin.TblPTYPE.Refresh;
EditPTYPE.Text := '';
EditPTYPE.Enabled := False;
BtnSAVEPTYPE.Enabled := False;
end;
procedure TFrmMain.EditPTYPEChange(Sender: TObject);
begin
With DMAdmin do begin
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]); if (TblPTYPETITLE.Value EditPTYPE.Text) and
(EditPTYPE.Text '') then
BtnSAVEPTYPE.Enabled := True else
BtnSAVEPTYPE.Enabled := False;
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditPTYPEKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do begin
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]); if (TblPTYPETITLE.Value EditPTYPE.Text) and
Рекомендуем скачать другие рефераты по теме: дипломная работа проект, защита диплома.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата