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

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″ &