unitconnectset.pas

来自「一套宾馆管理系统」· PAS 代码 · 共 112 行

unit UnitConnectSet;

interface

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

type
  TfrmConnectSet = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtServer: TEdit;
    edtDatabase: TEdit;
    edtUsername: TEdit;
    edtPassword: TEdit;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    strCon:string;
    procedure ReadIni();
   // procedure WriteIni();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConnectSet: TfrmConnectSet;

implementation

{$R *.dfm}
 procedure TfrmConnectSet.ReadINI();
var
  strFileName:string;
  MYINIFile:TiniFile;
  DRIVER,SERVER,DATABASE,UID,PWD:string;
begin
 try
  strFileName:=extractfilepath(paramstr(0))+'setup.ini';
  MYINIFile:=TiniFile.Create(strFileName);
  DRIVER:=MYINIFile.ReadString('OPTION','DRIVER','SQL Server');
  SERVER:=MYINIFile.ReadString('OPTION','SERVER','');
  DATABASE:=MYINIFile.ReadString('OPTION','DATABASE','Hotel');
  UID:=MYINIFile.ReadString('OPTION','UID','sa');
  PWD:=MYINIFile.ReadString('OPTION','PWD','');
  edtserver.Text:=SERVER;
  edtDatabase.Text:=DataBase;
  edtUserName.Text:=UID;
  edtPassword.Text:=PWD;
  strCon:='DRIVER='+DRIVER+';SERVER='+SERVER+';DATABASE='+DATABASE+';UID='+UID+';PWD='+PWD ;
finally
  MYINIFile.Destroy ;
end;
end;
procedure TfrmConnectSet.FormShow(Sender: TObject);
begin
frmConnectSet.ReadIni ;
end;

procedure TfrmConnectSet.btnOkClick(Sender: TObject);
var
 MyINIFile:TINIfile;
 strFileName:string;
 Server,Database,UserName,Password:string;
begin
  strFileName:=extractfilepath(paramstr(0))+'Setup.ini';
  MyINIFile:=Tinifile.Create(strFileName);
  if trim(edtServer.text)='' then
    begin
     showmessage('服务器名称不能为空');
     exit ;
    end;
  if trim(edtDatabase.text)='' then
    begin
     showmessage('数据库名称不能为空');
     exit;
    end ;
  if trim(edtUserName.text)='' then
    begin
     showmessage('用户名不能为空') ;
     exit;
    end;
    //get information
  Server:=edtserver.Text;
  Database:=edtDatabase.Text;
  UserName:=edtusername.Text;
  Password:=edtPassword.Text;

  //write information 
   MyIniFile.WriteString('option','SERVER',Server);
   MyIniFile.WriteString('option','DATABASE',Database);
   MyIniFile.WriteString('option','UID',UserName);
   MyIniFile.WriteString('option','PWD',Password);
   //release resource
   Myinifile.Destroy ;
   frmConnectSet.Close;
end;

procedure TfrmConnectSet.btnCancelClick(Sender: TObject);
begin
 frmConnectSet.Close;
end;

end.