dataconfig.pas

服务信息管理系统

unit dataconfig;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;

type
  Tfrmdbconfig = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog: TOpenDialog;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdbconfig: Tfrmdbconfig;

implementation

{$R *.dfm}

procedure Tfrmdbconfig.Button3Click(Sender: TObject);
begin
  frmdbconfig.Free;
  Halt;
end;

procedure Tfrmdbconfig.Button1Click(Sender: TObject);
begin
  OpenDialog.Execute();
  if OpenDialog.FileName <> '' then
    Edit1.Text := OpenDialog.FileName;
end;

procedure Tfrmdbconfig.Button2Click(Sender: TObject);
var
  reg: TRegistry;
  ts: TStrings;
  i: integer;
begin
  if FileExists(Edit1.Text) then
    begin
      reg := TRegistry.Create;
      reg.RootKey := HKEY_CURRENT_USER;
      reg.LazyWrite := false;
      if reg.OpenKey('\software\ODBC\ODBC.INI\fwxxglss', false) then
        begin
          ts := TStringList.Create;
          reg.GetValueNames(ts);
          for i := 0 to ts.Count - 1 do
            begin
              //Memo1.Lines.Add(ts.Strings[i] + ' = ' + reg.ReadString(ts.Strings[i]));
            end;
          ts.Free;
        end
      else
        begin
          Reg.CreateKey('\software\ODBC\ODBC.INI\fwxxglss');
          Reg.OpenKey('\software\ODBC\ODBC.INI\fwxxglss', True);
          Reg.WriteString('DBQ', Edit1.Text);
          Reg.WriteString('Driver', 'C:\WINDOWS\SYSTEM\odbcjt32.dll');
          Reg.WriteInteger('DrivesId', 25);
          Reg.WriteString('FIL', 'MS Access;');
          Reg.WriteInteger('DrivesID', 25);
          Reg.WriteInteger('SafeTransactions', 0);
          Reg.WriteString('UID', 'admin');
          Reg.CreateKey('\software\ODBC\ODBC.INI\fwxxglss\Engines');
          Reg.CreateKey('\software\ODBC\ODBC.INI\fwxxglss\Engines\Jet');
          Reg.OpenKey('\software\ODBC\ODBC.INI\fwxxglss\Engines\Jet', True);
          Reg.WriteString('ImplicitCommitSync', '');
          Reg.WriteInteger('MaxBufferSize', 2048);
          Reg.WriteInteger('PageTimeout', 5);
          Reg.WriteInteger('Threads', 3);
          Reg.WriteString('UserCommitSync', 'Yes');
          reg.OpenKey('\software\ODBC\ODBC.INI\ODBC Data Sources', false);
          Reg.WriteString('fwxxglss', 'Microsoft Access Driver (*.mdb)');
        end;
      reg.CloseKey;
    end
  else
    //MessageDlg('指定的数据库不存在', , mbOK);
    reg.free;
end;

end.