EF2KEngine元件使用说明.docx
《EF2KEngine元件使用说明.docx》由会员分享，可在线阅读，更多相关《EF2KEngine元件使用说明.docx（60页珍藏版）》请在冰豆网上搜索。
EF2KEngine元件使用说明
EasyFlowEF2KEngine元件說明
物件清單：
Date物件－日期時間處理
函 式
說 明
dDates
把日期轉換為字串。
（YYYY/MM/DD）
dDateTimes
把日期時間轉換為字串。
（YYYY/MM/DDHH:
MM:
SS）
NowDate
以字串格式傳回Server目前的日期。
（YYYY/MM/DD）
NowDateTime
以字串格式傳回Server目前的日期時間。
（YYYY/MM/DDHH:
MM:
SS）
sDated
把字串轉換為日期。
sDates
把日期字串轉換為標準格式的日期字串。
sDateTimed
把字串轉換為日期時間。
sDateTimes
把日期時間字串轉換為標準格式日期時間字串。
ServerNow
以日期型態傳回Server目前的日期時間。
（與NowDateTime相同）
資料庫存取
函 式
說 明
CreateRecordset
根據所傳入的SQL指令傳回Recordset物件。
CreateRecordsetB
根據所傳入的SQL指令及OLE_DB或ODBC連接字串傳回Recordset物件。
UpdateRecordset
將Recordset更新至Default資料庫中對應的Records值。
UpdateRecordsetB
根據所指定的OLE_DB或ODBC連接字串，將Recordset更新至OLE_DB或ODBC所指定的外部資料庫中對應的Records值。
流程引擎
函 式
說 明
ExistSheetNo
檢查所傳入的表單代號及表單單號是否已存在。
FindAgentID
由員工代號找代理人，比對員工代號主檔resak。
FindBossID
由員工代號找直屬主管，比對員工代號主檔resak。
FindDeptAllMemberList
由部門代號找：
部門代號，部門簡稱，員工代號，員工姓名（此部門及所轄下級部門）。
FindDeptMemberList
由部門代號找：
部門代號，部門簡稱，員工代號，員工姓名（此部門所有員工，不含所轄下級部門）。
FindDeptAttrList
由部門屬性代號找：
部門屬性代號，部門屬性簡稱，部門代號，部門簡稱。
FindDeptDutyList
由部門代號，部門職務代號找：
部門職務代號，部門職務簡稱，員工代號，員工姓名，員工Email。
FindDeptDutyName
由部門職務代號找部門職務簡稱。
FindDeptMailRoomID
由部門代號找部門收發人員員工代號。
FindDeptManagerID
由部門代號找部門主管的員工代號。
FindDeptName
由部門代號找部門簡稱。
FindDeptPropertyName
由部門屬性代號找部門屬性簡稱。
FindDeptTitleList
由部門代號，部門職稱代號找：
部門職稱代號，部門職稱簡稱，員工代號，員工姓名，員工Email。
FindDeptTitleName
由部門職稱代號找部門職稱簡稱。
FindEmplDeptDutyID
由員工代號找員工部門職務代號。
FindEmplDeptTitleID
由員工代號找員工部門職稱代號。
FindEmplDeptID
由員工代號找員工部門代號。
FindEmplEMail
由員工代號找員工Email。
FindEmplName
由員工代號找員工姓名。
FindJobLevelList
由職等代號找：
員工代號，員工姓名，員工Email。
FindJobLevelName
由職等代號找職等簡稱。
FindGroupList
由多個員工代號找出員工代號、員工姓名及員工E-mail。
FindProjAllMemberList
由專案代號找：
專案代號，專案簡稱，員工代號，員工姓名。
（此專案及以下相關專案）。
FindProjAttrList
由專案屬性代號找：
專案屬性代號，專案屬性簡稱，專案代號，專案簡稱。
FindProjDutyList
由專案代號，專案職務代號找：
專案職稱代號，專案職稱簡稱，員工代號，員工姓名，員工Email。
FindProjDutyName
由專案職務代號找專案職務簡稱。
FindProjMailRoomID
由專案代號找專案收發人員員工代號。
FindProjManagerID
由專案代號找專案主管員工代號。
FindProjMemberList
由專案代號找：
專案代號，專案簡稱，員工代號，員工姓名。
FindProjName
由專案代號找專案簡稱。
FindProjPropertyName
由專案屬性代號找專案屬性簡稱。
FindProjTitleList
由專案代號，專案職稱代號找：
專案職稱代號，專案職稱簡稱，員工代號，員工姓名，員工Email。
FindProjTitleName
由專案職稱代號找專案職稱簡稱。
FindQueueName
由工作佇列代號找工作佇列簡稱。
FindSTDGroupList
由標準群組代號找：
標準群組代號，標準群組簡稱，員工代號，員工姓名，員工Email。
FindSTDGroupName
由標準群組代號找標準群組簡稱。
GetNewSheetNo
由表單代號自動計算表單單號。
GetSTDFormProperty
由表單代號找表單性質定義檔resca相關資料。
GetTRFormProperty
由表單代號，表單單號找表單流程異動主檔resda相關資料。
GetTRFlowProperty
由表單代號、表單單號、關號、支號，及流水號找表單流程異動子檔（resdb），和表單流程異動簽核明細檔（resdd）
GetLoginData
由使用者員工代號，傳回NT網域名稱及NT網域帳號。
GetFormRemark
由輸入的表單代號及單號，得到該表單的Remark值（只要表單流程一改變，Remark就會往上累加。
當同時有兩個人同時使用表單，且任何一人改變流程時，後面存檔的使用者，會由於因為Remark值已改變，而無法寄出該表單）。
CheckInbox
由EasyFlow的虛擬網站名稱、NT網域名稱、NT網域帳號找到該員工所有未簽核且顯示在該員工的信箱中的，簽核的表單流程異動明細簽核檔。
CheckReply
由EasyFlow的虛擬網站名稱、NT網域名稱、NT網域帳號，找到該員工所有會顯示在回函信箱中的表單的表單代號及單號。
其他
函 式
說 明
FormatSTR
將所傳入的參數，以標準格式傳回（同Vb的Format）。
ExecProgram
執行外部程式。
範例說明：
●定義objRE為EF2KEngine的物件：
Server的物件開啟方式：
dimobjRE
setobjRE=Server.CreateObject（"EF2KEngine.Class1"）
Client的物件開啟方式：
dimADC,objRE
setADC=CreateObject（"RDS.Dataspace"）
setobjRE=ADC.CreateObject（"EF2KEngine.Class1",
"<%=Session（"http"）%><%=Request.ServerVariables（"SERVER_NAME"）%>"）
●以下範例程式要能正確執行，先決條件是已開啟ObjRE元件。
●ODBC設定請參照附錄A
Date物件：
dDates
功能：
將日期型態變數轉換為yyyy/mm/dd格式的字串。
語法：
FunctiondDates（ByValvDateAsDate）AsString
參數：
vDate：
一日期型態變數
範例：
Server端
Client端
DimstrDate
strDate=objRE.dDates（Date）
傳回值：
傳回yyyy/mm/dd格式的字串。
dDateTimes
功能：
將日期型態變數轉換為yyyy/mm/ddhh:
mm:
ss格式的字串。
語法：
FunctiondDateTimes（ByValvDateTimeAsDate）AsString
參數：
vDate：
一日期型態變數
範例：
Server端
Client端
DimstrDateTime
strDateTime=objRE.dDateTimes（Now）
傳回值：
傳回yyyy/mm/ddhh:
mm:
ss格式的字串。
NowDate
功能：
以yyyy/mm/dd格式的字串傳回Server的日期。
語法：
FunctionNowDate（）AsString
參數：
無
範例：
Server端
Client端
DimstrDate
strDate=objRE.NowDate（）
傳回值：
傳回yyyy/mm/dd格式的字串。
NowDateTime
功能：
以yyyy/mm/ddhh:
mm:
ss格式的字串傳回Server的日期/時間。
語法：
FunctionNowDateTime（）AsString
參數：
無
範例：
Server端
Client端
DimstrDateTime
strDateTime=objRE.NowDateTime（）
傳回值：
傳回yyyy/mm/ddhh:
mm:
ss格式的字串。
sDated
功能：
轉換日期字串為日期型態變數。
語法：
FunctionsDated（ByValvDateStringAsString,ByRefvDateAsDate）AsBoolean
參數：
vDateString：
日期字串
vDate﹔接收所傳回的日期型態變數
範例：
Server端
Client端
Dimbln,dDate
bln=objRE.sDated（“1998/12/7”,dDate）
結果：
bln=true
dDate=1998/12/07
傳回值：
1.日期轉換成功則傳回True否則傳回False。
2.傳換為字串型態的日期字串。
sDates
功能：
把日期字串轉換為標準格式的日期字串。
語法：
FunctionsDates（ByRefvDateStringAsString）AsBoolean
參數：
vDateString：
一個可以轉換為標準格式的日期字串，可傳入”NOW”，
”YES”，”TOM”三個內定字串，分別取得今天、昨天、和明天的標準格式的日期字串。
【備註】：
標準格式的日期（YYYY/MM/DD）：
例：
將1999/1/1轉為1999/01/01
範例1：
Server端
Client端
DimstrDate,bln
strDate=”1999/1/1”
bln=objRE.sDates（strDate）
範例2：
Server端
Client端
DimstrDate,bln
strDate=”yes”‘表示要取得昨天標準格式之日期字串
bln=objRE.sDates（strDate）
傳回值：
日期轉換成功傳回True，否則傳回False。
注意事項：
ASP\CHT\Program\util\Datetime.asp下也有sDates的函數，此元件是將日期字串轉為標準格式的日期字串，成功時，傳回一標準格式的日期字串。
sDateTimed
功能：
把日期/時間字串轉換為日期型態的日期/時間。
語法：
FunctionsDateTimed（ByValvDateTimeStringAsString,ByRefvDateTimeAsDate）AsBoolean
參數：
vDateTimeString：
日期時間字串
vDateTime:
接收所傳回的日期/時間型態變數
範例：
Server端
Client端
Dimbln,dDateTime
bln=objRE.sDateTimed（“1998/3/513:
05:
36”,dDateTime）
結果：
bln=true
dDateTime=1998/03/0513:
05:
36
傳回值：
1.轉換成功傳回True，否則傳回False。
2.轉換為日期型態的值。
sDateTimes
功能：
把日期/時間字串轉換為標準格式日期/時間字串。
語法：
FunctionsDateTimes（ByRefvDateTimeStringAsString）AsBoolean
參數：
vDateTimeString：
一個可以轉換為標準格式的日期/時間字串，可傳入”NOW”這個內定字串取得現在標準格式之日期/時間字串。
【備註】：
標準格式的日期/時間（YYYY/MM/DD HH:
MM:
SS）：
例：
將1999/1/110:
2:
40轉為1999/01/0110:
02:
40
範例1：
Server端
Client端
DimstrDateTime,bln
strDateTime=”1999/1/110:
2:
40”
bln=objRE.sDateTimes（strDateTime）
範例2：
Server端
Client端
DimstrDateTime,bln
strDateTime=”now”
bln=objRE.sDateTimes（strDateTime）
傳回值：
轉換成功則傳回True否則傳回False。
注意事項：
ASP\CHT\Program\util\Datetime.asp下也有sDateTimes的函數，此元件是將日期/時間字串轉為標準格式的日期/時間字串，成功時，傳回一標準格式的日期/時間字串。
ServerNow（功能、語法及傳回值皆同NowDateTime）
範例：
Server端
Client端
DimstrDateTime
strDateTime=objRE.NowDateTime（）
資料庫存取物件：
.CreateRecordset
功能：
根據所傳入的SQL指令傳回Recordset物件。
語法：
FunctionCreateRecordset（ByValstrSQLAsString,ByValstrProcIDAsString）AsADODB.Recordset
參數：
strSQL：
欲選取的資料的SQL語法
1.可以依所需要，使用適當的where，orderby……等字句。
2.只Select所需要的欄位，以節省往返資料庫的存取時間。
strProcID：
ProcessID（String型態）
範例：
Server端:
DimstrSQL,strProcID,rs
strSQL=“Select*Fromtable1”‘strSQL為SQL指令字串
strProcID=Session（"strProcID"）
Setrs=ObjRE.CreateRecordset（strSQL,strProcID）
Client端:
DimstrSQL,strProcID,rs
strSQL=“Select*Fromtable1”‘strSQL為SQL指令字串
strProcID=“<%=Session（"strProcID"）%>”
Setrs=ObjRE.CreateRecordset（strSQL,strProcID）
傳回值：
ADODB.Recordset
CreateRecordsetB
功能：
根據所傳入的SQL指令及OLE_DB或ODBC連接字串傳回Recordset物件。
語法：
FunctionCreateRecordsetB（ByValstrSQLAsString,ByValstrConnAsString）AsADODB.Recordset
參數：
strSQL：
欲選取的資料的SQL語法
strConn：
OLE_DB或ODBC連接字串
範例1（OLE_DB）：
Server端
Client端
DimstrSQL,strConn,rs
strSQL=“Select*Fromtable1”
strConn="driver={SQLServer};server=（local）;database=DB1"
Setrs=ObjRE.CreateRecordsetB（strSQL,strConn）
範例2（ODBC）：
Server端
Client端
DimstrSQL,strConn,rs
strSQL=“Select*Fromtable1”
strConn="DSN=EF2Kweb;uid=sa;pwd"
Setrs=ObjRE.CreateRecordsetB（strSQL,strConn）
傳回值：
ADODB.Recordset。
UpdateRecordset
功能：
根據所傳入的Recordset更新相關資料。
語法：
FunctionUpdateRecordset（rstAsVariant,ByValstrProcIDAsString）AsVariant
參數：
rst：
欲更改的Recordset的新資料
strProcID：
ProcessID（String型態）
範例：
Setrs=objDB.CreateRecordset（SQL,Session（"strProcID"））
rs（“欄位1”）=“……”
rs（“欄位2”）=“……”
………
………
………
setrs=ObjRE.UpdateRecordset（rs,Session（"strProcID"））
傳回值：
若失敗會傳回ErrorEvent。
UpdateRecordsetB
功能：
根據所指定的OLE_DB或ODBC連接字串，更新Recordset。
語法：
FunctionUpdateRecordsetB（rstAsVariant,ByValstrConnAsString）AsVariant
參數：
rst：
欲更改的Recordset的新資料
strConn：
OLE_DB或ODBC連接字串
範例：
Setrs=objDB.CreateRecordset（SQL,Session（"strProcID"））
rs（“欄位1”）=“……”
rs（“欄位2”）=“……”
………
………
………
strConn="driver={SQLServer};server=（local）;database=DB1"
setrs=objDB.UpdateRecordsetB（rs,strConn）
傳回值：
若失敗會傳回ErrorEvent。
流程引擎物件：
ExistSheetNo
功能：
檢查所傳入的表單代號及表單單號是否已存在。
語法：
FunctionExistSheetNo（ByValstrFormIDAsString,_
ByValstrSheetNoAsString,ByValstrProcIDAsString）AsBoolean
參數：
strFormID：
表單代號
strSheetNo：
表單單號
strProcID：
ProcessID（String型態）
範例：
FormID="<%=Session（"FormID"）%>"
SheetNo="<%=Session（"SheetNo"）%>"
strProcID="<%=Session（"strProcID"）%>"
ObjRE.ExistSheetNo（FormID,SheetNo,strProcID）
傳回值：
若已存在則傳回True，否則傳回False。
FindAgentID
功能：
由員工代號找代理人員工代號（resak009）。
語法：
FunctionFindAgentID（ByValstrUserIDAsString,ByValstrProcIDAsString）AsString
參數：
strUserID：
員工代號
strProcID：
ProcessID（String型態）
範例：
strUserID="<%=Session（"strUserID"）%>"
strProcID="<%=Session（"strProcID"）%>"
ObjRE.FindAgentID（strUserID,strProcID）
傳回值：
字串。
FindBossID
功能：
由員工代號找直屬主管，比對員工代號主檔resak（resak013）。
語法：
FunctionFindBossID（ByValstrUserIDAsString,ByValstrProcIDAsString）AsString
參數：
strUserID：
員工代號
strProcID：
ProcessID（String型態）
範例：
Server端:
DimstrUserID,strProcID
strUserID=Session（"strUserID"）
strProcID=Session（"strProcID"）
ObjRE.FindBossID（strUserID,strProcID）
Client端:
DimstrUserID,strProcID
strUserID="<%=Session（"strUserID"）%>"
strProcID="<%=Session（"strProcID"）%>"
ObjRE.FindBossID（strUserID,strProcID）
傳回值：
字串。
FindDeptAllMemberList
功能：
由部門代號找：
部門代號，部門簡稱，員工代號，員工姓名。
（此部門及所轄下級部門）
語法：
FunctionFindDeptAllMemberList（ByValstrDeptIDAsString,_
ByValstrProcID
升级会员 