【正文】 用戶名錯誤 ElseIf Result = WrongUserName Then MsgBox 用戶名錯誤！ , vbInformation txt(0).SetFocus 39。用戶登錄并返回登錄結(jié)果 Result = (Trim(txt(0)), txt(1), UserID, TrueName, UserType) 39。用戶對象 Dim Result As gxcLoginResult 39。釋放查詢結(jié)果集 Set rs = Nothing 39。添加單個對象到集合中 obj 39。為單個對象的屬性賦值 With obj 39。清空當(dāng)前集合 39。SQL 字符串 39。進(jìn)貨對象 Dim index As Long 39。統(tǒng)計(jì)各種商品的進(jìn)貨次數(shù)和進(jìn)貨總價格，返回一個集合類 Public Function Statistic() As clsBuys On Error Resume Next Dim rs As Recordset 39。釋放查詢結(jié)果集 Set rs = Nothing 39。添加單個對象到集合中 obj 39。往集合中添加查詢結(jié)果 For index = 1 To Set obj = New clsBuy 39。清空當(dāng)前集合 39。 End If strSQL = strSQL amp。 EndingDate amp。, 39。 BeginningDate amp。, 39。 GoodsName amp。 ,39。 lngID End If If GoodsName = Or BeginningDate = 1/1/1900 Or EndingDate = 1/1/1900 Then strSQL = strSQL amp。 (NULL Else strSQL = strSQL amp。SQL 字符串 39。進(jìn)貨對象 Dim index As Long 39。參數(shù)說明： lngID 為進(jìn)貨編號， GoodsName 為商品名稱， BeginningDate 和 EndingDate為進(jìn)貨時間范圍 On Error Resume Next Dim rs As Recordset 39。函數(shù)返回值 ConnectToDatabase = True Exit Function ErrHandler: ConnectToDatabase = False szErrMsg = 39。pwd= amp。 ServerName amp。 _ 。Initial Catalog= amp。 UserName amp。 _ 。連接到 SQL Server 數(shù)據(jù)庫 With g_Conn .CursorLocation = adUseClient .CommandTimeout = 100 .ConnectionString = Provider=。設(shè)置服務(wù)器名稱，數(shù)據(jù)庫名稱，登錄名（此時假設(shè)密碼為空） Dim ServerName As String, DBName As String, UserName As String, strPassword As String 39。 最后，再次對關(guān)心、幫助我的老師和同學(xué)們表示衷心地感謝！ . . 附錄 ： 例程 Connecttodatebase 的實(shí)現(xiàn) 39。 . . 參考文獻(xiàn) [1]劉紅梅 .Visual Basic 程序設(shè)計(jì)案例教程 [M].北京 :人民郵電 出版社， 2020:30120. [2]郭瑞軍，唐邦明 .Visual Basic 數(shù)據(jù)庫開發(fā)實(shí)力精粹 [M].北京 :電子工業(yè)出版社， 2020:243310. [3]王珊，薩師煊 .數(shù)據(jù)庫系統(tǒng)概論 [M].北京 :高等教育出版社， 2020:1825. [4]楊晶 . 程序設(shè)計(jì) [M]. 北京：機(jī)械工業(yè)出版社 , 2020:3294. [5]張海潘 . 軟件工程導(dǎo)論 [M].北京：清華大學(xué)出版社 , 2020. [6]劉云生 , 盧正鼎 , 盧炎生 . 數(shù)據(jù)庫系統(tǒng)概論 [M].武漢 :華中科技大學(xué)出社， 2020. [7] 鄭人 杰 , 殷人昆 , 陶永雷 . 實(shí)用軟件工程 [M].北京：清華大學(xué)出版社 , 1997. [8]JeffreyHammond, SupportAbout to Disappear[J].Redmonddeveloper news,2020 [9]Yunhua Wu ,Fajun Investigation of Vitamin B6 at a Glassy Carbon Electrode and Its Application in Determination[J].Bulletin of The Korean Chemical Society ,2020 . . 致謝 在完成畢業(yè)論文期間，李老師從始至終對我進(jìn)行了細(xì)心的指導(dǎo)，她認(rèn)真負(fù)責(zé)的工作作風(fēng)、平易近人的品格、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度和誨人不倦的學(xué)者風(fēng)范，使我深受教益，也給我留下了深刻的印象。但系統(tǒng)還存在如下不足： 1）沒能實(shí)現(xiàn)用戶管理模塊中管理員和普通用戶的權(quán)限問題； 2）系統(tǒng)不能聯(lián)合統(tǒng)計(jì)并分析，并且打印數(shù)據(jù)供用戶更好的分析市場和管理商店； 3)用戶界面設(shè)計(jì)不夠美觀等。 本 系統(tǒng)基本上符合了預(yù)期的用戶需求目標(biāo)，實(shí)現(xiàn)了商品信息維護(hù)、進(jìn)貨管理、銷售管理、報(bào)損管理、數(shù)據(jù)統(tǒng)計(jì)等功能。調(diào)試通過后，對編寫相似的類或類內(nèi)的方法有很強(qiáng)的參考作用。在項(xiàng)目開發(fā)中要先創(chuàng)建 EXE 工程，再編寫整個的 ActiveX DLL 工程的代碼。ActiveX DLL 工程是無法進(jìn)行單獨(dú)調(diào)試的，必 須與 EXE 工程聯(lián)合調(diào)試。這樣編譯時 VB 會提示一次性把語法錯誤都解決了，而后在調(diào)試時，只需解決語義錯誤即可。如果在有錯誤就會再次停下來了，直到全部語法都修改完畢，這樣就大大的降低了調(diào)試的 效率。 先編譯后調(diào)試 Visual Basic 在調(diào)試的時候是解釋執(zhí)行的，每當(dāng)執(zhí)行到一個程序時才對這個函數(shù)進(jìn)行語法分析和語義分析，分析通過以后才生成中間代碼 解釋執(zhí)行。 圖 查詢 程序流程 圖 輸入查詢信息 否 是 是否存在該信息數(shù)據(jù) 否 是 提示沒有 輸出該信息 所要查詢 的信息 確認(rèn)信息 關(guān)閉窗體 是否為倉庫原有商品 是 否 提示：需要在保存后退出 是否保存？ 否 是 保存成功 否 是 Rollback Commit 關(guān)閉窗體 . . 強(qiáng)制變量聲明 Visual Basic 允許變量不經(jīng)過聲明即可使用，但如果不使用強(qiáng)制變量聲明，那么開發(fā)人員因?yàn)殄e誤的錄入而產(chǎn)生的表達(dá)式就會被當(dāng)做一個 新的變量被使用，這將給程序的運(yùn)行帶來顯示或者潛在的錯誤，從而給調(diào)試帶來不小的難度 [9]。在完成了用戶界面設(shè)計(jì)和程序過程設(shè)計(jì)后，基本上完成了詳細(xì)設(shè)計(jì)的內(nèi)容。 用戶名是否輸入 否 是 密碼是否輸入 否 是 查找管理員表中對應(yīng)密碼的用戶 否 存 在 ？ 是 打開主窗體 檢查輸入次數(shù) 3 關(guān)閉窗體 兩次輸入的密碼是否一致 否 是 原密碼是否正確 否 是 對數(shù)據(jù)庫中的相應(yīng)字段進(jìn)行更新 提示已更新并提交更新 關(guān)閉窗體 檢查輸入次數(shù) 3 . . 圖 商品添加 程序流程圖 商品查詢 在執(zhí)行查詢操作之前通常要先在單行文本框中輸入被查詢的條件，在單行文本框失去聚焦時將查詢條件傳遞給查詢按鈕的單擊事件中，然后過濾語句依據(jù)此過濾條件過濾得出相應(yīng)的數(shù)據(jù)，并顯示在其他數(shù)據(jù)窗體控件中。然后管理員可根據(jù)倉庫管理的需求是否保存該貨物。 圖 登錄界面程序流程圖 2)密碼修改程序設(shè)計(jì) 密碼修改程序設(shè)計(jì)流程圖如圖 所示 在用戶更改密碼時，系統(tǒng)首先判斷輸入的兩次舊密碼是否一致，若一致，則判斷原密碼是否正確，如果原密碼正確，則對數(shù)據(jù)庫中的相應(yīng)字段進(jìn)行更新。 登錄界面及密碼修改 1) 登錄界面程序設(shè)計(jì) 登錄界面程序流程圖如圖 所示 在用戶登錄時，在輸入用戶名和密碼及用戶類型的前提下將其與數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行對比，若一致，則打開主窗體，若不一致提示錯誤，并要求再次輸入。 程序流程設(shè)計(jì) 程序過程設(shè)計(jì)主要是在借助過程設(shè)計(jì)工具的情況下，對程序的具體實(shí)現(xiàn)過程進(jìn)行設(shè)計(jì)。這是由 cmdOK 的 Click 事件來完成的。設(shè)計(jì)界面如圖 所示。 圖 4. 5 主界面設(shè)計(jì)圖 主界面中，菜單欄和工具欄作為功能向?qū)?，?后 用戶執(zhí)行相關(guān)實(shí)體的添加、更改、刪除、查詢和統(tǒng)計(jì)操作，同時也包括自定義視圖和查看軟件關(guān)于信息等輔助功能。按照表 所示 對主界面控件進(jìn)行布局。 編寫的函數(shù)見附件的例程 設(shè)計(jì)用戶界面端 在三層結(jié)構(gòu)設(shè)計(jì)中，用戶界面端的開發(fā)和維護(hù)都變得十分簡單，并且增加了面向?qū)ο蟮奶匦?，下面就進(jìn)入用戶界面的開發(fā)階段。 返回值： clsBuys 類型，一個 clsBuy 的集合。 設(shè)計(jì)思路：組織 SQL 語句并執(zhí)行 —— 將查到的結(jié)果加入集合 → 返回類本身。 返回值： clsBuys 類型，一個 clsBuy 的集合。需要注意的是，用戶管理模塊中的查詢是單條件的，而進(jìn) 貨管理模塊中的查詢是多條件的組合查詢。 3）商品管理模塊 商品管理模塊包括操作類 clsGoods 和集合類 clsGoodses，實(shí)現(xiàn)的功能有添加、