vb-6之?dāng)?shù)據(jù)報(bào)表使用技巧

1、精選優(yōu)質(zhì)文檔傾情為你奉上精選優(yōu)質(zhì)文檔傾情為你奉上專心專注專業(yè)專心專注專業(yè)精選優(yōu)質(zhì)文檔傾情為你奉上專心專注專業(yè)vb 6之?dāng)?shù)據(jù)報(bào)表使用技巧 vb 6.0專業(yè)版和企業(yè)版中的數(shù)據(jù)報(bào)表設(shè)計(jì)器與數(shù)據(jù)環(huán)境設(shè)計(jì)器是數(shù)據(jù)訪問的新內(nèi)容。msdn 所提供的prjnwind.vbp 示例工程在設(shè)計(jì)階段（design time）就已將dataenvironment設(shè)為datareport的數(shù)據(jù)源，并將打印格式也設(shè)好，這種做法不太利于程序的通用性。當(dāng)然，我們也可以對(duì)dataenvironment編程，在運(yùn)行階段（run time）控制數(shù)據(jù)源。其實(shí)，datareport可以完全脫離dataenvironment，而打印由動(dòng)

2、態(tài)sql生成的recordset。實(shí)現(xiàn)代碼如下：private sub datareport_initialize() dim adoconnectionx as new adodb.connectiondim adorecordsetx as new adodb.recordsetadoconnectionx.openprovider=microsoft.jet.oledb.3.51;persist security info=false;data source= app.path xxx.mdbadorecordsetx.open select from表名, adoconnectionx

3、set datareportx.datasource = adorecordsetx 設(shè)置 datareport 的數(shù)據(jù)源 由vb 6 所提供的datareport.sections.item(index).controls.item(index).這樣的語法不太利于編程控制數(shù)據(jù)報(bào)表設(shè)計(jì)器的專用控件的位置、大小等各種屬性。但是，我們可以編程根據(jù)控件所在區(qū)域（section）和所屬類別等將它們分成若干集合（collection），然后通過控制集合的元素來控制其所代表的控件。當(dāng)然，在設(shè)計(jì)階段我們要將足夠多的控件繪制到datareport上備用。實(shí)現(xiàn)的主要部分代碼如下：根據(jù)控件所在區(qū)域（sectio

4、n）和所屬類別分集合（collection）dim rhsec4_rptlbl_collection as new collection 頁標(biāo)頭(pageheader)區(qū)域 shape(rptshape) 控件集合dim phsec2_rptshp_collection as new collection細(xì)節(jié)(detail)區(qū)域 textbox(rpttextbox) 控件集合dim dsec1_rpttxt_collection as new collectiondim ctl as objectfor each ctl in me.sections.item(section1).contr

5、ols section1 select case typename(ctl) case rptlabeldsec1_rptlbl_collection.add ctl ctl.caption = case rptshapedsec1_rptshp_collection.add ctl case rpttextboxctl.datafield = adorecordset.fields.item(0).name 先將所有textbox(rpttextbox) 控件綁定到某一字段，否則報(bào)錯(cuò)！dsec1_rpttxt_collection.add ctlend selectctl.visible =

6、 falsenext ctl以下通過控制集合的元素來準(zhǔn)確有效的控制這些元素所代表的控件。dim i as integerdim bfmt as stddataformat 定義布爾(boolean)型字段的數(shù)據(jù)格式set bfmt = new stddataformatbfmt.type = fmtbooleanbfmt.truevalue = 是bfmt.falsevalue = 否for i = 0 to 5 只打印前幾個(gè)字段，shape(rptshape) 控件用來顯示單元格，頁標(biāo)頭(pageheader)區(qū)域：顯示列表頭(caption)with phsec2rptshpcollect

7、ion.item(i 1) 單元格 .visible = true if i = 0 then .left = 0 else .left = phsec2rptshpcollection.item(i).left phsec2rptshpcollection.item(i).width end if .top = 0 .height = 400 可根據(jù)字體設(shè) 單位：緹字體的高度(單位：緹)可使用 form、picturebox 的textheight 方法或 api 獲得 .width = 1500 這里可根據(jù)實(shí)際情況用數(shù)組分別設(shè)置各列的列寬end withwith phsec2rptlblc

