【正文】 以下兩變量用于保存未減去之前的相應(yīng)項(xiàng)的值 Dim oldquantity As Long Dim oldmoney As Long odlmoney = (6) oldquantity = (5) (5) = oldquantity Val() (6) = oldmoney Val() 39。加入退貨表 Dim sqlback As String sqlback = select * from retreat sqlback, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = 39。 = adUseClient sqlcheck, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 對不起，沒有銷售此商品型號！無法退貨！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf ((5)) Val() Then 39。 amp。and 型號=39。 amp。and 生產(chǎn)廠商=39。 amp。需要進(jìn)行三次數(shù)據(jù)庫操作，加入退貨表，加入現(xiàn)存商品表，從銷售表中減去 = False If = Then MsgBox 請?zhí)顚憦S商名稱！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r(jià)格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浤攴荩? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浽路荩? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懲素浫眨? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憳I(yè)務(wù)員姓名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf Val() = Then MsgBox 請?zhí)顚懲素浛偨痤~！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlcheck As String sqlcheck = select * from sell where 商品名=39。用于存放goods表中原來的此商品數(shù)量 Dim oldmoney As Long 39。添加入銷售表 (1) = (2) = (3) = (4) = (5) = Val() (6) = Val() (7) = (8) = (9) = (10) = 39。 = adUseClient 39。 amp。and 型號=39。 amp。and 生產(chǎn)廠商=39。 amp。 Format(, )B = B + D (a, B + 100)(C, B + 100) = 1000 + a = B + 200 歡迎您下次光臨End SubPrivate Sub cmdSell_Click() = False If = Then MsgBox 請?zhí)顚憦S商名稱！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐穬r(jià)格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售年份！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售月份！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N售日！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚憳I(yè)務(wù)員姓名！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懣偨痤~！, vbOKOnly + vbInformation, 注意 Exit Sub End If Dim sqlcheck As String sqlcheck = select * from goods where 商品名=39。 Format(, )B = B + D = 100 + a = B + 200 商品數(shù)量： amp。 B = B + D = 100 + a = B + 200 商品型號： amp。 amp。打印發(fā)票 = 8000 = 8000 = 1100 = 300 = 12 銷售發(fā)票單Dim a, B, C, D As Integera = 100B = 500C = 4800D = 400 = 10 = 100 + a = B + 200 時(shí)間： amp。使txtFc獲得光標(biāo)焦點(diǎn) Exit Sub End If Dim sql As String sql = select * from goods sql, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Val() 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶名或老密碼錯(cuò)誤, vbOKOnly + vbExclamation, = = Exit Sub Else (2) = MsgBox 修改密碼成功！, vbOKOnly + vbInformation, Unload Me 39。 amp。 密碼= 39。 39。 amp。先檢測兩次輸入的新密碼時(shí)候一樣 If Then MsgBox 兩次輸入的密碼不同！請重新輸入, vbOKOnly + vbInformation, 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then t = t + 1 If t 3 Then MsgBox 用戶名或密碼錯(cuò)誤！, vbOKOnly + vbInformation, 注意 End If If t = 3 Then MsgBox 三次輸入密碼錯(cuò)誤！, vbOKOnly + vbInformation, 系統(tǒng)自動(dòng)退出 Unload Me Unload MDIfrmMain End If Exit Sub Else MsgBox 正確登錄, vbOKOnly + vbExclamation, 39。 amp。 密碼= 39。 39。 amp。記錄確定次數(shù)Private Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdLogin_Click() 39。我再次衷心地感謝楊老師對我的幫助。在此，我特別感謝楊章靜老師，他給予我莫大的幫助。第七章 謝 辭幾個(gè)月的畢業(yè)設(shè)計(jì)已經(jīng)進(jìn)入尾聲，在這里我要真誠地感謝幫助過我的老師和同學(xué)們，有了他們的幫助我才能順利的完成這次畢業(yè)設(shè)計(jì)。通過這次畢業(yè)設(shè)計(jì)，我們積累了不少開發(fā)系統(tǒng)的經(jīng)驗(yàn)，這對于我將來踏上工作崗位都是極為重要的。總而言之，系統(tǒng)必須嚴(yán)格按照軟件工程的方法進(jìn)行開發(fā)，其中生命周期法比較適合，即將軟件工程學(xué)和系統(tǒng)工程的理論與方法引入計(jì)算機(jī)信息應(yīng)用系統(tǒng)的研制開發(fā)中，將信息系統(tǒng)開發(fā)的全過程嚴(yán)格地劃分為四個(gè)階段：系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施、系統(tǒng)運(yùn)行與維護(hù)。我們在設(shè)計(jì)系統(tǒng)的時(shí)候不可能每個(gè)問題都考慮得面面具到，這就需要老師的指導(dǎo)，因此我們要虛心接受老師給我們的建議。比如有時(shí)候你要想往數(shù)據(jù)庫里面插入數(shù)據(jù)，不是光寫插入語句就行的，還必須要使數(shù)據(jù)庫表處于編輯狀態(tài)，這樣才能實(shí)現(xiàn)往里面插入數(shù)據(jù)。其中需求分析是關(guān)鍵，它是系統(tǒng)開發(fā)的基礎(chǔ)，它確定系統(tǒng)必須完成哪些工作，對系統(tǒng)提出明確、清晰、具體的要求。我們還要了解系統(tǒng)開發(fā)的環(huán)境?！傲己玫拈_始是成功的一半”,在開始具體工作前，先選擇好要用的編程工具，然后就這方面爭對性的借閱參考資料，掌握書本中的編程技巧，靈活運(yùn)用到自己的程序中來。以前我們只是接觸書本知識，缺少實(shí)踐經(jīng)驗(yàn)，只能是紙上談兵，但通過這次銷售系統(tǒng)開發(fā)我積累了不少開發(fā)經(jīng)驗(yàn)和解決問題的方法，這對于我將來從事軟件開發(fā)都是有很大的推動(dòng)作用。這次畢業(yè)設(shè)計(jì)我是用Visual Basic ，它是我大學(xué)中主要學(xué)習(xí)的計(jì)算機(jī)編程語言，通過這次實(shí)例開發(fā)，我對VB程序設(shè)計(jì)水平和數(shù)據(jù)庫應(yīng)用能力都有了很大的提高。包括對現(xiàn)存商品、已售商品、員工、客戶、廠商的一體化查詢。選取用戶登錄為例，具體的測試方案如下：1． 不輸入用戶名2． 不輸入密碼3． 輸入錯(cuò)誤的密碼4． 連續(xù)三次輸入錯(cuò)誤的密碼根據(jù)測試方案，測試結(jié)果如下：測試功能測試結(jié)果1請輸入用戶名2請輸入密碼3用戶名或密碼不正確，無法登錄4三次輸錯(cuò)密碼，系統(tǒng)自動(dòng)退出 第一種測試結(jié)果 第二種測試結(jié)果 第三種測試結(jié)果 第四種測試結(jié)果