unitmain.pas

来自「一套宾馆管理系统」· PAS 代码 · 共 169 行

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, ImgList, Menus, ToolWin,INIFiles;

type
  TfrmMain = class(TForm)
    StatusBar: TStatusBar;
    MainMenu1: TMainMenu;
    R1: TMenuItem;
    N1: TMenuItem;
    Q1: TMenuItem;
    S1: TMenuItem;
    X1: TMenuItem;
    N2: TMenuItem;
    menuImages: TImageList;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    sparactor1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure sparactor1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    strCon:string;
    clientid:string;
    Procedure ReadINI();
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses  UnitSetOption, UnitRegist, UnitRoomQuery, UnitLogin, UnitLogo,
  UnitUserSet, UnitBackUpPath, UnitDataBackUp, UnitDataRestore,
  UnitConnectSet, UnitPermitSet, UnitRolePermit, unitBebArrange;

{$R *.dfm}
procedure TfrmMain.ReadINI();
var
strFileName:string;
MYINIFile:TiniFile;
DRIVER,SERVER,DATABASE,UID,PWD:string;
begin
 try
  strFileName:=extractfilepath(paramstr(0))+'setup.ini';
  MYINIFile:=TiniFile.Create(strFileName);
  DRIVER:=MYINIFile.ReadString('OPTION','DRIVER','SQL Server');
  SERVER:=MYINIFile.ReadString('OPTION','SERVER','');
  DATABASE:=MYINIFile.ReadString('OPTION','DATABASE','Hotel');
  UID:=MYINIFile.ReadString('OPTION','UID','sa');
  PWD:=MYINIFile.ReadString('OPTION','PWD','');
  strCon:='DRIVER='+DRIVER+';SERVER='+SERVER+';DATABASE='+DATABASE+';UID='+UID+';PWD='+PWD ;
finally
  MYINIFile.Destroy ;
end;
end;
procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin

frmsetoption.Show 
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 application.Terminate ;
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
Application.CreateForm(TfrmSetOption, frmSetOption);
frmSetoption.Show ;
end;

procedure TfrmMain.X1Click(Sender: TObject);
begin
application.Terminate ;
end;

procedure TfrmMain.N3Click(Sender: TObject);
begin
Application.CreateForm(TfrmRoomQuery, frmRoomQuery);
frmRoomQuery.show;
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
frmMain.clientid:='NONE';
end;

procedure TfrmMain.N4Click(Sender: TObject);
begin
application.CreateForm(TfrmUserSet,frmUserSet);
frmUserSet.Show ;
end;

procedure TfrmMain.N5Click(Sender: TObject);
begin
  Application.CreateForm(TfrmRegist, frmRegist);
  frmRegist.tbnSave.Enabled:=true;//保存信息按钮可用
  frmRegist.Show;
end;

procedure TfrmMain.N8Click(Sender: TObject);
begin
 application.CreateForm(TfrmBackupPath,frmBackUpPath);
 frmBackupPath.Show ;
 
end;

procedure TfrmMain.sparactor1Click(Sender: TObject);
begin
 application.CreateForm(TfrmDataBackup,frmDataBackup);
 frmDataBackup.Show ;
end;

procedure TfrmMain.N6Click(Sender: TObject);
begin
 application.CreateForm(TfrmDataRestore,frmDataRestore);
 frmDataRestore.Show;
end;

procedure TfrmMain.N9Click(Sender: TObject);
begin
application.CreateForm(TfrmConnectSet,frmConnectSet);
frmConnectSet.show;
end;

procedure TfrmMain.N11Click(Sender: TObject);
begin
 application.CreateForm(TfrmPermitSet,frmPermitSet);
 frmPermitSet.show; 
end;

procedure TfrmMain.N10Click(Sender: TObject);
begin
 application.CreateForm(TfrmRolePermit,frmRolePermit);
 frmRolePermit.Show;
end;

end.