dm.pas

文具管理系统 采用VFP数据库编的

unit dm;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM_Wjckgl = class(TDataModule)
    ADOConnt: TADOConnection;
    ADOQry: TADOQuery;
    ADOQryWare: TADOQuery;
    DSWare: TDataSource;
    ADOQryNowStock: TADOQuery;
    DSNowStock: TDataSource;
    ADOQryInStock: TADOQuery;
    DSInStock: TDataSource;
    ADOQryOutStock: TADOQuery;
    DSOutStock: TDataSource;
    ADOQryInStat: TADOQuery;
    DSInStat: TDataSource;
    ADOQryOutStat: TADOQuery;
    DSOutStat: TDataSource;
    DSOutDept: TDataSource;
    DSOutPerson: TDataSource;
    ADOQryOutDept: TADOQuery;
    ADOQryOutPerson: TADOQuery;
    ADOQry1: TADOQuery;
    ADOQry2: TADOQuery;
    DSMonthSumup: TDataSource;
    ADOQryMonthSumup: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_Wjckgl: TDM_Wjckgl;

implementation

uses global;

{$R *.dfm}

procedure TDM_Wjckgl.DataModuleCreate(Sender: TObject);
var
  Fn:string;
begin
  Fn:=ExtractFilePath(paramstr(0))+'Data\'+SDefDataBaseName;
  with ADOConnt do
  begin
    if Connected then close;   //如果己连接则关闭
    LoginPrompt:=False;       //将登录提示设为 不提示
    ConnectionString:=format(SConnectString,[Fn,SDefDataBasePwd]);
    open;
  end;
end;

end.