ttype.dpr

delphi制作的帮助学习软件

{*******************************************************}
{                                                       }
{       单元名称: library TType;                        }
{       创建日期: 2005-08-26                            }
{       摘要说明: TType.DLL                             }
{                                                       }
{       详细说明:                                       }
{                                                       }
{       参　　阅:                                       }
{                                                       }
{       已知问题:                                       }
{                                                       }
{       待作事项:                                       }
{                                                       }
{       作　　者: 胡孟杰                                }
{       Copyright (C) 2005 FdAuto                       }
{       当前版本: 2.0                                   }
{       版本历史:                                       }
{                                                       }
{*******************************************************}

library TType;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  Classes,
  UntTType in 'UntTType.pas',
  UntTTypeFace in 'UntTTypeFace.pas',
  UntTFunc in 'UntTFunc.pas',
  UntTFuncFace in 'UntTFuncFace.pas';

{$R *.res}

{=======================================================================
                    导出函数声明
========================================================================}

exports
  {=======================================================================
  函 数 名：  Type_AddNew
  功　　能：　向表Type中插入一条记录，函数原型声明
  函数原型：　Function Type_AddNew(ADOConnection:TADOConnection; P_Type : string) : boolean; stdcall;
  ========================================================================}
  Type_AddNew,
  {=======================================================================
  函 数 名：  Type_Edit
  功　　能：　向表Type中更新一条记录，函数原型声明
  函数原型：　Function Type_Edit(ADOConnection:TADOConnection; OldType,P_Type : string) : boolean; stdcall;
  ========================================================================}
  Type_Edit,
  {=======================================================================
  函 数 名：  Type_Delete
  功　　能：　向表Type中删除一条记录，函数原型声明
  函数原型：　Function Type_Delete(ADOConnection:TADOConnection; P_Type : string) : boolean; stdcall;
  ========================================================================}
  Type_Delete,
  {=======================================================================
  函 数 名：  Type_Find
  功　　能：　在表Type中查找一条记录，函数原型声明
  函数原型：　Function Type_Find(ADOConnection:TADOConnection; P_Type : string) : boolean; stdcall;
  ========================================================================}
  Type_Find,
  {=======================================================================
  函 数 名：  Type_GetTypeList
  功　　能：　取回类别列表，返回执行成功与否，函数原型声明
  函数原型：　Function Type_GetTypeList(ADOConnection:TADOConnection; TypeList : Tstrings) : boolean; stdcall;
  ========================================================================}
  Type_GetTypeList,
  {=======================================================================
  函 数 名：  Func_AddNew
  功　　能：　在表Func中插入一条记录，返回执行成功与否，函数原型声明
  函数原型：　Function Func_AddNew(ADOConnection:TADOConnection;
                       P_Type,P_Subject,P_Uses,P_Content,P_Remark : string) : boolean; stdcall;
  ========================================================================}
  Func_AddNew,
  {=======================================================================
  函 数 名：  Func_Edit
  功　　能：　在表Func中更新一条记录，返回执行成功与否，函数原型声明
  函数原型：　Function Func_Edit(ADOConnection:TADOConnection;
                       P_ID : integer;
                       P_Type,P_Subject,P_Uses,P_Content,P_Remark : string) : boolean; stdcall;
  ========================================================================}
  Func_Edit,
  {=======================================================================
  函 数 名：  Func_Delete
  功　　能：　在表Func中删除一条记录，返回执行成功与否，函数原型声明
  函数原型：　Function Func_Delete(ADOConnection:TADOConnection; P_ID : integer) : boolean; stdcall;
  ========================================================================}
  Func_Delete,
  {=======================================================================
  函 数 名：  Func_Find
  功　　能：　在表Func中查找一条记录，返回执行成功与否，函数原型声明
  函数原型：　Function Func_Find(ADOConnection:TADOConnection; P_ID : integer) : boolean; stdcall;
  ========================================================================}
  Func_Find,
  {=======================================================================
  函 数 名：  Func_FindType
  功　　能：　在表Func中查找类别明细，返回执行成功与否，函数原型声明
  函数原型：　Function Func_FindType(ADOConnection:TADOConnection; P_Type : string) : boolean; stdcall;
  ========================================================================}
  Func_FindType,
  {=======================================================================
  函 数 名：  Func_UpdateType
  功　　能：　在表Func中批量更新类别，返回执行成功与否，函数原型声明
  函数原型：　Function Func_UpdateType(ADOConnection:TADOConnection; OldType, NewType:string):boolean; stdcall;
  ========================================================================}
  Func_UpdateType,
  {=======================================================================
  函 数 名：  Func_GetRecordByID
  功　　能：　依据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_GetRecordByID,
  {=======================================================================
  函 数 名：  Func_GetTypeByID
  功　　能：　依据ID取回类别，返回执行成功与否，函数原型声明
  函数原型：　Function Func_GetTypeByID(ADOConnection:TADOConnection; P_ID : Integer; P_Type : PChar) : boolean; stdcall;
  ========================================================================}
  Func_GetTypeByID,
  {=======================================================================
  函 数 名：  Func_GetFuncByType
  功　　能：　依据类别取得记录集，返回执行成功与否，函数原型声明
  函数原型：　function Func_GetFuncByType ( ADOQueryF : TADOQuery; P_Type : string ) : boolean; stdcall;
  ========================================================================}
  Func_GetFuncByType,
  {=======================================================================
  函 数 名：  Func_SearchBySubject
  功　　能：　依据标题检索函数库，返回执行成功与否，函数原型声明
  函数原型：　function Func_SearchBySubject ( ADOQueryF : TADOQuery; P_Subject : string ) : boolean; stdcall;
  ========================================================================}
  Func_SearchBySubject,
  {=======================================================================
  函 数 名：  Func_GetIDSubList
  功　　能：　依据标题检索函数库，取得ID标题列表，返回执行成功与否，函数原型声明
  函数原型：　function Func_GetIDSubList ( ADOConnection: TADOConnection; SubKey : string;
              IDList, SubList: Tstrings) : boolean; stdcall;
  ========================================================================}
  Func_GetIDSubList,
  {=======================================================================
  函 数 名：  Func_GetIDListByType
  功　　能：　依据类别检索，取得ID标题列表，返回执行成功与否，函数原型声明
  函数原型：　function Func_GetIDListByType(ADOConnection: TADOConnection; P_Type: string;
              IDList, SubList: Tstrings): boolean; stdcall;
  ========================================================================}
  Func_GetIDListByType;

begin

end.