【正文】 MsgBox(準備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 MkDir ( amp。 errprompt: = 0 Select Case Case 57 MsgBox 磁盤已滿！ , vbCritical Case 70 MsgBox 磁盤寫保護！ , vbCritical End Select End Sub Private Sub Command2_Click() Load frm_main = True Unload Me End Sub 數據恢復 窗口代碼 ： Private Sub Form_Activate() 39。 \ = 0 MsgBox 數據已恢復完畢。 軟件 適用范圍 小型超市、商店、個體工商戶 4 銷售管理系統(tǒng)是專為小企業(yè)開發(fā)的貨物擋案計算機管理系統(tǒng)。 第六章 附 錄 開發(fā)小組人員分工一覽表 日常業(yè)務登記模塊：蘇兆民 閆新民 庫存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計模塊： 李業(yè)森 霍憲斌 業(yè)務信息管理模塊：蘇兆民 李業(yè)森 打印報表模塊： 閆新民 蘇兆民 系統(tǒng)設置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻 書 名 作者 出版社 VB 程序設計簡明教程 龔沛曾 陸慰民 楊志強 高等教育出版社 VB 數據庫開發(fā) 入門與范例解析 郭 勝 夏邦貴 機械工業(yè)出版社 VB 程序設計教程 譚浩強 清華大學出版社 VB 程序設計題典 劉圣才 李春葆 清華大學出版社 VB For Windows 語言參考詳解 周民光 王復康 北京航空航天大學出版社 結 束 語 通過使用 VB 編程，使人真正體會到了可視化編程的優(yōu)點，自己動手開發(fā)小規(guī)模的應用系統(tǒng)，學會一種規(guī)范化的編程方法，使我加深了對軟件的理解。 在此，我能夠依據實際情況以及課堂上所學習的知識，應用到自己的實際工作，幫助解決工作過程中的問題，對實施方法程序有深刻理解，在數據庫設計方面，編程技術方面有了一定的進步。 observing time of the whole fucking trip, Gaby muttered. In th。 通過這次畢業(yè)設計，我受益匪淺，不僅鞏固了三年來所學的知識，還深入學習了 Visual Basic ，這種面向對象程序設計理念及快捷靈活的編程手法讓人耳目一新。 畢業(yè)設計是整個教學過程的最后環(huán)節(jié)，是學生綜合運用所學知識解 決實際問題能力的考查。該系統(tǒng)具有高度的可靠性和安全保密性，操作簡單，易行，用戶界面簡單，友好，又具有一定的美觀性，菜單式的使用方式方便，不繁瑣，便于用戶查詢、統(tǒng)計和打印等。用戶可以使用本軟件對商品的進、銷、存紀錄進行管 理，及時的掌握商品的進、銷、存情況。確認數據恢復 YesNo = MsgBox(準備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 FileCopy amp。 \, amp。 39。確認修改操作員信息 = select * from ma where 操作員 = 39。 = mbookmark End Sub Private Sub Command3_Click() On Error Resume Next r = MsgBox(你是否要真的刪除，注意不能恢復！ , vbOKCancel, 刪除 警告 ) If r = 1 Then If Then End If End Sub Private Sub Command4_Click() Unload Me = True End Sub Private Sub Command5_Click() End Sub Private Sub Command6_Click() If Then End Sub Private Sub Command7_Click() If Then End Sub Private Sub Command8_Click() End Sub Private Sub Form_Load() = amp。 amp。查詢統(tǒng)計庫存 商品信息 = select * from kc where (kc. amp。計算庫存金額 Call eval 39。 \倉庫 .mdb End Sub Private Sub Form_Activate() 39。第 9 行按升序排序 End Sub Private Sub Command2_Click() = True Unload Me End Sub 價格管理程序代碼： Public Sub eval() 39。取消操作 If 0 Then For i = 0 To 16 gys(i).Enabled = False If (i) Then gys(i).Text = (i) Next i For i = 0 To 3 CmdMD(i).Enabled = True Next i = True: = True: = False = False: = False: = True End If End Sub Private Sub Comend_Click() = True Unload Me End Sub 庫存盤點程序代碼： Private Sub Form_Load() = amp。保存修改記錄 Dim A As String A = MsgBox(您確實要修改這條數據嗎 ?, vbYesNo) If A = vbYes Then For i = 0 To 16 If gys(i).Text Then (i) = gys(i).Text gys(i).Enabled = False Next i = False: = False: = True For i = 0 To 3 CmdMD(i).Enabled = True Next i = True: = True: End If End Sub Private Sub ComSaveM_Click() 39。移到最后一條記錄 If 0 Then If = False Then If = True Then End If End Select Call viewdata 39?；剀嚝@得焦點 If KeyCode = vbKeyReturn And Index 16 Then gys(Index + 1).SetFocus If KeyCode = vbKeyReturn And Index = 9 Then = 1 If KeyCode = vbKeyReturn And Index = 16 Then End Sub Private Sub SSTab1_Click(PreviousTab As Integer) If 0 Then If = 2 And = False Then MsgBox (您正在處理數據 ,請取消數據處理 ,在執(zhí)行本操作 !) = 0 Else End If End If End Sub Private Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 39。 amp。調用函數 End If End Sub Private Sub Form_Load() = amp。定義變量 Public Sub viewdata() 39。 tmpsql1 = lsql = True End Sub Private Sub Form_Load() = amp。 amp。設置控件不可見 = False: = False: = True: = False End Sub Private Sub Comqx_Click() 39。添加入庫商品到 kc表中 If (i, 1) Then (商品名稱 ) = (i, 1) If (i, 2) Then (簡稱 ) = (i, 2) If (i, 3) Then (批號 ) = (i, 3) If (i, 4) Then (產地 ) = (i, 4) If (i, 5) Then (規(guī)格 ) = (i, 5) If (i, 6) Then (包裝 ) = (i, 6) If (i, 7) Then (單位 ) = (i, 7) If (i, 8) Then (庫存 ) = (i, 8) If (i, 9) Then (進價 ) = (i, 9) If (i, 10) Then (庫存金額 ) = (i, 10) 39。查詢庫存商品信息 = SELECT * FROM KC For i = 1 To 100 If (i, 1) And (i, 8) Then 39。清空數據 For i = 1 To 100 For j = 1 To 11 (i, j) = Next j Next i = 1: = 1 39。 Format(lsph, 0000) End If Else = Date amp。計算合計金額，合計數量 End Sub Private Sub Comdj_Click() 39。當 為空時 = False 39。調用函數 If KeyCode = vbKeyRight Then Call 39。格式化金額 For i = 1 To 100 If (i, 1) Then (i, 9) = Format((i, 9), ) (, 10) = Val((, 9)) * Val((, 8)) (i, 10) = Format((i, 10), ) End If Next i End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) = 1 If KeyCode = vbKeyReturn Then = False If = 1 Then With If .RecordCount 0 Then 39。按向上鍵 gys 獲得焦點 End Sub Private Sub mf1_Click() If = 1 And ( 1, 8) Then 39。DBList1 可見 39。按回車鍵 39。text1 獲得焦點 End If If KeyCode = vbKeyEscape Then 39。賦值給 mf1 表格 If .Fields(商品名稱 ) Then (, 1) = .Fields(商品名稱 ) If .Fields(簡稱 ) Then (, 2) = .Fields(簡稱 ) If .Fields(批號 ) Then (, 3) = .Fields(批號 ) If .Fields(產地 ) Then (, 4) = .Fields(產地 ) If .Fields(規(guī)格 ) Then (, 5) = .Fields(規(guī)格 ) If .Fields(包裝 ) Then (, 6) = .Fields(包裝 ) If .Fields(單位 ) Then (, 7) = .Fields(單位 ) If .Fields(進價 ) Then (, 9) = .Fields(進價 ) = 39。設置入庫日期 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub gys_Change()