?? globalunit.~pas
字號:
unit GlobalUnit;
interface
uses
adodb;
type
PAccessoryInfo=^TAccessoryInfo;
TAccessoryInfo=record
imenutag:integer;////菜單編號
strName:string;//////附件菜單對應的文件名
strPath:string;//////附件菜單對應的文件路徑
end;
Tdepart=record
unit_id:integer;//分公司編號
strName:string;//分公司名稱
end;
function GetFileName(strPathName:string):string;
function GetFileExt(strFileName:string;var strFileTitle:string):string;
var
G_AdoConnection:TAdoConnection;
OpenFlag:integer;//打開人員選擇標記標志:1:會稿人;2:核稿人;3:審稿人;4閱稿人;
///////////////////ent_file表的當前記錄數據
unit_id: Integer; //分公司號
iindex: Integer; //文件編號
title: String; //文件標題
path: String; //文件名
creater: String; //文件的創建者
time: TDateTime; //文件的創建時間
iclass: Integer; //文件分類號
memo: String; //文件說明
//////////////////////////////////////////////////
ServerName:string;//服務器機器名
//////////////登錄信息記錄
g_unit_id:Integer;
g_user_id:String;
g_user_name:string;
g_password:String;
g_level:integer; //權限,能否看所有文件
/////////////////////////////////////////////////
//////////當前文檔對應的附件列表
g_accessoryinfo:Array of TAccessoryInfo;
g_ACnt:integer;//附件個數
/////////////////////////////////////////////
///////////樹形控件的狀態
g_iLevel:integer;
g_itreeindex:integer;
g_iparentindex:integer;
/////////////////////////////////////////////
unit_id_group:Array of Tdepart; // 分公司代碼表
unit_id_Cnt:integer; //分公司個數據
implementation
function GetFileName(strPathName:string):string;
var
i:integer;
strPath:string;
begin
strPath:= strPathName;
i:=Pos('\',strPath);
while i<>0 do
begin
delete(strPath,1,i);
i:=Pos('\',strPath);
end;
result:=strPath;
end;
function GetFileExt(strFileName:string;var strFileTitle:string):string;
var
i:integer;
strPath:string;
begin
strPath:= strFileName;
i:=Pos('.',strPath);
while i<>0 do
begin
strFileTitle:=strFileTitle+copy(strPath,1,i);
delete(strPath,1,i);
i:=Pos('.',strPath);
end;
delete(strFileTitle,length(strFileTitle),1);
result:=strPath;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -