dblink.~pas

这是用delphi开发的一个物资管理信息系统

unit dblink;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles, DB, ADODB,datamodule,usertable_unit,login,
  Buttons, jpeg, ExtCtrls;

type
  Tdblinkfrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    user_ed: TEdit;
    pwd_ed: TEdit;
    server_ed: TEdit;
    database_ed: TEdit;
    connect_btn: TBitBtn;
    cancel_btn: TBitBtn;
    procedure connect_btnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
   user:Tusertable;
   DataMod:TDataMod;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dblinkfrm: Tdblinkfrm;
   SetupFile: tinifile;
implementation

uses main;

{$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
 DataMod:=TDataMod.Create(nil);
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)+'\MaterialTable.txt',
       strCreateDB) then
   begin
    user:=Tusertable.create;
    user.CreateTable(strCreateDB);
   end;
    login.userlevel:='系统管理员';
    mainfrm.Show;

  except
    application.MessageBox('数据库连接失败，请确认无误后重试！','提示：')
  end;
  DataMod.Free ;
  user.free;
  dblinkfrm.Close ;
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;

procedure Tdblinkfrm.cancel_btnClick(Sender: TObject);
begin
application.Terminate ;
end;

procedure Tdblinkfrm.FormDestroy(Sender: TObject);
begin
user.free;
end;

end.