8、ollection.item(i 1) 列表頭標(biāo)題(caption) .left = phsec2rptshpcollection.item(i 1).left 100 .top = phsec2rptshpcollection.item(i 1).top 100 .height = phsec2rptshpcollection.item(i 1).height 180 .width = phsec2rptshpcollection.item(i 1).width 200 .caption = adorecordsetx.fields.item(i).name .alignment = rpt

9、justifycenter .visible = trueend with細(xì)節(jié)(detail)區(qū)域顯示：with dsec1rptshpcollection.item(i 1) 單元格 if i = 0 then dsec1rptshpcollection.item(i 1).left = 0 else.left = dsec1rptshpcollection.item(i).left dsec1rptshpcollection.item(i).width end if .top = 0 .height = phsec2rptshpcollection.item(i 1).height .wi

10、dth = phsec2rptshpcollection.item(i 1).width .visible = trueend withwith dsec1rpttxtcollection.item(i 1) 數(shù)據(jù) .height = dsec1rptshpcollection.item(i 1).height 180 .left = dsec1rptshpcollection.item(i 1).left 100 .top = dsec1rptshpcollection.item(i 1).top 100 .width = dsec1rptshpcollection.item(i 1).wi

11、dth 200 .datafield = adorecordsetx.fields.item(i).name 重新綁定字段 select case adorecordsetx.fields.item(i).type 可根據(jù)字段數(shù)據(jù)類型設(shè)置數(shù)據(jù)格式 case adbigint, adinteger, adsmallint .dataformat.format = ,0 數(shù)字 .alignment = rptjustifyright case adboolean set .dataformat = bfmt 布爾型字段設(shè)為自定義格式.alignment = rptjustifycenter cas

12、e adcurrency.dataformat.format = ,0.00 貨幣 .alignment = rptjustifyright case addate, addbdate, addbtimestamp.dataformat.format = long date 日期、時(shí)間 .alignment = rptjustifyright case else 其它,如:文本等.alignment = rptjustifyleft end select.visible = trueend withnext idatareport1.sections.item(section2).height

13、 = 400datareport1.sections.item(section1).height = 400end sub 該方案在pwin 9.x 和vb 6.0下通過。如果要打印分級(jí)（層）recordset ，還要在datareport 上增加分組標(biāo)頭和分組注腳區(qū)等，并根據(jù)控件的具體功能、用途為其定義各類控件集合，設(shè)計(jì)出更復(fù)雜的報(bào)表。 真正好的朋友，從來不需要這些表面功夫。走在這漫漫俗塵，形如微塵的我們，每天忙碌的像只螻蟻，哪有時(shí)間去整那些虛假的表面文章。那些沉淀在歲月里的真情實(shí)意，哪一個(gè)不是無事各自忙，有事時(shí)，卻又從不問回報(bào)幾何的真心相助？至于那些平日里看上去可以一起打鬧，一起吃喝，一起

14、廝混，看似好成一片的人，或許，只是你在多少次的四目相對(duì)之時(shí)，動(dòng)了真心，存了真義，是你默默認(rèn)定對(duì)方可稱朋友，有困難的時(shí)候是你愿意伸以援手，但未必對(duì)方一樣。多少看似熱情的人，內(nèi)心是薄情的。而多少看似淡漠的人，內(nèi)心實(shí)則一片溫?zé)帷Ｄ切┍砻鏌嵴\的人，總是相安無事各自好，一旦你有事需要援助，別說大事，就是小事需代勞，你都會(huì)發(fā)現(xiàn)原來不過情比紙薄，對(duì)方遠(yuǎn)比你自己想的要現(xiàn)實(shí)的多。有些人，自從與你接近，內(nèi)心就存有一份自己的打算。定是你于他而言，多少有些可用之處。正所謂無事獻(xiàn)殷勤，非奸即盜。在這個(gè)功利心彌漫的世態(tài)下，沒有哪一份意外的熱情不無所圖。不僅是職場(chǎng)如此，男人如此，就連女人也不能免俗。接孩子的時(shí)候，被困高層電

