Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
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]);
EditENTER2.Text)and"> 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]);
EditENTER2.Text)and"> 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;
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]);
EditPERSONAL.Text)and"> 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]);
EditPERSONAL.Text)and"> 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]);
EditPTYPE.Text)and"> 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]);
EditPTYPE.Text)and"> 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.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]);
EditSTREET.Text)and"> 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]);
EditSTREET.Text)and"> 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
DMAd