?? untfaced.pas
字號:
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失?。?#039;));
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失?。?#039;));
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -