軟件工程課程設(shè)計(jì)庫(kù)存管理系統(tǒng)-資料下載頁(yè)
2025-06-27 07:16本頁(yè)面
【正文】 = CInt() CInt() J = MsgBox 現(xiàn)有庫(kù)存量為： amp。 J Else MsgBox 現(xiàn)有庫(kù)存量不足！請(qǐng)輸入合適數(shù)量?。?Exit Sub End If Else STR = 現(xiàn)有庫(kù)存表中無(wú)此設(shè)備！請(qǐng)檢查輸入是否正確??！ MsgBox STR End IfEnd SubPrivate 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 SubEnd IfDeleteErr: MsgBox End Sub轉(zhuǎn)貼于 中國(guó)論文更新記錄程序同入庫(kù)的更新程序相同，在此略，程序略主要程序 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 Beep MsgBox 表中設(shè)備已過(guò)量！ Else MsgBox 沒(méi)有設(shè)備庫(kù)存過(guò)量！ End IfEnd SubPrivate Sub Command2_Click()顯示低于于最小警戒庫(kù)存的設(shè)備 = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存最小庫(kù)存 If 0 Then Beep MsgBox 表中設(shè)備庫(kù)存量已過(guò)警戒線(xiàn)！請(qǐng)采購(gòu)?。?Else MsgBox 沒(méi)有設(shè)備庫(kù)存量過(guò)少！ End If End subPrivate 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。 vbCrLf amp。 請(qǐng)查看庫(kù)存報(bào)警記錄 = False Exit Sub End If End SubPrivate Sub Timer2_Timer() = select * from 現(xiàn)有庫(kù)存表 where 現(xiàn)有庫(kù)存最小庫(kù)存 If 0 Then Beep MsgBox 有設(shè)備庫(kù)存低于警戒庫(kù)存！ amp。 vbCrLf amp。 請(qǐng)查看庫(kù)存報(bào)警記錄 = False Exit Sub 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)單方便，各操作界面如第五章所示，在此不再累述。 系統(tǒng)經(jīng)調(diào)試，可以安裝使用。 主界面如下： 參考文獻(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 Schel
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1