untdmserver.pas

车辆管理系统

unit untDmServer;

interface

uses
  SysUtils, Classes, DB, ADODB, Inifiles, Forms, Windows, Provider,
  DBClient;

type
  TDmServer = class(TDataModule)
    AdoConMain: TADOConnection;
    Qstatus: TADOQuery;
    QMasterDB: TADOQuery;
    DMasterDB: TADODataSet;
    DAdmin: TADODataSet;
    procedure DataModuleCreate(Sender: TObject);
  private
    Function f_encrypt(sInput:string):string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DmServer: TDmServer;

implementation

uses untGlobal, untConsts;

{$R *.dfm}

procedure TDmServer.DataModuleCreate(Sender: TObject);
var
  s:string;
  ini:Tinifile;
  connStr, machine, username, password: string;
begin
  connstr:='';

  s:=GetLogDir('Log')+'adolinksetting.ini';

  if not fileExists(s) then
    begin
      application.MessageBox('Please set Ado Link property