基于VB與SQL Server數(shù)據(jù)庫的試驗管理軟件系統(tǒng)的開發(fā)研究

解建俠，徐樂，黨興華

（1.安徽建筑大學電信學院，安徽 合肥 230601；2.安徽省建筑科學研究設計院，安徽 合肥 230001）

0 前 言

隨著計算機技術和通信技術的不斷發(fā)展，辦公自動化已成為大勢所趨。通過調(diào)研，筆者發(fā)現(xiàn)多數(shù)混凝土企業(yè)的信息化程度偏低，勞動強度大，生產(chǎn)效率低，試驗人員迫切要求建立一個輕松、有效、準確的試驗管理系統(tǒng)。針對上述需求，筆者用Visual Basic 6.0、SQL Server 2000和Crystal Reports 9編制了一套混凝土試驗室試驗管理軟件系統(tǒng)，使用該系統(tǒng)能夠提高工作效率，降低出錯率，提高數(shù)據(jù)安全。

1 功能模塊

1.1 登陸模塊

根據(jù)不同的用戶權限賦予用戶不同的業(yè)務操作權限，成功登陸后，只有管理員才能使用相關的管理類菜單。

1.2 業(yè)務模塊

能夠?qū)崿F(xiàn)試驗委托、試驗記錄和試驗報告過程，以上三個過程中，對于不符合要求的表單填寫，程序在保存時會進行識別，提示用戶做相應的修改，把有效的信息存入數(shù)據(jù)庫。

1.3 查找及批量打印模塊

對于寫入數(shù)據(jù)庫的試驗委托、記錄或者報告，支持用戶以編號、日期、類別、委托單位、工程名稱等關鍵字或各個關鍵字的組合進行模糊批量查詢，查詢結果可實現(xiàn)預覽、批量打印輸出。

1.4 數(shù)據(jù)庫模塊

該模塊只有管理員有權限使用，主要包括本地數(shù)據(jù)庫的備份（導出）、還原（導入）、數(shù)據(jù)庫的上傳部分。

1.5 管理模塊

該模塊只有管理員有權限使用，主要包括密碼修改、用戶管理、試驗室名稱、試驗編號方式、工程管理、價格管理、設備管理等部分。軟件的功能與結構見圖1。

圖1 軟件用例圖

圖2

2 關鍵技術分析

2.1 SQL Server數(shù)據(jù)庫方面

①使用Power Designer創(chuàng)建數(shù)據(jù)庫。作為數(shù)據(jù)庫建模工具，它能夠迅速高效地建立數(shù)據(jù)庫、表、視圖等，還能把數(shù)據(jù)庫的生成過程導出為SQL腳本語言，便于快速移植。

②數(shù)據(jù)庫中查詢使用視圖技術。項目中，所有委托單、記錄單、報告單和配置參數(shù)的查詢都是通過調(diào)用視圖實現(xiàn)的。由于其預編譯性，因此能夠獲得很高的執(zhí)行效率，相較于傳統(tǒng)的直接傳遞SQL查詢語句，降低了網(wǎng)絡數(shù)據(jù)的傳輸量；還能夠簡化查詢語句的書寫，增加數(shù)據(jù)庫的安全性。

③表中記錄的增、刪、改等固定操作使用存儲過程技術。存儲過程是一系列已經(jīng)預編繹過的SQL語句，因此運行速度很快，而且運行比較穩(wěn)定；同時，調(diào)用時只需傳遞很簡單的命令和參數(shù)即可，減少了網(wǎng)絡流量；執(zhí)行結束后，可以返回單個或多個結果集以及返回值，這樣，運算放在服務器端進行，減少了客戶機的壓力。項目中，在設計對數(shù)據(jù)庫表單修改、保存等操作時大量使用了該技術。

2.2 Visual Basic編程方面

①使用ADO對象類型訪問數(shù)據(jù)庫。ADO對DAO進行了擴展，具有更多的屬性、方法和事件；同時，在VB中不能直接訪問OLEDB，但ADO封裝實際上可以實現(xiàn)OLEDB的所有功能；ADO比ODBC具有更高的效率、更好的可擴展性和靈活性。因此，本項目主要采取的是ADO方法，使用ADO對象模型訪問數(shù)據(jù)庫。另外，少數(shù)只查找不涉及編輯的表單，直接使用ADOData控件訪問數(shù)據(jù)庫，更加簡單快捷。

②使用標準模塊（BAS）。對項目中需要頻繁使用的，如：連接數(shù)據(jù)庫、斷開與數(shù)據(jù)庫的連接、執(zhí)行數(shù)據(jù)庫操作語句、執(zhí)行數(shù)據(jù)庫查詢語句、加載下拉列表框內(nèi)容、清空表單、加載表單按鈕狀態(tài)等操作，將其制作成公用過程（Public Sub）或者公用函數(shù)（Public Function），統(tǒng)一放入標準模塊中，實現(xiàn)代碼復用，增強了程序的條理性。

