軟件工程課程設(shè)計(jì)庫(kù)存管理系統(tǒng)-閱讀頁(yè)
2025-07-12 07:16本頁(yè)面
【正文】 短的VBA代碼，那么您的程序決不比專(zhuān)業(yè)程序員潛心開(kāi)發(fā)的程序差。 表 用戶(hù)定義的存儲(chǔ)資料的對(duì)象。表包括存儲(chǔ)不同種類(lèi)資料的字段（列），而記錄（行）則收集特定主體實(shí)例的所有信息。在Access中，可以利用圖形化的實(shí)例查詢(xún)機(jī)制（QBE）或通過(guò)SQL語(yǔ)句來(lái)建立查詢(xún)。 窗體 窗體是主要的人機(jī)接口。窗體通過(guò)運(yùn)行宏（macro）或Visual Basic for Applicatinns（VBA）過(guò)程，來(lái)響應(yīng)大量的事件。 報(bào)表 為格式化、計(jì)算、打印選定資料而設(shè)計(jì)的對(duì)象。 宏 為了響應(yīng)已定義的事件，需要讓Access去執(zhí)行一個(gè)或多個(gè)操作，而宏就是對(duì)這些操作的結(jié)構(gòu)化的定義對(duì)象。 模塊 包括用VBA編碼的定制過(guò)程的一個(gè)對(duì)象。模塊能直接響應(yīng)窗體或報(bào)表事件，也可以從應(yīng)用程序的任何地方被調(diào)用。 = Set = Adodc1 If Text1 = Then Exit Sub MsgBox 原密碼錯(cuò)誤！, , 修改密碼 ElseIf Text2 = Or Text3 = Then Exit Sub MsgBox 密碼不一致?。? , 修改密碼 Else Unload Me Dim I, J As Integer If = Or Text2 = Or = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then Exit Sub (設(shè)備號(hào)) = (入庫(kù)時(shí)間) = (供應(yīng)商電話(huà)) = (采購(gòu)員) = End If = select * from 現(xiàn)有庫(kù)存表 where 設(shè)備號(hào)=39。 amp。 將記錄加入現(xiàn)有庫(kù)存表中 J STR = 現(xiàn)有庫(kù)存表中無(wú)此設(shè)備！ amp。 請(qǐng)?jiān)谠O(shè)備代碼表和現(xiàn)有庫(kù)存表中手動(dòng)添加記錄??！ Load frm現(xiàn)有庫(kù)存表 Call = End SubPrivate Sub cmdDelete_Click( ) 刪除入庫(kù)表中記錄 Dim YesNo As String If YesNo = vbYes Then .Delete If .EOF Then .MoveLast Else MsgBox End SubPrivate Sub cmdUpdate_Click( ) 更新紀(jì)錄程序 adAffectAll Exit SubUpdateErr: Dim i, J, k As Integer = select * from 現(xiàn)有庫(kù)存表 where 設(shè)備號(hào)=39。 amp。 MsgBox 數(shù)量必須是數(shù)字！ End If MsgBox 請(qǐng)輸入完整信息！ ElseIf = 0 Then MsgBox STR Else (出庫(kù)數(shù)量) = (經(jīng)手人) = (使用部門(mén)) = MsgBox 已經(jīng)成功存入設(shè)備出庫(kù)表庫(kù)！ k = CInt() CInt() = CInt() CInt() J = MsgBox 現(xiàn)有庫(kù)存量為： amp。 Else Exit Sub Else MsgBox STR On Error GoTo DeleteErr YesNo = MsgBox(刪除, vbYesNo, 刪除記錄) With .MoveNext End With Exit SubEnd IfDeleteErr:主要程序 Private Sub cmdAdd_Click( ) 添加設(shè)備 On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub 庫(kù)存報(bào)警模塊實(shí)現(xiàn) 主要程序Private Sub Command1_Click() 顯示高于最大警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存最大庫(kù)存 If 0 Then MsgBox 表中設(shè)備已過(guò)量！ ElsePrivate Sub Command2_Click()顯示低于于最小警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存最小庫(kù)存 If 0 Then MsgBox 表中設(shè)備庫(kù)存量已過(guò)警戒線(xiàn)！請(qǐng)采購(gòu)??！ Else End subPrivate Sub Timer1_Timer() 自動(dòng)報(bào)警程序 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存最大庫(kù)存 Beep vbCrLf amp。 = False Exit Sub End If End Sub If 0 Then MsgBox 有設(shè)備庫(kù)存低于警戒庫(kù)存！ amp。 請(qǐng)查看庫(kù)存報(bào)警記錄 End If主要程序 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 (STRtime) End Sub 具體程序同其他查詢(xún)相似，在此略 第六章 系統(tǒng)使用說(shuō)明 本系統(tǒng)使用簡(jiǎn)單方便，各操作界面如第五章所示，在此不再累述。 主界面如下： 參考文獻(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 何旭洪 余建英 人民郵電出版社 5． VB6從入門(mén)道精通 『美』Gary cornell 著 北京希望電子出版社 6. managing Information Systems David 清華大學(xué)出版社 7. Management Information Systems Raymond Mcleod,Jc George Sche
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1