leechdommain_unit.pas

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

unit LeechdomMain_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdActns, ActnList, ComCtrls, ToolWin, DB, ADODB;

type
  TfrmLeechdomMain = class(TForm)
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    B1: TMenuItem;
    W1: TMenuItem;
    H1: TMenuItem;
    mmUserSet: TMenuItem;
    mmModifyPwd: TMenuItem;
    mmAuthorize: TMenuItem;
    N1: TMenuItem;
    mmExit: TMenuItem;
    mmDrugSet: TMenuItem;
    mmVendor: TMenuItem;
    ActionList1: TActionList;
    Action1: TAction;
    WindowClose1: TWindowClose;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowMinimizeAll1: TWindowMinimizeAll;
    H2: TMenuItem;
    mmAbout: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ToolBar1: TToolBar;
    btnStock: TToolButton;
    btnInDepot: TToolButton;
    btnSaleDepot: TToolButton;
    btnClose: TToolButton;
    ToolButton8: TToolButton;
    btnCheck: TToolButton;
    btnStorageFind: TToolButton;
    ToolButton11: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ADOConn: TADOConnection;
    qryMaxID: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure mmDrugSetClick(Sender: TObject);
    procedure mmVendorClick(Sender: TObject);
    procedure mmUserSetClick(Sender: TObject);
    procedure mmModifyPwdClick(Sender: TObject);
    procedure btnStockClick(Sender: TObject);
    procedure btnInDepotClick(Sender: TObject);
    procedure btnSaleDepotClick(Sender: TObject);
    procedure btnCheckClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnStorageFindClick(Sender: TObject);
    procedure mmAboutClick(Sender: TObject);
    procedure mmAuthorizeClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetADOConnStr(FileName: string);
  end;

var
  frmLeechdomMain: TfrmLeechdomMain;

implementation

uses Login_Unit, DrugSet_Unit, VenderSet_Unit,
  UserSet_Unit,Stock_Unit, InDepot_Unit, SaleDepot_Unit,
  Check_Unit, StorageFind_Unit, About_Unit, Popedom_Unit, PasswordSet_Unit,
  Common_Unit;

{$R *.dfm}

procedure TfrmLeechdomMain.FormShow(Sender: TObject);
begin
//连接数据库
  GetADOConnStr(FileName);
//登录窗体的现实
  frmLogin := TfrmLogin.Create(Self);
  frmLogin.ShowModal;
end;

procedure TfrmLeechdomMain.mmDrugSetClick(Sender: TObject);
begin     { TODO : 药品字典 }
  if not Assigned(frmDrugSet) then         //检查是否存在相同的实例
  begin
    frmDrugSet := TfrmDrugSet.Create(Self);
    frmDrugSet.Show;
  end else
    frmDrugSet.BringToFront;        //将窗体至到最前
end;

procedure TfrmLeechdomMain.mmVendorClick(Sender: TObject);
begin      { TODO : 药商字典 }
  if not Assigned(frmVenderSet) then         //检查是否存在相同的实例
  begin
    frmVenderSet := TfrmVenderSet.Create(Self);
    frmVenderSet.Show;
  end else
    frmVenderSet.BringToFront;        //将窗体至到最前
end;

procedure TfrmLeechdomMain.mmUserSetClick(Sender: TObject);
begin    { TODO : 用户设定 }
  if not Assigned(frmUserSet) then         //检查是否存在相同的实例
  begin
    frmUserSet := TfrmUserSet.Create(Self);
    frmUserSet.Show;
  end else
    frmUserSet.BringToFront;        //将窗体至到最前
end;

procedure TfrmLeechdomMain.mmModifyPwdClick(Sender: TObject);
begin      { TODO : 用户密码设定 }
  if not Assigned(frmPasswordSet) then         //检查是否存在相同的实例
  begin
    frmPasswordSet := TfrmPasswordSet.Create(Self);
    frmPasswordSet.Show;
  end else
    frmPasswordSet.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.btnStockClick(Sender: TObject);
begin      { TODO : 采购管理 }
  if not Assigned(frmStock) then         //检查是否存在相同的实例
  begin
    frmStock := TfrmStock.Create(Self);
    frmStock.Show;
  end else
    frmStock.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.btnInDepotClick(Sender: TObject);
begin      { TODO : 入库管理 }
  if not Assigned(frmInDepot) then         //检查是否存在相同的实例
  begin
    frmInDepot := TfrmInDepot.Create(Self);
    frmInDepot.Show;
  end else
    frmInDepot.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.btnSaleDepotClick(Sender: TObject);
begin     { TODO : 出库管理 }
  if not Assigned(frmSaleDepot) then         //检查是否存在相同的实例
  begin
    frmSaleDepot := TfrmSaleDepot.Create(Self);
    frmSaleDepot.Show;
  end else
    frmSaleDepot.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.btnCheckClick(Sender: TObject);
begin       { TODO : 盘点管理 }
  if not Assigned(frmCheck) then         //检查是否存在相同的实例
  begin
    frmCheck := TfrmCheck.Create(Self);
    frmCheck.Show;
  end else
    frmCheck.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.btnCloseClick(Sender: TObject);
begin
  if Application.MessageBox('确定要退出系统吗?','提示',68) = IDNo then
    Exit;
  Application.Terminate;
end;

procedure TfrmLeechdomMain.btnStorageFindClick(Sender: TObject);
begin      { TODO : 库存的查询 }
  if not Assigned(frmStorageFind) then         //检查是否存在相同的实例
  begin
    frmStorageFind := TfrmStorageFind.Create(Self);
    frmStorageFind.Show;
  end else
    frmStorageFind.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.mmAboutClick(Sender: TObject);
begin
  frmAbout := TfrmAbout.Create(self);
  try
    frmAbout.ShowModal;
  finally
    frmAbout.Free;
  end;
end;

procedure TfrmLeechdomMain.mmAuthorizeClick(Sender: TObject);
begin      { TODO : 权限设定 }
  if not Assigned(frmAuthorize) then         //检查是否存在相同的实例
  begin
    frmAuthorize := TfrmAuthorize.Create(Self);
    frmAuthorize.Show;
  end else
    frmAuthorize.BringToFront;        //将窗体至到最
end;

procedure TfrmLeechdomMain.GetADOConnStr(FileName: string);
var
  ADOConnStr: string;
begin
  ADOConnStr := '';
  try                                               //动态加载DLL,DLL中包含了读取INI文件的函数
    if ReadIni(FileName,'BDConn','DBConFileName') = '' then
    begin
//弹出UDL连接数据窗体    
      ADOConnStr := PromptDataSource(Application.Handle, ADOConn.ConnectionString);
      WriteIni(FileName,'BDConn','DBConFileName',ADOConnStr);
    end else
      ADOConnStr := ReadIni(FileName,'BDConn','DBConFileName');
  finally
    try
      ADOConn.Close;
      ADOConn.ConnectionString := ADOConnStr;
      ADOConn.Open;
    except
      Application.MessageBox('连接数据库失败!','提示',16);
      WriteIni(FileName,'BDConn','DBConFileName','');
    end;
  end;
end;

end.