【正文】 ‘ 設(shè)置進(jìn)度條的最大值 = ‘ 設(shè)置進(jìn)度條的當(dāng)前值 For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。Initial Catalog=My_clothe。 39。 因此，在設(shè)計(jì)對(duì)話框（ CommonDialog）控件時(shí)，對(duì)其編程就不能使用另存為的方法而是選擇打開(kāi)文件的方法。User ID=sa。 amp。 打印報(bào)表 在 Visual Basic 開(kāi)發(fā)的數(shù)據(jù)庫(kù)系統(tǒng)中，報(bào)表打印是其中最重要也是最常用的功南昌航空大學(xué)學(xué)士學(xué)位論文 31能之一。 下面簡(jiǎn)單介紹一下 Data Report 的使用。 在調(diào)用數(shù)據(jù)庫(kù)的數(shù)據(jù)到報(bào)表上顯示之前，必須建好視圖，該視圖在上一章節(jié)已經(jīng)介紹過(guò)了，這里就不再重復(fù)。 2． 在數(shù)據(jù)環(huán)境設(shè)計(jì)器右鍵單擊“ Connection1” ,選擇重命名，將連接名改成數(shù)據(jù)庫(kù)的名字 —— my_clothe。將命名改為“ output”。 6． 在報(bào)表的報(bào)表表頭（ Section4）添加 4個(gè) rptLabel，調(diào)整好位置，設(shè)置字體大小，并且設(shè)置四個(gè)控件的名稱。 如圖 所示，在該界面 上，用戶可以選擇要打印的報(bào)表類型，還可以選擇報(bào)表打印的時(shí)間單位。 南昌航空大學(xué)學(xué)士學(xué)位論文 35 圖 打印設(shè)置運(yùn)行圖 點(diǎn)擊打印按鈕后，打印效果見(jiàn)圖 所示： 圖 報(bào)表打印結(jié)果 幫助文件 一個(gè)好的應(yīng)用程序不僅要有高效率的程序代碼，方便快捷的幫助文件更是不可缺少的一部分 。 首先，利用 DreamWeaver 或者 FrontPage 軟件制作各個(gè)標(biāo)題的 HTML 文件。然后依次重復(fù)以上步驟，直到所有的索引標(biāo)題都已經(jīng)編輯完成。 Variant (String)，要執(zhí)行的程序名，以及任何必需的參數(shù)或命令行變量，可能還包括目錄或文件夾，以及驅(qū)動(dòng)器。 在該系統(tǒng)中考慮到實(shí)際操作的需要，添加了一個(gè)實(shí)用工具菜 單，取名為“輔助工具”在輔助工具里，利用 VB 里的 Shell 函數(shù)來(lái)實(shí)現(xiàn)對(duì) Windows 下的計(jì)算器和記事本應(yīng)用程序的調(diào)用。這樣做，最好把數(shù)據(jù)庫(kù)連接統(tǒng)一寫(xiě)在公共模塊里，修改起來(lái)就比較方便。為了集中這些信息，在制作時(shí)，又重新建立一張表來(lái)存放這些必要的字段信息。 3． 在報(bào)表打印時(shí)時(shí)常會(huì)出現(xiàn)如圖 ，那是由于報(bào)表的信息過(guò)大，以至南昌航空大學(xué)學(xué)士學(xué)位論文 40于默認(rèn)的打印設(shè)置無(wú)法實(shí)現(xiàn)報(bào)表信息的全部顯示造成的。該系統(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)。在這次的設(shè)計(jì)中，吸取了經(jīng)驗(yàn)，開(kāi)闊了視野，受益頗多。 。從課題的選擇到研究和論文的寫(xiě)作過(guò)程中，徐老師淵博的學(xué)識(shí)、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、敬業(yè)的精神和平易近人的為人態(tài)度，給我留下了深刻的印象，不僅讓我學(xué)到了專業(yè)知識(shí)，還讓我學(xué)到了很多實(shí)用的操作技巧， 這些將讓我一生受益。 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)。該軟件經(jīng)過(guò)以上的調(diào)試，運(yùn)行后，并未報(bào)其他錯(cuò)誤，從而所有預(yù)定功能都可如愿實(shí)現(xiàn)了。因此，只需打開(kāi)這些表。添加一個(gè)綁定界面，然后在該界面下填寫(xiě)當(dāng)前服務(wù)器名，這樣運(yùn)行起來(lái)就不會(huì)報(bào)如下錯(cuò)誤。 南昌航空大學(xué)學(xué)士學(xué)位論文 39第六 章 軟件調(diào)試 1． 如圖 所 示，如果在設(shè)計(jì)時(shí)，將數(shù)據(jù)庫(kù)連接綁定為一個(gè)固定的服務(wù)器，當(dāng)系統(tǒng)在另外一部計(jì)算機(jī)上運(yùn)行時(shí)，就會(huì)出現(xiàn)以下錯(cuò)誤框提示。 Variant (Integer)，表示在程序運(yùn)行時(shí)窗口的樣式。 輔助工具 Shell 函數(shù)的作用就是在 VB 里調(diào)用一個(gè)可執(zhí)行文件，返回一個(gè) Variant(Double),如果成功調(diào)用的話，該值代表這個(gè)程序的任務(wù)標(biāo)識(shí) ID，若不成功，則返回值為 0。然后 點(diǎn)擊索引按鈕，轉(zhuǎn)換到編輯索引的界面。 被 IE瀏覽器支持的 Javas cript、VBs cript、 ActiveX、 Java Applet、 Flash、常見(jiàn)圖形文件 (GIF、 JPEG、 PNG)、音頻視頻文件 (MID、 WAV、 AVI)等等， CHM 同樣支持，并可以通過(guò) URL 與 Inter 聯(lián)系在一起。同時(shí)由于報(bào)表要素在數(shù)據(jù)庫(kù)中建立了一張表來(lái)存放，所以在再次打開(kāi)該界面時(shí)，填報(bào)單位等項(xiàng)上會(huì)保留上一次填寫(xiě)的信息。 首先要在公共模塊中定義一些必要的變量 Public reportdays As Integer Public retitle As String Public redanwei As String Public pizhun As String Public tianbao As String Public 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 = shenhe howreport (reportdays) End Sub 7． 因?yàn)榭紤]到用戶的實(shí)際情況，即打印報(bào)表的標(biāo)頭、填報(bào)單位、填報(bào)人、批準(zhǔn)人和審核人是不固定的，做為實(shí)用 的應(yīng)用程序，要把報(bào)表的這些要素作為一個(gè)可填寫(xiě)的表格是比較合適的 。單擊確定，退出后，重新點(diǎn)擊右鍵，選擇“展開(kāi)所有”，得到所有將要使用的字段名，如圖 ： 4． 然后回到集成，在工程菜單中選擇“添加 Data Report”，添加 Data Report 報(bào)表編輯器 Data Report1，設(shè)置其 DataResource 為 DataEnvironment1,設(shè)置其DataMember 為 my_clothe。 3． 然后點(diǎn)擊“下一步”，連接數(shù)據(jù)庫(kù)，設(shè)置見(jiàn)圖 。以 下以銷售報(bào)表為例，來(lái)說(shuō)明報(bào)表的制作過(guò)程。它與數(shù)據(jù)源（通常都是選擇數(shù)據(jù)環(huán)境設(shè)計(jì)器 Data Environment designer 作為數(shù)據(jù)源）一起使用，可以從幾個(gè)不同的相關(guān)表開(kāi)始創(chuàng)建報(bào)表。 Data Report 是一個(gè)比較成熟的報(bào)表打印解決方案。 (sql) 39。Data Source=e41 sql = use master RESTORE DATABASE my_clothe from disk=39。 其 SQL語(yǔ)句如下： Provider=。只是在打開(kāi)對(duì)話框時(shí)，用戶不是選擇保存路徑，而是打開(kāi)所要恢復(fù)的數(shù)據(jù)庫(kù)備份。 amp。Persist Security Info=False。由于使用方塊來(lái)填充控件，因此所填充的數(shù)量只能是接近于 Value 屬性的當(dāng)前設(shè)置值。 ProgressBar 控件有一個(gè)行程和一個(gè)當(dāng)前位置 。 由于備份一個(gè)大型數(shù)據(jù)庫(kù)的耗時(shí)較長(zhǎng)，在制作該模塊時(shí)添加 一個(gè)可以反映備份進(jìn)度的控件 —— 進(jìn)度條 （ ProgressBar） 既美 觀又實(shí)用 。用戶只須打開(kāi)這個(gè) 按鈕，系統(tǒng)就會(huì)彈出一個(gè)如圖 ： 圖 備份路徑對(duì)話框 然后 用戶 只須選擇存放數(shù)據(jù)庫(kù)備份文件的路徑即可。在備份界面設(shè)計(jì)中用到 的是“另存為”的方法，在恢復(fù)數(shù)據(jù)庫(kù)的界面中也要用到對(duì)話框控件，但是它所使用的方法是“打開(kāi)文件”?？紤]到 系統(tǒng) 所使用的是比較大型的數(shù)據(jù)庫(kù) — SQL Server 2021，所以采用了 該數(shù)據(jù)庫(kù)自身帶有的備份與恢復(fù)功能來(lái)制作備份與恢復(fù)的模塊，該模塊的界面如圖 ： 圖 數(shù)據(jù)庫(kù)備份界面 對(duì)于備份 ，該系統(tǒng)提供了兩條選擇路徑，即 用戶可以選擇在主 菜單的“系統(tǒng)維護(hù)” 下找到備份菜單；另一種方法是在快捷的工具條下，也能找到備份選項(xiàng) 。 2． 利用 filecopy 命令直接拷貝數(shù)據(jù)庫(kù)文件 mdf 和日志文 件 ldf 的方式。 隱藏的辦 法很簡(jiǎn)單，只需要設(shè)定某行的行高為 0就可以了。Initial Catalog=My_clothe。不過(guò)正因?yàn)檫@樣 ，越是自定義的東西，開(kāi)發(fā)出來(lái)的東西越靈活，越符合用戶需求。如果需要顯示被回繞的文本 ，需要增加單元的列寬（ ColWidth 屬性）或行高（ RowHeight 屬性）。 Row 和 Col 屬性指定了當(dāng)前的 MSFlexGrid 單元格。 首先要在 VB中加載 Microsoft FlexGrid ， 在常用工具條下點(diǎn)擊右鍵，選擇“部件”，然后鉤選 “ Microsoft Flexgrid Control ” ，則在工具條上就會(huì)出現(xiàn)該控件。因?yàn)樵谠撓到y(tǒng)中并未使用 ADO，所以只需選擇使用 MSFlexGrid 即可。 查詢結(jié)果采用 一個(gè)叫“ MSFlexGrid”的控件來(lái)顯示 。 amp。 dBeginDate amp。 amp。 amp。 39。業(yè)務(wù)員點(diǎn)開(kāi)如圖 所示的進(jìn)貨菜單界面。只須選擇了“按時(shí)間”查詢的復(fù)選框后，在年、月、日的選項(xiàng)框中選擇用戶所要查詢的起始時(shí)間和終止時(shí)間，點(diǎn)擊確定按鈕后，即可在另一個(gè)窗體下得到查詢結(jié)果。 進(jìn)貨信息查詢的程序流程圖如圖 所示。 同時(shí)還在界面下方設(shè)置了狀態(tài)欄，狀態(tài)欄顯示了系統(tǒng)時(shí)間和當(dāng)前狀態(tài)。 由于在設(shè)計(jì)時(shí)考慮到界面的美觀與風(fēng)格 的 統(tǒng)一，將其他界面都設(shè)置成在該平臺(tái)下打開(kāi)。 表 銷售單信息表的結(jié)構(gòu) 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 說(shuō)明 銷售日期 Datetime 8 Not null 業(yè)務(wù)員 char 20 Not null 銷售單號(hào) char 8 Not null 主鍵 客戶編號(hào) char 8 Not null 外鍵 倉(cāng)庫(kù)編號(hào) char 6 Not null 外鍵 商品編號(hào) numeric 9 Not null 外鍵 顏色 char 10 Null 數(shù)量 numeric 9 Not null 單價(jià) numeric 9 Not null 折扣 numeric 5 Not null 總金額 numeric 9 Not null 即時(shí)付款 Char 2 Null 是否記帳 Char 2 Null 南昌航空大學(xué)學(xué)士學(xué)位論文 18備注 char 100 Null （ 9）庫(kù)存單信息表 kucun，保存庫(kù)存的信息，結(jié)構(gòu)如表 所示。 表 業(yè)務(wù)員信息表的結(jié)構(gòu) 列名 數(shù)據(jù)類型 長(zhǎng)度 允許空 說(shuō)明 業(yè)務(wù)員 編號(hào) char 6 Not null 主鍵 姓名 char 20 Not null 性別 char 4 Not null 電話 char 40 Null 地址 char 40 Null 身份證號(hào)碼 char 18 Not null 備注 char 255 Null （ 5）用戶信息表，保存系統(tǒng)用戶的信息，結(jié)構(gòu)如表 所示。 （ 1）商品信息表 dm_wz，保存商品信息，結(jié)構(gòu)如表 。 圖 進(jìn)貨信息 表 實(shí)體 ER 圖 圖 銷售 信息 表 實(shí)體 ER 圖 南昌航空大學(xué)學(xué)士學(xué)位論文 14 圖 出庫(kù) 信息 表 實(shí)體 ER 圖 圖 庫(kù)存信息 表 實(shí)體 ER 圖 對(duì)于 進(jìn)銷存管理系統(tǒng) 而言，最主要的表無(wú)疑 是進(jìn)貨信息表、銷售信息表、出庫(kù)信息表和庫(kù)存信息表。 ● 出貨單信息 :提貨日期、提貨單號(hào)、業(yè)務(wù)員、客戶編號(hào)、商品編號(hào)、商品顏色、數(shù)量、單價(jià)、折扣比例、總金額、是否即時(shí)付款、是否記賬、預(yù)付比例、備注信息南昌航空大學(xué)學(xué)士學(xué)位論文 12等。 ●