databaselink.pas

在打沙场用的最简单

unit DatabaseLink;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, ExtCtrls, inifiles;

type
  Tfrmdatabaselink = class(TForm)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    btnok: TButton;
    btnexit: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdatabaselink: Tfrmdatabaselink;

implementation

{$R *.dfm}

procedure Tfrmdatabaselink.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmdatabaseLink:=nil;
end;

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

procedure Tfrmdatabaselink.FormCreate(Sender: TObject);
var
s:string;
ini:Tinifile;
begin
s:=ExtractFilePath(application.ExeName);
if s[length(s)]<>'\' then
s:=S+'\'+'Databasetset.ini'
else
s:=s+'Databaseset.ini';
ini:=Tinifile.Create(s);
try
  edit1.Text:=ini.ReadString('Login','Username','');
  edit2.Text:=ini.ReadString('Login','PassWord','');
  edit3.Text:=ini.ReadString('Login','Servername','');
  edit4.Text:=ini.ReadString('Login','HostIP','');
  edit5.Text:=ini.ReadString('Login','DatabaseName','');
  edit6.Text:=ini.ReadString('Login','SystemName','');
finally
  ini.Free;
end;
end;

procedure Tfrmdatabaselink.btnokClick(Sender: TObject);
var
s:string;
ini:Tinifile;
begin
s:=ExtractFilePath(application.ExeName);
if s[length(s)]<>'\' then
s:=S+'\'+'Databasetset.ini'
else
s:=s+'Databaseset.ini';
try
ini:=Tinifile.Create(s);
ini.WriteString('Login','UserName',edit1.Text);
ini.WriteString('Login','PassWord',edit2.Text);
ini.WriteString('Login','Servername',edit3.Text);
ini.WriteString('Login','HostIP',edit4.Text);
ini.WriteString('Login','DatabaseName',edit5.Text);
ini.WriteString('Login','SystemName',edit6.Text);
ini.WriteString('Pooler','Value','{E21C3EEA-650E-47C5-8C5E-5067A36610DE}');
finally
ini.Free;
end;
application.MessageBox(pchar('ADO setting complete , Pleast reset ! '),'Information',
                            mb_ok+mb_iconinformation+mb_applmodal);
application.Terminate;
end;

procedure Tfrmdatabaselink.btnexitClick(Sender: TObject);
begin
close;
end;

end.