【正文】 產(chǎn)地 數(shù)量 供應(yīng)商 日期 票號 End Sub Private Sub Combo2_LostFocus() = = = End Sub Private Sub Command1_Click() = str() End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() = = = slql = select * from .kc = slql = str() End Sub Private Sub Command4_Click() i = MsgBox(確實要重新設(shè)置嗎？ , 33, ) If i = 1 Then = = = End If End Sub Private Sub Command5_Click() i = MsgBox(真的要打印嗎？ , 33, ) If i = 1 Then Else = True On Error GoTo errhandler errhandler: Exit Sub End If End Sub Private Sub Command9_Click() On Error Resume Next If = Then MsgBox 請輸入查詢內(nèi)容！ , 49, 提示信息 End If tmpsql1 = amp。 \倉庫 .mdb 39。保存新增記錄 Dim mydb As Database Dim myrs1 As Recordset If gys(0).Text And gys(1).Text Then Set mydb1 = Workspaces(0).OpenDatabase( amp。調(diào)用函數(shù) End Sub Private Sub texgkc_Change() = Val() * Val() 39。 amp。 軟件開發(fā)目的 針對小型的商品零售單位，業(yè)務(wù)發(fā)生頻繁，每筆業(yè)務(wù)涉及金額小、內(nèi)容重復(fù)等特點。 在任老師的細(xì)心指導(dǎo)下，我解決了許多設(shè)計中遇到的問題，在此深表感謝，同時希望各位老師和同學(xué)對本系統(tǒng)提出寶貴意見，謝謝大家。 :\數(shù)據(jù)備份 \, amp。 \倉庫 .mdb = False End Sub 修改密碼程序代碼 ： Private Sub Form_Load() = amp。 向 bo1 添加查詢項目列表 (商品名稱 ) (簡稱 ) (批號 ) = 0 39。調(diào)用函數(shù) End Sub Private Sub ComAdd_Click() 39。定義顯示數(shù) 據(jù)的函數(shù) For i = 0 To 16 If (i) Then gys(i).Text = (i) Else gys(i).Text = Next i End Sub Private Sub Form_Activate() 39。更新表 Else 39。查詢所有入庫數(shù)據(jù) ,并按票號排序 = select * from rkd order by 票號 39。在 mf1表格第 1 行或大于第 1 行時 = True 39。賦值給 text1 = 8 39。定義字段 Dim rs2 As Recordset Dim lsph As Integer 39。 然后，打開密碼表查看所遺忘的密碼。系統(tǒng)管理模塊包括添假、修改、退出三個子模塊，從而更方便了用戶管理。 銷售管理系統(tǒng)采用了多種控件相結(jié)合的設(shè)計方法，從而進(jìn)一步完善了系統(tǒng)，滿足了用戶的需要，具體分為三大部分： 1) 技術(shù)可行性 一個完整的銷售管理要靈活簡便；操作要求簡單易行，用戶界面要求簡單同時又具有一定的美觀性，使用戶菜單方便不繁瑣，便于查詢，本著以上的設(shè)計原則，本系統(tǒng)采用 制作了用戶界面，在設(shè)計圖形處理方面，交好的利用了 將許多與 Windows 交互的低級操作隱蔽起來，讓程序員可以較快的編寫良好的界面應(yīng)用程序的特點，編制了本系統(tǒng)。 在開發(fā)軟件的過程中，得到了任老師、胡老師、陳老師、廖老師的指導(dǎo)與幫助，在此表示衷心的感謝 。在面向?qū)ο蟪绦蛟O(shè)計方面，Visual 全面支持面向?qū)δ愠绦蛟O(shè)計包括數(shù)據(jù)抽象、封裝、對象與屬性、類與成員、繼承與多態(tài)。因此為管理人員節(jié)省了大量的時間。 系統(tǒng)管理是當(dāng)今數(shù)據(jù)庫軟件的一個必不可少的組成部分。 3)、 Borderstyle：用來標(biāo)簽的邊框，可以取值為 1，既標(biāo)簽帶有邊框 。備份是恢復(fù)受損 SIMS 最容易，把意外損失降低到最小的保障方法。定義 mf1 表的固定行數(shù)、固定列數(shù) 39。DBList1 不可見 End If If KeyCode = vbKeyPageDown Then 39。賦值給 If = 1 Then 39。 \倉庫 .mdb) 39。 39。 like + Chr(34) + + * + Chr(34) + ) Call viewdata 39。自動識別數(shù)據(jù)庫路徑 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Command1_Click() 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。 第六章 附 錄 開發(fā)小組人員分工一覽表 日常業(yè)務(wù)登記模塊：蘇兆民 閆新民 庫存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計模塊： 李業(yè)森 霍憲斌 業(yè)務(wù)信息管理模塊：蘇兆民 李業(yè)森 打印報表模塊： 閆新民 蘇兆民 系統(tǒng)設(shè)置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻(xiàn) 書 名 作者 出版社 VB 程序設(shè)計簡明教程 龔沛曾 陸慰民 楊志強 高等教育出版社 VB 數(shù)據(jù)庫開發(fā) 入門與范例解析 郭 勝 夏邦貴 機(jī)械工業(yè)出版社 VB 程序設(shè)計教程 譚浩強 清華大學(xué)出版社 VB 程序設(shè)計題典 劉圣才 李春葆 清華大學(xué)出版社 VB For Windows 語言參考詳解 周民光 王復(fù)康 北京航空航天大學(xué)出版社 結(jié) 束 語 通過使用 VB 編程，使人真正體會到了可視化編程的優(yōu)點，自己動手開發(fā)小規(guī)模的應(yīng)用系統(tǒng)，學(xué)會一種規(guī)范化的編程方法，使我加深了對軟件的理解。 畢業(yè)設(shè)計是整個教學(xué)過程的最后環(huán)節(jié)，是學(xué)生綜合運用所學(xué)知識解 決實際問題能力的考查。 \, amp。 amp。第 9 行按升序排序 End Sub Private Sub Command2_Click() = True Unload Me End Sub 價格管理程序代碼： Public Sub eval() 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。 tmpsql1 = lsql = True End Sub Private Sub Form_Load() = amp。查詢庫存商品信息 = SELECT * FROM KC For i = 1 To 100 If (i, 1) And (i, 8) Then 39。當(dāng) 為空時 = False 39。DBList1 可見 39。設(shè)置入庫日期 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub gys_Change() = True 39。備份可以防止因表和 SIMS 遭受破壞、介質(zhì)失效或用戶錯誤而造成的數(shù)據(jù)災(zāi)難。 4 Data 控件：連接數(shù)據(jù)庫。同時，它為我們更好的管理數(shù)據(jù)庫提供了保證；在使用該系統(tǒng)后，讓我們真的可以做到“高枕是否刪除 顯示結(jié)果 繼續(xù)刪除？ 結(jié) 束 Y N Y N 無憂”。 二 需求 分析 由于現(xiàn)代社會某些企業(yè)對貨物管理系統(tǒng)的許可認(rèn)定，越來越復(fù)雜，因此查找難度大，不便于管理，這樣給貨物管理帶來很大的難度，且費時費工，因此需要有一個功能強大的軟件，能夠?qū)ω浳锝y(tǒng)一合理的管理，而且目前市場上缺乏這件軟件。銷售管理系統(tǒng)包括系統(tǒng)管理、備分、查詢、添加、打印輸出、修改等功能。 本系統(tǒng)具有特點： 1. 通用性：適用于規(guī)模不同的企業(yè)。并對整個銷售管理系統(tǒng)設(shè)置了安全性、保密性，使其進(jìn)一步規(guī)范化、科學(xué)化管理。所以，我們在操作 SIMS 時一定要做到認(rèn)真、仔細(xì)、謹(jǐn)慎，避免出現(xiàn)不當(dāng)?shù)腻e誤。點擊添加用戶可以添加普通和高級用戶。定義變量 Dim mydb As Database 39。當(dāng)按回車鍵時 With If 0 Then If (商品名稱 ) Then 39。到達(dá)第 1 行，第 1 列 End If If KeyCode = vbKeyUp Then 39。grid1 可見 End If End If End If If = 8 Then (, 10) = Val((, 8)) * Val((, 9)) If = 9 Then (, 10) = Val((, 8)) * Val((, 9)) If (, 8) = Then MsgBox (數(shù)量無 ,請重新輸入 !!!) = 8 = False End If End If If = 11 Then If (, 9) = Then MsgBox (單價無 ,請重新輸入 !!!) = 9 = False End If End If Dim A, B As Single For i = 1 To 31 A = Val((i, 10)) + A: B = Val((i, 8)) + B If (i, 1) And (i, 8) Then = i Next i = A: = B 39。查找 庫存商品信息 商品名稱 like + Chr(34) + (i, 1) + Chr(34) + and 批號 like + Chr(34) + (i, 3) + Chr(34) + and 產(chǎn)地 like + Chr(34) + (i, 4) + Chr(34) + and 規(guī)格 like + Chr(34) + (i, 5) + Chr(34) + If Then 39。自動識別數(shù)據(jù)庫路徑 End Sub 供應(yīng)商管理程序代碼 ： Dim X, i 39。移到下一條記錄 If 0 Then If = False Then If = True Then End If Case Is = 3 39。 \倉庫 .mdb