基于vb和mssqlserver的bs架構(gòu)的倉庫管理系統(tǒng)-資料下載頁
2024-12-07 09:28本頁面
【導(dǎo)讀】單一，銷路也很有限，是一個很小的鄉(xiāng)鎮(zhèn)企業(yè)。隨著時間的流逝，在2代廠領(lǐng)導(dǎo)。的努力下，企業(yè)得的了快速的發(fā)展，規(guī)模逐步擴(kuò)大，成了當(dāng)?shù)氐挠忻髽I(yè)。要求已經(jīng)不能得到滿足了。多樣化的產(chǎn)品，以及龐大的數(shù)據(jù)量和廣泛的客戶，急。工具及網(wǎng)絡(luò)支持和軟件升級的限制因此開發(fā)一個基于網(wǎng)絡(luò)的倉庫系統(tǒng)非常重要，它可以使公司業(yè)務(wù)管理的系統(tǒng)化，規(guī)范化和自動化。在本系統(tǒng)中使用了VBScript實(shí)現(xiàn)了該倉庫管理系統(tǒng)中Web頁面。性，且應(yīng)用程序功能完備，符合了倉庫管理系統(tǒng)作為典型的信息管理系統(tǒng)的要求。理系統(tǒng)當(dāng)然是企業(yè)物流管理中不可缺少的一部分。倉庫管理系統(tǒng)改進(jìn)了傳統(tǒng)的工。作方試，提高了企業(yè)所經(jīng)營的物品的供、銷、存的運(yùn)轉(zhuǎn)效率，縮短了管理周期，該系統(tǒng)主要采用數(shù)據(jù)庫多方面的平臺，對倉庫里的產(chǎn)品進(jìn)行系統(tǒng)話的管理，同時里面也包含很多頁面平臺，方便領(lǐng)導(dǎo)來查詢和觀察。
【正文】 Text3 = Then MsgBox 請輸入新密碼！！ , , 修改密碼 Exit Sub ElseIf Text2 Text3 Then MsgBox 密碼不一致！！ , , 修改密碼 Exit Sub Else = MsgBox 密碼修改 成功！！ , , 修改密碼 Unload Me End If 貨物入庫設(shè)計(jì) 貨物入庫存在著貨物的區(qū)別，數(shù)量，入庫時間，貨物的出處等眾多問題，設(shè)計(jì)的程序必需滿足，程序如下： Private Sub Commmand1_Click() Dim I, J As Integer Dim STR As String If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 請輸入完整信息！ Exit Sub Else 將記錄存入入庫記錄表 布匹入庫表 .(布匹號 ) = 布匹入庫表 .(入庫數(shù)量 ) = 布匹入庫表 .(入庫時間 ) = 布匹入庫表 .(生產(chǎn)機(jī)號 ) = 布匹入庫表 .(操作員 ) = 布匹入庫表 .(價格 ) = MsgBox 已經(jīng)成功入庫！ End If 布匹入庫表 . = select * from 現(xiàn)有庫存表 where 布匹號 =39。 amp。 amp。 39。 布匹入庫表 . 布匹入庫表 . If 布匹入庫表 . 0 Then 更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)請?jiān)L問： 第 14 頁 共 18 頁 將記錄加入現(xiàn)有庫存表中 布匹入庫表 . = CInt(布匹入庫表 .) + CInt() 布匹入庫表 . J = 布匹入庫表 .Text9 布匹入庫表 . 布匹入庫表 . 布匹入庫表 . MsgBox 現(xiàn)有庫存量為： amp。 J Else STR = 現(xiàn)有庫存表中無此布匹！ amp。 vbCrLf amp。 請?jiān)诓计ゴa表和現(xiàn)有庫存表中手動添加記錄??！ MsgBox STR Load frm 現(xiàn)有庫存表 frm 現(xiàn)有庫存表 .Show Call frm 現(xiàn)有庫存表 .Command1_Click = = Load frm 布匹代碼表 Frm 布匹代碼表 .Show End If End Sub Private Sub cmdDelete_Click( ) 刪除入庫表中記錄 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(刪除 , vbYesNo, 刪除記錄 ) If YesNo = vbYes Then With .Delete MoveNext If .EOF Then .MoveLast End With Else Exit Sub End If DeleteErr: MsgBox End Sub Private Sub cmdUpdate_Click( ) 更新紀(jì)錄程序 On Error GoTo UpdateErr adAffectAll Exit Sub 貨物出庫設(shè)計(jì) 對于貨物的出庫同樣存在著很多要注意的方面，比如：出庫布匹的編號，數(shù)量，經(jīng)手 人，更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)請?jiān)L問： 第 15 頁 共 18 頁 收貨方等都必需注意，代碼如下： Private Sub Command1_Click( ) Dim i, J, k As Integer Dim STR As String Frm 布匹出庫表 . = select * from 現(xiàn)有庫存表 where 布匹號 =39。 amp。 amp。 39。 Frm 布匹出庫表 . Frm 布匹出庫表 . If IsNumeric(Text2) = False Then MsgBox 數(shù)量必須是數(shù)字！ Exit Sub End If If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 請輸入完整信息！ Exit Sub ElseIf frm 布匹出庫表 . = 0 Then STR = 現(xiàn)有庫存表中無此布匹！請檢查輸入是否 正確??！ MsgBox STR Exit Sub Else Frm 布匹出庫表 .(布匹號 ) = frm 布匹出庫表 .(出庫數(shù)量 ) = frm 布匹出庫表 .(出庫時間 ) = frm 布匹出庫表 .(經(jīng)手人 ) = frm 布匹出庫表 .(領(lǐng)取人 ) = frm 布匹出庫表 .(收貨方 )= MsgBox 已經(jīng)成功存入布匹出庫表庫！ End If If frm 布匹出庫表 . 0 Then k = CInt(frm 布匹出庫表 .) CInt() If k = 0 Then frm 布匹出庫表 . = CInt(frm 布匹出庫表 .) CInt() frm 布匹出庫表 . J = frm 布匹出庫表 .Text9 frm 布匹出庫表 . frm 布匹出庫表 . frm 布匹出庫表 . MsgBox 現(xiàn)有庫存量為： amp。 J Else MsgBox 現(xiàn)有庫存量不足！請輸入合適數(shù)量！！ Exit Sub End If Else 更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)請?jiān)L問： 第 16 頁 共 18 頁 STR = 現(xiàn)有庫存表中無此布匹！請檢查輸入是否正確！！ MsgBox STR End If End Sub Private Sub cmdDelete_Click( )刪除出庫記錄 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(刪除 , vbYesNo, 刪除記錄 ) If YesNo = vbYes Then With .Delete .MoveNext If .EOF Then .MoveLast End With Else Exit Sub End If DeleteErr: MsgBox End Sub 操作日志 經(jīng)過操作員的操作過程，貨物的出入庫都已經(jīng)辦完，為了方便領(lǐng)導(dǎo)的查詢和檢查，所以必需要有詳細(xì)的紀(jì)錄： Private Sub Command2_Click( ) 填寫日志記錄 If = Or = Or = Then MsgBox 請輸入完整信息！ Exit Sub Else (操作員 ) = (操作 內(nèi)容 ) = (操作時間 ) = End If End Sub Private Sub Form_Load() 設(shè)置填寫時間 Dim STRtime As String STRtime = Now() = STRtime (STRtime) End Sub 更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)請?jiān)L問： 第 17 頁 共 18 頁 結(jié)束語 : 該系統(tǒng)可以滿足一般企業(yè)的倉庫管理需求 ,可以進(jìn)行多方面的查詢 ,使企業(yè)領(lǐng)導(dǎo)層可以得到及時而 準(zhǔn)確的數(shù)據(jù)統(tǒng)計(jì)與分析。該系統(tǒng)使用方便，能清晰的反映 倉庫的儲備情況，方便企業(yè)領(lǐng)導(dǎo)隨時查閱。對于保密，入庫，出庫的情況都涉及到了。 致謝： 由于以前對 WEB 數(shù)據(jù)及 VB 了解的不夠多，對它的開發(fā)環(huán)境不太了解， 所以在系統(tǒng)的開發(fā)過程中遇到了很多的困難，但經(jīng)過同學(xué)和指導(dǎo)老師以及公司員工的幫助，逐一化解了在開發(fā)中所遇到的技術(shù)困難，并從中學(xué)到了很多編程方面的知識。 這次實(shí)踐過程中我學(xué)到了很多知識，收益非淺，同時老師和公司員工認(rèn)真的工作態(tài)度深深的影響了我，我想在以后的工作中他們時刻是我的榜樣，激勵我奮發(fā)向上，勇于面對一 切困難，做好每一件事，每一份工作，再次感謝老師和員工對我的幫助。 更多計(jì)算機(jī)類畢業(yè)設(shè)計(jì)論文、課程設(shè)計(jì)請?jiān)L問： 第 18 頁 共 18 頁 參考文獻(xiàn)： 1． 數(shù)據(jù)庫系統(tǒng)原理教程 王珊 陳紅 清華大學(xué)出版社 2． 管理信息系統(tǒng) 王虎 張俊 武漢理工大學(xué)出版社 3． Visual Basic 數(shù)據(jù)庫開發(fā) , , 著 清華大學(xué)出版社 4． PowerBuilder 何旭洪 余建英 人民郵電出版社 5． VB6從入門道精通 『美』 Gary cornell 著 北京希望 電子 出版社
研究報告相關(guān)推薦
鄂ICP備17016276號-1