【正文】 Trim() Trim() Then MsgBox 新密碼不對(duì) ! Exit Sub Else Dim rs1 As New select * from 系統(tǒng)用戶(hù) where 用戶(hù)名 =39。 amp。 UserName amp。 39。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((1)) Then If Trim() Trim((1)) Then MsgBox 管理員舊密碼不對(duì) ! Exit Sub Else (1).Value = Trim() MsgBox 操作已成功 !, , 提示 End If End If End If End If End If Exit Sub Err: MsgBox End Sub Private Sub Form_Load() 39。39。初始化代碼 On Error GoTo Err = = = = Dim rs1 As New select * from 系統(tǒng)用戶(hù) , CN, adOpenStatic, adLockOptimistic While Not If Not IsNull((0)) Then Trim((0)) Wend Err: End Sub 修改密碼表單 使用此功能的用戶(hù)，必須是具有訪(fǎng)問(wèn)該系統(tǒng)的權(quán)限，即是能登陸到該系統(tǒng)的用戶(hù)，如果不能訪(fǎng)問(wèn)該系統(tǒng)的用戶(hù)不能使用該功能。 修改密碼表單，主要是進(jìn)入系統(tǒng)的用戶(hù)修改自己的密碼的基本信息。不進(jìn)入系統(tǒng)的用戶(hù)不能使 用該功能。 修改密碼表單界面如下： 其中修改的代碼實(shí)現(xiàn)： Private Sub cmdExit_Click() Unload Me End Sub Private Sub Command4_Click() 39。39。39。密碼修改 On Error GoTo Err If Trim() And Trim() And Trim() Then If Trim() Trim() Then MsgBox 新密碼不對(duì) !, , 提示 Exit Sub Else Dim rs1 As New If Then select * from 系統(tǒng)用戶(hù) where 用戶(hù)名 =39。 amp。 UserName amp。 39。, CN, adOpenStatic, adLockOptimistic If Not Then If Not IsNull((1)) Then If Trim() Trim((1)) Then MsgBox 用戶(hù)舊密碼不對(duì) !, , 提示 Exit Sub Else (1).Value = Trim() MsgBox 操作已成功 !, , 提示 = = = End If End If End If End If End If Exit Sub Err: MsgBox End Sub Private Sub Form_Load() = = = End SubDim sql As String If Then MsgBox 兩次輸入的密碼不同！請(qǐng)重新輸入 , vbOKOnly + vbInformation, Exit Sub End If sql = select * from user1 where username = 39。 amp。 amp。 39。 and amp。 password= 39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶(hù)名或密碼錯(cuò)誤 , vbOKOnly + vbExclamation, = = Exit Sub Else (password) = Trim() MsgBox 修改密碼成功！ , vbOKOnly + vbExclamation, 修改成功！ End If 第五章 詳細(xì)設(shè)計(jì) 銷(xiāo)售信息管理模塊用來(lái)跟蹤服裝的每一次銷(xiāo)售的信息。該模塊需要能夠添加每次的銷(xiāo)售信息，也可以對(duì)銷(xiāo)售信息進(jìn)行修改和刪除，也可以按照一定的條件查詢(xún)。當(dāng)添加銷(xiāo)售信息時(shí)，需要在所售服裝的庫(kù)存量上自動(dòng)減去所銷(xiāo)售的數(shù)量。 銷(xiāo)售單基本操作 、銷(xiāo)售單具體操 作 是指對(duì)于銷(xiāo)售這個(gè)業(yè)務(wù)的基本的操作，例如：添加和修改的基本操作。 在銷(xiāo)售單基本操作中有四部分組成： 添加銷(xiāo)售單：點(diǎn)擊添加按鈕則彈出“添加銷(xiāo)售單”的窗體。 修改銷(xiāo)售單：點(diǎn)擊修改按鈕則彈出“修改銷(xiāo)售單”的窗體。 在表格上刪除銷(xiāo)售單中的記錄。 退出銷(xiāo)售單的基本操作。 銷(xiāo)售單基本操作的界面如下 : 銷(xiāo)售單基本操作 銷(xiāo)售單 一覽 銷(xiāo)售單查 詢(xún) 銷(xiāo)售單操作 添加銷(xiāo)售單 修改銷(xiāo)售單 刪除記錄 退出操作 點(diǎn)擊修改按鈕則彈出“修改銷(xiāo)售單”的窗體的流程圖： 查詢(xún)銷(xiāo)售 有 修改保存 沒(méi)有 直接退出過(guò)程 其中，修改中有一個(gè)查詢(xún)框，可以對(duì)已有的編號(hào)進(jìn)行查詢(xún)，如果存在該記錄則把它們賦給相應(yīng)的文本框和組合框。用戶(hù)可以對(duì)這 些值做任何合法的修改，修改完后點(diǎn)擊修改后則修改成功。如果不存在該記錄則系統(tǒng)提示，則系統(tǒng)提示不存在該記錄。其中修改的按鈕同密碼的修改代碼，其查詢(xún)按鈕代碼如下： 其“查詢(xún)按鈕“的代碼實(shí)現(xiàn)如下 : Private Sub Command1_Click() Dim sql As String sql1 = select * from xiaoshou where danjuid=39。 amp。 amp。 39。 sql1, conn, adOpenDynamic, adLockOptimistic If = True Then MsgBox (無(wú)此編號(hào) ,請(qǐng)重新輸入 ) Exit Sub Else = (name) = (jingbanren) = (shoujia) = (shuliang) = (shengchanshang) = (guige) = (data) = (jine) = (beizhu) ok = True Set rs = Nothing End If End Sub 、銷(xiāo)售單查 詢(xún) 其中有兩個(gè)查詢(xún)組成： ●全部的服裝 ●按條件查詢(xún)某些滿(mǎn)足條件的服裝 : 其中的下拉框中不可以輸入東西 ,只可以從中選擇相關(guān)的服裝名稱(chēng)和生產(chǎn)商。其中查詢(xún)結(jié)果在表格中顯示。 銷(xiāo)售單查詢(xún)流程圖如下： 銷(xiāo)售單查詢(xún)界面如下： 查詢(xún)銷(xiāo)售商品 查詢(xún)?nèi)? 查詢(xún)部分 、銷(xiāo)售單一覽 其中銷(xiāo)售單一覽是用數(shù)據(jù)窗體向?qū)ё龀?，達(dá)到了效果美觀，實(shí)現(xiàn)了一覽方便的效果。 其效果圖如下： 第六章 設(shè)計(jì)總結(jié) 設(shè)計(jì)結(jié)果及設(shè)計(jì)討論 設(shè)計(jì)結(jié)果 通過(guò)本次畢業(yè)設(shè)計(jì)基本達(dá)到了預(yù)期的設(shè)計(jì)結(jié)果，但有 些方面還不太完善，對(duì)某些功能的實(shí)現(xiàn)還有一欠缺。 我們?cè)O(shè)計(jì)的進(jìn)存銷(xiāo)系統(tǒng)，在整體上實(shí)現(xiàn)了進(jìn)存銷(xiāo)功能，在設(shè)計(jì)時(shí)有時(shí)為了一個(gè)小問(wèn)題要花費(fèi)大量的時(shí)間和耗費(fèi)很大的精力，在設(shè)計(jì)一些模塊時(shí)，遇到了很大的困難，但通過(guò)各方面的努力和與其他同學(xué)在一起進(jìn)行的討論，最終還是找到了錯(cuò)誤并進(jìn)行了改正，并使結(jié)果更加完善 設(shè)計(jì)討論 能夠完成本次設(shè)計(jì)，首先要感謝指導(dǎo)老師吳潮老師對(duì)我所做的畢業(yè)設(shè)計(jì)所進(jìn)行的指導(dǎo)和建議，沒(méi)有老師的指導(dǎo)和建議，我的畢業(yè)設(shè)計(jì)不可能順利的完成。還有其他老師和同學(xué)的熱心幫助。其次，這些天對(duì)畢業(yè)設(shè)計(jì)所做的工作， 使我更加認(rèn)識(shí)到了基本知識(shí)的重要，沒(méi)有良好的基本知識(shí)，就不可能的到預(yù)期的結(jié)果，所以，我必須更加注重基本的學(xué)習(xí)和應(yīng)用。踏實(shí)的基本功是做任何事的前提。 同時(shí)，由于我們的畢業(yè)設(shè)計(jì)是三個(gè)人共同合作的結(jié)果，由于在設(shè)計(jì)中的時(shí)間和技術(shù)上的協(xié)商使我們的畢業(yè)設(shè)計(jì)順利完成，雖然功能不夠強(qiáng)大，但這是我們勞動(dòng)成果的結(jié)晶！ 讓我更進(jìn)一步的認(rèn)識(shí)到，合作的重要性。 設(shè)計(jì)心得 經(jīng)過(guò) 長(zhǎng)時(shí)間 的設(shè)計(jì)和開(kāi)發(fā)， 《服裝進(jìn)存銷(xiāo)系統(tǒng)》 基本開(kāi)發(fā)完畢。其功能基本符合 一個(gè)小企業(yè)基本業(yè)務(wù)要求 ， 系統(tǒng)界面大方、統(tǒng)一。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還 有許多不盡如人意的地方 例如：功能不夠完善 等多方面問(wèn)題。這些都有待進(jìn)一步改善。 但是由于合作不夠，故系統(tǒng)的整體性能沒(méi)有得到很好的發(fā)揮。 本系統(tǒng)尚存的問(wèn)題 由于本系統(tǒng)設(shè)計(jì)的時(shí)間急迫 ，而且有些準(zhǔn)備不足，所以再設(shè)計(jì)過(guò)程中出現(xiàn)了一些不必要的錯(cuò)誤，為了這些錯(cuò)誤我耽誤了不少時(shí)間，更浪費(fèi)了很多的精力，所以，使以后的設(shè)計(jì)工作顯得時(shí)間倉(cāng)促。有一些功能還很不完善，需要有進(jìn)一步的時(shí)間和精力去完善他，可惜到目前為止，已沒(méi)更長(zhǎng)的時(shí)間讓我來(lái)完善這個(gè)企業(yè)工資管理系統(tǒng)，可以說(shuō)留下了一個(gè)小的遺憾 本系統(tǒng)的銷(xiāo)售模塊中的銷(xiāo)售退貨本應(yīng)和 銷(xiāo)售的基本操作一樣，但是由于功能是一樣的，為了使系統(tǒng)的涵蓋的知識(shí)多一點(diǎn)，所以只用銷(xiāo)售單的基本操作來(lái)實(shí)現(xiàn)。 致 謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。朱老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是實(shí)踐中，都給與我很大幫助，使得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。另外，同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 參考文獻(xiàn) [1]趙軍鎖，龔波，李志 .Visual Basic 6 數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)技術(shù)，機(jī)械工業(yè)出版社 ， [2]李勇平 .Visual Basic 案例教程，電子出版物數(shù)據(jù)中心《 Computer DIY》雜志社， [3]張煒 .Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用教程，航空工業(yè)出版社， [4]馮碩，賈志博 .Visual Basic 數(shù)據(jù)庫(kù)編程寶典，電子工業(yè)出版社， [5]劉韜，駱娟，何旭洪 .Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航，人民郵電出版社， [6]溫賢發(fā) .Visual Basic 6 數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手，科學(xué)出版社， [7]京輝熱點(diǎn)工作室 .Visual Basic 中文版編程指南，人民郵電出版社， [8]李振亭 .Visual Basic 程序設(shè)計(jì)教程，北方交通大學(xué)出版社， [9]劉圣才，李春葆 .Visual Basic 6 程序設(shè)計(jì)導(dǎo)學(xué)，清華大學(xué)出版社， [10]龔沛曾，陸慰民，楊志強(qiáng) .Visual Basic 程序設(shè)計(jì)教程，高等教育出版社， Christopher Tolkien AINULINDAL? The Music of the Ainur There was Eru, the One, who in Arda is called Il 鷙 atar。 and he made first the Ainur, the Holy Ones, that were the offspring of his thought, and they were with him before aught else was made. And he spoke to them, propound