【正文】 聯(lián)系電話 任務(wù) 及 要求 任務(wù)： 綜合運(yùn)用 計(jì)算機(jī)信息管理 專業(yè)知識(shí) ,實(shí)現(xiàn) 商店存貨管理 系統(tǒng) 。 商店存貨管理 系統(tǒng) 。所以，加強(qiáng)對(duì)存貨的管理顯得非常重要。系統(tǒng)可以完成對(duì)各類信息的瀏覽、查詢、添加、刪除、修改等功能，其目的都是為 了方便用戶使用。隨著經(jīng)濟(jì)文化水平的顯著提高，人們對(duì)生活質(zhì)量及工作環(huán)境的要求也越來越高。采用計(jì)算機(jī)管理信息系統(tǒng)已成為庫存管理科學(xué)化和現(xiàn)代化的重要標(biāo)志，它給企業(yè)管理來了明顯的經(jīng)濟(jì)效益和社會(huì)效益。庫存管理主要功能是記錄入庫、出庫、盤點(diǎn)等庫存詳細(xì)信息。 存貨的存在是企業(yè)生產(chǎn)經(jīng)營活動(dòng)順利進(jìn)行的前提，但是過多的存貨投資往往會(huì)使企業(yè)承擔(dān)過重的存貨儲(chǔ)存成本，影響企業(yè)的利潤水平，而過少的存貨投資又會(huì)增加企業(yè)存貨短缺的風(fēng)險(xiǎn)，家中企業(yè)訂貨成本，因此，權(quán)衡利弊，只有通過建立一個(gè)好的存貨系統(tǒng)，才能有效地解決這些問題的存在。 庫存的管 理的操作自動(dòng)化和信息的電子化，全面提高了庫存的管理水平。 2. 高效的 商店存貨 管理：能 有效的提高 管理效 率，增加營業(yè)收入。 商店管理 形象。 全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（?？疲┯?jì)算機(jī)信息處理綜合作業(yè) 3 綜上所述，開發(fā)商店存貨管理系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、都是可行的。例如對(duì)商店的存貨進(jìn)行有效、合理的管理與控制是必不可少的。 庫存控制的作用 主要是：在保證企業(yè)生產(chǎn)、經(jīng)營需求的前提下，使庫存量經(jīng)常保持在合理的水平上；掌握庫存量動(dòng)態(tài)，適時(shí)，適量提出訂貨，避免超儲(chǔ)或缺貨；減少庫存空間占用，降低庫存總費(fèi)用；控制庫存 資金 占用，加速資金周轉(zhuǎn)。就要對(duì)該商品進(jìn)行登記保存，把其基本信息存入數(shù)據(jù)庫，以便以后的查詢、修改及刪除。 全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（?？疲┯?jì)算機(jī)信息處理綜合作業(yè) 7 第三章 開發(fā)工具的介紹 系統(tǒng)的架構(gòu) 本系統(tǒng)開發(fā)使用的系統(tǒng)只是普通的 PC 機(jī)，操作系統(tǒng)為 Windows XP 版本。 系統(tǒng)運(yùn)行環(huán)境操作系統(tǒng) 采用的是當(dāng)前流行的主流操作系統(tǒng)微軟公司的 WindowsXP。 軟件平臺(tái)是指系統(tǒng)開發(fā)與運(yùn)行的軟件環(huán)境。 開發(fā)工具 在確定了操作系統(tǒng)后，就該選擇開發(fā)工具了。 Visual Basic 的簡介 首先，我們還從 Visual Basic 這個(gè)名字開始，來認(rèn)識(shí)這個(gè)軟件。 “Basic” 指的是 BASIC (Beginners AllPurpose Symbolist Instruction Code) 語言，一種在計(jì)算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的 編程 語言。 Visual Basic 編程系統(tǒng)和 VBA 都使用這一語言。Visual Basic的最初版本是 Visual ，那時(shí)的 Visual Basic 只是簡全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（專科）計(jì)算機(jī)信息處理綜合作業(yè) 9 單地以對(duì)象的屬性為中心來進(jìn)行編程。這種新技術(shù)被稱作為 Visual Basic For Applications，它幫助實(shí)現(xiàn)了Visual Basic 的最初設(shè)想。其目的就是要使視窗系統(tǒng)下的每一件事情都支持同樣的易于使用的 高級(jí)語言。當(dāng) Visual Basic逐漸復(fù)雜時(shí)，世界已經(jīng)在圍著它轉(zhuǎn)了?？梢钥闯鏊度肓讼喈?dāng)一部分的精力去支持微軟日益在Inter 和分布式（網(wǎng)絡(luò)）計(jì)算方面的重視程度。 此外， Visual Basic 在數(shù)據(jù)開發(fā)方面提供了十分強(qiáng)大的功能。 Access有以下一些基本定義： （ 1）數(shù)據(jù)庫是一個(gè)包含各種 Access “對(duì)象” (表、查詢、窗體、報(bào)表、宏和模塊 )的文件， Access中所有工作都是建立在此基 礎(chǔ)之上的。對(duì)于像 Access這樣的關(guān)系數(shù)據(jù)庫管理程序，一個(gè)數(shù)據(jù)庫通常包含幾個(gè)存放相關(guān)數(shù)據(jù)的不同表。查詢還可以對(duì)一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。 （ 6）頁是一種特殊類型的窗體，它使用戶能夠利用 Web 瀏覽器查看和編輯Access 的表。利用 VBA可以編寫程序代碼來完成 Access宏所不能完成的特定任務(wù)。步驟： 打開 visual ，點(diǎn)擊 文件 —— 新建工程，在新建工程中選擇標(biāo)準(zhǔn) EXE，然后確定，這樣就新建了一個(gè)窗體，將這個(gè)窗體的名稱屬性改為 frmlog， caption 屬性改為登陸系統(tǒng)。 amp。 amp。設(shè)置 ADO數(shù)據(jù)控件的命令類型為 SQL .RecordSource = strSQL 39。 用戶 登陸窗體為本系統(tǒng)的啟動(dòng)窗體，其功能是讓合法的用戶使用本系統(tǒng)， 以防止其它的非法人員使用該系統(tǒng)。 對(duì)系統(tǒng)進(jìn)行調(diào)試，不同的權(quán)限的用戶會(huì)有不同的界面： ①在用戶名文本框中輸入： admin 在密碼文本框中輸入： admin 由于該賬戶為超級(jí)管理員，因此點(diǎn)擊 登錄 按鈕就可以直接登錄到主界面了；如下圖 42所示： 圖 42 系統(tǒng)主界面 ②倘若 在用戶名文本框中輸入： msz 主考院校：西安電子科技大學(xué) 14 在密碼文本框中隨便輸入正確密碼，由于這個(gè)賬戶為普通賬戶，因此會(huì)彈出如下圖所示的對(duì)話框提示 對(duì)不起，您無權(quán)訪問本系統(tǒng)！ 如下圖 43： 圖 43 用戶登錄 ③ 當(dāng)用戶名 或密碼輸入錯(cuò)誤時(shí)比如 在用戶名文本框中輸入： admin 在密碼文本框中隨便輸入一個(gè)密碼，因?yàn)檫@些信息在數(shù)據(jù)庫中找不到，就會(huì)彈出對(duì)話框提示 用戶名或密碼錯(cuò)誤，請重新輸入！ 如 圖 44 圖 44 用戶登錄 用戶主界面的實(shí)現(xiàn) 全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（?？疲┯?jì)算機(jī)信息處理綜合作業(yè) 15 用戶主界面 就是將各個(gè)模塊的大意列在菜單中，然后通過每一個(gè)菜單將其它的窗體逐個(gè)對(duì)應(yīng)的連到主窗體中?？梢韵虮砝镙斎胗涗?，在數(shù)據(jù)庫中輸 入的記錄，在登錄時(shí)可以用數(shù)據(jù)庫中的任意一條記錄，主考院校：西安電子科技大學(xué) 16 但前提是有權(quán)限的用戶才可以進(jìn)入本系統(tǒng)有。 在 Date控件上右擊選擇 ADODC 屬性 ，就會(huì)彈出屬性頁對(duì)話框。Persist Security Info=False 。 RecordSource 為記錄源，它可以來連接數(shù)據(jù)庫中的表。Data Source=。更新記錄 = : = = End Sub 這樣往用戶名、權(quán)限、密碼、確認(rèn)密碼文本框中里輸入記錄，點(diǎn)擊添加用戶按鈕，就會(huì)插入記錄。 username amp。 username2 amp。strID As String If = Then MsgBox 商品編號(hào)不能為空??！ , , 提示?。? 全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（?？疲┯?jì)算機(jī)信息處理綜合作業(yè) 23 End If If = Then MsgBox 商品名稱不能為空?。?, , 提示??！ End If If = Then MsgBox 商品數(shù)量不能為空！！ , , 提示??！ End If If = Then MsgBox 商品售價(jià)不能為空！！ , , 提示！！ End If If = Then MsgBox 商品類別不能為空?。?, , 提示??！ End If 貨物 ID=39。, , adSearchForward, 1If Not Then MsgBox 此商品已經(jīng)存在，請嘗試修改商品！ , , 提示 Else (貨物 ID) = (貨物名 ) = (數(shù)量 ) = (單價(jià) ) = (類別 ) = (進(jìn)貨時(shí)間 ) = 39。 sno amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。更新記錄 End If 全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（專科）計(jì)算機(jī)信息處理綜合作業(yè) 27 結(jié) 論 在這次實(shí)習(xí)中，自己的 vb語言知識(shí)和數(shù)據(jù)庫知識(shí)得到了鞏固，編程能力也有了一定的提高。這時(shí)才逐漸有了思路。編程是一件十分嚴(yán)謹(jǐn)?shù)氖虑?，容不得馬虎。它給我們一個(gè)思想和大綱，讓我們在編程時(shí)容易找到思路，不至于無章可循。 通過實(shí)習(xí)鞏固并提高對(duì)基礎(chǔ)知識(shí)的理解，能綜合運(yùn)用計(jì)算機(jī)的各應(yīng)用軟件，并能靈活掌握前臺(tái)界面與后臺(tái)的數(shù)據(jù)庫的連接， 更深入 理解 Visual basic 的知識(shí)，提高了我的編程能力與專業(yè)水平。 他嚴(yán)肅的科學(xué)態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神，深深地感染和激勵(lì)著我。經(jīng)過三個(gè)多月的設(shè)計(jì)和開發(fā)，我終于完成了商店存貨系統(tǒng)的開發(fā)與實(shí)現(xiàn)。我相信 ,本次畢業(yè)設(shè)計(jì)我為本系統(tǒng)搭下了一個(gè)框架 ,以后我一定在此基礎(chǔ)上不斷完善它 。 amp。 amp。設(shè)置 ADO數(shù)據(jù)控件的命令類型為 SQL .RecordSource = strSQL 39。更新記錄 = : = 主考院校：西安電子科技大學(xué) 32 = End Sub （ 4） 在 修改密碼 按鈕中加入代碼： Private Sub Command2_Click() username = InputBox(請輸入你要修改 密碼 的 用戶 ： , 該用戶的密碼將修改為您輸入的密碼！ ) If username Then password = 用戶名 = amp。點(diǎn)擊是按鈕值為 6 . (密碼 ) = username End If MsgBox 密碼 修改成功！ Else MsgBox 密碼 修改失??！ End If Else MsgBox 查無 此用戶 ！ End If Else MsgBox 請輸入正確的 用戶名 ！ End If 全國高等教育自學(xué)考試計(jì)算機(jī)信息管理專業(yè)（?？疲┯?jì)算機(jī)信息處理綜合作業(yè) 33 End Sub （ 5）在 刪除用戶 按鈕加入如下代碼： Private Sub Command3_Click() username2 = InputBox(請輸入你要?jiǎng)h除的 用戶的用戶 名 ： ) If username2 Then fi2 = 用戶名 = amp。點(diǎn)擊是按鈕值為 6 MsgBox 記錄刪除成功！ Else MsgBox 記錄刪除失?。? End If End If Else MsgBox 請輸入正確 的用戶名 ！ End If End Sub