【正文】 .......... 19 設(shè)計(jì)總結(jié) .............................................................................................................................. 37 參考文獻(xiàn) .............................................................................................................................. 38 摘 要 隨著現(xiàn)代工業(yè)的發(fā)展，計(jì)算機(jī)信息管理系統(tǒng)越來(lái)越受到企業(yè)重視。管理信息系統(tǒng)的三大支柱是：計(jì)算機(jī)網(wǎng)絡(luò)、數(shù)據(jù)庫(kù)和現(xiàn)代化的管理。索引可以用來(lái)排序和快速訪問(wèn)數(shù)據(jù)。 關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂?？偟膩?lái)說(shuō)，缺乏系統(tǒng)、規(guī)范的信息管理手段。信息管理系統(tǒng)所涉及的數(shù)據(jù)庫(kù)設(shè)計(jì)分五個(gè)步驟：數(shù)據(jù)庫(kù)需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)與加載測(cè)試。SQL語(yǔ)言一次處理一個(gè)記錄，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航，它允許用戶在高層的數(shù) 據(jù)結(jié)構(gòu)上工作，而不對(duì)單個(gè)記錄進(jìn)行操作，可操作記錄集，所有 SQL語(yǔ)句接受集合作為輸入，返回集合作為輸出。 利用 VB 的事件驅(qū)動(dòng)性特點(diǎn)，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達(dá)到告訴當(dāng)在相應(yīng)的窗體或控件上發(fā)生某一事件時(shí)，它們?cè)谑录l(fā)生后應(yīng)該做什么工作的目的。內(nèi)部的 Picture、 Label、TextBox、 CheckBox、 Image、 OLE、 ListBox和 ComboBox控件也是數(shù)據(jù)覺(jué)察的，能和由 Data控件管理的 Recordset對(duì)象的某個(gè)字段相連接。 （ 1）建立一個(gè)新的查詢 set mydb=Open Database(“c:\DIR1\”) （打開數(shù)據(jù)庫(kù)文件 c:\DIR1\） set myquery= QueryDef(“monthquery”)(創(chuàng)建查詢名為 monthquery的查詢 ) =”select*from OPNRPT where mid $(year,7,2)=?”amp。 Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。 ● 系統(tǒng)特色： ，即時(shí)對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行安全 設(shè)置與保護(hù)。保存用戶名 39。 amp。39。39。39。39。39。39。判斷密碼是否 為空 MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = ConfirmPWD = Else 39。 NewPWD amp。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于 此處 39。顯示信息內(nèi)容 = 1 While Not = + 1 ( 1, 0) = rs(0) ( 1, 1) = rs(1) ( 1, 2) = rs(2) ( 1, 3) = rs(3) ( 1, 4) = rs(4) ( 1, 5) = rs(5) ( 1, 6) = rs(6) ( 1, 7) = rs(7) ( 1, 8) = rs(8) ( 1, 9) = rs(9) ( 1, 10) = rs(10) ( 1, 11) = rs(11) ( 1, 12) = rs(12) Wend End If End Sub ●貨物入庫(kù)登記模塊的實(shí)現(xiàn) Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。判斷是否輸入新密碼 MsgBox 請(qǐng)輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。 39。39。39。39。39。39。39。 amp。 入庫(kù)登記 _n 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物名稱 文本 10 入庫(kù)日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長(zhǎng)整型 入庫(kù)登記 _w 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 供貨單位 文本 50 入庫(kù)日期 日期 /時(shí)間 年度供貨總額 數(shù)字 長(zhǎng)整型 倉(cāng)庫(kù)匯總 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物編碼 文本 5 入庫(kù)日期 日期 /時(shí)間 貨物名稱 文本 10 數(shù)量（入庫(kù)） 數(shù)字 長(zhǎng)整型 進(jìn)貨價(jià) 貨幣 數(shù)量（出庫(kù)） 數(shù)字 長(zhǎng)整型 倉(cāng)庫(kù)數(shù)量 數(shù)字 長(zhǎng)整型 出庫(kù)登記 _h 表 7 用戶表 表 8 入庫(kù)登記 _n 表 9 入庫(kù)登記 _w 表 10 倉(cāng)庫(kù)匯總 表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物名稱 文本 10 出庫(kù)日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長(zhǎng)整型 出庫(kù)登記 _d 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 收貨單位 文本 50 出庫(kù)日期 日期 /時(shí)間 年度金額總額 數(shù)字 長(zhǎng)整型 第五章 應(yīng)用程序設(shè)計(jì) 程序結(jié)構(gòu) 本應(yīng)用程序由 33 個(gè)窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫(kù)窗體，出庫(kù)窗體，倉(cāng)庫(kù)匯總，打印及查詢等窗體組成。本系統(tǒng)實(shí)現(xiàn)對(duì)貨物信息的管理和總體的統(tǒng)計(jì)等，倉(cāng)庫(kù)信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 SQL 語(yǔ)言在 VB 中的應(yīng)用 為實(shí)現(xiàn)使用 VB 程序調(diào)用 SQL 語(yǔ)言訪問(wèn) Access 數(shù)據(jù)庫(kù)多個(gè)記錄的目的，我們利用 SQL提供的函數(shù)。因?yàn)槌绦騿T無(wú)需編寫任何代碼，就可以在這些控件中顯示當(dāng)前記錄的數(shù) 據(jù)。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計(jì)算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。 SQL 語(yǔ)句通常用于完成一些數(shù)據(jù)庫(kù)的操作任務(wù)，比 如在數(shù)據(jù)庫(kù)中更新數(shù)據(jù)，或者從數(shù)據(jù)庫(kù)中檢索數(shù)據(jù)。條碼技術(shù)在儲(chǔ)存管理中的應(yīng)用，可進(jìn)一步完善系統(tǒng)各倉(cāng)庫(kù)之間及各倉(cāng)庫(kù)與作業(yè)主管部門之間的信息共享和交換功能，最終達(dá)到對(duì)產(chǎn)品的全程跟蹤管理。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)的，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。 DBMS總是基于某種數(shù)據(jù)模型，根據(jù)數(shù)據(jù)模型的不同， DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷取? 二、元數(shù)據(jù) 數(shù)據(jù)庫(kù)是自描述的， 也 就 是 它自身包含了它的結(jié)構(gòu)的描述，這種結(jié)構(gòu)的 描述稱作元數(shù)據(jù)。 管理信息系統(tǒng)是一個(gè)人機(jī)系統(tǒng)也是一個(gè)一體化集成系統(tǒng)。 關(guān)鍵詞： 倉(cāng)庫(kù)管理，數(shù)據(jù)庫(kù)，信息管理， VB 第一章 、緒論 貨物進(jìn)出庫(kù)管理系統(tǒng) 是一個(gè) 企事業(yè) 單位不可缺少的 一 部分 ,貨物進(jìn)出庫(kù)管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄危瑐鹘y(tǒng)的人工方式管理倉(cāng)庫(kù)存在著許多缺點(diǎn)，諸如效率低，保密性差等，而且時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)成為最熱門技術(shù)之一。 貨物信息 表中的行每次改變時(shí)，索引也 必須 隨之 改變，這意味著索引并 不是 隨意的，應(yīng)該在真正需要時(shí)保存。 DBMS產(chǎn)品還提供編程語(yǔ)言和對(duì)編程語(yǔ)言的接口。 隨著信息化技術(shù)的不斷提高和應(yīng)用的日漸普及 ，更多的商品擁有自己的條碼，采用條碼 不但 可以 作業(yè)效率， 而且 能確保資料正確， 同時(shí)可以 減少因人為失誤所造成的損失。數(shù)據(jù)表設(shè)計(jì)不僅要滿足數(shù)據(jù)存儲(chǔ)的要求，還要增加一些如反映有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時(shí)數(shù)據(jù)表。 第三章 應(yīng)用系統(tǒng)開發(fā)工具 Visual Basic 簡(jiǎn)介及實(shí)現(xiàn)原理 Visual Basic（簡(jiǎn)稱 VB）是美國(guó)微軟公司（ Microsoft）于 1990 年推出的一套完整的Windows系統(tǒng)軟件開發(fā)工具，可用于開發(fā) Windows環(huán)境下的各類應(yīng)用程序，是一種可視化、面向?qū)ο蟆⒂檬录?qū)動(dòng)方式的結(jié)構(gòu) 化高級(jí)程序設(shè)計(jì)語(yǔ)言和工具，是目前使用最廣泛的編程語(yǔ)言之一。 Data控件 Data控件是 Visual Basic中最基本的數(shù)據(jù)庫(kù)操作控件。 DataGrid控件 在許多情況下，需要使用表格形式來(lái)顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)。 （ 2）如何設(shè)置 Data控件的 Recordsource屬性 設(shè)置 Datasource屬性的命令為： =”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=?20?group by Vss_code,Voyage” 在這個(gè)命令中字段名 Vss_code 為船名代碼， Voyage 為航次， ctn_size 為集裝箱號(hào)，weight為集裝箱重量。 2 流程中的各個(gè)模塊是什么及其功能。操作快捷、方便。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 39。調(diào)入倉(cāng)庫(kù)匯總 f1_Click Case Is = zhcx 39。39。39。 MsgBox 身份正確 , , 登陸信息 Unload Me 39。39。39。39。,39。 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me End Sub ●出庫(kù)登記模塊的實(shí)現(xiàn) Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub 圖 5－ 4 出庫(kù)登記窗口 Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。想要忽略錯(cuò)誤，注釋掉下一行 39。但它無(wú)法對(duì)數(shù)據(jù)進(jìn)行動(dòng)態(tài)輸入，只能提供瀏覽功能。 PassWord amp。39。39。39。39。39。39。調(diào)入數(shù)據(jù)備份 a5_Click End Select End Sub Privat