fmmainform.pas

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

//********************************//
//  模块:主窗体                   //
//  设计：杨凌      2005.06.20    //
//                                //
//********************************//
unit fmmainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, dxsbar, ComCtrls, Menus, ImgList, ActnList, ToolWin,
  jpeg;

type
  TfMainform = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    stat1: TStatusBar;
    dxSideBar1: TdxSideBar;
    ImageList1: TImageList;
    N11: TMenuItem;
    dxSideBarStore1: TdxSideBarStore;
    dxSideBarStore1Item1: TdxStoredSideItem;
    dxSideBarStore1Item2: TdxStoredSideItem;
    dxSideBarStore1Item3: TdxStoredSideItem;
    dxSideBarStore1Item4: TdxStoredSideItem;
    dxSideBarStore1Item5: TdxStoredSideItem;
    dxSideBarStore1Item6: TdxStoredSideItem;
    dxSideBarStore1Item7: TdxStoredSideItem;
    dxSideBarStore1Item8: TdxStoredSideItem;
    actlst1: TActionList;
    actuser: TAction;
    actarea: TAction;
    actunit: TAction;
    actwhs: TAction;
    actftype: TAction;
    acttype: TAction;
    actutype: TAction;
    actfactory: TAction;
    actphysic: TAction;
    dxSideBarStore1Item9: TdxStoredSideItem;
    dxSideBarStore1Item10: TdxStoredSideItem;
    Acticg_inwhs: TAction;
    actcg_outwhs: TAction;
    dxSideBarStore1Item11: TdxStoredSideItem;
    actotherin: TAction;
    actotherout: TAction;
    dxSideBarStore1Item12: TdxStoredSideItem;
    dxSideBarStore1Item13: TdxStoredSideItem;
    actCg_bs: TAction;
    dxSideBarStore1Item14: TdxStoredSideItem;
    actxs_open: TAction;
    dxSideBarStore1Item17: TdxStoredSideItem;
    actXs_charge: TAction;
    dxSideBarStore1Item18: TdxStoredSideItem;
    actXs_otc: TAction;
    dxSideBarStore1Item19: TdxStoredSideItem;
    actHi_draw: TAction;
    dxSideBarStore1Item20: TdxStoredSideItem;
    actkc_table: TAction;
    actrestart: TAction;
    actchange: TAction;
    actlog: TAction;
    actbackup: TAction;
    actrebackup: TAction;
    Timer1: TTimer;
    actclear: TAction;
    N12: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    acthint: TAction;
    dxSideBarStore1Item23: TdxStoredSideItem;
    dxSideBarStore1Item24: TdxStoredSideItem;
    actfy: TAction;
    dxSideBarStore1Item21: TdxStoredSideItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N3Click(Sender: TObject);
    procedure actuserExecute(Sender: TObject);
    procedure actareaExecute(Sender: TObject);
    procedure actunitExecute(Sender: TObject);
    procedure actwhsExecute(Sender: TObject);
    procedure actftypeExecute(Sender: TObject);
    procedure acttypeExecute(Sender: TObject);
    procedure actutypeExecute(Sender: TObject);
    procedure actfactoryExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure actphysicExecute(Sender: TObject);
    procedure Acticg_inwhsExecute(Sender: TObject);
    procedure actcg_outwhsExecute(Sender: TObject);
    procedure actotherinExecute(Sender: TObject);
    procedure actotheroutExecute(Sender: TObject);
    procedure actCg_bsExecute(Sender: TObject);
    procedure actBs_machtypeExecute(Sender: TObject);
    procedure actBs_machineExecute(Sender: TObject);
    procedure actxs_openExecute(Sender: TObject);
    procedure actXs_chargeExecute(Sender: TObject);
    procedure actXs_otcExecute(Sender: TObject);
    procedure actHi_drawExecute(Sender: TObject);
    procedure actkc_tableExecute(Sender: TObject);
    procedure actchangeExecute(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure actbackupExecute(Sender: TObject);
    procedure actrebackupExecute(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure actclearExecute(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure acthintExecute(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure actfyExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMainform: TfMainform;

implementation

uses dataform, Qxuser, Bs_area, Bs_unit, Bs_ftype, Bs_type, Bs_whs,
  Bs_utype, Bs_factory, loginform, pubdata, Bs_physic, cg_inwhs, cg_outwhs,
  Cg_otherin, Cg_otherout, Cg_bs, Bs_machtype, Bs_machine, Xs_re,
  Xs_charge, Xs_otc, Hi_draw, KC_table, changepassword, about, clear,
  Global, hint, fy, bs_fy;

{$R *.dfm}

procedure TfMainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//退出系统
if MessageBox(0, '真的要退出系统吗？', '提示', MB_OKCANCEL + MB_ICONQUESTION + 
  MB_TOPMOST) = IDOK then
begin
  Application.Terminate;
end
else
begin
  action:=caNone;
end;

end;

procedure TfMainform.N3Click(Sender: TObject);
begin
Close;
end;

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

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

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

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

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

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

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

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

procedure TfMainform.FormCreate(Sender: TObject);
begin
floginform:=Tfloginform.Create(Self);
floginform.ShowModal;
fMainform.Hide; 
end;