filepointer=FileOpen( getcurrentdirectory()+&
″\fibank_ufserver.ini″, LineMode!, write!, &
LockReadWrite!, Replace!)
ufservername=″server=″+trim(sle_2.text)
ufsapassword=″password=″+trim(sle_3.text)
ufdatabasename=″databasename=ufdata_″+trim(sle_1.text)+″_″+currentyear
filewrite(filepointer, ufservername)
filewrite(filepointer, ufsapassword)
filewrite(filepointer, ufdatabasename)
fileclose(filepointer)
messagebox(″用友!″,"連接用友數據庫服務器成功,+&
並已保存連接參數!")
end if
disconnect using sqlyear;
destroy sqlyear
二 憑證轉換窗口的數據窗口設計
本程序有一個主要的數據窗口,用以支持“讀取記賬憑程序”程序窗口和“記賬憑證轉換程序”程序窗口的數據窗口對象。該數據窗口設計內容如下:
1.數據窗口名稱:dw_pzold;
2.數據源(SQL語句):SELECT fipz.pzdate, fipz.yue, fipz.pztype, fipz.number, fipz.zdy FROM fipz;
3.源代碼:
release 9;
datawindow(units=0 timer_interval=1 color=134217752 &
processing=1 HTMLDW=noprint.printername=″″ &
print.documentname=″″ print.orientation=0 print.margin&
.left=110print.margin.right=110 print.margin.top=96 &
print.margin.bottom=96 print.paper.source=0 &
print.paper.size=0 print.canusedefaultprinter=yes &
print.prompt=no print.buttons=no print.preview.buttons=no &
print.cliptext=no print.overrideprintjob=no print.collate=yes&
hidegrayline=no grid.lines=0 )
header(height=92 color=″536870912″ )
summary(height=0 color=″536870912″ )
footer(height=0 color=″536870912″ )
detail(height=104 color=″536870912″ )
table(column=(type=datetime update=yes updatewhereclause=yes &
name=pzdatedbname=″fipz.pzdate″ )
column=(type=char(2) update=yes updatewhereclause=yes &
name=yue dbname=″fipz.yue″ )
column=(type=char(1) update=yes updatewhereclause=yes &
name=pztype dbname=″fipz.pztype″ )
column=(type=char(4) update=yes updatewhereclause=yes &
name=number dbname=″fipz.number″ )
column=(type=char(8) update=yes updatewhereclause=yes &
name=zdy dbname=″fipz.zdy″ )
retrieve=″PBSELECT(VERSION(400) TABLE(NAME=~″fipz~″)&
COLUMN(NAME=~″fipz.pzdate~″) &
COLUMN(NAME=~″fipz.yue~″)&
COLUMN(NAME=~″fipz.pztype~″) &
COLUMN(NAME=~″fipz.number~″)&
COLUMN(( (NAME=~″fipz.zdy~″)) ″ )
text(band=header alignment=″2″ text=″製單員″ border=″0″ &
color=″33554432″ x=″1879″ y=″8″ height=″76″ width=″393″&
html.valueishtml=″0″ name=zdy_t visible=″1″ font.face=″Arial″&
font.height=″-12″ font.weight=″400″font.family=″2″ &