【正文】 39。 39。 39。 39。 39。 39。若為修理，可填為 0！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric() Then MsgBox 數(shù)量字段值為數(shù)字 ,請正確填寫！ , vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If = Then MsgBox 單價(jià)字段不能為空，請?zhí)顚憽? and 進(jìn)庫日期 = amp。 Trim(Combo1) amp。 vbCrLf amp。 (i, 0) amp。 39。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。在這個(gè)文件中，用戶可以將自 己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。注意：請將庫文件存入程序所在目錄。 2) Enable 屬性 :為 true 時(shí) (缺省值 ),激活定時(shí)器開始計(jì)時(shí) 。 2) Max 和 min 屬性：對 value 值的最大 ,最小進(jìn)行限制。 5） OLECompleteDrag 事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。 ? 復(fù)選按鈕類的控件的基本事件： 1） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。 12) DragMode 屬性：設(shè)置返回一個(gè)值，確定在拖放操作中所用方 式。 8) Datasource 屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。 2) Index 屬性 :該屬性值為復(fù)選框控件數(shù)組的下標(biāo) . 3) Value 屬性 :value 為 0 表空白 ,為 1 表勾號(hào) ,為 2 表示灰色勾號(hào) . 4) Container 屬性： Form 控件上的容器。 10） MouseDown 事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。 6） LostFocus 事件：當(dāng)對象失去焦點(diǎn)時(shí)發(fā)生。 2） DbClick 事件： 當(dāng)在一個(gè)對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。 21) FontSize 屬性：設(shè)置 /返回控件中顯示文本所用的字體大小 22) Height 屬性：設(shè)置 /返回控件的高度。 17) FontItalic 屬性：設(shè)置 /返回字體斜體樣式。 13) DownPicture 屬性：設(shè)置 /返回一個(gè)對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時(shí)顯示。 9) Container 屬性：設(shè)置 /返回 Form 上的控件屬性。 5) Tabindex 屬性：建立控件時(shí) ,vb 自動(dòng)為其分配一個(gè) tabindex 值 ,利用 tab鍵可以在控件之間切換焦點(diǎn)。 10) BackColor 屬性：設(shè)置返回背景色 11) BorderStyle 屬 性：設(shè)置對象的邊框樣式 12) DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名 13) DataFormat 屬性：設(shè)定 DataFormat 對象，用于數(shù)據(jù)綁定 14) DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回 /設(shè)定一個(gè)特定的數(shù)據(jù)成員 15) DataSource 屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源 16) DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示 17) DragMode 模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式 18) Enabled 屬性：設(shè)置 /返回運(yùn)行時(shí) TextBox 是否相應(yīng)用戶事件 19) Font 屬性：設(shè)置 /返回字體 屬性 20) ForeColor 屬性：設(shè)置 /返回文本的前景色 21) Height 屬性：設(shè)置 /返回 TextBox 的高度 22) IMEMode 屬性：設(shè)置 /返回?cái)?shù)值用來確定輸入方法編輯器的狀態(tài) 23) Index 屬性：設(shè)置 /返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào) 24) Left 屬性：設(shè)置 /返回 TextBox 控件的水平位置 25) Locked 屬性：設(shè)置 /返回 TextBox 中文本是否可編輯 26) LinkItem 屬性：設(shè)置 /返回 DDE 與另一個(gè)應(yīng)用程序會(huì)話時(shí)，傳給接受端的數(shù)據(jù) 27) MaxLength 屬性：設(shè)置 /返回一個(gè)值，指定在 TextBox 控件中能夠輸入的字符最大值 28) MouseIcon 屬性：設(shè)置 /返回自定義鼠標(biāo)的圖標(biāo) 29) Top 屬性：設(shè)置 /返回 TextBox 控件的垂直位置 30) Tag 屬性：存儲(chǔ)過程所需的附加數(shù)據(jù) ? 文本框類的事件： 1） Change 事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生 2） Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生 3） DblClick 事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生 4） DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生 5） DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生 6） GotFocus 事件：當(dāng)一個(gè)命令按鈕獲得焦點(diǎn)時(shí)發(fā)生 7） LinkClose 事件： 當(dāng)一個(gè) DDE 對話結(jié)束時(shí)發(fā)生 8） LinkError 事件：當(dāng)一個(gè) DDE 對話框過程中出現(xiàn)錯(cuò)誤時(shí)，該事件發(fā)生 9） KeyDown 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生 10） Validate 事件：在焦點(diǎn)轉(zhuǎn)換到另一個(gè)控件之前發(fā)生，此時(shí)該控件的Causes Validation 屬性值設(shè)置為 True ? 單選按鈕類的控件： 1) Caption 屬性：顯示在控件上的文本 ,是單選按鈕的標(biāo)題。 5) Passwordchar 屬性：該屬性設(shè)定輸入文本的特殊顯示字符 ,在設(shè)計(jì)密碼程序時(shí)非常有用。 ? 文本框類的控件： 1) Text 屬性：通過像 text 屬性賦值的方法來改變該屬性的值。 9） MouseUp 事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時(shí)發(fā)生。 （ 2） 事件處理過程 命令按鈕 GotFoucs 事件處理過程為： Private Sub ObjectGotFocus（ Index As Integer） 3） LostFocus 事件：當(dāng)一個(gè)對象失去焦點(diǎn)時(shí)發(fā)生 4） KeyDown 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生 5） KeyUp 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。命令按鈕的 Click 事件僅對當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。 6) Default 屬性 :決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕 . 7) Font 屬性 :控制各種文字字體類型 . 8) Left,top,height,width 屬性 :設(shè)定控件的位置與大小 . 9) Style,picture 屬性 :決定按鈕的顯示方式是否為圖像形式出 現(xiàn) . 10) Visible 屬性 :確定控件運(yùn)行時(shí)是否為可見 . 11) Index 屬性 :當(dāng)控件為一控件數(shù)組時(shí) ,此屬性值為該控件在數(shù)組的下標(biāo)值 . 12) DownPicture 屬性：設(shè)置 /返回一個(gè)對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時(shí)顯示。 2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。 1． 2 系統(tǒng)簡介 本系統(tǒng)主要服務(wù)于企業(yè)單位倉庫管理人員 ,登記管理貨品的進(jìn)出 .主要由以下幾大功能模塊組成 一 . 系統(tǒng)模塊 :退出 ,用戶管理 二 . 物資管理 :材料信息 三 . 倉庫管理 :出庫信息 ,入庫信息 四 . 物資信息查詢 :材料入庫信息 ,材料出庫信息 ,剩余材料信息查詢 ,倉庫中所有材料價(jià)格信息查詢 . 五 . 數(shù)據(jù)統(tǒng)計(jì) :材料銷售統(tǒng)計(jì) ,設(shè)備修理成本統(tǒng)計(jì)等 第一章 系統(tǒng)的分析 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想 本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于 企業(yè) 單位 倉庫管理人員 ,方便工作人員 ,收集 庫存 信息 ,發(fā)布 庫存產(chǎn)品 信息 ,對 倉庫庫存 信息的分類管理等 . 同時(shí)力求做到界面人性化 ,功能齊全 ,數(shù)據(jù)存儲(chǔ) 安全 . 2． 2 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫 ,技術(shù)上開發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于 企業(yè)倉庫管理人員 ,提高了工作人員辦事效率 ,節(jié)省了開支 .所以具有經(jīng)濟(jì)上的可行性 . 社會(huì)上 :本系統(tǒng)同時(shí)也方便了 企業(yè)管理人員 者 ,以及 消費(fèi)者 .所以具有社會(huì)可行性 . 開發(fā)工具簡介 Visual Basic Micrsoft 公司出品的開發(fā)工具， Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開發(fā)語言，它具有易用，通用和開發(fā)效率高的特 點(diǎn)。 關(guān)鍵字 :物資 管理 信息系統(tǒng) ,MIS,visual basic ,數(shù)據(jù)庫 Abstract Material management information system using a puter management business stores innovative puter applications, in the puter business before the material management are not universal by the warehouse manager to assume the manner of operation. Enterprises are now generally used information management approach that is the practical application of the puter as a tool to help process materials management information warehouse managers more effective inventory management. Material management information system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool panies, the use of its various objectoriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Keyword : material management information system, MIS,visual basic database 第一章 引言 1． 1 課題背景 物資管理信息系統(tǒng)用計(jì)算機(jī)管理企業(yè)庫存物資的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前企業(yè)物資管理都是由倉庫管理員來承擔(dān)的方式來操作的 .現(xiàn)在一般的企業(yè)都采用了信息化管