em_date.y=dw_pz0.y+dw_pz0.height+100
em_bill.y=dw_pz0.y+dw_pz0.height+100
st_number.y=dw_pz0.y+dw_pz0.height+100
st_3.y=dw_pz0.y+dw_pz0.height+100
st_7.y=dw_pz0.y+dw_pz0.height+100
st_15.y=dw_pz0.y+dw_pz0.height+100
st_17.y=dw_pz0.y+dw_pz0.height+100
st_19.y=dw_pz0.y+dw_pz0.height+100
st_20.y=dw_pz0.y+dw_pz0.height+100
st_21.y=dw_pz0.y+dw_pz0.height+100
st_8.y=dw_pz0.y+dw_pz0.height+100
tab_1.x=dw_pz0.width+dw_pz0.x+50
tab_1.height=dw_pz0.height
3.“保存轉換文件路徑及文件名”按鈕(cb_1)的鼠標單擊(cilcked)事件代碼:要求檢驗用戶輸入的文件路徑及文件名的正確性,對正確的輸入內容予以確認和保存。
long filepointer
string readstring,ufservername,ufsapassword
filepointer=FileOpen( getcurrentdirectory()+″\fibank_uffile.ini″, &
LineMode!, write!, LockReadWrite!, Replace!)
ufservername=″path=″+trim(SLe_1.TEXT)
ufsapassword=″filename=″+trim(sle_2.text)
filewrite(filepointer, ufservername)
filewrite(filepointer, ufsapassword)
fileclose(filepointer)
messagebox(″提示!″,″已保存轉換文件的路徑及文件名!″)
4.“憑證轉換”按鈕(cb_3)的鼠標單擊(cilcked)事件代碼:逐張憑證進行識讀,按要求轉換為要求的數據格式,保存到指定的文件。
//檢驗所選憑證範圍的正確性
if trim(tab_1.tabpage_1.em_2.text)=″″ or isnull(tab_1.tabpage_1.em_2.text) or &
trim(tab_1.tabpage_1.em_3.text)=″″ or isnull(tab_1.tabpage_1.em_3.text) then
messagebox(″錯誤!″,″憑證號未選擇!請確定需轉換的憑證編號。″)