正文 第33章 價值鏈會計信息交換係統開發案例(4)(1 / 2)

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(″錯誤!″,″憑證號未選擇!請確定需轉換的憑證編號。″)