main.~pas

物资管理系统 包括屋子入库出库管理

unit Main;

interface

uses
  Windows, SysUtils, Variants, Classes, Controls, Forms, Dialogs, ActnList,
  Menus, ToolWin, ActnMan, ActnCtrls, StdActns, XPStyleActnCtrls, ExtCtrls,
  WZGLCommon, WZZD, WZRK, WZCK, WZCX, WZLB, ADODB, IniFiles;

type
  TMainForm = class(TForm)
    amMain: TActionManager;
    acWZZD: TAction;
    acWZRK: TAction;
    acWZCK: TAction;
    acWZCX: TAction;
    mmMain: TMainMenu;
    mnWzwh: TMenuItem;
    mnWZRK: TMenuItem;
    mnWZCK: TMenuItem;
    mnWZCX: TMenuItem;
    acWZLB: TAction;
    mnWzlb: TMenuItem;
    mnSplitter: TMenuItem;
    mnWzzd: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure acWZZDExecute(Sender: TObject);
    procedure acWZRKExecute(Sender: TObject);
    procedure acWZCKExecute(Sender: TObject);
    procedure acWZCXExecute(Sender: TObject);
    procedure acWZLBExecute(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
const 
  conConnectStr = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;' +
    'Persist Security Info=False;Initial Catalog=%S;Data Source=%S';
var
  l_iniFile: TIniFile;
  l_HostName, l_DataBase: string;
begin
  if not FileExists(ExePath + conIniFile) then
  begin
    showmessage('数据库配置文件不存在！');
    Exit;
  end;

  AdoWzgl := TADOConnection.Create(nil);
  l_iniFile := TIniFile.Create(ExePath + conIniFile);
  with l_iniFile do
  try
    l_HostName := ReadString('SQL', 'HostName', '127.0.0.1');
    l_DataBase := ReadString('SQL', 'DataBase', 'WZGL');
    AdoWzgl.ConnectionString := Format(conConnectStr, [l_DataBase, l_HostName]);
    AdoWzgl.LoginPrompt := False;
    AdoWzgl.Connected := True;
  finally
    free;
  end;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  AdoWzgl.Connected := False;
  AdoWzgl.Free;
end;

procedure TMainForm.acWZZDExecute(Sender: TObject);
begin
  if not Assigned(WzzdForm) then
  begin
    WzzdForm := TWZZDForm.Create(self);
    WzzdForm.Show;
  end;
  WzzdForm.BringToFront;
end;

procedure TMainForm.acWZRKExecute(Sender: TObject);
begin
  if not Assigned(WzrkForm) then
  begin
    WzrkForm := TWZRKForm.Create(Self);
    WzrkForm.Show;
  end;
  WzrkForm.BringToFront;
end;

procedure TMainForm.acWZCKExecute(Sender: TObject);
begin
  if not Assigned(WzckForm) then
  begin
    WzckForm := TWZCKForm.Create(Self);
    WzckForm.Show;
  end;
  WzckForm.BringToFront;
end;

procedure TMainForm.acWZCXExecute(Sender: TObject);
begin
  if not Assigned(WzcxForm) then
  begin
    WzcxForm := TWZCXForm.Create(Self);
    WzcxForm.Show;
  end;
  WzcxForm.BringToFront;
end;

procedure TMainForm.acWZLBExecute(Sender: TObject);
begin
  with TWZLBForm.Create(Self) do
  try
    ShowModal;
  finally
    free
  end;
end;

end.