main.pas

某疗养院动脉硬化管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseUnit, ImgList, Buttons, RzTabs, jpeg, ExtCtrls, ComCtrls,
  OleCtrls, SHDocVw, IniFiles;

type
  TFrmMain = class(TForm1)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    ImageList1: TImageList;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    TabSheet5: TRzTabSheet;
    StatusBar1: TStatusBar;
    SpeedButton11: TSpeedButton;
    Image1: TImage;
    SpeedButton12: TSpeedButton;
    Image2: TImage;
    SpeedButton13: TSpeedButton;
    Image3: TImage;
    SpeedButton14: TSpeedButton;
    Timer1: TTimer;
    SpeedButton10: TSpeedButton;
    SpeedButton18: TSpeedButton;
    TabSheet4: TRzTabSheet;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    Panel1: TPanel;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    wb: TWebBrowser;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton17: TSpeedButton;
    ImageList2: TImageList;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses Login, EditPass, UserManage, SystemSet, PatientList, CheckItem,
  ExamDesc, PicDesc, DBManage, Log, ExamAdvice, PubFunction, RoomSet,
  about, DBSet, TimeSet, FailtoHIS;

{$R *.dfm}

procedure TFrmMain.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  SaveLog(UserID,UserName,'登录');
  TFrmLogin.Create(application).ShowModal;
  FrmLogin.Free;
end;

procedure TFrmMain.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  TFrmEditPass.Create(application).ShowModal;
  //ShowPanel(FrmEditPass.Panel1,FrmMain.Panel1);
  FrmEditPass.Free;
end;

procedure TFrmMain.SpeedButton4Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmUser.Create(application).ShowModal;
  FrmUser.Free;
end;

procedure TFrmMain.SpeedButton5Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmSystemSet.Create(application).ShowModal;
  FrmSystemSet.Free;
end;

procedure TFrmMain.SpeedButton11Click(Sender: TObject);
begin
  inherited;
  TFrmPatientList.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton13Click(Sender: TObject);
begin
  inherited;
  TFrmCheckItem.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton8Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmExamDesc.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton9Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmPicDesc.Create(application).ShowModal;
end;

procedure TFrmMain.Timer1Timer(Sender: TObject);
begin
  inherited;
  StatusBar1.Panels[1].Text:='现在的时间是：'+DateTimeToStr(now());
end;

procedure TFrmMain.SpeedButton6Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  //TFrmDB.Create(application).ShowModal;
  TFrmDBSet.Create(nil).ShowModal;
  FrmDBSet.Free;
end;

procedure TFrmMain.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmLog.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton18Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmExamAdvice.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton20Click(Sender: TObject);
begin
  inherited;
  wb.Navigate(ExtractFilePath(paramstr(0))+'Bin\result.htm');
end;

procedure TFrmMain.SpeedButton21Click(Sender: TObject);
begin
  inherited;
  wb.Navigate(ExtractFilePath(paramstr(0))+'Bin\advice.htm');
end;

procedure TFrmMain.SpeedButton22Click(Sender: TObject);
begin
  inherited;
  wb.Navigate(ExtractFilePath(paramstr(0))+'Bin\ll.htm');
end;

procedure TFrmMain.SpeedButton23Click(Sender: TObject);
begin
  inherited;
  wb.Navigate('http://www.yiyao114.com/');
end;

procedure TFrmMain.SpeedButton19Click(Sender: TObject);
begin
  inherited;
  wb.Navigate(ExtractFilePath(paramstr(0))+'Bin\wf.htm');
end;

procedure TFrmMain.SpeedButton12Click(Sender: TObject);
var IniFile:TIniFile;
    CompliorSp:string;
begin
  inherited;
  IniFile:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Config.ini');
  try
    with IniFile do
    begin
      CompliorSp:=ReadString('Complior','Complior','C:\Programe File\');
    end;
  finally
    IniFile.Free;
  end;
  WinExec(PChar(CompliorSp),sw_normal);
end;

procedure TFrmMain.SpeedButton24Click(Sender: TObject);
begin
  inherited;
  TFrmCode.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton16Click(Sender: TObject);
begin
  inherited;
  TFrmAbout.Create(nil).ShowModal;
  FrmAbout.Free;
end;

procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  if application.MessageBox('确定要退出该系统？','提示',mb_yesno+mb_iconquestion)=IDYes then
  begin
    SaveLog(UserID,UserName,'退出');
    application.Terminate;
  end
  else
    CanClose:=false;
end;

procedure TFrmMain.SpeedButton7Click(Sender: TObject);
begin
  inherited;
  if application.MessageBox('确定要退出该系统？','提示',mb_yesno+mb_iconquestion)=IDYes then
  begin
    SaveLog(UserID,UserName,'退出');
    application.Terminate;
  end;
end;

procedure TFrmMain.SpeedButton17Click(Sender: TObject);
begin
  inherited;
  if UserGroup<>0 then
  begin
    application.MessageBox('你没有对该模块的操作权限！','提示',mb_ok+mb_iconinformation);
    exit;
  end;
  TFrmTimeSet.Create(application).ShowModal;
end;

procedure TFrmMain.SpeedButton10Click(Sender: TObject);
begin
  inherited;
  FrmFailtoHIS.ShowModal;
end;

end.