【正文】 ................................................... 13 數(shù)據(jù)庫(kù)設(shè)計(jì) ............................................................................................................ 15 第五章 應(yīng)用程序設(shè)計(jì) .................................................................................................. 18 程序結(jié)構(gòu) ................................................................................................................ 18 程序源代碼 ........................................................................................................... 18 設(shè)計(jì)總結(jié) ............................................................................................................................. 37 參考文獻(xiàn) ............................................................................................................................. 38 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 2 摘 要 隨著現(xiàn)代工業(yè)的發(fā)展，計(jì)算機(jī)信息管理系統(tǒng)越來(lái)越受到企業(yè)重視。在 當(dāng)今信息高速發(fā)展的社會(huì) 中，管理信息系統(tǒng) 具有很重要的作用 。 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)簡(jiǎn)介 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)的目標(biāo)是建立一個(gè)滿(mǎn)足用戶(hù)長(zhǎng)期需求的產(chǎn)品?，F(xiàn)在把關(guān)系看作數(shù)據(jù)表。 索引用于快速訪(fǎng)問(wèn)數(shù)據(jù)。 數(shù)據(jù)庫(kù)管理系統(tǒng)（ DBMS）是指數(shù)據(jù)庫(kù)系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。關(guān)系模型是數(shù)學(xué)化模型 ， SQL語(yǔ)言是關(guān)系 數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)化語(yǔ)言，已得到了廣泛的應(yīng)用。 DBMS引擎還涉及事務(wù)管理、鎖 、備份和 恢復(fù)。因此，很有必要建立一個(gè) 貨物進(jìn)出庫(kù)管理系統(tǒng) ，使 貨物 管理工作規(guī)范化，系統(tǒng)化，程序化。 技術(shù)應(yīng)用于 倉(cāng)庫(kù) 管理對(duì)提高倉(cāng)庫(kù)作業(yè)效率有重要作用 將條碼技術(shù)和倉(cāng)庫(kù)管理信息系統(tǒng)結(jié)合起來(lái)，用于產(chǎn)品收、發(fā)、保管等全過(guò)程控制 和 管理，不僅改變 了 信息采集 傳統(tǒng)的手工作業(yè)方式 ， 同時(shí)也 降低 了 作業(yè)強(qiáng)度，還可避免由此造成的各種差錯(cuò)，提高作業(yè)效率和科學(xué)管庫(kù)水平。 數(shù)據(jù)庫(kù)設(shè)計(jì)的步驟主要是： （ 1） 數(shù)據(jù)庫(kù)結(jié)構(gòu)定義：目前的 DBMS有的是支持聯(lián)機(jī)事務(wù)處理 CLTP 的操作型 DBMS，有的可支持?jǐn)?shù)據(jù)倉(cāng)庫(kù)、有聯(lián)機(jī)分析處理 CLAP 功能的大型 DBMS，有的數(shù)據(jù)庫(kù)是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫(kù)。 SQL 語(yǔ)言介紹 SQL基礎(chǔ) SQL(Structured Query Language，結(jié)構(gòu)查詢(xún)語(yǔ)言 )是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫(kù)語(yǔ)言。 SQL 的集合特性允許一條 SQL語(yǔ)句的結(jié)果作為另一條 SQL語(yǔ)句的輸入。用戶(hù)通過(guò)在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計(jì)菜單和對(duì)話(huà)框， VB會(huì)自動(dòng)生成相應(yīng)的代碼。例如幾個(gè)窗體上的添加、刪除、返回按鈕的作用，就是通過(guò)在 各個(gè)相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來(lái)達(dá)到當(dāng)在幾個(gè)按鈕上出現(xiàn)單擊（ Click）事件后，相應(yīng)按鈕實(shí)現(xiàn)添加、刪除、返回的功能的。 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 9 Data 控件可以執(zhí)行大部分?jǐn)?shù)據(jù)庫(kù)訪(fǎng)問(wèn)操作，但是它并不能顯示數(shù)據(jù)庫(kù)中數(shù)據(jù)的內(nèi)容。 ADO Data控件 ADO Data控件與內(nèi) 部 Data控件以及 Remote Data控件（ RDC）相似。 MSChart控件 MSChart 控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。amp。 Access 2020 簡(jiǎn)述 Access2020 是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具， 1992年， Microsoft Access 作為第一個(gè)面向 Windows操作平臺(tái)的桌面數(shù)據(jù)庫(kù)管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手段，而且充分利用?Windows操作平臺(tái)的優(yōu)越性，采用與 Windows完全一致的界面風(fēng)格，使界面非常友好。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。 當(dāng)然，倉(cāng)庫(kù)中 貨物 入庫(kù)也是常有的事，入庫(kù)管理操作就是對(duì)于 貨物 入庫(kù)情況的管理，用戶(hù)可以方便地輸入一些 貨物 的信息。 ，業(yè)務(wù)操作簡(jiǎn)單，進(jìn)入系統(tǒng)即能使用。 幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息； 管理 貨物 信息管理：對(duì)倉(cāng)庫(kù)里的 貨物 進(jìn)行登記； 貨物 倉(cāng)庫(kù) 管理：管理倉(cāng)庫(kù)的 倉(cāng)庫(kù) 情況； 短線(xiàn) 貨物 管理：對(duì)倉(cāng)庫(kù)里短線(xiàn)的 貨物 進(jìn)行登記，以便及時(shí)采購(gòu)補(bǔ)貨； 超儲(chǔ) 貨物 管理：對(duì)倉(cāng)庫(kù)里超儲(chǔ)的 貨物 進(jìn)行登記，控制 倉(cāng)庫(kù) 量，減少進(jìn)貨； 入庫(kù)登記管理：能對(duì) 貨物 的入庫(kù)登記，刪除，更改等； 入庫(kù)期間統(tǒng)計(jì)： 貨物 入庫(kù)期間年度的統(tǒng)計(jì)； 供貨單位期間供貨金額統(tǒng)計(jì)：對(duì) 貨物 供應(yīng)的金額進(jìn)行統(tǒng)計(jì)； 對(duì) 貨物 出庫(kù)期間的年度統(tǒng)計(jì)，出庫(kù)登記，及收獲單位金額統(tǒng)計(jì)等； 對(duì)盤(pán)存 貨物 信息的盤(pán)存錄入； 可根據(jù)同一 貨物 的出入庫(kù)情況，對(duì) 倉(cāng)庫(kù) 情況的匯總； 對(duì)供貨單位情況，經(jīng)辦人員，收貨單位情況，倉(cāng)庫(kù)信息進(jìn)行登記管理，可進(jìn)行添加，刪除等操作； 對(duì)歷史 倉(cāng)庫(kù) ，歷史出庫(kù)，歷史出庫(kù)情況進(jìn)行管理； 可根據(jù)輸入的條件，對(duì) 貨物 的入庫(kù)信息， 倉(cāng)庫(kù) 信息等進(jìn)行簡(jiǎn)單查詢(xún)和組合查詢(xún)。添加執(zhí)行 SQL語(yǔ)句的函數(shù) Public Function transactSQL(ByVal sql As String) As Dim con As Dim rs As Dim strConnection As String Dim strArray() As String Set con = New 39。調(diào)入數(shù)據(jù)備份 Load main_sjbf = False End Sub 圖 5－ 1 主窗體界 面 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 21 Private Sub a6_Click() 39。 / amp。 SELECT * FROM [用戶(hù) ] where userID=39。39。39。39。39。39。39。39。39。39。39。39。判斷用戶(hù)名稱(chēng)是否為空 MsgBox 請(qǐng)輸入用戶(hù)名稱(chēng) !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶(hù) where UserID=39。添加用戶(hù) sql = insert into 用戶(hù) (UserID,UserPWD) values(39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。 39。設(shè)置表頭 (0, 0) = 貨物 編碼 (0, 1) = 貨物 名稱(chēng) (0, 2) = 類(lèi)別 (0, 3) = 型號(hào) (0, 4) = 單位 (0, 5) = 倉(cāng)庫(kù)編碼 (0, 6) = 存放倉(cāng)庫(kù) (0, 7) = 入庫(kù)計(jì)劃單價(jià) (0, 8) = 出庫(kù)計(jì)劃單價(jià) (0, 9) = 原始 倉(cāng)庫(kù) (0, 10) = 默認(rèn)貨位 (0, 11) = 警戒底線(xiàn) 倉(cāng)庫(kù) (0, 12) = 警戒高線(xiàn) 倉(cāng)庫(kù) For i = 0 To 12 39。但它無(wú)法對(duì)數(shù)據(jù)進(jìn)行動(dòng)態(tài)輸入，只能提供瀏覽功能。 amp。 PassWord amp。判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請(qǐng)重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 27 Exit Sub ElseIf Trim() = Then 39。39。39。39。39。39。39。39。39。39。39。39。39。調(diào)入數(shù)據(jù)備份 a5_Click End Select End Sub Private Sub x_Click() End End Sub ● 登陸模塊的實(shí)現(xiàn) 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 25 Private Sub cmdLogin_Click() denlu_name = denlu_pass = Dim my As New Dim myrs As New Set myrs = New Provider=。 / amp。執(zhí)行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢(xún)錯(cuò)誤： amp。 程序源代碼 程序?qū)崿F(xiàn)的部分代碼如下： ●公共模塊 Public date1 As String Public date2 As String Public gUserName As String 39。系統(tǒng)集輸入、維護(hù)、查詢(xún)、統(tǒng)計(jì)和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢(xún)選購(gòu) ,價(jià)格最低質(zhì)量最好 12 本系統(tǒng)基本涵蓋了 倉(cāng)庫(kù) 管理的主要需求， 具有完善細(xì)致的功能、友好的用戶(hù)界面、強(qiáng)大的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢(xún)和所見(jiàn)即所得的打印功能，并全面支持分析和決策的功能。 貨物進(jìn)出庫(kù)管理系統(tǒng) 需滿(mǎn)足倉(cāng)庫(kù)管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對(duì)工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計(jì)不同用戶(hù)的操作權(quán)限和登陸方法。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶(hù)共享數(shù)據(jù)庫(kù)。 AS為關(guān)鍵字表示，并定義了別名。這種改變基于數(shù)據(jù)庫(kù)關(guān)系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。用戶(hù)可以設(shè)置 DataGrid控件的 DataSource屬性為一個(gè) ADO Data控件，從而將 ADO Data中的數(shù)據(jù)自動(dòng)地填充到 DataGrid表格中。所有這些控件都允許一次顯示或操作幾個(gè)記錄。 Data控件允許從一個(gè)記錄移動(dòng)到另一個(gè)記錄，并顯示和操縱來(lái)自被連接控件的記錄的數(shù)據(jù)。如要修改窗體或控件的某項(xiàng)屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達(dá)到需要的設(shè)計(jì)效果。 VB的重要特點(diǎn)之一是可視性。 SQL 語(yǔ)言的突出優(yōu)點(diǎn)就是它的非過(guò)程化、統(tǒng)一，而且還是所有關(guān)系數(shù)據(jù)庫(kù)的公共語(yǔ)言。 （ 4） 數(shù)據(jù)使用權(quán)限設(shè)置：針對(duì)用戶(hù)的不同使用要求，確定數(shù)據(jù)的用戶(hù)使用權(quán)限，確保數(shù)據(jù)安全。隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展， 計(jì)算機(jī)在企業(yè)中應(yīng)用的普及為了滿(mǎn)足信息化管理的需要，實(shí)現(xiàn)倉(cāng)庫(kù)的電腦化管理很需要一個(gè)貨物出入庫(kù)管理系統(tǒng) 購(gòu)買(mǎi)設(shè)計(jì) ： 648888133 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