③使用類模塊（CLS）。筆者創(chuàng)建了“用戶”這個類，賦予它“用戶名”、“密碼”、“用戶類型”三個基本屬性，以及“清空屬性”、“刪除用戶”、“增加用戶”、“修改密碼”、“查詢用戶信息”、“查詢用戶是否存在”、“修改用戶信息”、“獲取用戶權限”等十幾種方法。其中很多種方法都包含著操作數(shù)據(jù)庫的復雜語句，這樣封裝復雜代碼，方便了復用，實現(xiàn)了面向?qū)ο蠛统绦虻慕Y構化，便于后期維護或代碼移植。

④給窗體設置自定義屬性來在窗體間傳遞參數(shù)。窗體間傳遞參數(shù)的方法有：使用全局變量傳遞參數(shù)、使用窗體標準屬性傳遞參數(shù)、使用給窗體設置自定義屬性傳遞參數(shù)。第一種作用域是全局出現(xiàn)錯誤將難以發(fā)現(xiàn)，同時增加了窗體間的耦合。第二種缺點是不便表達參數(shù)的意義。本項目采用第三種，即在窗體的聲明部分用Public定義變量來作為窗體的自定義屬性，在其他模塊中就可以設置這些自定義屬性的值。這樣，既準確地傳遞了參數(shù)，又設置了有意義的名稱。

⑤通過狀態(tài)函數(shù)給表單上的按鈕加載狀態(tài)值（有效或無效）。筆者的方法是：先窮舉表單上按鈕所有符合業(yè)務邏輯的狀態(tài)組合，建立“窗體狀態(tài)參數(shù)-所有按鈕狀態(tài)”的二維表格，然后在bas模塊文件中建立“窗體名稱”-“窗體狀態(tài)標示碼”為二元參數(shù)的全局型的過程（Public Sub），調(diào)用時用“窗體狀態(tài)標示碼”值“查”表，讀取相應的窗體按鈕狀態(tài)并加載。這樣，簡化了按鈕間復雜的邏輯關系編程，增強了程序的結構感。

2.3 Crystal Reports報表方面

報表是應用程序中不可缺少的部分，試驗室的報表主要體現(xiàn)在需要紙質(zhì)打印的各類單據(jù)，材料試驗項目繁多、表格復雜。VB6作為較老的語言，自身的報表功能是其公認弱項。水晶報表（Crystal Report）是業(yè)內(nèi)專業(yè)、強大的報表系統(tǒng)，本項目嘗試把水晶報表和VB6結合起來作為其報告輸出工具，提出了一個解決方法。

考慮到實際業(yè)務中單據(jù)樣式變化不大，因此采用推模式（PULL），把水晶報表rpt文件當成模板，在設計器里設計好報表格式，再組裝DataSet就可以生成報表了。Crystal Report9和VB6連接時報表預覽窗體的關鍵代碼簡述如下：

Dim SandReportReport As New CR_SandReport'SandOrder是建立的報表的名稱

DimSandReport_Connection As ADODB.Connection'建立一個ADO連接

DimSandReport_adoRSAsADODB.Recordset

PrivateSub Form_Load()

'創(chuàng)建并綁定ADORecordset對象

Set SandReport_Connection=New ADODB.Connection

Set SandReport_adoRS=New ADODB.Recordset

SandReport_Connection.Open Conn'打開連接，其中conn為系統(tǒng)連接字符串

SandReport_adoRS.Open strSQL,SandReport_Connection,adOpenDynamic,adLockBatchOptimistic

SandReportReport.Database.SetDataSourceSandReport_adoRS'動態(tài)設置報表數(shù)據(jù)源

CR_SandOrder.PaperSize=crPaperA4'設置報表紙張大小為A4

Me.WindowState=2

Screen.MousePointer=vbHourglass

CRViewer91.ReportSource=SandReportReport

CRViewer91.ViewReport'顯示報表

Screen.MousePointer=vbDefault

End Sub

3 實 例

以混凝土砂試驗委托、試驗、報告、查找等主要功能為例，展示一下程序運行效果，見圖2。

4 結 語

使用該軟件，能把混凝土企業(yè)試驗室的眾多業(yè)務整合在一起，條理明晰；避免了試驗人員繁瑣的計算、復驗過程；報表美觀大方，同時支持預覽、批量打印。實踐證明，該軟件能夠給試驗室提供有力的支持和幫助，對于類似的試驗室建設，也有著較好的借鑒意義。

[1]史斌星.Visual Basic貫通教程[M].北京:清華大學出版社,2003.

[2]黃增榮.Visual Basic 6.0計算方法開發(fā)方法指南[M].上海:復旦大學出版社,2000.

[3]汪黎明，等.安徽省建設工程檢測人員培訓考核指南[M].鄭州:黃河水利出版社,2007.