{*******************************************************}
{                                                       }
{       單元名稱: UntTFuncFace                          }
{       創建日期: 2005-08-17                            }
{       摘要說明: 數據表TFunc操作實體類接口函數         }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當前版本: 1.0                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntTFuncFace;

{==========================================================================
                        DLL接口函數聲明部分
==========================================================================}

interface

uses
  SysUtils, Classes, Variants, ADODB;

{==========================================================================
                        函數原型聲明
==========================================================================}

//在表Func中插入一條記錄，返回執行成功與否，函數原型聲明
function Func_AddNew(ADOConnection: TADOConnection;
  P_Type, P_Subject, P_Uses, P_Content, P_Remark: string): boolean; stdcall;
//在表Func中更新一條記錄，返回執行成功與否，函數原型聲明
function Func_Edit(ADOConnection: TADOConnection;
  P_ID: integer;
  P_Type, P_Subject, P_Uses, P_Content, P_Remark: string): boolean; stdcall;
//在表Func中刪除一條記錄，返回執行成功與否，函數原型聲明
function Func_Delete(ADOConnection: TADOConnection; P_ID: integer): boolean;
stdcall;
//在表Func中查找一條記錄，返回執行成功與否，函數原型聲明
function Func_Find(ADOConnection: TADOConnection; P_ID: integer): boolean;
stdcall;
//依據ID在FUNC中取回一條記錄，返回記錄是否存在
function Func_GetRecordByID(ADOConnection: TADOConnection;
  P_ID: integer;
  P_Type, P_Subject, P_Uses: PChar;
  P_Content, P_Remark: Tstrings): boolean; stdcall;
//在表Func中查找類別明細
function Func_FindType(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall;
//在表Func中批量更新類別
function Func_UpdateType(ADOConnection: TADOConnection; OldType, NewType:
  string): boolean; stdcall;
//依據ID取回類別
function Func_GetTypeByID(ADOConnection: TADOConnection; P_ID: Integer; P_Type:
  PChar): boolean; stdcall;
//依據類別返回該類別函數記錄集
function Func_GetFuncByType(ADOQueryF: TADOQuery; P_Type: string): boolean;
stdcall;
//依據標題檢索函數庫
function Func_SearchBySubject(ADOQueryF: TADOQuery; P_Subject: string): boolean;
stdcall;
//依據標題檢索，取得ID標題列表
function Func_GetIDSubList(ADOConnection: TADOConnection; SubKey: string;
  IDList, SubList: Tstrings): boolean; stdcall;
//依據類別檢索，取得ID標題列表
function Func_GetIDListByType(ADOConnection: TADOConnection; P_Type: string;
  IDList, SubList: Tstrings): boolean; stdcall;

{==========================================================================
                        DLL接口函數實現部分
==========================================================================}

implementation

//引用的單元列表
uses UntTFunc;

{==========================================================================
　函數名:    Func_AddNew
  功  能:    在表Func中插入一條記錄，返回執行成功與否
  參　數:    ADOConnection:數據庫連接對象 P_Type,P_Subject,P_Uses,P_Content,P_Remark : string 表屬性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Func_AddNew(ADOConnection: TADOConnection;
  P_Type, P_Subject, P_Uses, P_Content, P_Remark: string): boolean;
var
  Func              : TFunc;
begin
  Func := TFunc.Create(AdoConnection);
  with Func do
    begin
      PID := GetMaxID + 1;              //ID號,自動維護
      PType := P_Type;                  //string 類別
      PSubject := P_Subject;            //string 函數過程名稱
      PUses := P_Uses;                  //string 引用的單元
      PContent := P_Content;            //string 函數過程的內容
      PRemark := P_Remark;              //string 注釋與說明

      Result := InsertIntoTable;        //向表中插入一條記錄
      Free;
    end;
end;

{==========================================================================
　函數名:    Func_Edit
  功  能:    依據P_ID在表Func中更新一條記錄，返回執行成功與否
  參　數:    ADOConnection:數據庫連接對象 P_Type,P_Subject,P_Uses,P_Content,P_Remark : string 表屬性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Func_Edit(ADOConnection: TADOConnection;
  P_ID: integer;
  P_Type, P_Subject, P_Uses, P_Content, P_Remark: string): boolean;
var
  Func              : TFunc;
begin
  Func := TFunc.Create(AdoConnection);
  with Func do
    begin
      PID := P_ID;                      //integer ID號
      PType := P_Type;                  //string 類別
      PSubject := P_Subject;            //string 函數過程名稱
      PUses := P_Uses;                  //string 引用的單元
      PContent := P_Content;            //string 函數過程的內容
      PRemark := P_Remark;              //string 注釋與說明

      Result := UpdateTable;            // 更新一條記錄,用主鍵值做條件
      Free;
    end;
end;

{==========================================================================
　函數名:    Func_Delete
  功  能:    在表Func中刪除一條記錄，返回執行成功與否
  參　數:    ADOConnection:數據庫連接對象 P_ID : integer 表主鍵屬性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Func_Delete(ADOConnection: TADOConnection; P_ID: integer): boolean;
var
  Func              : TFunc;
begin
  Func := TFunc.Create(AdoConnection);
  with Func do
    begin
      PID := P_ID;                      //integer ID號

      Result := DeleteTable(true); //刪除一條記錄,用主鍵值做條件,(刪除后是否提示)
      Free;
    end;
end;

{==========================================================================
　函數名:    Func_Find
  功  能:    在表Func中查找一條記錄，返回執行成功與否
  參　數:    ADOConnection:數據庫連接對象 P_ID : integer 表屬性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Func_Find(ADOConnection: TADOConnection; P_ID: integer): boolean;
var
  Func              : TFunc;
begin
  Func := TFunc.Create(AdoConnection);
  with Func do
    begin
      PID := P_ID;                      //integer ID號

      Result := FindRecorder(false); //查找某一條記錄,用主鍵值做條件,(找到指定記錄后是否給變量賦值)
      Free;
    end;
end;

{==========================================================================
　函數名:    Func_GetRecordByID
  功  能:    依據ID在FUNC中取回一條記錄，返回記錄是否存在
  參　數:    ADOConnection:數據庫連接對象 P_ID : integer 表屬性值
  返回值:    True,false
  作　者:    胡孟杰
  日　期:    2005.08.17
==========================================================================}

function Func_GetRecordByID(ADOConnection: TADOConnection;
  P_ID: integer;
  P_Type, P_Subject, P_Uses: PChar;
  P_Content, P_Remark: Tstrings): boolean; stdcall;
var
  Func              : TFunc;
begin
  Func := TFunc.Create(AdoConnection);
  with Func do
    begin
      PID := P_ID;                      //integer ID號

      Result := FindRecorder(True); //查找某一條記錄,用主鍵值做條件,(找到指定記錄后是否給變量賦值)
      if Result then
        begin
          StrCopy(P_Type, PChar(PType));
          StrCopy(P_Subject, PChar(PSubject));
          StrCopy(P_Uses, PChar(PUses));
          P_Content.Text := PContent;
          P_Remark.Text := PRemark;
        end;
      Free;
    end;
end;

{==========================================================================
  函數名:    Func_GetFuncByType