untface.pas

delphi7,源代码 主要的是进行DELPHI7的源代码进行管理和维护

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

unit UntFace;

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

interface

{==========================================================================
     参数声明所需引用的单元
==========================================================================}

uses
  SysUtils, Variants, Classes, ADODB;

{==========================================================================
    接口函数原型声明
==========================================================================}

//向表Type中插入一条记录，函数原型声明
function Type_AddNew(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall; external 'TType.dll';
//向表Type中更新一条记录，函数原型声明
function Type_Edit(ADOConnection: TADOConnection; OldType, P_Type: string):
  boolean; stdcall; external 'TType.dll';
//向表Type中删除一条记录，函数原型声明
function Type_Delete(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall; external 'TType.dll';
//在表Type中查找一条记录，函数原型声明
function Type_Find(ADOConnection: TADOConnection; P_Type: string): boolean;
stdcall; external 'TType.dll';
//取回类别列表，返回执行成功与否，函数原型声明
function Type_GetTypeList(ADOConnection: TADOConnection; TypeList: Tstrings):
  boolean; stdcall; external 'TType.dll';
//在表Func中插入一条记录，返回执行成功与否，函数原型声明
function Func_AddNew(ADOConnection: TADOConnection;
  P_Type, P_Subject, P_Uses, P_Content, P_Remark: string): boolean; stdcall;
external 'TType.dll';
//在表Func中更新一条记录，返回执行成功与否，函数原型声明
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中删除一条记录，返回执行成功与否，函数原型声明
function Func_Delete(ADOConnection: TADOConnection; P_ID: integer): boolean;
stdcall; external 'TType.dll';
//在表Func中查找一条记录，返回执行成功与否，函数原型声明
function Func_Find(ADOConnection: TADOConnection; P_ID: integer): boolean;
stdcall; external 'TType.dll';
//在表Func中查找类别明细，返回执行成功与否，函数原型声明
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';
//依据ID在FUNC中取回一条记录，返回记录是否存在，函数原型声明
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';
//依据ID取回类别，返回记录是否存在，函数原型声明
function Func_GetTypeByID(ADOConnection: TADOConnection; P_ID: Integer; P_Type:
  PChar): boolean; stdcall; external 'TType.dll';
//依据类别取得记录集,返回执行成功与否，函数原型声明
function Func_GetFuncByType(ADOQueryF: TADOQuery; P_Type: string): boolean;
stdcall; external 'TType.dll';
//依据标题检索函数库，返回执行成功与否
function Func_SearchBySubject(ADOQueryF: TADOQuery; P_Subject: string): boolean;
stdcall; external 'TType.dll';
//依据标题检索，取得ID标题列表
function Func_GetIDSubList(ADOConnection: TADOConnection; SubKey: string;
  IDList, SubList: Tstrings): boolean; stdcall; external 'TType.dll';
//依据类别检索，取得ID标题列表
function Func_GetIDListByType(ADOConnection: TADOConnection; P_Type: string;
  IDList, SubList: Tstrings): boolean; stdcall; external 'TType.dll';

{==========================================================================
                        单元实现部分
==========================================================================}

implementation

end.