Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ...
Доклад - Компьютеры, программирование
Другие доклады по предмету Компьютеры, программирование
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;
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
(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
BtnSAVEVILLAGE.Enabled := True
else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
end;
end;
procedure TFrmMain.EditVILLAGEKeyPress(Sender: TObject; var Key: Char);
begin
With DMAdmin do
begin
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
if (TblVILLAGETITLE.Value <> EditVILLAGE.Text) and
(EditVILLAGE.Text <> '')
then
BtnSAVEVILLAGE.Enabled := True
else
BtnSAVEVILLAGE.Enabled := False;
TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);
end;
end;
end.
AdminDM.pas
unit AdminDM;
interface
&n