u_data.pas

此系统完成了单向复费率电能表的抄表以及编程

unit U_data;

interface

uses
  Windows, Messages,SysUtils, Classes, DB, Forms, ADODB;

type
  TDataM = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOT_Command: TADOTable;
    ADOQ1: TADOQuery;
    ADOQ2: TADOQuery;
    DataS2: TDataSource;
    ADOQ3: TADOQuery;
    DataS3: TDataSource;
    DataS4: TDataSource;
    ADOQ4: TADOQuery;
    ADOQ5: TADOQuery;
    ADOT1: TADOTable;
    ADOT2: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataM: TDataM;        //

implementation

uses U_function;

{$R *.dfm}

procedure TDataM.DataModuleCreate(Sender: TObject);
var
   path,con:string;
begin
   path := extractfilepath(paramstr(0));
   path := copy(path,1,length(path)-4)+'\data\DL_T645.mdb';
    try
      con := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+
             ';Persist Security Info=False';
      DataM.ADOConnection1.ConnectionString :=con;
      DataM.ADOConnection1.Connected :=true;
      DataM.ADOConnection1.KeepConnection := true;
      DataM.ADOConnection1.LoginPrompt :=false;
    except
      MyMsgBox(' 数据库连接错误，请与科研部联系！','系  统  错  误', 0);
      application.Terminate;
    end;
end;

end.