【導(dǎo)讀】新世紀(jì)和新時(shí)代，同時(shí)向我們走來(lái)。人類將從傳統(tǒng)的物質(zhì)經(jīng)。濟(jì)邁向嶄新的知識(shí)經(jīng)濟(jì)時(shí)代。社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高庫(kù)。因此，開(kāi)發(fā)這樣一套管理軟件成為勢(shì)在必行的事情。計(jì)算機(jī)的價(jià)格已十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；分析初步制定了公司庫(kù)存信息管理系統(tǒng)。該系統(tǒng)采用交互是人機(jī)對(duì)話和模塊化設(shè)計(jì)。對(duì)于前者要求建立資料一致。性和完整性強(qiáng)、資料安全性好的數(shù)據(jù)庫(kù)。程序功能完備，易使用等特點(diǎn)。案要記載清楚，銷售的工作情況及庫(kù)存情況管理者要了如指掌，VISUALBASIC語(yǔ)言簡(jiǎn)單易學(xué)，只要稍有語(yǔ)言基礎(chǔ)就。編寫(xiě)Inter程序的能力。VISUALBASIC中文版還支持用戶。算機(jī)中的文檔和應(yīng)用程序，可以創(chuàng)建Inter服務(wù)器應(yīng)用程序，VISUALBASIC有三種發(fā)行版本，可以滿足不同的開(kāi)發(fā)需求。

　　

【正文】 。 CStr() (2).Controls(Label6).Caption = 經(jīng)手人： amp。 CStr() 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 44 (2).Controls(Label7).Caption = 時(shí)間： amp。 CStr(Date) amp。 amp。 CStr(Time) amp。 amp。 CStr((ID)) 39。 = False End Sub Private Sub DBCombo2_Click(Area As Integer) If = Then MsgBox 請(qǐng)先選擇類別！ Exit Sub End If Dim SQL As String SQL = SELECT ID, 分類 , 單位 , 名稱 , 備注 , 數(shù)量 FROM 庫(kù)存材料表 WHERE 分類 = 39。 amp。 CStr() amp。 39。 = False = amp。 \庫(kù)存管理 .mdb = SQL = True = 2021 End Sub Private Sub DBCombo3_Click(Area As Integer) = True = 2021 End Sub Private Sub DBCombo4_Click(Area As Integer) = True = 2021 西電科大自考畢業(yè)論文 45 End Sub Private Sub Form_Load() MakeWindow Me 39。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 材料分類表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 庫(kù)存材料表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 供應(yīng)商表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 員工表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 入庫(kù)表 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 46 = False 39。 = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = 通用庫(kù)存管理 = MyStr End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As 西電科大自考畢業(yè)論文 47 Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub Timer1_Timer() 名稱 =39。 amp。 amp。 39。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub = False End If = (數(shù)量 ) = (單位 ) = False Dim MyStr As String MyStr = CStr() amp。 原庫(kù)存量 amp。 CStr() amp。 CStr() = MyStr End Sub Private Sub Timer2_Timer() If = Then MsgBox 沒(méi)有選擇供應(yīng)商！ = False 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 48 Exit Sub End If 名稱 =39。 amp。 amp。 39。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub End If Dim MyStr As String MyStr = CStr(( 名稱 )) amp。 地址： amp。 CStr((地址 )) amp。 聯(lián)系人： amp。 CStr((聯(lián)系人 )) amp。 電話： amp。 CStr((電話 )) amp。 備注： amp。 CStr((備注 )) = MyStr = False End Sub Private Sub Timer3_Timer() If = Then MsgBox 沒(méi)有選擇供應(yīng)商！ = False Exit Sub End If 姓名 =39。 amp。 amp。 39。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub End If 西電科大自考畢業(yè)論文 49 Dim MyStr As String MyStr = CStr(( 姓名 )) amp。 職務(wù)： amp。 CStr((職務(wù) )) amp。 電話： amp。 CStr((電話 )) = MyStr = False End Sub ④產(chǎn)品出庫(kù)窗體如下 圖 66所示 ， 主要用于產(chǎn)品出庫(kù)信息的管理按產(chǎn)品的分類、產(chǎn)品的名稱、出庫(kù)數(shù)量、經(jīng)手人以及服務(wù)客戶和產(chǎn)品出庫(kù)信息的打印等操作 ： 圖 66 產(chǎn)品出庫(kù)窗體 產(chǎn)品出庫(kù)代碼設(shè)計(jì)： Private Sub Command1_Click() If Val() Val() 0 Then MsgBox 庫(kù)存量不夠！請(qǐng)及時(shí)采購(gòu)。 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 50 Exit Sub End If If = Then MsgBox 請(qǐng)選擇出庫(kù)材料名稱！ Exit Sub End If If = Then MsgBox 請(qǐng)選擇經(jīng)手人！ Exit Sub End If Dim a As Integer a = MsgBox(********你確定此操作嗎？ ********** amp。 vbCrLf _ amp。 材料名稱： amp。 amp。 vbCrLf _ amp。 原庫(kù)存量： amp。 amp。 amp。 vbCrLf _ amp。 本次出庫(kù)： amp。 amp。 amp。 vbCrLf _ amp。 服務(wù)客戶： amp。 amp。 vbCrLf _ amp。 經(jīng)手人： amp。 amp。 vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示 ) If a = 1 Then (名稱 ) = (用途 ) = (數(shù)量 ) = (經(jīng)手人 ) = (日期 ) = Date (時(shí)間 ) = Time = 西電科大自考畢業(yè)論文 51 39。************************ (數(shù)量 ) = Val() Val() MsgBox 出庫(kù)完成！ 39。 = True End If End Sub Private Sub Command2_Click() (2).Controls(Label1).Caption = 出庫(kù)單據(jù) (2).Controls(Label2).Caption = CStr() (2).Controls(Label3).Caption = 數(shù)量： amp。 CStr() (2).Controls(Label4).Caption = 用途： amp。 CStr() (2).Controls(Label5).Caption = (2).Controls(Label6).Caption = 經(jīng)手人： amp。 CStr() (2).Controls(Label7).Caption = 時(shí)間： amp。 CStr(Date) amp。 amp。 CStr(Time) amp。 amp。 CStr((ID)) 39。 = False End Sub Private Sub DBCombo2_Click(Area As Integer) If = Then MsgBox 請(qǐng)先選擇類別！ Exit Sub End If 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 52 Dim SQL As String SQL = SELECT ID, 分類 , 單位 , 名稱 , 備注 , 數(shù)量 FROM 庫(kù)存材料表 WHERE 分類 = 39。 amp。 CStr() amp。 39。 = False = amp。 \庫(kù)存管理 .mdb = SQL = True = 2021 End Sub Private Sub DBCombo3_Click(Area As Integer) = True = 2021 End Sub Private Sub DBCombo4_Click(Area As Integer) = True = 2021 End Sub Private Sub Form_Load() MakeWindow Me 39。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 材料分類表 西電科大自考畢業(yè)論文 53 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 庫(kù)存材料表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 客戶表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 員工表 = False = amp。 \庫(kù)存管理 .mdb = 。pwd=lee1012 = 出庫(kù)表 = False 39。 = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = 通用庫(kù)存管理 = MyStr End Sub 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 54 Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single