Page 218 - 捷運技術 第34期

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

session("電話號碼") = rs("電話號碼")

session("電話分機") = rs("電話分機")
session("e_mail 帳號") = rs("e_mail 帳號")

if rs.eof and rs.bof then
rs.close

end if
%>

圖四、擷取人事管理系統已建立之資料顯示於表單畫面

(五) 與現有管理資訊系統緊密結合，表單填寫之資料適時回饋相關之應用系統，避免重覆輸
入，維持資料之一致性，例如本局「電子信箱帳號修改申請單」核准後會自動修改「人
事管理系統」內之電子信箱帳號資料，訓練請假作業相關表單奉核後亦會自動修改「教
育訓練管理系統」內之上課學員資料。

例：「電子信箱帳號修改申請單」核准後自動修改「人事管理系統」之電子信箱帳號
資料程式碼
<%

'陳核關卡 1-V 為人事室人事資料管理員,該員送出表單後系統自動更新人事系統
e-mail 資料
if (session("wf_steps")) = "陳核關卡 1-V" then

set rs = Server.CreateObject("ADODB.Recordset")
SQL = "update aa.t_empl_data set e_mail = '" & LCase(session("e_mail"))& "'
where empl_nmbr = '" & session("empl_nmbr") & "'"

Set rs = OraConn1.Execute(SQL)
rs.close

end if
%>