unttfuncface.pas

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

{*******************************************************}
{                                                       }
{       单元名称: 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