【正文】 44 / 45。從課題的選擇到研究和論文的寫作過(guò)程中，徐老師淵博的學(xué)識(shí)、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、敬業(yè)的精神和平易近人的為人態(tài)度，給我留下了深刻的印象，不僅讓我學(xué)到了專業(yè)知識(shí)，還讓我學(xué)到了很多實(shí)用的操作技巧，這些將讓我一生受益。在這次的設(shè)計(jì)中，吸取了經(jīng)驗(yàn)，開(kāi)闊了視野，受益頗多。2． 再者，由于現(xiàn)代企業(yè)的經(jīng)營(yíng)模式已經(jīng)發(fā)展為了連鎖經(jīng)營(yíng)為主體的企業(yè)模式，因此考慮到企業(yè)在同城不同地或者不同城市的子公司、銷售網(wǎng)點(diǎn)能夠同時(shí)使用一種軟件，共享實(shí)時(shí)更新的數(shù)據(jù)資源，該軟件還有待開(kāi)發(fā)成網(wǎng)絡(luò)系統(tǒng)。該系統(tǒng)除了能實(shí)現(xiàn)用戶登錄，基本信息輸入以外，還具備進(jìn)貨信息、銷售信息、庫(kù)存信息的定時(shí)統(tǒng)計(jì)、條件查詢、報(bào)表打印、數(shù)據(jù)庫(kù)備份和恢復(fù)等功能，基本實(shí)現(xiàn)了最初的設(shè)計(jì)目標(biāo)。該軟件經(jīng)過(guò)以上的調(diào)試，運(yùn)行后，并未報(bào)其他錯(cuò)誤，從而所有預(yù)定功能都可如愿實(shí)現(xiàn)了。3．在報(bào)表打印時(shí)時(shí)常會(huì)出現(xiàn)如圖 的錯(cuò)誤提示，那是由于報(bào)表的信息過(guò)大，以至于默認(rèn)的打印設(shè)置無(wú)法實(shí)現(xiàn)報(bào)表信息的全部顯示造成的。因此，只需打開(kāi)這些表。為了集中這些信息，在制作時(shí)，又重新建立一張表來(lái)存放這些必要的字段信息。添加一個(gè)綁定界面，然后在該界面下填寫當(dāng)前服務(wù)器名，這樣運(yùn)行起來(lái)就不會(huì)報(bào)如下錯(cuò)誤。這樣做，最好把數(shù)據(jù)庫(kù)連接統(tǒng)一寫在公共模塊里，修改起來(lái)就比較方便。39 / 45第六章 軟件調(diào)試1．如圖 所示，如果在設(shè)計(jì)時(shí)，將數(shù)據(jù)庫(kù)連接綁定為一個(gè)固定的服務(wù)器，當(dāng)系統(tǒng)在另外一部計(jì)算機(jī)上運(yùn)行時(shí)，就會(huì)出現(xiàn)以下錯(cuò)誤框提示。在該系統(tǒng)中考慮到實(shí)際操作的需要，添加了一個(gè)實(shí)用工具菜單，取名為“輔助工具”在輔助工具里，利用 VB 里的 Shell 函數(shù)來(lái)實(shí)現(xiàn)對(duì) Windows 下的計(jì)算器和記事本應(yīng)用程序的調(diào)用。Variant (Integer)，表示在程序運(yùn)行時(shí)窗口的樣式。Variant (String)，要執(zhí)行的程序名，以及任何必需的參數(shù)或命令行變量，可能還包括目錄或文件夾，以及驅(qū)動(dòng)器。 輔助工具Shell 函數(shù)的作用就是在 VB 里調(diào)用一個(gè)可執(zhí)行文件，返回一個(gè) Variant(Double),如果成功調(diào)用的話，該值代表這個(gè)程序的任務(wù)標(biāo)識(shí) ID，若不成功，則返回值為 0。然后依次重復(fù)以上步驟，直到所有的索引標(biāo)題都已經(jīng)編輯完成。然后點(diǎn)擊索引按鈕，轉(zhuǎn)換到編輯索引的界面。 首先，利用 DreamWeaver 或者 FrontPage 軟件制作各個(gè)標(biāo)題的 HTML 文件。被 IE 瀏覽器支持的 Javas cript、VBs cript、ActiveX、Java Applet、Flash、常見(jiàn)圖形文件(GIF、JPEG、PNG)、音頻視頻文件(MID、WAV、AVI)等等，CHM 同樣支持，并可以通過(guò) URL 與 Inter 聯(lián)系在一起。35 / 45圖 打印設(shè)置運(yùn)行圖點(diǎn)擊打印按鈕后，打印效果見(jiàn)圖 所示：圖 報(bào)表打印結(jié)果 幫助文件一個(gè)好的應(yīng)用程序不僅要有高效率的程序代碼，方便快捷的幫助文件更是不可缺少的一部分。同時(shí)由于報(bào)表要素在數(shù)據(jù)庫(kù)中建立了一張表來(lái)存放，所以在再次打開(kāi)該界面時(shí)，填報(bào)單位等項(xiàng)上會(huì)保留上一次填寫的信息。如圖 所示，在該界面上，用戶可以選擇要打印的報(bào)表類型，還可以選擇報(bào)表打印的時(shí)間單位。首先要在公共模塊中定義一些必要的變量Public reportdays As IntegerPublic retitle As StringPublic redanwei As StringPublic pizhun As StringPublic tianbao As StringPublic shenhe As String然后在報(bào)表的代碼窗中鍵入如下代碼：Private Sub datareport_initialize()(section4).Controls(ttitle).Caption = retitle(section4).Controls(danwei).Caption = redanwei(section3).Controls(pizhunren).Caption = pizhun(section3).Controls(tianbaoren).Caption = tianbao(section3).Controls(shenheren).Caption = shenhehowreport (reportdays)End Sub7．因?yàn)榭紤]到用戶的實(shí)際情況，即打印報(bào)表的標(biāo)頭、填報(bào)單位、填報(bào)人、批準(zhǔn)人和審核人是不固定的，做為實(shí)用的應(yīng)用程序，要把報(bào)表的這些要素作為一個(gè)可填寫的表格是比較合適的。6．在報(bào)表的報(bào)表表頭（Section4）添加 4 個(gè) rptLabel，調(diào)整好位置，設(shè)置字體大小，并且設(shè)置四個(gè)控件的名稱。單擊確定，退出后，重新點(diǎn)擊右鍵，選擇“展開(kāi)所有” ，得到所有將要使用的字段名，如圖 所示：4．然后回到集成，在工程菜單中選擇“添加 Data Report”，添加 Data Report 報(bào)表編輯器 Data Report1，設(shè)置其 DataResource 為 DataEnvironment1,設(shè)置其DataMember 為 my_clothe。將命名改為“output” 。3．然后點(diǎn)擊“下一步” ，連接數(shù)據(jù)庫(kù)，設(shè)置見(jiàn)圖 。2．在數(shù)據(jù)環(huán)境設(shè)計(jì)器右鍵單擊“Connection1”,選擇重命名，將連接名改成數(shù)據(jù)庫(kù)的名字——my_clothe。以下以銷售報(bào)表為例，來(lái)說(shuō)明報(bào)表的制作過(guò)程。在調(diào)用數(shù)據(jù)庫(kù)的數(shù)據(jù)到報(bào)表上顯示之前，必須建好視圖，該視圖在上一章節(jié)已經(jīng)介紹過(guò)了，這里就不再重復(fù)。它與數(shù)據(jù)源（通常都是選擇數(shù)據(jù)環(huán)境設(shè)計(jì)器 Data Environment designer 作為數(shù)據(jù)源）一起使用，可以從幾個(gè)不同的相關(guān)表開(kāi)始創(chuàng)建報(bào)表。下面簡(jiǎn)單介紹一下 Data Report 的使用。Data Report是一個(gè)比較成熟的報(bào)表打印解決方案。 打印報(bào)表在 Visual Basic 開(kāi)發(fā)的數(shù)據(jù)庫(kù)系統(tǒng)中，報(bào)表打印是其中最重要也是最常用的功31 / 45能之一。 (sql) 39。 amp。Data Source=e41sql = use master RESTORE DATABASE my_clothe from disk=39。User ID=sa。其 SQL 語(yǔ)句如下： Provider=。因此，在設(shè)計(jì)對(duì)話框（CommonDialog）控件時(shí)，對(duì)其編程就不能使用另存為的方法而是選擇打開(kāi)文件的方法。只是在打開(kāi)對(duì)話框時(shí)，用戶不是選擇保存路徑，而是打開(kāi)所要恢復(fù)的數(shù)據(jù)庫(kù)備份。 39。 amp。Initial Catalog=My_clothe。Persist Security Info=False。 對(duì)ProgressBar 控件編程如下：Dim connter As IntegerDim sql, workarea(15) As String ‘workarea(15)：工作進(jìn)度設(shè)置 = True = UBound(workarea) ‘設(shè)置進(jìn)度條的最大值 = ‘設(shè)置進(jìn)度條的當(dāng)前值For connter = LBound(workarea) To UBound(workarea)workarea(connter) = initial value amp。由于使用方塊來(lái)填充控件，因此所填充的數(shù)量只能是接近于 Value 屬性的當(dāng)前設(shè)置值。ProgressBar 控件的重要屬性包括 Max 屬性、Min 屬性和 Value 屬性。ProgressBar 控件有一個(gè)行程和一個(gè)當(dāng)前位置。因而可以監(jiān)視操作完成的進(jìn)度。由于備份一個(gè)大型數(shù)據(jù)庫(kù)的耗時(shí)較長(zhǎng)，在制作該模塊時(shí)添加一個(gè)可以反映備份進(jìn)度的控件——進(jìn)度條（ProgressBar）既美觀又實(shí)用。運(yùn)行結(jié)果如圖 所示。用戶只須打開(kāi)這個(gè)按鈕，系統(tǒng)就會(huì)彈出一個(gè)如圖 所示的對(duì)話框：圖 備份路徑對(duì)話框然后用戶只須選擇存放數(shù)據(jù)庫(kù)備份文件的路徑即可。以下就是 VB 中對(duì)對(duì)話框的典型編程方法。在備份界面設(shè)計(jì)中用到的是“另存為”的方法，在恢復(fù)數(shù)據(jù)庫(kù)的界面中也要用到對(duì)話框控件，但是它所使用的方法是“打開(kāi)文件” 。在數(shù)據(jù)庫(kù)備份的界面上，采用了一個(gè)對(duì)話框（CommonDialog）的控件來(lái)作為用戶選擇數(shù)據(jù)庫(kù)備份存放路徑的方法?？紤]到系統(tǒng)所使用的是比較大型的數(shù)據(jù)庫(kù)—SQL Server 2022，所以采用了該數(shù)據(jù)庫(kù)自身帶有的備份與恢復(fù)功能來(lái)制作備份與恢復(fù)的模塊，該模塊的界面如圖 所示： 數(shù)據(jù)庫(kù)備份界面對(duì)于備份，該系統(tǒng)提供了兩條選擇路徑，即用戶可以選擇在主菜單的“系統(tǒng)維護(hù)”下找到備份菜單；另一種方法是在快捷的工具條下，也能找到備份選項(xiàng)。例如：Access 數(shù)據(jù)庫(kù)等。2． 利用 filecopy 命令直接拷貝數(shù)據(jù)庫(kù)文件 mdf 和日志文件 ldf 的方式。打印結(jié)果如圖 所示：27 / 45圖 查詢打印運(yùn)行界面其余的查詢由于本著系統(tǒng)設(shè)計(jì)風(fēng)格統(tǒng)一的原則，基本的設(shè)計(jì)步驟與以上所述相類似，這里就不再重復(fù)說(shuō)明。隱藏的辦法很簡(jiǎn)單，只需要設(shè)定某行的行高為 0 就可以了。例如：導(dǎo)致該軟件的可讀性很差，除了編程人員，其他人很難看懂該表格，這樣開(kāi)發(fā)出來(lái)的軟件根本就不能用。Initial Catalog=My_clothe。Persist Security Info=False。不過(guò)正因?yàn)檫@樣，越是自定義的東西，開(kāi)發(fā)出來(lái)的東西越靈活，越符合用戶需求。因此 ，使用MSFlexGrid通常還要對(duì)它的行列寬度進(jìn)行設(shè)置。如果需要顯示被回繞的文本，需要增加單元的列寬（ColWidth 屬性）或行高（RowHeight 屬性）。Text 屬性提供了當(dāng)前單元格內(nèi)容的信息。 Row 和 Col 屬性指定了當(dāng)前的 MSFlexGrid 單元格。它提供了高度靈活的網(wǎng)格排序、合并和格式設(shè)置功能。首先要在VB中加載Microsoft FlexGrid ，在常用工具條下點(diǎn)擊右鍵，選擇“部件”，然后鉤選“Microsoft Flexgrid Control ”，則在工具條上就會(huì)出現(xiàn)該控件。其中，較突出的表現(xiàn)是它不僅可以加載文本數(shù)據(jù)，還可以加載圖片等多媒體數(shù)據(jù)。因?yàn)樵谠撓到y(tǒng)中并未使用 ADO，所以只需選擇使用 MSFlexGrid 即可。雖然，在 VB 中可以做為表格使用的控件有很多種，例如：DataGrid、DBGrid、還有上述提到的 MSFlexGrid 和更加高級(jí)的 MSHFlexGrid。查詢結(jié)果采用一個(gè)叫“MSFlexGrid”的控件來(lái)顯示。 39。 amp。sQSql = sQSql amp。 dBeginDate amp。 and = 39。 amp。 amp。 amp。 amp。 39。 amp。業(yè)務(wù)員點(diǎn)開(kāi)如圖 所示的進(jìn)貨菜單界面。也就是說(shuō)，用戶決不可能查詢到?jīng)]有進(jìn)貨的年份或還未發(fā)生的年份的進(jìn)貨記錄。只須選擇了“按時(shí)間”查詢的復(fù)選框后，在年、月、日的選項(xiàng)框中選擇用戶所要查詢的起始時(shí)間和終止時(shí)間，點(diǎn)擊確定按鈕后，即可在另一個(gè)窗體下得到查詢結(jié)果。由負(fù)責(zé)進(jìn)貨的業(yè)務(wù)