dm_un.pas

布林电话收费管理系统

unit dm_un;

interface

uses
  SysUtils, Classes, DB, ADODB,forms;

type
  Tdm = class(TDataModule)
    sj: TADOConnection;
    t_tmp: TADOTable;
    q_a: TADOQuery;
    q_b: TADOQuery;
    q_c: TADOQuery;
    q_d: TADOQuery;
    q_e: TADOQuery;
    q_f: TADOQuery;
    q_g: TADOQuery;
    q_h: TADOQuery;
    q_i: TADOQuery;
    q_1: TADOQuery;
    q_2: TADOQuery;
    q_3: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  sj.ConnectionString := 'Data Source=' + ExtractFilePath(Application.ExeName) + 'sjyy.Mdb';
end;

end.