dblinkfrmunit4.pas

本系统是结合行业管理中实际的人力资源、工资制度

unit dblinkfrmUnit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, StdCtrls, DB, ADODB,usertable_unit,loginfrmUnit3;

type
  Tdblinkfrm = class(TForm)
    GroupBox1: TGroupBox;
    connect_btn: TButton;
    cancel_btn: TButton;
    user_lb: TLabel;
    pwd_lb: TLabel;
    server_lb: TLabel;
    database_lb: TLabel;
    user_ed: TEdit;
    pwd_ed: TEdit;
    server_ed: TEdit;
    database_ed: TEdit;
    procedure connect_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    usertable:Tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dblinkfrm: Tdblinkfrm;
  SetupFile: tinifile;
implementation

uses  mainfrmUnit2, persondatamod_unit;

{$R *.dfm}

function GetTextFromFile(AFile : String; var ReturnString : string) : boolean;
var
  FileStream : TFileStream;
begin
  if not fileexists(AFile) then exit;
  FileStream := TFileStream.Create(AFile,fmOpenRead);
  try
  if FileStream.Size > 0 then
  begin
    SetLength(ReturnString,FileStream.Size);
    FileStream.Read(ReturnString[1],FileStream.Size);
    result := true;
  end;
  finally
  FileStream.Free;
end;
end;


procedure Tdblinkfrm.connect_btnClick(Sender: TObject);
var
  strCreateDB:string;
begin
     //创建Tusertable类的实例
 usertable:=Tusertable.create ;

 try

    setupfile:=tinifile.create(extractfiledir(application.ExeName)+'\setup.ini');
    setupfile.Writestring('system','USER_NAME',user_ed.Text);
    setupfile.Writestring('system','USER_PWD',pwd_ed.Text);
    setupfile.Writestring('system','servername',server_ed.text);
    setupfile.Writestring('system','database',database_ed.text);


 if GetTextFromFile(extractfiledir(application.ExeName)+'\CreateTable.txt',strCreateDB) then
    usertable.CreateTable(strCreateDB);
    dblinkfrm.Close;
    loginfrmUnit3.powerlevel:='系统管理员';
    mainfrm.Show;

   except
    application.MessageBox('数据库连接失败，请确认无误后重试！','提示：');
    exit;
 end;
end;

procedure Tdblinkfrm.cancel_btnClick(Sender: TObject);
begin
application.Terminate ;
{
dblinkfrm.Hide;
loginfrm.show;
dblinkfrm.Free;}
end;

procedure Tdblinkfrm.FormCreate(Sender: TObject);
begin
  setupfile:=tinifile.create(extractfiledir(application.ExeName)+'\setup.ini');
  user_ed.Text:=setupfile.Readstring('system','USER_NAME','');
  pwd_ed.Text:=setupfile.Readstring('system','USER_PWD','');
  server_ed.Text:=setupfile.Readstring('system','servername','');
  database_ed.Text:=setupfile.Readstring('system','database','');
end;

end.