【正文】 passages from his books to them, and sometimes reenacted some o。 通過這次畢業(yè)設(shè)計(jì)，我受益匪淺，不僅鞏固了三年來所學(xué)的知識(shí)，還深入學(xué)習(xí)了 Visual Basic ，這種面向?qū)ο蟪绦蛟O(shè)計(jì)理念及快捷靈活的編程手法讓人耳目一新。 在此，我能夠依據(jù)實(shí)際情況以及課堂上所學(xué)習(xí)的知識(shí)，應(yīng)用到自己的實(shí)際工作，幫助解決工作過程中的問題，對(duì)實(shí)施方法程序有深刻理解，在數(shù)據(jù)庫(kù)設(shè)計(jì)方面，編程技術(shù)方面有了一定的進(jìn)步。 畢業(yè)設(shè)計(jì)是整個(gè)教學(xué)過程的最后環(huán)節(jié)，是學(xué)生綜合運(yùn)用所學(xué)知識(shí)解 決實(shí)際問題能力的考查。 第六章 附 錄 開發(fā)小組人員分工一覽表 日常業(yè)務(wù)登記模塊：蘇兆民 閆新民 庫(kù)存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計(jì)模塊： 李業(yè)森 霍憲斌 業(yè)務(wù)信息管理模塊：蘇兆民 李業(yè)森 打印報(bào)表模塊： 閆新民 蘇兆民 系統(tǒng)設(shè)置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻(xiàn) 書 名 作者 出版社 VB 程序設(shè)計(jì)簡(jiǎn)明教程 龔沛曾 陸慰民 楊志強(qiáng) 高等教育出版社 VB 數(shù)據(jù)庫(kù)開發(fā) 入門與范例解析 郭 勝 夏邦貴 機(jī)械工業(yè)出版社 VB 程序設(shè)計(jì)教程 譚浩強(qiáng) 清華大學(xué)出版社 VB 程序設(shè)計(jì)題典 劉圣才 李春葆 清華大學(xué)出版社 VB For Windows 語(yǔ)言參考詳解 周民光 王復(fù)康 北京航空航天大學(xué)出版社 結(jié) 束 語(yǔ) 通過使用 VB 編程，使人真正體會(huì)到了可視化編程的優(yōu)點(diǎn)，自己動(dòng)手開發(fā)小規(guī)模的應(yīng)用系統(tǒng)，學(xué)會(huì)一種規(guī)范化的編程方法，使我加深了對(duì)軟件的理解。該系統(tǒng)具有高度的可靠性和安全保密性，操作簡(jiǎn)單，易行，用戶界面簡(jiǎn)單，友好，又具有一定的美觀性，菜單式的使用方式方便，不繁瑣，便于用戶查詢、統(tǒng)計(jì)和打印等。 軟件 適用范圍 小型超市、商店、個(gè)體工商戶 4 銷售管理系統(tǒng)是專為小企業(yè)開發(fā)的貨物擋案計(jì)算機(jī)管理系統(tǒng)。用戶可以使用本軟件對(duì)商品的進(jìn)、銷、存紀(jì)錄進(jìn)行管 理，及時(shí)的掌握商品的進(jìn)、銷、存情況。 \ = 0 MsgBox 數(shù)據(jù)已恢復(fù)完畢。確認(rèn)數(shù)據(jù)恢復(fù) YesNo = MsgBox(準(zhǔn)備好了嗎？ , 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 磁盤寫保護(hù)！ , vbCritical End Select End Sub Private Sub Command2_Click() Load frm_main = True Unload Me End Sub 數(shù)據(jù)恢復(fù) 窗口代碼 ： Private Sub Form_Activate() 39。 \, amp。確認(rèn)數(shù) 據(jù)備份 YesNo = MsgBox(準(zhǔn)備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 MkDir ( amp。 39。 amp。確認(rèn)修改操作員信息 = select * from ma where 操作員 = 39。 \倉(cāng)庫(kù) .mdb 39。 = mbookmark End Sub Private Sub Command3_Click() On Error Resume Next r = MsgBox(你是否要真的刪除，注意不能恢復(fù)！ , 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)計(jì)庫(kù)存 商品信息 = select * from kc where (kc. amp。計(jì)算庫(kù)存金額 Call eval 39。計(jì)算庫(kù)存金額 Call eval 39。初始化查詢統(tǒng)計(jì)庫(kù)存 商品信息 = select count(*)as 品種 ,sum(庫(kù)存 )as 合計(jì)庫(kù)存 ,sum(庫(kù)存金額 )as 合計(jì)庫(kù)存金額 from kc Call eval 39。 \倉(cāng)庫(kù) .mdb End Sub Private Sub Form_Activate() 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = amp。第 9 行按升序排序 End Sub Private Sub Command2_Click() = True Unload Me End Sub 價(jià)格管理程序代碼： Public Sub eval() 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 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 庫(kù)存盤點(diǎn)程序代碼： Private Sub Form_Load() = amp。 \倉(cāng)庫(kù) .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í)要修改這條數(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。回車獲得焦點(diǎn) 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ù) ,請(qǐng)取消數(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。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 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 添加查詢項(xiàng)目列表 X = Array(供應(yīng)商編號(hào) , 供應(yīng)商全稱 , 簡(jiǎn)稱 , 地址 , 所屬地區(qū) , 郵政編碼 , 電話 , 傳真 ) For i = 0 To 7 (X(i)) Next i = 供應(yīng)商全稱 39。定義變量 Public Sub viewdata() 39。 \倉(cāng)庫(kù) .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表中的 庫(kù)存 及 庫(kù)存金額 (庫(kù)存 ) = Val((i, 8)) + Val((庫(kù)存)) ( 庫(kù) 存 金 額 ) = Val(( 庫(kù)存 )) * Val((進(jìn)價(jià) )) End If End If Next i : 39。添加入庫(kù)商品到 kc表中 If (i, 1) Then (商品名稱 ) = (i, 1) If (i, 2) Then (簡(jiǎn)稱 ) = (i, 2) If (i, 3) Then (批號(hào) ) = (i, 3) If (i, 4) Then (產(chǎn)地 ) = (i, 4) If (i, 5) Then (規(guī)格 ) = (i, 5) If (i, 6) Then (包裝 ) = (