【正文】 .TypeNo = getTypeNO() .DeptNo = getDeptNo() .ProductPrice = Price .ProductCost = Cost .PurchaseDate = PurchaseDate If .iid = 0 Then saveData = .addData Else saveData = .saveData End If If saveData = False Then MsgBox 保存不成功！請檢查設(shè)備編號的唯一性！ End WithEnd Function用戶添加代碼設(shè)計(jì):Private Sub cmdCancel_Click() With theUser If .isDirty Then If MsgBox(你已經(jīng)更改數(shù)據(jù)，是否做保存數(shù)據(jù)后再退出？, vbYesNo) = vbYes Then If saveData() = False Then Exit Sub End If End If End If End With End SubPrivate Sub cmdDelete_Click() () isUpdate = True End SubPrivate Function saveData() As Boolean Dim UserName As String Dim Password As String Dim Level As Integer saveData = False UserName = Trim() Password = If Len(UserName) = 0 Then MsgBox 請輸入用戶名！ Exit Function End If If Len(Password) = 0 Then MsgBox 請輸入密碼！ Exit Function End If With theUser .UserName = UserName .Password = Password Select Case Case 1 .Level = 1 Case 2 .Level = 1 Case Else .Level = 0 End Select If .uid = 0 Then saveData = .addData Else saveData = .saveData End If If saveData = False Then MsgBox 保存不成功，請檢查用戶名是否唯一！ End WithEnd FunctionPrivate Sub cmdSave_Click() If saveData() = True Then isUpdate = True End If End SubPrivate Sub Form_Load() With cboLevel .AddItem 普通用戶 .AddItem 數(shù)據(jù)操作員 .AddItem 系統(tǒng)管理員 .ListIndex = 0 End With isUpdate = False End SubPublic Sub loadUser(uid As String) 39。顯示用戶數(shù)據(jù) With theUser .loadDataByID uid = .UserName = .Password Select Case .Level Case 1 39。數(shù)據(jù)操作員 = 1 Case 1 39。系統(tǒng)管理員 = 2 Case Else 39。普通用戶 = 0 End Select End With End SubPublic Sub setStatus() If = 0 Then = False Else 39?？刂戚斎? = True 39。不允許修改用戶名； End IfEnd Sub系統(tǒng)數(shù)據(jù)總清主要用來清理系統(tǒng)數(shù)據(jù)庫中的數(shù)據(jù)。系統(tǒng)總清代碼設(shè)計(jì)：Private Sub cmdReset_Click() If MsgBox(你是否真的要重置數(shù)據(jù)庫嗎?這個(gè)操作將會刪除所有記錄!, vbOKCancel + vbDefaultButton2) = vbOK Then delete from tbldevice delete from tbluser delete from tbllend insert into tbluser (login,pwd,level) values (39。admin39。,39。88839。,1) MsgBox 重置數(shù)據(jù)庫成功!管理系統(tǒng)將退出!!! Unload Me End If End Sub第五章 設(shè)計(jì)總結(jié)本軟件的設(shè)計(jì)目的是在固定資產(chǎn)管理維護(hù)方面為企事業(yè)單位和管理人員提供方便和幫助。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的visual basic開發(fā)技術(shù)，鍛煉了自己的動(dòng)手操作能力，以及對計(jì)算機(jī)方面知識的一個(gè)綜合運(yùn)用，在軟件開發(fā)上更是取得了很大的進(jìn)步。在開發(fā)過程中，也遇到了很多困難，但通過認(rèn)真查閱資料、請教老師和同學(xué)使得問題得以解決。當(dāng)然由于時(shí)間倉促、知識面不夠廣，使得軟件的設(shè)計(jì)還存在一些缺陷，有待進(jìn)一步改進(jìn)和完善。本次軟件設(shè)計(jì)使我受益匪淺，不但在能力上得到了鍛煉，知識上得以豐富，而且培養(yǎng)了團(tuán)隊(duì)精神，與合作伙伴積極溝通，在設(shè)計(jì)過程中互相幫助，遇到問題一起研究，注重合作，共同進(jìn)步，共同提高。這次經(jīng)歷也激發(fā)了我對計(jì)算機(jī)的興趣，以后會繼續(xù)學(xué)習(xí)，不斷提高。致謝 本篇畢業(yè)論文的成果來之不易，在整個(gè)的畢業(yè)設(shè)計(jì)中，我非常感謝幫助過我的人，一直關(guān)心著的老師和同學(xué)，正因?yàn)樗麄兊膸椭抛屛矣辛私裉斐晒? 我首先感謝我的指導(dǎo)老師方志遠(yuǎn)老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。 我也非常感謝我們宿舍的其它5個(gè)同學(xué)。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 同時(shí)我非常感謝我的母校，在大學(xué)的四年中，在母校的悉心培育下，我學(xué)到了很多有用的知識，也增長了不少見識和閱歷，給以后的人生奠定了重要的基礎(chǔ)。 最后再次忠心感謝所有幫助和關(guān)心的老師和同學(xué)，祝愿他們工作順利、身體健康。參 考 文 獻(xiàn)1江開耀，張俊蘭，李曄 . 軟件工程 .西安電子科技大學(xué)出版社，20072 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社，20003 飛思科技產(chǎn)品研發(fā)中心 . visual basic .電子工業(yè)出版社，20034 飛思科技產(chǎn)品研發(fā)中心 . visual basic . 電子工業(yè)出版社, 2002 5 申旻 . visual basic . 清華大學(xué)出版社，2002，3026 Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 . visual basic . 機(jī)械工業(yè)出版社 ,2003 7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .20038 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2004 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2002 嚴(yán)蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2001 10 . 高等教育出版社 ,200411 （英）Ian Sommerville. 機(jī)械工業(yè)出版社 , 200312 美Cantu,U. basic 從入門到精通. 電子工業(yè)出版社 ,200313 李維. 面向?qū)ο箝_發(fā)實(shí)踐之路（visual basic ）(BORLAND資深顧問著名visual basic ). 電子工業(yè)出版社 , 14 秦斌 等, visual basic .中國水利水電出版社, 2006 .115 劉藝. visual basic . 機(jī)械工業(yè)出版社 , 200316. basic 程序設(shè)計(jì)第二版. 清華大學(xué)出版社, 200317. 胡同森 ,趙劍鋒等. visual 程序設(shè)計(jì)教程. 浙江科學(xué)技術(shù)出版社,18. 周蘇 ,王文 (第二版). 科學(xué)出版社 ,200319. Basic 程序設(shè)計(jì)與開發(fā)技術(shù). 人民郵電出版社