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