【正文】 要指定數(shù)據(jù)源，這里的數(shù)據(jù)源不是數(shù)據(jù)控件而是數(shù)據(jù)環(huán)境（ Data Environment） ,選擇 工程 菜單下面選擇 添加 Data Environment選項(xiàng)就可以將數(shù)據(jù)環(huán)境添加進(jìn)應(yīng)用程序中。只需要把 Data report 的DataSource 屬性設(shè)置為前面的數(shù)據(jù)環(huán)境對(duì)象以及把 DataMember 設(shè)置為數(shù)據(jù)環(huán)境對(duì)象的 Command 對(duì)象即可。這里首先熟悉一下 Data report 控件的顯示界面： Data report 控件總共有 5 個(gè)區(qū)組成，分別是報(bào)表頭、頁(yè)面頭、細(xì)節(jié)區(qū)、頁(yè)面注腳和報(bào)表注腳。這里介紹一下放置文本框控件的使用方法，其實(shí)在綁定情況下只需要設(shè)置其 DataMember 和 Datafield 即可，前者用來(lái)指定數(shù)據(jù)表，可以設(shè)置為前面數(shù)據(jù)環(huán)境對(duì)象的 Command 對(duì)象，后者是指定數(shù)據(jù)段，即綁定的數(shù)據(jù)庫(kù)的指定字段。 Data Report 控件的打印功能 對(duì)于報(bào)表的打印可以直接使用 Data report 自帶的打印功能，即可以實(shí)現(xiàn)簡(jiǎn)易的報(bào)表打印。這里只是給出一個(gè)實(shí)現(xiàn)思路：首先需要制作一個(gè)按鈕控件來(lái)顯示 打印設(shè)置 的窗口，通過這個(gè)窗口用戶可以設(shè)置打印的相關(guān)的參數(shù)，然后在實(shí)現(xiàn)打印的子模塊中使用 VB 內(nèi)嵌的 printer 對(duì)象來(lái)實(shí)現(xiàn)真實(shí)的打印，該對(duì)象能夠?qū)Υ蛴〉漠?dāng)前位置進(jìn)行定位，而且對(duì)打印的字體等參數(shù)進(jìn)行控制，所以結(jié)合 打印設(shè)置 窗口可以實(shí) 現(xiàn)類似于 word 里面的打印功能。所以如果在設(shè)計(jì)自己的應(yīng)用程序的時(shí)候能夠結(jié)合到 Excel 的話，那么你的應(yīng)用程序就應(yīng)該是相當(dāng)?shù)耐晟屏耍驗(yàn)闊o(wú)論是編輯還是打印功能， Excel 都提供了很完美的解決方案，所以你的應(yīng)用程序所要做的事情就是實(shí)現(xiàn)程序和 Excel通訊即可。以下就簡(jiǎn)要介紹在 VB 下開發(fā)基于 Excel 的編程思路。它們的功能分別如下： Application用來(lái)指代整個(gè)應(yīng)用程序。 Range表示 工作表中的某個(gè)區(qū)域范圍對(duì)象，特殊情況下也可以只代表一個(gè) Cell。這個(gè)對(duì)象的使用頻率是最高的。方法是在 工程 的 引用 對(duì)話框之下選擇 Microsoft Object Library，這樣就將整個(gè) Excel 對(duì)象庫(kù)就引入到程序中來(lái)了。在這一節(jié)里主要介紹一下水晶報(bào)表的定制和顯示，打印功能的實(shí)現(xiàn)。前者主要用來(lái)創(chuàng)建報(bào)表模板，后者主要是用來(lái)在程序中顯示和打印報(bào)表，這兩者的分工決定了它們程序中的功能的不同。 Crystal Reports 插件程序的使用 選擇 外接程序 菜單的 報(bào)表設(shè)計(jì)器 選項(xiàng)，則 VB 將執(zhí)行 Crystal Reports Pro插件應(yīng)用程序。 整個(gè)水晶報(bào)表的使用跟第一節(jié)的 Data Report 的使用很類似。由于本身Crystal Reports 插件程序就是一個(gè)功能強(qiáng)大的報(bào)表設(shè)計(jì)軟件，這里就不能一一的講解了，有興趣可以參考程序自帶的幫助文檔。 Crystal Reports 引擎是一個(gè)動(dòng)態(tài)鏈接庫(kù)，它可以使應(yīng)用程序訪問并具有同Crystal Reports 一樣強(qiáng)大的報(bào)表輸出功能。再編譯時(shí)應(yīng)用程序同報(bào)表引擎鏈接，以給應(yīng)用程序添加了 生成報(bào)表的功能。通過 Crystal 控件的屬性可以指定： 。 （如果報(bào)表提交給打印機(jī)的話）。 （如果報(bào)表在預(yù)覽窗口中顯示時(shí)）。 。 這里要注意一點(diǎn)的是， Crystal 控件必須在由 Crystal Reports Pro 創(chuàng)建的報(bào)表中使用，而試圖在 VB 應(yīng)用程序里引用之前，必須首先創(chuàng)建報(bào)表。首先通過 工程 的 部件 選項(xiàng)里面選擇 Crystal Reports Control，那么 VB 的工具箱里面就添加了Crystal Reports 控件 了。那么只需要調(diào)用控件的 PrintReport 方法就可以將報(bào)表顯示出來(lái)了。然而 Crystal Reports 控件也 有它的局限性，即它不能在運(yùn)行時(shí)創(chuàng)建自定義的窗口。一般說來(lái)， Crystal Reports 控件不提供在程序中對(duì)報(bào)表字段級(jí)的訪問。 除了通過上述的三種方法來(lái)實(shí)現(xiàn)報(bào)表設(shè)計(jì)以外，當(dāng)然也可以直接利用 Win32 API 來(lái)進(jìn)行直接進(jìn)行設(shè)計(jì)，這種方式是最為靈活也是最為繁瑣的方式，因?yàn)樗械木庉?、修改、打印等功能都是由程序控制，所以一般情況下不會(huì)使用這樣的方式來(lái)處理 ，這里就不介紹了。而總體設(shè)計(jì)就是軟件最初形成的一個(gè)表示，它描述了軟件的總的體系結(jié)構(gòu)。如下，圖 就是商場(chǎng)物流管理系統(tǒng)的總體結(jié)構(gòu)框圖： 圖 系統(tǒng)總體結(jié)構(gòu)框圖 啟動(dòng)窗體 登陸窗體 主窗體 用戶管理模塊 員工管理模塊 貨品管理模塊 供貨單位管理模塊 部門管理模塊 出入庫(kù)管理模塊 報(bào)表模塊 幫助 系統(tǒng) 畢業(yè)設(shè)計(jì)（論文） 17 系統(tǒng)各模塊功能說明 1． 用戶管理模塊 (1) 設(shè)置用戶 ：可以按照不同的權(quán)限對(duì)擁護(hù)進(jìn)行添加修改和刪除。若不登錄系統(tǒng)，所有功能都無(wú)法使用。 登陸時(shí)輸入用戶名和口令， 只有 兩者 完全正確，才能進(jìn)入管理系統(tǒng)。 2．員工管理模塊 管理員可對(duì)員工信息進(jìn)行添加、修改、刪除和查找。 4． 供貨單位管理模塊 管理員對(duì)供貨單位的信息進(jìn)行添加、修改、刪除和查找。 6. 出入庫(kù)管理模塊 對(duì)貨品進(jìn)行入庫(kù)和出庫(kù)的登記和查找。 8．幫助系統(tǒng) 使用戶能更好的使用本系統(tǒng)。通過對(duì)這九張表格的操作畢業(yè)設(shè)計(jì)（論文） 18 可以較好地完成系統(tǒng)設(shè)計(jì)的各項(xiàng)功能，九張表格之間有著不同程度的聯(lián)系。 運(yùn)行的界面如圖 51所示。系統(tǒng)畢業(yè)設(shè)計(jì)（論文） 21 登錄界面是通過用戶權(quán)限的認(rèn)證，它是用來(lái)確保系統(tǒng)的保密性。不同用戶所享有的權(quán)限又是不同。Data Source=ACCESS\倉(cāng)庫(kù)管理系統(tǒng) 。Shell 天使在舞 .exe 創(chuàng)建系統(tǒng)主菜單 系統(tǒng)主控界面是集中管理系統(tǒng)的界面，它主要通過菜單或命令按鈕對(duì)其他窗體進(jìn)行調(diào)用，對(duì)報(bào)表進(jìn)行顯示或打印。 畢業(yè)設(shè)計(jì)（論文） 25 本系統(tǒng)由 3 人共同 完成，本人負(fù)責(zé)報(bào)表、工具和幫助這 3部分窗體的制作，下面具體介紹制作的過程。 創(chuàng)建數(shù)據(jù)環(huán)境 下面以出庫(kù)登記報(bào)表的制作為例 VB 主菜單中的 “ 工程 |更多 ActiveX 設(shè)計(jì)器 |DataEnvironment” 菜單項(xiàng) . Data Environment1 的基本屬性 表 Data Environment1 的基本屬性 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 (名稱 ) Connection1 ConnectionSource ProvidER=。Data Source=ACCESS\倉(cāng)庫(kù)管理系統(tǒng) ,右擊 Connection1,出現(xiàn)彈出式菜單 .單擊 “ 添加命令 ” 出庫(kù)畢業(yè)設(shè)計(jì)（論文） 26 登記 . 表 Command1 的屬性設(shè)置 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 ConnectName Connection1 CommandType 2AdcmdTable CommandText 出庫(kù)登記 制作數(shù)據(jù)報(bào)表 VB 主菜單的 “ 工具 |添加 DataReport” 菜單項(xiàng) ,添加一個(gè)數(shù)據(jù)報(bào)表DataReprot1. DataReport1 的基本屬性 (1) 表 DataReport1 的屬性設(shè)置 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Caption DataReport1 DataSource DataEnvironment1 DataMembER 出庫(kù)登記 (2) 打開報(bào)表 DataReport1,在報(bào)表標(biāo)頭領(lǐng)域里右擊 ,選擇 Retrieve Structure,在彈出的警告信息中 (如圖 ),單擊 “ 是 ” 圖 打開報(bào)表的警告信息 畢業(yè)設(shè)計(jì)（論文） 27 (3) 接下來(lái)就可為報(bào) 表添加基本的控件了 ,界面設(shè)置如圖 所示 : 圖 報(bào)表添加基本控件的界面設(shè)置 各個(gè)界面的屬性設(shè)置如表 57所示： 表 各個(gè)界面的屬性設(shè)置 對(duì)象名稱 屬性項(xiàng)名 屬性設(shè)置內(nèi)容 Text1 DataMembER 出庫(kù)登記 DataField 出庫(kù)編號(hào) Text2 DataMembER 出庫(kù)登記 DataField 出庫(kù)日期 Text3 DataMembER 出庫(kù)登記 DataField 收貨 單位 Text4 DataMembER 出庫(kù)登記 DataField 部門 Text5 DataMembER 出庫(kù)登記 DataField 經(jīng)手人 Text6 DataMembER 出庫(kù)登記 DataField 出庫(kù)產(chǎn)品 畢業(yè)設(shè)計(jì)（論文） 28 Text7 DataMembER 出庫(kù)登記 DataField 數(shù)量 幫助系統(tǒng)的制作 開發(fā)工具概況 是一種編譯過的 HTML 文件，后綴是 .CHM。啟動(dòng) HTML Help Workshop 后，出現(xiàn)如圖 81所示的主界面。 在窗體中設(shè)置一按鈕，然后在按鈕的 OnClick 事件中加入代碼： Shell 幫助系統(tǒng) .chm, vbNormalFocus 這樣，幫助系統(tǒng)就完成了。它主要完成對(duì)倉(cāng)庫(kù)的一系列管理，包括入庫(kù)、出庫(kù)、庫(kù)存以及員工和供應(yīng)商信 息管理。 本系統(tǒng)具有相當(dāng)?shù)膶?shí)用功能。 系統(tǒng)在設(shè)計(jì)過程中不可避免地遇到了各種各樣的問題， 由于以前對(duì) VB 不是很熟悉 ，有關(guān) VB 許多細(xì)節(jié)問題都要去摸索，加之水平有限，并沒有完全地理解VB 的強(qiáng)大功能，而且還存在著許多不足之處 ，還 需要完善，該系統(tǒng)離實(shí)際使用也還有相當(dāng)?shù)木嚯x，需要我進(jìn)行不斷地補(bǔ)充和完善。只要學(xué)習(xí)就會(huì)有更多的問題，有更多的難點(diǎn)，但也會(huì)有更多的收獲。 [3] 王道榮，林信成，《 Visual Basic 6 數(shù)據(jù)庫(kù)處理從入門到精通》，中國(guó)鐵道出版社， 2020。葉冬芬老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格，使我深受啟發(fā)；開發(fā)的同時(shí)，和同學(xué)們之間的相互探討也使我獲益匪淺。所以我再次感謝老師和我的同學(xué)們。 卓姆強(qiáng)巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生物系客座教授，主講世界名犬。他沒有讓他的父母失望，如今已是擁有千萬(wàn)資產(chǎn)的公司老總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 “幾千年來(lái)，全世界所公認(rèn)的，體形最龐大，性格最兇猛的，叫獒。 或許聽錯(cuò)了?！? 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了?！碑厴I(yè)設(shè)計(jì)（論文） 34 電腦上在氣象局發(fā)來(lái)的橘紅色區(qū)域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內(nèi)。我一直想到上海來(lái)探望你，看看是不是真的。 方新收起 電腦，喃喃道：“入藏后，就不能無(wú)線上網(wǎng)了，只是電腦里的很多資料很有用處?！? “哦 ?”方新疑惑道，“好像這個(gè)時(shí)段，沒有直飛拉薩的航班吧 ?” 卓木強(qiáng)道：“因?yàn)槭俏覀円ダ_，所以就有了去那里的直飛航班呢?！? 方新道：“可是，軍用包 機(jī)不在拉薩機(jī)場(chǎng)降落，在旁邊有個(gè)專用的軍用機(jī)場(chǎng)，離城還有一段距離呢。我以為，它們都在拉薩機(jī)場(chǎng)起降呢。 方新道：“不用著急，我打個(gè)電話，我和西藏軍區(qū)的一位領(lǐng)導(dǎo)頗有交情，上次也是坐他的飛機(jī)去西藏的，所以才知道這情況。到時(shí)候安排人來(lái)接我們就是了。這樣，我們就不用進(jìn)拉薩，到時(shí)候直接從機(jī)場(chǎng)往南，看是先去你家還是先去蒙河 ?”說著，打了個(gè)電話，那位領(lǐng)導(dǎo)在外地，答應(yīng)方新會(huì)替他們安排好的。兩人遂登上軍用專機(jī)，從上海往西，朝著圣潔的高原 —— 西藏飛去。次仁剛吃過午飯，一名士兵來(lái)報(bào)，上級(jí)領(lǐng)導(dǎo)打來(lái)電話，某教授會(huì)乘 A3097次專機(jī)在軍區(qū)機(jī)場(chǎng)降落，他們會(huì)從機(jī)場(chǎng)直赴蒙河，希望他能安排一下，準(zhǔn)備輛車接 應(yīng)?！? 次仁對(duì)他旁邊的年輕軍官道：“小張，你和小黃一起去，去機(jī)場(chǎng)看看，怎么說也是上級(jí)領(lǐng)導(dǎo)的朋友。他身高一米七六，身體魁梧狀況僅次于團(tuán)長(zhǎng)班覺次仁，面如刀削，目光如炬，其個(gè)人格擊和應(yīng)變思維，在這個(gè)團(tuán)不作第二人想。 這時(shí)候，秦立感覺到有一只溫暖的手覆蓋在自己的額頭，撫摸著自己的臉頰，很輕，很溫柔，透露著一股憐惜，珍愛??同時(shí)，朦朧中聽到一陣斷斷續(xù)續(xù)，似有還無(wú)的嗚咽聲，突然，似乎有一滴雨滴打在了臉上，涼涼的，沿著臉頰往下流，而后滑過嘴角??咸咸的。無(wú)數(shù)記憶的碎片再一次潮水般洶涌襲來(lái)，秦立就像是一只被怒浪卷進(jìn)大海的可憐蟲，沒有絲毫反抗的余地，最難受的 是想昏過去，都成為一種奢望。 不知過了多久，他終于融合了腦中全部的記憶，那種痛苦的感覺也漸漸消失，黑暗中，秦立心中茫然，想不到這么離奇詭異的事情，都能讓自己遇到，原以為必死無(wú)疑，卻不想竟然以另一種方式，再一次的活過來(lái)！ 這個(gè)時(shí)候，秦立對(duì)外界的感知，也一點(diǎn)點(diǎn)的恢復(fù)了正常，耳中傳來(lái)一個(gè)有些清冷，但卻帶著幾分哀求聲音：“吳醫(yī)師，求你救救