fmmainform.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

procedure TfMainform.actphysicExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfBs_physic then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fBs_physic:=TfBs_physic.Create(Self);
fBs_physic.Show;
end;

procedure TfMainform.Acticg_inwhsExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=Tfcg_inwhs then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fcg_inwhs:=Tfcg_inwhs.Create(Self);
fcg_inwhs.Show;
end;

procedure TfMainform.actcg_outwhsExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=Tfcg_outwhs then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fcg_outwhs:=Tfcg_outwhs.Create(Self);
fcg_outwhs.Show;
end;

procedure TfMainform.actotherinExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=Tfcg_otherin then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fcg_otherin:=Tfcg_otherin.create(Self);
fcg_otherin.Show;
end;

procedure TfMainform.actotheroutExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfCg_otherout then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fCg_otherout:=TfCg_otherout.Create(Self);
fCg_otherout.Show;
end;

procedure TfMainform.actCg_bsExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfCg_bs then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fcg_bs:=TfCg_bs.Create(self);
fCg_bs.Show;
end;

procedure TfMainform.actBs_machtypeExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfBs_machtype then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
 fBs_machtype:=TfBs_machtype.Create(Self);
 fBs_machtype.Show;
end;

procedure TfMainform.actBs_machineExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfBs_machine then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fBs_machine:=TfBs_machine.Create(Self);
fBs_machine.Show;
end;

procedure TfMainform.actxs_openExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfXs_re then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fXs_re:=TfXs_re.Create(Self);
fXs_re.Show;
end;

procedure TfMainform.actXs_chargeExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfXs_charge then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fXs_charge:=TfXs_charge.Create(Self);
fXs_charge.Show;
end;

procedure TfMainform.actXs_otcExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfXs_otc then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fXs_otc:=TfXs_otc.Create(Self);
fXs_otc.Show;
end;

procedure TfMainform.actHi_drawExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfHi_draw then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fHi_draw:=TfHi_draw.Create(Self);
fHi_draw.Show;
end;

procedure TfMainform.actkc_tableExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=TfKC_table then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fKC_table:=TfKC_table.Create(self);
fKC_table.Show;
end;

procedure TfMainform.actchangeExecute(Sender: TObject);
var i:integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=Tfchangepassword then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fchangepassword:=Tfchangepassword.Create(Self);
fchangepassword.Show;
end;

procedure TfMainform.Timer1Timer(Sender: TObject);
begin
stat1.Panels[2].Text:='时间：'+TimeToStr(Time);
end;

procedure TfMainform.actbackupExecute(Sender: TObject);
begin
//导出数据
     if MessageBox(0, '确定要备份数据？', '提示', MB_OKCANCEL + 
       MB_ICONQUESTION) = IDOK then
     begin
     CopyFile(Pchar('data\doctor.mdb'),'backup\address.mdb',true);
     sleep(1000);//wait 
     MessageBox(0, '系统数据备份完成！', '提示', MB_OK + MB_ICONINFORMATION);
     end;
end;


procedure TfMainform.actrebackupExecute(Sender: TObject);
begin
//导入数据
   if MessageDlg('该操作将不保留备份后输入的数据，真的要恢复吗？', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
   begin
//将备份的文件复制并复盖当前的数据库文件
   CopyFile('back\address.mdb',Pchar('data\doctor.mdb'),false);
   sleep(1000);
   MessageBox(0, '恢复系统数据完成！请重新启动本软件！谢谢！', '提示', MB_OK + 
     MB_ICONINFORMATION);
    end;
end;

procedure TfMainform.N6Click(Sender: TObject);
begin
fabout:=Tfabout.Create(Self);
fabout.ShowModal;
end;

procedure TfMainform.actclearExecute(Sender: TObject);
begin
fclear:=Tfclear.Create(Self);
fclear.ShowModal;
end;

procedure TfMainform.N14Click(Sender: TObject);
begin
updatedate;

end;

procedure TfMainform.acthintExecute(Sender: TObject);
var i:Integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=Tfhint then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fhint:=Tfhint.Create(Self);
fhint.Show;
end;

procedure TfMainform.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=116 then  //F5刷新数据
   begin
    updatedate;
   end;
end;

procedure TfMainform.actfyExecute(Sender: TObject);
var i:Integer;
begin
for i := 0 to Screen.FormCount -1 do
   if Screen.Forms[i].ClassType=Tfbs_fy then
     begin
       Application.MessageBox('该窗口已经打开！', '提示', MB_OK + MB_ICONINFORMATION);
       exit;
     end;
fbs_fy:=Tfbs_fy.Create(self);
fbs_fy.Show;
end;

end.