untfaced.pas

delphi制作的帮助学习软件

      if @FFunc_AddNew <> nil then
        result := FFunc_AddNew(ADOConnection, P_Type, P_Subject, P_Uses,
          P_Content, P_Remark)
      else
        ShowMsg(PChar('加载函数Func_AddNew失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_Edit
  功  能:    在表Func中更新一条记录，返回执行成功与否
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_Edit(ADOConnection: TADOConnection;
  P_ID: integer;
  P_Type, P_Subject, P_Uses, P_Content, P_Remark: string): boolean; stdcall;
var
  FHandle           : THandle;
  FFunc_Edit        : TFunc_Edit;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_Edit := GetProcAddress(FHandle, 'Func_Edit');
      if @FFunc_Edit <> nil then
        result := FFunc_Edit(ADOConnection, P_ID, P_Type, P_Subject, P_Uses,
          P_Content, P_Remark)
      else
        ShowMsg(PChar('加载函数Func_Edit失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_Delete
  功  能:    在表Func中删除一条记录，返回执行成功与否
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_Delete(ADOConnection: TADOConnection; P_ID: integer): boolean;
  stdcall;
var
  FHandle           : THandle;
  FFunc_Delete      : TFunc_Delete;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_Delete := GetProcAddress(FHandle, 'Func_Delete');
      if @FFunc_Delete <> nil then
        result := FFunc_Delete(ADOConnection, P_ID)
      else
        ShowMsg(PChar('加载函数Func_Delete失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_Find
  功  能:    在表Func中查找一条记录，返回执行成功与否
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_Find(ADOConnection: TADOConnection; P_ID: integer): boolean;
  stdcall;
var
  FHandle           : THandle;
  FFunc_Find        : TFunc_Find;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_Find := GetProcAddress(FHandle, 'Func_Find');
      if @FFunc_Find <> nil then
        result := FFunc_Find(ADOConnection, P_ID)
      else
        ShowMsg(PChar('加载函数Func_Find失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_FindType
  功  能:    在表Func中查找类别明细，返回执行成功与否
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_FindType(ADOConnection: TADOConnection; P_Type: string): boolean;
  stdcall;
var
  FHandle           : THandle;
  FFunc_FindType    : TFunc_FindType;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_FindType := GetProcAddress(FHandle, 'Func_FindType');
      if @FFunc_FindType <> nil then
        result := FFunc_FindType(ADOConnection, P_Type)
      else
        ShowMsg(PChar('加载函数Func_FindType失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_UpdateType
  功  能:    在表Func中批量更新类别
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_UpdateType(ADOConnection: TADOConnection; OldType, NewType:
  string): boolean; stdcall;
var
  FHandle           : THandle;
  FFunc_UpdateType  : TFunc_UpdateType;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_UpdateType := GetProcAddress(FHandle, 'Func_UpdateType');
      if @FFunc_UpdateType <> nil then
        result := FFunc_UpdateType(ADOConnection, OldType, NewType)
      else
        ShowMsg(PChar('加载函数Func_UpdateType失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_GetRecordByID
  功  能:    依据ID在FUNC中取回一条记录，返回记录是否存在
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_GetRecordByID(ADOConnection: TADOConnection;
  P_ID: integer;
  P_Type, P_Subject, P_Uses: PChar;
  P_Content, P_Remark: Tstrings): boolean; stdcall;
var
  FHandle           : THandle;
  FFunc_GetRecordByID: TFunc_GetRecordByID;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_GetRecordByID := GetProcAddress(FHandle, 'Func_GetRecordByID');
      if @FFunc_GetRecordByID <> nil then
        result := FFunc_GetRecordByID(ADOConnection, P_ID, P_Type, P_Subject,
          P_Uses, P_Content, P_Remark)
      else
        ShowMsg(PChar('加载函数Func_GetRecordByID失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_GetTypeByID
  功  能:    依据ID取回类别，返回记录是否存在
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_GetTypeByID(ADOConnection: TADOConnection; P_ID: Integer; P_Type:
  PChar): boolean; stdcall;
var
  FHandle           : THandle;
  FFunc_GetTypeByID : TFunc_GetTypeByID;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_GetTypeByID := GetProcAddress(FHandle, 'Func_GetTypeByID');
      if @FFunc_GetTypeByID <> nil then
        result := FFunc_GetTypeByID(ADOConnection, P_ID, P_Type)
      else
        ShowMsg(PChar('加载函数Func_GetTypeByID失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_GetFuncByType
  功  能:    依据类别取得记录集,返回执行成功与否
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_GetFuncByType(ADOQueryF: TADOQuery; P_Type: string): boolean;
  stdcall;
var
  FHandle           : THandle;
  FFunc_GetFuncByType: TFunc_GetFuncByType;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_GetFuncByType := GetProcAddress(FHandle, 'Func_GetFuncByType');
      if @FFunc_GetFuncByType <> nil then
        result := FFunc_GetFuncByType(ADOQueryF, P_Type)
      else
        ShowMsg(PChar('加载函数Func_GetFuncByType失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_SearchBySubject
  功  能:    依据标题检索函数库，返回执行成功与否
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_SearchBySubject(ADOQueryF: TADOQuery; P_Subject: string): boolean;
  stdcall;
var
  FHandle           : THandle;
  FFunc_SearchBySubject: TFunc_SearchBySubject;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_SearchBySubject := GetProcAddress(FHandle, 'Func_SearchBySubject');
      if @FFunc_SearchBySubject <> nil then
        result := FFunc_SearchBySubject(ADOQueryF, P_Subject)
      else
        ShowMsg(PChar('加载函数Func_SearchBySubject失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_GetIDSubList
  功  能:    依据标题检索，取得ID标题列表
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005-08-29
==========================================================================}

function Func_GetIDSubList(ADOConnection: TADOConnection; SubKey: string;
  IDList, SubList: Tstrings): boolean; stdcall;
var
  FHandle           : THandle;
  FFunc_GetIDSubList: TFunc_GetIDSubList;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_GetIDSubList := GetProcAddress(FHandle, 'Func_GetIDSubList');
      if @FFunc_GetIDSubList <> nil then
        result := FFunc_GetIDSubList(ADOConnection, SubKey, IDList, SubList)
      else
        ShowMsg(PChar('加载函数Func_GetIDSubList失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

{==========================================================================
  函数名:    Func_GetIDListByType
  功  能:    依据类别检索，取得ID标题列表
  参  数:    
  返回值:    
  作  者:    胡孟杰
  日  期:    2005.08.26
==========================================================================}

function Func_GetIDListByType(ADOConnection: TADOConnection; P_Type: string;
  IDList, SubList: Tstrings): boolean; stdcall;
var
  FHandle           : THandle;
  FFunc_GetIDListByType: TFunc_GetIDListByType;
begin
  result := false;
  FHandle := LoadLibrary('TType.dll');
  if FHandle <> 0 then
    begin
      @FFunc_GetIDListByType := GetProcAddress(FHandle, 'Func_GetIDListByType');
      if @FFunc_GetIDListByType <> nil then
        result := FFunc_GetIDListByType(ADOConnection, P_Type, IDList, SubList)
      else
        ShowMsg(PChar('加载函数Func_GetIDListByType失败！'));
    end
  else
    ShowMsg(PChar('加载TType.dll失败！'));
  FreeLibrary(FHandle);
end;

end.