{*******************************************************}
{                                                       }
{       單元名稱: UntFace                               }
{       創(chuàng)建日期: 2005-08-17                            }
{       摘要說明: TType.DLL接口函數(shù)聲明                 }
{                                                       }
{       詳細說明:                                       }
{                                                       }
{       參　　閱:                                       }
{                                                       }
{       已知問題:                                       }
{                                                       }
{       待作事項:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       當前版本: 1.0                                   }
{       版本歷史:                                       }
{                                                       }
{*******************************************************}

unit UntFace;

{==========================================================================
                        單元接口部分
==========================================================================}

interface

{==========================================================================
     參數(shù)聲明所需引用的單元
==========================================================================}

uses
  SysUtils, Variants, Classes, ADODB;

{==========================================================================
    接口函數(shù)原型聲明
==========================================================================}

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

{==========================================================================
                        單元實現(xiàn)部分
==========================================================================}

implementation

end.