frmmain.pas

医院门诊管理系统:它是由任天华完全自主开发的医院数据库管理系统

unit FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, ExtCtrls, ActnMan, ActnColorMaps, jpeg, StdCtrls;

type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    MemuSystermManager: TMenuItem;
    MenuUserLogin: TMenuItem;
    MenuPWChange: TMenuItem;
    MenuUserManager: TMenuItem;
    MenuUserRelogin: TMenuItem;
    MenuRegist: TMenuItem;
    MenuRegistSet: TMenuItem;
    MenuCharge: TMenuItem;
    MenuChargeHuajia: TMenuItem;
    MenuChargeMoney: TMenuItem;
    MenuChargeReturn: TMenuItem;
    MenuChargeSeek: TMenuItem;
    MenuSickerInf: TMenuItem;
    MenuSicker: TMenuItem;
    MenuBDManager: TMenuItem;
    MenuBDApartment: TMenuItem;
    MenuBDSuff: TMenuItem;
    MenuBDCarriage: TMenuItem;
    MenuBDDocter: TMenuItem;
    MenuSentManager: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    MemuRegistSeek: TMenuItem;
    Image1: TImage;
    XPManifest1: TXPManifest;
    N1: TMenuItem;
    N2: TMenuItem;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure MenuUserLoginClick(Sender: TObject);
    procedure MenuPWChangeClick(Sender: TObject);
    procedure MenuUserReloginClick(Sender: TObject);
    procedure MenuUserManagerClick(Sender: TObject);
    procedure MenuBDApartmentClick(Sender: TObject);
    procedure MenuBDSuffClick(Sender: TObject);
    procedure MenuBDCarriageClick(Sender: TObject);
    procedure MenuSickerClick(Sender: TObject);
    procedure MenuRegistSetClick(Sender: TObject);
    procedure MemuRegistSeekClick(Sender: TObject);
    procedure MenuChargeHuajiaClick(Sender: TObject);
    procedure MenuChargeMoneyClick(Sender: TObject);
    procedure MenuChargeReturnClick(Sender: TObject);
    procedure MenuChargeSeekClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure MenuBDDocterClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  CurUserName:string;
  CurUserType:integer;
implementation
   uses FrmLogin,FrmPSC,FrmUserM,FrmSet,FrmSetSeek,
        FrmDepartM,FrmStaff,FrmMedicin,FrmInf,FrmHuajia,
        Frmcharge,FrmReturn,Frmseekday,Frmsuer,Frmover,
        frmcase,FrmSetDoctor,frmtotal,Frmbanben,hospital;

{$R *.dfm}



procedure TFormMain.MenuUserLoginClick(Sender: TObject);
begin
     if(FormLogin.ShowModal=mrOK)then
     begin
            CurUserName:=FrmLogin.CurUserName;
            CurUserType:=FrmLogin.CurUserType;
            MenuPWChange.Enabled:=true;
            if(CurUserType=0)then
            begin
              MenuUserManager.Enabled:=true;
            end
            else
            if(CurUserType=1)then
            begin
              MenuRegist.Enabled:=true;
              MenuCharge.Enabled:=true;
              MenuSickerInf.Enabled:=true;
              MenuBDManager.Enabled:=true;
              MenuSentManager.Enabled:=true;
              MenuUserLogin.Enabled:=false;
              MenuUserRelogin.Enabled:=true;
           end

     end


end;

procedure TFormMain.MenuPWChangeClick(Sender: TObject);
begin
     FormChangePW.EditUserName.Text:=CurUserName;
     FormChangePW.ShowModal;
end;

procedure TFormMain.MenuUserReloginClick(Sender: TObject);
begin
     if(FormLogin.ShowModal=mrOK)then
     begin
            CurUserName:=FrmLogin.CurUserName;
            CurUserType:=FrmLogin.CurUserType;
            MenuPWChange.Enabled:=true;

            if(CurUserType=1)then
            begin
              MenuUserManager.Enabled:=true;
              MenuRegist.Enabled:=true;
              MenuCharge.Enabled:=true;
              MenuSickerInf.Enabled:=true;
              MenuBDManager.Enabled:=true;
              MenuSentManager.Enabled:=true;
              MenuUserLogin.Enabled:=false;
           end
     end
end;

procedure TFormMain.MenuUserManagerClick(Sender: TObject);
begin
     FormUserManager.Enabled:=true;
     FormUserManager.ShowModal;

end;


procedure TFormMain.MenuBDApartmentClick(Sender: TObject);
begin

     DepartmentManager.EditKid.Clear;
     DepartmentManager.Editkname.Clear;
     DepartmentManager.Editkduty.Clear;
     DepartmentManager.Edituplimit.Clear;
     DepartmentManager.Editdownlimit.Clear;
     DepartmentManager.CBApartName.Text:='';
     DepartmentManager.CBManager.Text:='';
     DepartmentManager.ShowModal;
end;

procedure TFormMain.MenuBDSuffClick(Sender: TObject);
begin
   FormStaff.Button5.Click;
   FormStaff.ShowModal;
   FormStaff.EditSeek.Clear;

   FormStaff.Button5.Click;
   FormStaff.CBDepartM.Text:='';
   FormStaff.CBseek.Text:='';

end;

procedure TFormMain.MenuBDCarriageClick(Sender: TObject);
begin
   FormMedicine.Button8.Click;
   FormMedicine.ShowModal;
end;

procedure TFormMain.MenuSickerClick(Sender: TObject);
begin
   FormSickInf.Button10.Click;
   FormSickInf.ShowModal;

end;

procedure TFormMain.MenuRegistSetClick(Sender: TObject);
begin
   Formset.ShowModal;
   FormSet.Button3.Click;
end;

procedure TFormMain.MemuRegistSeekClick(Sender: TObject);
begin
   Formsetseek.Editid.Clear;
   Formsetseek.ShowModal;
   Formsetseek.Button4.Click;
end;

procedure TFormMain.MenuChargeHuajiaClick(Sender: TObject);
begin
   FormHuajia.Button7.Click;
   formHuajia.ShowModal;

end;

procedure TFormMain.MenuChargeMoneyClick(Sender: TObject);
begin

   Formcharge.ShowModal;
end;

procedure TFormMain.MenuChargeReturnClick(Sender: TObject);
begin

   FormReturn.ShowModal;
   FormReturn.Button10.Click;
end;

procedure TFormMain.MenuChargeSeekClick(Sender: TObject);
begin

   FormSeekDay.ShowModal;
end;

procedure TFormMain.N12Click(Sender: TObject);
begin

   Formsuer.ShowModal;
end;

procedure TFormMain.N13Click(Sender: TObject);
begin

   
   Formover.ShowModal;
end;

procedure TFormMain.N14Click(Sender: TObject);
begin

   FormCase.ShowModal;
end;

procedure TFormMain.MenuBDDocterClick(Sender: TObject);
begin

   Formsetd.Edit1.Clear;
   Formsetd.Edit3.Clear;
   Formsetd.ShowModal;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
   FormMain.Label4.Caption:=Formatdatetime('yyyy-mm-dd'+'  '+'hh:mm:ss',now());
end;

procedure TFormMain.N15Click(Sender: TObject);
begin
  
   FormTotal.ShowModal;
end;

procedure TFormMain.N2Click(Sender: TObject);
begin
   Formbanben.ShowModal;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
    formin.Visible:=false;
end;

procedure TFormMain.N6Click(Sender: TObject);
begin
   formin.Close;
end;

end.