begin
if tbPalata.FieldByName('Kol_mest').AsInteger < tbPalata.FieldByName('Kol_pacient').AsInteger then
begin
windows.beep(500,200);
windows.beep(300,200);
windows.beep(200,200);
ShowMessage('количество койкомест нельзя делать меньше, чем количество пациентов');
abort;
end;
PalSt:=tbPalata.State
end;
procedure TFormMedSestra.tbPalataAfterPost(DataSet: TDataSet);
begin
if PalSt=dsInsert then begin
tbOtdel.Edit;
tbOtdel.FieldByName('Kol_palat').AsInteger:=
tbOtdel.FieldByName('Kol_palat').AsInteger+1;
tbOtdel.Post;
end;
end;
procedure TFormMedSestra.DBLookupComboBox1DropDown(Sender: TObject);
begin // при выпадении списка, StaticText1 - черное на белом
StaticText1.Font.Color:=clBlack;
StaticText1.Color:=clWhite
end;
procedure TFormMedSestra.DBLookupComboBox1CloseUp(Sender: TObject);
begin // при захлопывании списка, StaticText1 - белое на синем
StaticText1.Font.Color:=clWhite;
StaticText1.Color:=clHighLight
end;
procedure TFormMedSestra.DBLookupComboBox1Exit(Sender: TObject);
begin // при потере фокуса, StaticText1 - черное на белом
StaticText1.Font.Color:=clBlack;
StaticText1.Color:=clWhite
end;
procedure TFormMedSestra.DBLookupComboBox1Enter(Sender: TObject);
begin // при получении фокуса, StaticText1 - белое на синем
StaticText1.Font.Color:=clWhite;
StaticText1.Color:=clHighLight
end;
procedure TFormMedSestra.FormDeactivate(Sender: TObject);
begin // при деактивации формы и если список в фокусе, StaticText1 - черное на белом
if FormMedSestra.ActiveControl= DBLookupComboBox1 then
begin
StaticText1.Font.Color:=clBlack;
StaticText1.Color:=clWhite
end;
end;
procedure TFormMedSestra.FormActivate(Sender: TObject);
begin // при активации формы и если список в фокусе, StaticText1 - белое на синем
if FormMedSestra.ActiveControl= DBLookupComboBox1 then
begin
StaticText1.Font.Color:=clWhite;
StaticText1.Color:=clHighLight
end;
end;
procedure TFormMedSestra.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NewWidth:=width
end;
ПриложениеC
Листинг модуля «UnitPassword»
procedure TFormPassword.FormShow(Sender: TObject);
begin
AlphaBlendValue:=0;
Timer1.Enabled:=true;
edit1.SetFocus;
edit1.Clear
end;
procedure TFormPassword.Timer1Timer(Sender: TObject);
begin
if AlphaBlendValue<255 then
AlphaBlendValue:=AlphaBlendValue+15
else
Timer1.Enabled:=false
end;
Приложение D
Листинг модуля «UnitFilter»
procedure TFormFilter.EdFilterKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0
end;
procedure TFormFilter.btnFilterClick(Sender: TObject);
var a:TDate;
begin
try
a:=date-StrToInt(EdFilter.Text);
except
showMessage('укажите количество дней');
exit
end;
tbPacient2.Filter:= 'DataPostup<='+QuotedStr(DateToStr(a));
end;
procedure TFormFilter.FormShow(Sender: TObject);
begin
tbPacient2.Open;
tbPalata2.Open;
end;
procedure TFormFilter.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tbPacient2.Close;
tbPalata2.Close;
end;
procedure TFormFilter.btnFamilClick(Sender: TObject);
begin
tbPacient2.Filter:='Famil='+QuotedStr(EdFamil.Text);
end;
procedure TFormFilter.tbPacient2AfterScroll(DataSet: TDataSet);
begin
FormMedSestra.tbOtdel.Locate('Notdel',tbPacient2.FieldByName('lkNotdel2').AsInteger,[]);
FormMedSestra.tbPalata.Locate('Npalat',tbPacient2.FieldByName('Npalat').AsInteger,[]);
FormMedSestra.tbPacient.Locate('Nfamil',tbPacient2.FieldByName('Nfamil').AsInteger,[]);
end;
procedure TFormFilter.SpeedButton1Click(Sender: TObject);
begin
EdFamil.Enabled:=true;
btnFamil.Enabled:=true;
EdFilter.Enabled:=false;
btnFilter.Enabled:=false
end;
procedure TFormFilter.SpeedButton2Click(Sender: TObject);
begin
EdFamil.Enabled:=false;
btnFamil.Enabled:=false;
EdFilter.Enabled:=true;
btnFilter.Enabled:=true
end;
procedure TFormFilter.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NewWidth:=Width
end;