Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
Категория реферата: Рефераты по информатике, программированию
Теги реферата: бесплатные рефераты и курсовые, quality assurance design patterns системный анализ
Добавил(а) на сайт: Аксёнов.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
(EditPTYPE.Text '') then
BtnSAVEPTYPE.Enabled := True else
BtnSAVEPTYPE.Enabled := False;
TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn12Click(Sender: TObject);
begin
EditSTREET.Enabled := True;
EditSTREET.SetFocus;
end;
procedure TFrmMain.BitBtn13Click(Sender: TObject);
begin
EditSTREET.Text := '';
EditSTREET.Enabled := False;
BtnSAVESTREET.Enabled := False;
end;
procedure TFrmMain.BtnSAVESTREETClick(Sender: TObject);
begin
DMAdmin.TblSTREET.Insert;
DMAdmin.TblSTREETCODE.Value := DMAdmin.TblSTREET.RecordCount + 1;
DMAdmin.TblSTREETTITLE.Value := EditSTREET.Text;
DMAdmin.TblSTREET.Post;
DMAdmin.TblSTREET.Refresh;
EditSTREET.Text := '';
EditSTREET.Enabled := False;
BtnSAVESTREET.Enabled := False;
end;
procedure TFrmMain.EditSTREETChange(Sender: TObject);
begin
With DMAdmin do begin
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]); if (TblSTREETTITLE.Value EditSTREET.Text) and
(EditSTREET.Text '') then
BtnSAVESTREET.Enabled := True else
BtnSAVESTREET.Enabled := False;
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]); end; end;
procedure TFrmMain.EditSTREETKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do begin
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]); if (TblSTREETTITLE.Value EditSTREET.Text) and
(EditSTREET.Text '') then
BtnSAVESTREET.Enabled := True else
BtnSAVESTREET.Enabled := False;
TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]); end; end;
procedure TFrmMain.BitBtn14Click(Sender: TObject);
begin
EditVILLAGE.Enabled := True;
EditVILLAGE.SetFocus;
end;
procedure TFrmMain.BitBtn15Click(Sender: TObject);
begin
EditVILLAGE.Text := '';
EditVILLAGE.Enabled := False;
BtnSAVEVILLAGE.Enabled := False;
end;
procedure TFrmMain.BtnSAVEVILLAGEClick(Sender: TObject);
begin
DMAdmin.TblVILLAGE.Insert;
DMAdmin.TblVILLAGECODE.Value := DMAdmin.TblVILLAGE.RecordCount + 1;
DMAdmin.TblVILLAGETITLE.Value := EditVILLAGE.Text;
DMAdmin.TblVILLAGE.Post;
DMAdmin.TblVILLAGE.Refresh;
EditVILLAGE.Text := '';
EditVILLAGE.Enabled := False;
BtnSAVEVILLAGE.Enabled := False;
end;
procedure TFrmMain.EditVILLAGEChange(Sender: TObject);
begin
With DMAdmin do begin
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]); if (TblVILLAGETITLE.Value EditVILLAGE.Text) and
(EditVILLAGE.Text '') then
Рекомендуем скачать другие рефераты по теме: дипломная работа проект, защита диплома.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата