db_con.pas

图书管理系统

unit Db_Con;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDb_Connect = class(TDataModule)
    Library_Query: TQuery;
    Library_Database: TDatabase;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Db_Connect: TDb_Connect;

implementation

uses COMMON;

{$R *.dfm}
//*****************************************************************************
//   函 数 名： DataModuleCreate
//   功能描述： INI 文件信息取得
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/07        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TDb_Connect.DataModuleCreate(Sender: TObject);
begin
    //INI 文件信息取得
    GF_IniFile;
    //连接数据库
    if GF_OpenDataBase=False then
        Exit;
end;

end.