Page 222 - 捷運技術 第34期

212 鮑惠琳 電子化流程表單應用於臺北捷運工程之實例探討

(七) 表單可加任何電子檔案格式之附件檔傳遞，大幅增加電子表單之彈性（圖十三）。

圖十三、表單附加附件檔畫面

九、電子表單使用效益

本局在經過使用電子化表單後，在行政效率方面確有顯著成果，此外，尚有其他效益，
歸納如下：

(一) 表單以電子檔案傳送，減少使用紙張，朝無紙化之目標邁進，具有環保之效益。
(二) 結合本局自行開發之「訊息通知」功能，於收到表單時即可接到待辦表單的訊息通知，
提醒承辦人立即處理，若未能即時處理，定時再次提醒，表單上亦紀錄處理日期及時間，
可督促同仁於最短時間內處理完畢手中表單，避免積壓案件，提昇行政效率。

例：本局自行開發之「訊息通知」功能程式碼，執行結果如圖十四
Private Function chkWebFlow() As String

Dim strConn, strSql As String
strConn = "driver={SQL Server};server=WebFlow 資料庫伺服器名稱;uid=使用者帳
號;pwd=使用者密碼; database=WebFlow 資料庫名稱"
‘搜尋是否有電子表單待核章

‘B.cc='H'表示該電子表單目前處理狀態為處理中
‘HDDATE 欄空白（NULL）表示該電子表單在登入者這關尚未處理

strSql = "SELECT COUNT(A.logonid) FROM USERS A, WAITHANDLE B " & _
"WHERE A.LOGONID='" & 登入者之使用者帳號 & "' " & _
"AND A.USERID=B.USERID AND B.HDDATE IS NULL " & _
"AND B.cc='H'"

‘有電子表單待核章則送出訊息通知使用者
Dim rs As Object

Set rs = GetRecordset(strConn, strSql)