common.~pas

图书管理系统

unit COMMON;

interface
uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, inifiles,Printers,
    Dialogs, ExtCtrls, StdCtrls , Db, DBTables,Buttons,variants,IdGlobal;
Type
    SetChar = Set of Char;
    Function GF_OpenDataBase :Boolean;
    procedure GF_IniFile;
    function GF_NullToZero(varData : variant) : variant;
var
    gDbName		        :String	;
    gAliasName          :String ;
    gUSER_NAME		    :String	;
    gPASSWORD           :String ;
implementation

uses Db_Con;

//*****************************************************************************
//   函 数 名： GF_OpenDataBase
//   功能描述： 数据库连接
//   参    数： 无
//   返 回 值： True:成功 False:失败
//   作成日期： 2004/03/07        作成者：Allan
//   修改日期：
//*****************************************************************************
Function GF_OpenDataBase :Boolean;
begin
    Result := False;
    try
        Screen.Cursor := crHourGlass;
        with Db_Connect.Library_Database do begin
            DatabaseName:=gDbName;
            AliasName:=gAliasName;
            Params.Clear;
            Params.Add('USER NAME='+gUSER_NAME);
            Params.Add('PASSWORD=' +gPASSWORD);
            LoginPrompt:=False;
            Connected:=True;
            Open;
        end;
        Db_Connect.Library_Query.DatabaseName:=gDbName;
        Screen.Cursor := crDefault;
        Result := True;
    except
        On E:EDBEngineError do begin
            Screen.Cursor:=crDefault;
            Result := False;
            //数据库连接
            MessageDlg('数据库连接失败！',mtError,[mbOK],0);
            Application.Terminate;
        end;
    end;
end;
//*****************************************************************************
//   函 数 名： GF_IniFile
//   功能描述： INI 文件信息取得
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/07        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure GF_IniFile;
var OpenIni : TIniFile ;
    MyIniFileName : String  ;
Begin
    OpenIni := nil ;
    //获得INI文件的路径名
    MyIniFileName := ExtractFileDir(application.ExeName) + '\Library.ini' ;
    //Library.ini文件是否存在
    If FileExists(MyIniFileName) = False Then Begin
        //Library.ini文件不存在
        MessageDlg('Library.ini文件不存在！',mtError,[mbOK],0) ;
        Application.Terminate;
    End;
    //Library.ini文件存在
    OpenIni := TIniFile.Create(MyIniFileName);
    with OpenIni do begin
        gDbName   := ReadString ('DATABASE','DBNAME'       ,'') ; // ODBC名
        gAliasName:= ReadString ('DATABASE','AliasDtaName' ,'') ; // LIB Name
        gUSER_NAME:= ReadString ('DATABASE','USERNAME'     ,'') ; // SQL SERVER User
        gPASSWORD := ReadString ('DATABASE','PASSWORD'     ,'') ; // SQL SERVER PassWord
    end;
    OpenIni.Free;
end;
//*****************************************************************************
//   函 数 名： GF_RomoveDot
//   功能描述：去掉"'"
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/07        作成者：Allan
//   修改日期：
//*****************************************************************************
function GF_RomoveDot(strReplace:String):String;
begin
    Result:=stringReplace(strReplace,'''','''''',[rfReplaceAll]);
end;
//******************************************************************************
//   函 数 名： GF_NullToZero
//   功能描述： Null To Zero
//   参    数： varData : variant
//   返 回 值：
//   作成日期： 2003/07/23
//   修改日期：
//******************************************************************************
function GF_NullToZero(varData : variant) : variant;
begin
	if varData = Null then
		Result := 0
	else
        Result := varData;
        if varToStr(varData)='' then
            Result := 0;
end;
end.