15、梯下不來，一個(gè)電話打來，希望能幫忙照看一下放學(xué)的孩子。實(shí)在的人總是把別人毫不見外的信任，當(dāng)作是一種榮幸，于是想都不用想就能一口答應(yīng)。可當(dāng)你有事需要對(duì)方只是代筆簽個(gè)字這樣的舉手之勞時(shí)，對(duì)方都能各種不情愿各種推脫，至此你終是發(fā)現(xiàn)，原來人與人之間真不是一杯換一盞的事兒。關(guān)鍵時(shí)刻，還是得找那些看似平時(shí)不聯(lián)系，但一開口能力范圍之內(nèi)就愿意為你想辦法的人。多少人天真的以為，認(rèn)識(shí)的人越多，人脈就越廣，自己就越厲害，其實(shí)，那些所謂的人脈，不過廉價(jià)。倘若你沒有同等的利用價(jià)值，誰會(huì)與你建立起所謂的交際？最是談錢傷感情，也最是感情不值錢。別結(jié)識(shí)了比自己優(yōu)秀比自己有能力的人，就覺得有了依靠有了光環(huán)，自己不足夠優(yōu)秀，結(jié)識(shí)

16、誰都沒有用。在你困難需求的時(shí)候，你開口求助，能夠推脫敷衍那算給面子，對(duì)你閉門不見佯裝不熟也是情理之中。日久見人心，患難見真情。平時(shí)是平時(shí)，別把平時(shí)當(dāng)真情。這世上多少人變臉如翻書，有求于你一個(gè)樣，各自安好一個(gè)樣，最是有求于他嘴臉陋，讓你瞬間就明白，何謂人情涼薄。隨著年齡的增長(zhǎng)，人心的不再純澈，人與人之間的交往就不再那么的純粹而真心了。也正是因?yàn)槿绱?，才更要珍惜那些默默守護(hù)在你生活中的朋友。別看平時(shí)忙的少有見面，少有聊天，就連微信，都少有私信。但有事兒的時(shí)候，只一聲招呼，誰能出力都會(huì)挺身而出，義不容辭。真正好的朋友，從來不需要這些表面功夫。走在這漫漫俗塵，形如微塵的我們，每天忙碌的像只螻蟻，哪有時(shí)

17、間去整那些虛假的表面文章。那些沉淀在歲月里的真情實(shí)意，哪一個(gè)不是無事各自忙，有事時(shí)，卻又從不問回報(bào)幾何的真心相助？至于那些平日里看上去可以一起打鬧，一起吃喝，一起廝混，看似好成一片的人，或許，只是你在多少次的四目相對(duì)之時(shí)，動(dòng)了真心，存了真義，是你默默認(rèn)定對(duì)方可稱朋友，有困難的時(shí)候是你愿意伸以援手，但未必對(duì)方一樣。多少看似熱情的人，內(nèi)心是薄情的。而多少看似淡漠的人，內(nèi)心實(shí)則一片溫?zé)?。那些表面熱誠的人，總是相安無事各自好，一旦你有事需要援助，別說大事，就是小事需代勞，你都會(huì)發(fā)現(xiàn)原來不過情比紙薄，對(duì)方遠(yuǎn)比你自己想的要現(xiàn)實(shí)的多。有些人，自從與你接近，內(nèi)心就存有一份自己的打算。定是你于他而言，多少有些可

18、用之處。正所謂無事獻(xiàn)殷勤，非奸即盜。在這個(gè)功利心彌漫的世態(tài)下，沒有哪一份意外的熱情不無所圖。不僅是職場(chǎng)如此，男人如此，就連女人也不能免俗。接孩子的時(shí)候，被困高層電梯下不來，一個(gè)電話打來，希望能幫忙照看一下放學(xué)的孩子。實(shí)在的人總是把別人毫不見外的信任，當(dāng)作是一種榮幸，于是想都不用想就能一口答應(yīng)?？僧?dāng)你有事需要對(duì)方只是代筆簽個(gè)字這樣的舉手之勞時(shí)，對(duì)方都能各種不情愿各種推脫，至此你終是發(fā)現(xiàn)，原來人與人之間真不是一杯換一盞的事兒。關(guān)鍵時(shí)刻，還是得找那些看似平時(shí)不聯(lián)系，但一開口能力范圍之內(nèi)就愿意為你想辦法的人。多少人天真的以為，認(rèn)識(shí)的人越多，人脈就越廣，自己就越厲害，其實(shí)，那些所謂的人脈，不過廉價(jià)。倘若你沒有同等的利用價(jià)值，誰會(huì)與你建立起所謂的交際？最是談錢傷感情，也最是感情不值錢。別結(jié)識(shí)了比自