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.