configdb.pas

ERP 一段源码,也许你会用到,在一个朋友处拿来的.

unit ConfigDb;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, registry;

type
  TfrmConfigDb = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    machineE: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    passwordE: TEdit;
    bb_ok: TBitBtn;
    bb_close: TBitBtn;
    usernameE: TEdit;
    Image1: TImage;
    procedure bb_closeClick(Sender: TObject);
    procedure bb_okClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConfigDb: TfrmConfigDb;
  three: integer;
implementation

uses serverDm;

{$R *.DFM}

procedure TfrmConfigDb.bb_closeClick(Sender: TObject);
begin
  close;
end;

procedure TfrmConfigDb.bb_okClick(Sender: TObject);
var machine, password, username, Connstr, passwordStr: string;
  Registry: TRegistry;
  i: integer;
begin
  if three = 3 then application.Terminate;
  machine := machineE.text;
  username := usernameE.text;
  password := PasswordE.text;
  Connstr := 'Provider=SQLOLEDB.1;Password=' + password + ';Persist Security Info=True;User ID=' + userName + ';Initial Catalog=''ClothingSys'';Data Source=' + machine;
  dmServer.adocnClothingSys.ConnectionString := connstr;
//  showmessage(Connstr);
  try
    dmServer.adocnClothingSys.Open;
    for i := 1 to length(password) do
      passwordStr := passwordStr + chr(ord(password[i]) + (i * i - 43));
//    showmessage('1');
    registry := TRegistry.Create;
    with registry do
    begin
      rootkey := HKEY_LOCAL_MACHINE;
      if OpenKey('\Software\Misystem\database', True) then
      begin
        WriteString('machine', machine);
        WriteString('username', username);
        WriteString('password', passwordStr);
      end;
  //    showmessage('2');
      CloseKey;
      Destroy;
      close;
      application.MessageBox('SQLSERVER数据库配置正确,请重新启动！','提示信息',mb_ok+mb_iconinformation);
      application.Terminate;
    end
  except
    begin
      three := three + 1;

      messagebox(application.Handle, '服务器配置不正确，无法连接数据库服务器！', '提示！', 0);
    end
  end;
end;

procedure TfrmConfigDb.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key := #0;
    perform(wm_nextdlgctl, 0, 0);
  end
end;

procedure TfrmConfigDb.FormCreate(Sender: TObject);
begin
  three := 0;
end;

end.