畢業(yè)設(shè)計(jì)-倉(cāng)庫(kù)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)-wenkub
2022-12-14 19:23:03 本頁(yè)面
【正文】 為用戶(hù)的學(xué)習(xí)和使用提供了極大的方便。因此是 “事件 ”驅(qū)動(dòng)的。對(duì)象簡(jiǎn)單地說(shuō)就是大家經(jīng)?？吹降母鞣N窗口、按鈕、文本框甚至打印機(jī)等。 方法：就是對(duì)象能夠做 的事，如打印機(jī)對(duì)象就有打?。?Print）方法、窗口對(duì)象支持隱藏（ Hide）方法、很多對(duì)象支持移動(dòng)（ Move）方法等。 Visual Basic 中使用控件，簡(jiǎn)化了 Windows中的窗口、按鈕等對(duì)象的編程設(shè)計(jì)。 Access2021 數(shù)據(jù)庫(kù)簡(jiǎn)介 作為 Microsoft 的 office 套件產(chǎn)品之一 ,access 已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫(kù)系統(tǒng)。 Access 將所有有名字的東西都成為對(duì)象（ object），在 Access 2021中，最重要的對(duì)象有表，查詢(xún)，窗體，報(bào)表，宏和模塊。查詢(xún) 為來(lái)自一個(gè)或多個(gè)表的資料提供定制視圖的對(duì)象。大量的操作（幾乎所有）都要通過(guò)窗體完成。它是衡量一個(gè)優(yōu)秀的數(shù)據(jù)庫(kù)的重要標(biāo)準(zhǔn)（有時(shí)甚至是唯一的標(biāo)準(zhǔn)）。模塊提供了獨(dú)立的動(dòng)作流以捕獲錯(cuò)誤，而宏做不到。 amp。 vbCrLf amp。 39。 請(qǐng)查看庫(kù)存 報(bào)警記錄 = False Exit Sub End If End Sub 第 27 頁(yè) 共 29 頁(yè) Private Sub Timer2_Timer() = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最小庫(kù)存 If 0 Then Beep MsgBox 有設(shè)備庫(kù)存低于警戒庫(kù)存！ amp。 主界面如下： 第 29 頁(yè) 共 29 頁(yè) 參考文獻(xiàn)： 1. 數(shù)據(jù)庫(kù)系統(tǒng)原理教程 王珊 陳紅 清華大學(xué)出版社 2. 管理信息系統(tǒng) 王虎 張俊 武漢理工大學(xué) 出版社 3. Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā) , , 著 清華大學(xué)出版社 4. PowerBuilder 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 何旭洪 余建英 人民郵電出版社 5. VB6 從入門(mén)道精通 『美』 Gary cornell 著 北京希望電子出版社 6. managing Information Systems David 著 清華大學(xué)出版社 7. Management Information Systems Raymond Mcleod,Jc GeeSchell 著 北京大學(xué)出版社 . 。 請(qǐng)查看庫(kù)存報(bào)警記錄 = False Exit Sub End If End Sub 操作日志模塊實(shí)現(xiàn) 主要程序 Private Sub Command2_Click( ) 填寫(xiě)日志記錄 If = Or = Or = Then MsgBox 請(qǐng)輸入完整信息！ Exit Sub Else (操作員 ) = (操作內(nèi)容 ) = (操作時(shí)間 ) = End If End Sub Private Sub Form_Load() 設(shè)置填寫(xiě)時(shí)間 Dim STRtime As String STRtime = Now() = STRtime 第 28 頁(yè) 共 29 頁(yè) (STRtime) End Sub 第六章 系統(tǒng)使用說(shuō)明 本系統(tǒng)使用簡(jiǎn)單方便，各操作界面如第五章所示，在此不再累述。 J Else MsgBox 現(xiàn)有庫(kù)存量不足！請(qǐng)輸入合適數(shù)量！！ Exit Sub End If 第 25 頁(yè) 共 29 頁(yè) Else STR = 現(xiàn)有庫(kù)存表中無(wú)此設(shè)備！請(qǐng)檢查輸入是否正確??！ MsgBox STR End If End Sub Private Sub cmdDelete_Click( )刪除出庫(kù)記錄 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 更新記錄程序同入庫(kù)的更新程序相同，在此略 設(shè)備代碼模塊實(shí)現(xiàn) 主要程序 Private Sub cmdAdd_Click( ) 添加設(shè)備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫(kù)存報(bào)警模塊實(shí)現(xiàn) 第 26 頁(yè) 共 29 頁(yè) 主要程序 Private Sub Command1_Click() 顯示高于最大警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最大庫(kù)存 If 0 Then Beep MsgBox 表中設(shè)備已過(guò)量！ Else MsgBox 沒(méi)有設(shè)備庫(kù)存過(guò)量！ End If End Sub Private Sub Command2_Click()顯示低于于最小警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最小庫(kù)存 If 0 Then Beep MsgBox 表中設(shè)備庫(kù)存量已過(guò)警戒線！請(qǐng)采購(gòu)?。? Else MsgBox 沒(méi)有設(shè)備庫(kù)存量過(guò)少！ End If End sub Private Sub Timer1_Timer() 自動(dòng)報(bào)警程序 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存 最大庫(kù)存 If 0 Then Beep MsgBox 有設(shè)備庫(kù)存超過(guò)警戒庫(kù)存！ amp。 amp。 設(shè)備入庫(kù)表 . 設(shè)備入庫(kù)表 . If 設(shè)備入庫(kù)表 . 0 Then 將記錄加入現(xiàn)有庫(kù)存表中 設(shè)備入庫(kù)表 . = CInt(設(shè)備入庫(kù)表 .) + CInt() 設(shè)備入庫(kù)表 . J = 設(shè)備入庫(kù)表 .Text9 設(shè)備入庫(kù)表 . 設(shè)備入庫(kù)表 . 設(shè)備入庫(kù)表 . MsgBox 現(xiàn)有庫(kù)存量為： amp。 系統(tǒng)管理模塊實(shí)現(xiàn) 修改用戶(hù)密碼程序 Private Sub Command1_Click() = Set = Adodc1 = 密碼 If Text1 = Then MsgBox 請(qǐng)輸入原密碼！ , , 修改密碼 Exit Sub ElseIf (密碼 ) Then MsgBox 原密碼錯(cuò)誤！ , , 修改密碼 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 請(qǐng)輸入新密碼?。?, , 修改密碼 Exit Sub ElseIf Text2 Text3 Then MsgBox 密碼不一致??！ , , 修改密碼 第 22
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1