【正文】 下霸唱本人口滑筆快，編造杜撰出來的？ 其實我國養(yǎng)貓養(yǎng)狗的歷史長而久矣，也曾遺留下來無數(shù)的養(yǎng)寵秘訣。 通過這次畢業(yè)設(shè)計，我受益匪淺，不僅鞏固了三年來所學的知識，還深入學習了 Visual Basic ，這種面向?qū)ο蟪绦蛟O(shè)計理念及快捷靈 活的編程手法讓人耳目一新。 在此，我能夠依據(jù)實際情況以及課堂上所學習的知識，應(yīng)用到自己的實際工作，幫助解決工作過程中的問題，對實施方法程序有深刻理解，在數(shù)據(jù)庫設(shè)計方面，編程技術(shù)方面有了一定的進步。 畢業(yè)設(shè)計是整個教學過程的最后環(huán)節(jié)，是學生綜合運用所學知識解決實際問題能力的考查。 第六章 附 錄 開發(fā)小組人員分工一覽 表 日常業(yè)務(wù)登記模塊：蘇兆民 閆新民 庫存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計模塊： 李業(yè)森 霍憲斌 業(yè)務(wù)信息管理模塊：蘇兆民 李業(yè)森 打印報表模塊： 閆新民 蘇兆民 系統(tǒng)設(shè)置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻 書 名 作者 出版社 VB 程序設(shè)計簡明教程 龔沛曾 陸慰民 楊志強 高等教育出版社 VB 數(shù)據(jù)庫開發(fā) 入門與范例解析 郭 勝 夏邦貴 機械工業(yè)出版社 VB 程序設(shè)計教程 譚浩強 清華大 學出版社 VB 程序設(shè)計題典 劉圣才 李春葆 清華大學出版社 VB For Windows 語言參考詳解 周民光 王復康 北京航空航天大學出版社 結(jié) 束 語 通過使用 VB 編程，使人真正體會到了可視化編程的優(yōu)點，自己動手開發(fā)小規(guī)模的應(yīng)用系統(tǒng)，學會一種規(guī)范化的編程方法，使我加深了對軟件的理解。該系統(tǒng)具有高度的可靠性和安全保密性，操作簡單，易行，用戶界面簡單，友好，又具有一定的美觀性，菜單式的使用方式方便，不繁瑣，便于用戶查詢、統(tǒng)計和打印等。 軟件適用范圍 小型超市、商店、個體工商戶 4 銷售管理系統(tǒng)是專為小 企業(yè)開發(fā)的貨物擋案計算機管理系統(tǒng)。用戶可以使用本軟件對商品的進、銷、存紀錄進行管 理，及時的掌握商品的進、銷、存情況。 \ = 0 MsgBox 數(shù)據(jù)已恢復完畢。確認數(shù)據(jù)恢復 YesNo = MsgBox(準備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 FileCopy 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 數(shù)據(jù)恢復窗口代碼 ： Private Sub Form_Activate() 39。 \, amp。確認數(shù)據(jù)備份 YesNo = MsgBox(準備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 MkDir ( amp。 39。 amp。確認修改操作員信息 = select * from ma where 操作員 = 39。 \倉庫 .mdb 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。 like + Chr(34) + + * + Chr(34) + ) Call eval 39。 amp。 amp。查詢統(tǒng)計庫存商品信息 = select * from kc where (kc. amp。計算庫存金額 Call eval 39。計算庫存金額 Call eval 39。初始化查詢統(tǒng)計庫存商品信息 = select count(*)as 品種 ,sum(庫存 )as 合計庫存 ,sum(庫存金額 )as 合計庫存金額 from kc Call eval 39。 \倉庫 .mdb End Sub Private Sub Form_Activate() 39。自動識別數(shù)據(jù)庫路徑 = amp。第 9 行按升序排序 End Sub Private Sub Command2_Click() = True Unload Me End Sub 價格管理程序代碼： Public Sub eval() 39。自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Command1_Click() 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。 \倉庫 .mdb) Set myrs1 = (gys, dbOpenTable) For i = 0 To 16 If gys(i).Text Then (i) = gys(i).Text Next i : : : For i = 0 To 3 CmdMD(i).Enabled = True Next i = True: = True = False: = False: = True Else End If End Sub Private Sub ComDelete_Click() 39。保存修改記錄 Dim A As String A = MsgBox(您確實要修改這條數(shù)據(jù)嗎 ?, 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。允許用戶添加新記錄 For i = 0 To 16 gys(i).Text = gys(i).Enabled = True Next i = True: = False: = True: = True For i = 0 To 3 CmdMD(i).Enabled = False Next i = False: = False: = False = 0: gys(0).SetFocus End Sub Private Sub ComModify_Click() 39。移到最后一條記錄 If 0 Then If = False Then If = True Then End If End Select Call viewdata 39。移到上一條記錄 If 0 Then If = False Then If = True Then End If Case Is = 2 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 (您正在處理數(shù)據(jù) ,請取消數(shù)據(jù)處理 ,在執(zhí)行本操作 !) = 0 Else End If End If End Sub Private Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 39。 like + Chr(34) + + * + Chr(34) + ) Call viewdata 39。 amp。自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) = True Unload Me End Sub Private Sub ComFind_Click() 39。調(diào)用函數(shù) End If End Sub Private Sub Form_Load() = amp。 向 bo1 添加查詢項目列表 X = Array(供應(yīng)商編號 , 供應(yīng)商全稱 , 簡稱 , 地址 , 所屬地區(qū) , 郵政編碼 , 電話 , 傳真 ) For i = 0 To 7 (X(i)) Next i = 供應(yīng)商全稱 39。定義變量 Public Sub viewdata() 39。 \倉庫 .mdb 39。 tmpsql1 = lsql = True End Sub Private Sub Form_Load() = amp。 39。 amp。 amp。設(shè)置控件不可見 = False: = False: = True: = False End Sub Private Sub Comqx_Click() 39。更新 kc表中的 庫存 及 庫存金額 (庫存 ) = Val((i, 8)) + Val((庫存)) ( 庫 存 金 額 ) = Val(( 庫存 )) * Val((進價 )) End If End If Next i : 39。添加入庫商品到 kc表中 If (i, 1) Then (商品名稱 ) = (i, 1) If (i, 2) Then (簡稱 ) = (i, 2) If (i, 3) Then (批號 ) = (i, 3) If (i, 4) Then (產(chǎn)地 ) = (i, 4) If (i, 5) Then (規(guī)格 ) = (i, 5) If (i, 6) Then (包裝 ) = (i, 6) If (i