【文章內(nèi)容簡(jiǎn)介】 信息的打印，方便簡(jiǎn)潔。 本系統(tǒng)基本包含了倉(cāng)庫(kù)管理的主要需求，具有完善細(xì)致的功能、友好的用戶界面、較強(qiáng)的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。 可行性分析 技術(shù)上可行 該系統(tǒng)所需的硬件設(shè)備 ，市場(chǎng)上就有銷售，并且價(jià)格較低。所需的軟件，操作系統(tǒng)采用 Windows 系列操作系統(tǒng)，數(shù)據(jù)庫(kù)管理系統(tǒng)采用 Visual Basic 與 Access 相結(jié)合，這些軟件都是很常見，在系統(tǒng)開發(fā)中被大量應(yīng)用的，技術(shù)也都達(dá)到了比較成熟的階段。因此，在技術(shù)上可較容易實(shí)現(xiàn)的。 經(jīng)濟(jì)上可行 本系統(tǒng)需要的硬件，軟件支持都比較容易得到，公司也急需改變?cè)瓉?lái)的倉(cāng)庫(kù)作業(yè)方式。因此對(duì)開發(fā)庫(kù)存系統(tǒng)大力支持，開發(fā)經(jīng)費(fèi)沒有問題。 管理上可行 庫(kù)存有很多的管理體制，每件入庫(kù)物品都有相應(yīng)的記錄，出庫(kù)也要對(duì)相應(yīng)的物品進(jìn)行刪 減，同時(shí)入庫(kù)和出庫(kù)必須對(duì)每個(gè)物品的相應(yīng)數(shù)量和單價(jià)進(jìn)行錄入。因此管理上是可行的。 另外，要將開發(fā)系統(tǒng)運(yùn)用到倉(cāng)庫(kù)作業(yè)中，倉(cāng)庫(kù)作業(yè)方式區(qū)別與過(guò)去，所以，需要對(duì)倉(cāng)庫(kù)管理員進(jìn)行一個(gè)系統(tǒng)運(yùn)用前的培訓(xùn)，倉(cāng)庫(kù)的工作人員也都很樂意接受培訓(xùn)。 （如圖 ） 第 7 頁(yè) 圖 總體模塊 （ 1）貨品管理（貨品入庫(kù)，貨品出庫(kù)，貨品盤點(diǎn)）； 該模塊用于實(shí)現(xiàn)貨品的入庫(kù)，出庫(kù)，盤點(diǎn)功能。 （ 2）貨品 查詢（入庫(kù)查詢，出庫(kù)查詢，庫(kù)存查詢）； 該模塊用于貨品入庫(kù)，出庫(kù)，庫(kù)存的查詢。 （ 3）數(shù)據(jù)報(bào)表（出庫(kù)報(bào)表，庫(kù)存報(bào)表）； 該模塊提供貨品出庫(kù)及庫(kù)存報(bào)表，并且可以實(shí)現(xiàn)報(bào)表的打印及導(dǎo)出。 （ 4）系統(tǒng)維護(hù)（操作員管理，密碼修改）； 該模塊可以注冊(cè)新用戶，刪除現(xiàn)有的用戶，現(xiàn)有用戶密碼的修改。 （ 5）退出系統(tǒng) 數(shù)據(jù)庫(kù)的建立 后臺(tái)數(shù)據(jù)庫(kù) 的表設(shè)計(jì)如表 至表 ： 表 tb_enter(用戶信息表 ) 字段名 數(shù)據(jù)類型 字段大小 操作員姓名 文本 20 職務(wù) 文本 20 密碼 文本 20 表 tb_KCXX(庫(kù)存信息表 ) 字段名 數(shù)據(jù)類型 字段大小 庫(kù)存編號(hào) 數(shù)字 長(zhǎng)整型 貨品編號(hào) 文本 30 貨品名稱 文本 50 貨品規(guī)格 文本 30 記量單位 文本 20 數(shù)量 數(shù)字 長(zhǎng)整型 單價(jià) 貨幣 入庫(kù)日期 日期∕時(shí)間 備注 備注 表 tb_OUT(貨品出庫(kù)數(shù)據(jù)表 ) 字段名 數(shù)據(jù)類型 字段大小 系統(tǒng)登錄 貨品管理 貨品查詢 數(shù)據(jù)報(bào)表 系統(tǒng)維護(hù) 倉(cāng)庫(kù)管理系統(tǒng) 退出系統(tǒng) 第 8 頁(yè) 出庫(kù)編號(hào) 文本 30 貨品編號(hào) 文本 50 貨品名稱 文本 30 計(jì)量單位 文本 20 數(shù)量 數(shù)字 長(zhǎng)整型 單價(jià) 貨幣 金額 貨幣 出庫(kù)日期 日期∕時(shí)間 提貨單位 文本 50 提貨人 文本 20 經(jīng)手人 文本 20 備注 備注 表 tb_IN(貨品入庫(kù)數(shù)據(jù)表 ) 字段名 數(shù)據(jù)類型 字段大小 貨品編號(hào) 文本 30 貨品名稱 文本 50 貨品規(guī)格 文本 30 計(jì)量單位 文本 20 數(shù)量 數(shù)字 長(zhǎng)整型 單價(jià) 貨幣 金額 貨幣 入庫(kù)日期 日期∕時(shí)間 經(jīng)手人 文本 20 備注 備注 表 tb_kcpd(貨品盤點(diǎn)表 ) 字段名 數(shù)據(jù)類型 字段大小 盤點(diǎn)編號(hào) 數(shù)字 長(zhǎng)整型 盤點(diǎn)貨品 文本 50 貨品規(guī)格 文本 30 計(jì)量單位 文本 20 數(shù)量 數(shù)字 長(zhǎng)整型 盤點(diǎn)日期 日期∕時(shí)間 盤點(diǎn)員 文本 20 貨品有無(wú)異常 文本 20 5 系統(tǒng)設(shè)計(jì) 系統(tǒng)登錄模塊 第 9 頁(yè) 圖 系統(tǒng)登錄界面 （ 1） 功能分析 這是用戶登錄系統(tǒng)的入口，用戶輸入用戶名及密碼，如果密碼正確，點(diǎn)擊登錄按鈕，則成功登錄，進(jìn)入 倉(cāng)庫(kù)管理系統(tǒng) 主界面 （如圖 ） ； 如果用戶名輸入錯(cuò)誤， Msgbox 則會(huì)提醒“對(duì)不起 ，沒有此 用戶的信息”； 如果密碼錯(cuò)誤， Msgbox 則會(huì)提醒“密碼不正確，請(qǐng)您確認(rèn) 后重新輸入”（如圖 ） ； 圖 倉(cāng)庫(kù)管理系統(tǒng)主界面 圖 （ 1）實(shí)現(xiàn)代碼： Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運(yùn)用 API 函數(shù) SetWindowPos，來(lái)實(shí)現(xiàn)取消窗體置前的功能 On Error Resume Next Dim MPassword As String If = mr And = mingrisoft Then 39。判斷是否使用的是超級(jí)口令登錄 (2).Text = 當(dāng)前操作員： mr Name1 = Unload Me Else = select * from tb_enter where M_Name =39。 amp。 amp。 39。 第 10 頁(yè) If 0 Then MPassword = (M_Password) If = MPassword Then 39。判斷數(shù)據(jù)的密碼是否正確 (2).Text = 當(dāng) 前 操 作 員 ： + (M_Name) Name1 = 39。添加登錄日志 Open ( amp。 \系統(tǒng)日志 .ini) For Input As 1 Do While Not EOF(1) Line Input 1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close 1 TStr = TStr + + Name1 + + Format(Now, yyyymmdd hh:mm:ss) + + 系統(tǒng)登錄 + Chr(13) + Chr(10) Open ( amp。 \系統(tǒng)日志 .ini) For Output As 1 Print 1, TStr Close 1 Unload Me Else MsgBox 密碼不正確 ,請(qǐng)您確認(rèn)后重新輸入 , , 庫(kù)存管理系統(tǒng) = End If Else MsgBox 對(duì)不起 沒有此用戶的信息 , , 倉(cāng)儲(chǔ)信息管理系統(tǒng) = = End If End If End Sub 貨品管理 模塊 在貨品管理模塊中， 貨品入庫(kù)，貨品出庫(kù)和貨品盤點(diǎn)三個(gè)模塊是相似的模塊，有著相似的操作過(guò)程。以貨品入庫(kù)做為說(shuō)明，實(shí)現(xiàn)代碼： Private Sub Cmd_Add_Click() For i = 0 To 5 39。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。將數(shù)據(jù)庫(kù)記錄 第 11 頁(yè) 移向最后一條 StrNum = Val((ID)) + 1 39。將入庫(kù)編號(hào)加 1 Select Case Len(Trim(StrNum)) 39。位數(shù)不足則補(bǔ) 0 Case 1 StrTemp = 00000 Case 2 StrTemp = 0000 Case 3 StrTemp = 000 Case 4 StrTemp = 00 Case 5 StrTemp = 0 Case 6 StrTemp = End Select Text1(0).Text = J amp。 Trim(StrTemp) amp。 Trim(Str(StrNum)) Else Text1(0).Text = J000001 39。Join 的縮寫 加入的意思 ，給入庫(kù)編號(hào)賦一個(gè)初值 StrNum = 1 End If = True = False End Sub 進(jìn)入貨品入庫(kù) （如圖 ） ，然后點(diǎn)擊添加按鈕，自動(dòng)生成入庫(kù)編號(hào)，輸入貨品名稱、貨品規(guī)格、數(shù) 量單價(jià)及備注，選擇計(jì)量單位，入庫(kù)日期，點(diǎn)擊保存，出現(xiàn) Msgbox 提醒“您確認(rèn)要保存該信息嗎？”（如圖 ），點(diǎn)擊確定，出現(xiàn) Msgbox 提醒“信息保存成功”，點(diǎn)擊取消，則放棄入庫(kù)。 第 12 頁(yè) 圖 進(jìn)入貨品入庫(kù) 圖 貨品入庫(kù)界面 在貨品入庫(kù)的信息錄入中，如果信息輸入不完整，則無(wú)法完成入庫(kù)，會(huì)出現(xiàn) Msgbox 提醒“貨品數(shù)量、單價(jià)或名稱不能為空值！”（如圖 ） 第 13 頁(yè)