f_dm.pas

来自「销售业绩核算系统」· PAS 代码 · 共 41 行

unit F_DM;

interface

uses
  SysUtils, Classes, DB, ADODB,windows,
   Messages,  Variants,  Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TDM = class(TDataModule)
    ADOConn: TADOConnection;
    ADOQuery: TADOQuery;
    ADOTable: TADOTable;
    ADOT_UManage: TADOTable;
    ADOT_Print: TADOTable;
    ADO: TADOQuery;
    AD: TADOQuery;
    ADOQuery1: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
ADOconn.ConnectionString:=ADOconn.ConnectionString+';Data Source='+extractfiledir(application.ExeName)+'\data\xiaoshou.mdb';

end;

end.