unitdata.~pas

来自「提取铁路的GPS数据通过串口」· ~PAS 代码 · 共 86 行

unit unitData;

interface

uses
  SysUtils, Classes, DB, DBTables,registry,QDialogs,Windows;

type
  Tdm = class(TDataModule)
    dbsMain: TDatabase;
    tblRailwayGPS: TTable;
    tblRailwayGPSID: TAutoIncField;
    tblRailwayGPSBDEDesigner: TStringField;
    tblRailwayGPSBDEDesigner2: TStringField;
    tblRailwayGPSBDEDesigner3: TFloatField;
    tblRailwayGPSBDEDesigner4: TStringField;
    tblRailwayGPSBDEDesigner5: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}
const
  DataDir = '\Data\GPRSData.mdb';
  ODBCDLLDir = '\ODBCDLL\Odbcjt32.dll';

procedure Tdm.DataModuleCreate(Sender: TObject);
var
  CurrDir: string;
  Reg: TRegistry;
begin
  dbsMain.Connected := false;
  CurrDir := GetCurrentDir;

  Reg := TRegistry.Create();
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources', True) then
  begin
    Reg.WriteString('RailWayData','Microsoft Access Driver (*.mdb)');
  end
  else begin
    MessageDlg('添加数据源失败', mtError, [mbOK], 0)
  end;
  Reg.CloseKey;

  if Reg.OpenKey('Software\ODBC\ODBC.INI\RailWayData',True) then
  begin
    Reg.WriteString('DBQ', CurrDir + DataDir);
    Reg.WriteString('Driver', CurrDir + ODBCDLLDir);
    Reg.WriteInteger ('DriverId', 25);
    Reg.WriteString('FIL','MS Access;');
    Reg.WriteInteger('SafeTransactions' ,0);
    Reg.WriteString('UID','');
  end
  else begin
  end;
  Reg.CloseKey;

  if Reg.OpenKey('Software\ODBC\ODBC.INI\RailWayData\Engines\Jet',True) then
  begin
    Reg.WriteString('ImplicitCommitSync','');
    Reg.WriteString('UserCommitSync','yes');
    Reg.WriteInteger('MaxBufferSize',2048);
    Reg.WriteInteger('PageTimeout',5);
    Reg.WriteInteger('Threads',3);
  end
  else begin
    MessageDlg('添加数据源失败', mtError, [mbOK], 0)
  end;
  Reg.CloseKey;

  Reg.Free;
  dbsMain.Connected := True;
  tblRailwayGPS.Active := True;
end;

end.