【正文】 If End Sub 當選擇一條記錄 然后對其屬性進行修改，然后點擊 修改商品 按鈕，就會將原來的記錄修改。在修改商品按鈕上加入如下代碼： Private Sub Command3_Click() sql = select * from 商品信息 where hwID = Int(39。 amp。 amp。 39。) hwm = 39。 amp。 amp。 39。 hwsl = 39。 amp。 amp。 39。 hwdj = 39。 amp。 amp。 39。 hwlb = 39。 amp。 amp。 39。 jhsj = Date39。 amp。 amp。 39。 貨物 ID=39。 amp。 amp。 39。, , adSearchForward,1 If Not Then MsgBox 您確定要修改商品信息嗎？ , , 提示 Else (貨物 ID) = (貨物名 ) = (數(shù)量 ) = (單價 ) = (類別 ) = (進貨時間 ) = 39。更新記錄 End If 全國高等教育自學考試計算機信息管理專業(yè)（?？疲┯嬎銠C信息處理綜合作業(yè) 27 結(jié) 論 在這次實習中，自己的 vb語言知識和數(shù)據(jù)庫知識得到了鞏固，編程能力也有了一定的提高。同時也學會了解決問題的方法?？偨Y(jié)起來，自己主要有以下 幾點體會： 。剛剛看到我綜合作業(yè)的題目，不知如何下手，但在后來的學習過程中自己通過看書和課外資料，并請教其他同學，慢慢地對這門語言和數(shù)據(jù)庫有所熟悉。這時才逐漸有了思路。所以，這次實習之后，我告誡自己：今后一定要牢固掌握好專業(yè)基礎知識。 。自己在編程時經(jīng)常因為一些類似于“少了分號”的小錯誤而導致錯誤，不夠認真細致，這給自己帶來了許多麻煩。編程是一件十分嚴謹?shù)氖虑椋莶坏民R虎。所以在今后自己一定要培養(yǎng)嚴謹?shù)目茖W態(tài)度。我想這不僅是對于程序設計，做任何事都應如此。 。它給我們一個思想和大綱，讓我們在編程時容易找到思路，不至于無章可循。同時它也有廣泛的實際應用。 總之，在這次實習中，自己的 visual basic 語言以及數(shù)據(jù)結(jié)構知識和數(shù)據(jù)庫access得到提高，編程能力也得到了提高。設計一個面向超市及商店，具有一定實用性的數(shù)據(jù)庫信息管理里系統(tǒng)，對商店及超市與日俱增的商品貨物進行管理提供方便，具有很強的實用性。 通過實習鞏固并提高對基礎知識的理解，能綜合運用計算機的各應用軟件，并能靈活掌握前臺界面與后臺的數(shù)據(jù)庫的連接， 更深入 理解 Visual basic 的知識，提高了我的編程能力與專業(yè)水平。 一個好的 商店存貨管理系統(tǒng)可以有效的管理商品的庫存量，合理的利用存貨的規(guī)律達到合理的庫存量。合理的庫存可以在企業(yè)各個物流環(huán)節(jié)中起到一定的緩沖作用，并可以縮短物流活動的實現(xiàn)時間，加快企業(yè)對市場的反應速度。 主考院校：西安電子科技大學 28 致 謝 感謝我的 輔 導 老 師 老師 ，他嚴謹 細致 、一絲不茍的作風一直是我工作、學習中的榜樣；他循循善誘的教導和不拘一格的思路給予我無盡的啟迪。 他嚴肅的科學態(tài)度，嚴謹?shù)闹螌W精神，深深地感染和激勵著我。 本設計 及論文是在 李老師 的親切關懷和悉心指導下完成 的 ，還有我的同窗們，他們也給了我很大的幫助與鼓勵。 從課題的選擇到項目的最終完成 ，離不來他們對我的支持。 通過這次畢業(yè)設計，在李老師的指導下，我初步掌握了用 VB開發(fā)軟件的方法，在進行設計軟件時我遇到了一些困難，于是我在老師的提示下，查資料，上網(wǎng)和網(wǎng)友進行探討。經(jīng)過三個多月的設計和開發(fā)，我終于完成了商店存貨系統(tǒng)的開發(fā)與實現(xiàn)。由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待進一步改善。 由于時間倉促，這個系統(tǒng)做的還有很多不完善的 地方，不足之處懇請李老師提出批評和改進意見。我相信 ,本次畢業(yè)設計我為本系統(tǒng)搭下了一個框架 ,以后我一定在此基礎上不斷完善它 。我愿在未來的學習和工作中，以更加豐厚的成果來答謝所有曾經(jīng)關心、幫助和支持過我的親人、老師、同學與朋友！ 全國高等教育自學考試計算機信息管理專業(yè)（?？疲┯嬎銠C信息處理綜合作業(yè) 29 參考文獻 [1] 田孝文，朱強 . 計算機信息管理綜合作業(yè)， 經(jīng)濟科學出版社 2022 [2]邵潔主編 . VB 程序設計 , 東南大學出版社， 1999 [3]楊小影主編 . VB 程序設計基礎 , 中國水利水電出版社， 1997 [4]古梅主編 . 新編 VB程序設計教程 ,中國電力出 版社， 1998 [5] 姚領田 . 精通 MFC 程序設計 [M]. 北京：人民郵電出版社， 2022. [6] 李大友 . Visual Basic 程序設計 清華大學出版社 2022 年 [7] 陳明 . Visual Basic 程序設計 中央電大出版 2022年 [8] 劉韜 ,駱娟 . Visual 人民郵電出版社 2022年 主考院校：西安電子科技大學 30 附 錄 （ 1）在 登錄 按鈕上添加如下代碼： Private Sub Command1_Click() Static intErr As Integer Dim strUser As String, strPass As String, strSQL As String strUser = Trim$() 39。用戶名 strPass = Trim$() 39。 密碼 strSQL = SELECT * FROM 表 1 WHERE 用戶名 =39。 amp。 strUser amp。 39。 AND 密碼 =39。 amp。 strPass amp。 39。 With Adodc1 .CommandType = adCmdText 39。設置 ADO數(shù)據(jù)控件的命令類型為 SQL .RecordSource = strSQL 39。設置記錄源 39。刷新紀錄集（關鍵語句） If . And . Then intErr = intErr + 1 If intErr = 3 Then MsgBox 對不起，您無權訪問本系統(tǒng)！ , , 提示！ End Else MsgBox 用戶名或密碼錯誤，請重新輸 入！ , , 提示 Call FocusBack(Text1) End If Else gstrUser = strUser 39。存用戶名 If .Recordset(權限 ) = 1 Then gblnPurview = True 全國高等教育自學考試計算機信息管理專業(yè)（專科）計算機信息處理綜合作業(yè) 31 Else gblnPurview = False End If Unload Me End If End With End Sub （ 2）在 重置 按鈕上加入如 下代碼，就可以將記錄排空： Private Sub Command2_Click() = = End Sub （ 3）在 添加用戶 按鈕上加入如下代碼： Private Sub Command1_Click() If Then MsgBox 前后密碼不一致，請重新輸入??！ , , 提示！！ End If If = Or = Or = Then MsgBox 用戶名或密碼不能為空??！ , , 提示！！ End If (用戶名 ) = (密碼 ) = (權限 ) = 39。更新記錄 = : = 主考院校：西安電子科技大學 32 = End Sub （ 4） 在 修改密碼 按鈕中加入代碼： Private Sub Command2_Click() username = InputBox(請輸入你要修改 密碼 的 用戶 ： , 該用戶的密碼將修改為您輸入的密碼！ ) If username Then password = 用戶名 = amp。 Trim( username) (password) If Not Then q2 = MsgBox(你真的要修改 用戶名 為： amp。 username amp。 的 用戶的密碼 嗎？ , 36) If q2 = 6 Then 39。點擊是按鈕值為 6 . (密碼 ) = username End If MsgBox 密碼 修改成功！ Else MsgBox 密碼 修改失敗！ End If Else MsgBox 查無 此用戶 ！ End If Else MsgBox 請輸入正確的 用戶名 ！ End If 全國高等教育自學考試計算機信息管理專業(yè)（?？疲┯嬎銠C信息處理綜合作業(yè) 33 End Sub （ 5）在 刪除用戶 按鈕加入如下代碼： Private Sub Command3_Click() username2 = InputBox(請輸入你要刪除的 用戶的用戶 名 ： ) If username2 Then fi2 = 用戶名 = amp。 Trim(username2) (fi2) If Then MsgBox 查無此 用戶 ！ Else q1 = MsgBox(你真的要刪除 用戶名 為： amp。 username2 amp。 的 用戶 嗎？ , 36) If q1 = 6 Then 39。點擊是按鈕值為 6 MsgBox 記錄刪除成功！ Else MsgBox 記錄刪除失敗！ End If End If Else MsgBox 請輸入正確 的用戶名 ！ End If End Sub