【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“DataBaseClient_Unit.pas”一文，供大家参考学习

    unit DataBaseClient_Unit;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Buttons;
    
    type
      TfrmDataBaseClient = class(TForm)
        Label1: TLabel;
        btnViewPath: TBitBtn;
        btnOk: TBitBtn;
        OpenPath: TOpenDialog;
        edtDataBasePath: TEdit;
        procedure btnViewPathClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure btnOkClick(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      frmDataBaseClient: TfrmDataBaseClient;
    
    implementation
    uses
      Common_Unit, TeachMain_Unit, Login_Unit, DM_Unit;
    {$R *.dfm}
    
    procedure TfrmDataBaseClient.btnViewPathClick(Sender: TObject);
    begin
      if OpenPath.Execute then
        edtDataBasePath.Text := OpenPath.FileName;
    end;
    
    procedure TfrmDataBaseClient.FormShow(Sender: TObject);
    begin
      edtDataBasePath.Text := DBConFileName(FileName);
    end;
    
    procedure TfrmDataBaseClient.btnOkClick(Sender: TObject);
    begin
      if edtDataBasePath.Text = '' then
      begin
        Application.MessageBox('请选择数据库路径!','错误',16);
        edtDataBasePath.SetFocus;
        Exit;
      end;
    
      try
        DM.ADOConn.Close;
        DM.ADOConn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'       //打开数据库的连接
                                  + 'Data Source=' + edtDataBasePath.Text
                                  + ';Persist Security Info=False';
        DM.ADOConn.Open;
      except
        Application.MessageBox('数据库连接失败!','错误',16);
        Exit;
      end;
    
      try                                               //动态加载DLL,DLL中包含了读取INI文件的函数
        DLLHand := LoadLibrary('CommInfo.dll');
        @WriteIni := GetProcAddress(DLLHand,'WriteIni');
        if @ReadIni <> nil then
          WriteIni(FileName,'BDConn','DBConFileName',edtDataBasePath.Text);
        Application.MessageBox('数据连接成功,请重新启动程序!','提示',64);
        Application.Terminate;
      finally
        FreeLibrary(DLLHand);  //释放DLL
      end;
    end;
    
    procedure TfrmDataBaseClient.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
      if Assigned(frmLogin) then     //判断是否有主程序实例,如果没有关闭整个程序
        Close                            //如果有,只关闭当前窗体
      else
        Application.Terminate ;
    end;
    
    end.
    

上一篇：database.pas
下一篇：酒店管理系统毕业论文