【文章內(nèi)容簡(jiǎn)介】 Tlbar_ButtonClick(ByVal Button As ) Select Case Case Add Changed = False(5).Enabled = False = True = True = = = FalseCase Undo = = (2).Enabled = False (3).Enabled = False (5).Enabled = FalseCase Save(2).Enabled = False save Case Delr = MsgBox(是否確認(rèn)刪除？(Y/N), 1 + 64, 個(gè)人股票管理)If r = 1 Then DELETE * FROM _ amp。 [操作員] WHERE 姓名 =39。 amp。 amp。 39。 = = End If Case Exit Unload Me End SelectEnd SubPrivate Sub txtmc_Change() = True (4).Enabled = TrueEnd Sub這里主要介紹了一下本軟件是作者的畢業(yè)設(shè)計(jì)，關(guān)于作者的聯(lián)系方式等。如圖38圖38Private Sub CmdOK_Click() Unload Me End Sub為了方便用戶(hù)對(duì)平時(shí)購(gòu)買(mǎi)和賣(mài)出股票的管理，這里的打印為用戶(hù)提供了資金、賣(mài)出記錄，買(mǎi)入記錄的打印。方便了用戶(hù)以后對(duì)前一段時(shí)間股票信息的回顧和總結(jié)。如圖39 圖39Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command5_Click()End Sub如圖310圖310結(jié)束語(yǔ) 經(jīng)過(guò)我個(gè)人的努力以及老師的指導(dǎo)下，基本上該系統(tǒng)能為個(gè)人股票管理提供了很大的幫助。但是系統(tǒng)還有很多不足之處，希望大家批評(píng)指導(dǎo)，而且本人的能力有限，難免系統(tǒng)不是很全面。但我相信在以后的日子里，它會(huì)慢慢變的更加全面，更加實(shí)用，希望老師能給我指出更多的不足之處，以便于我改進(jìn)此系統(tǒng)，也能使我的能力得到提高。在代碼中還有很多需要改進(jìn)的，由于能力有限，不能更進(jìn)一步改進(jìn)和完善。還有很多問(wèn)題，需要在大家的一起努力下，才會(huì)得到解決。在以后的日子里，我會(huì)更加努力作出更多的軟件，并且使得這些軟件更加實(shí)用和完善，力求更上一層樓。經(jīng)過(guò)這些日子的努力，個(gè)人股票管理系統(tǒng)開(kāi)發(fā)完畢。經(jīng)初步的調(diào)試基本正常，并且收到了預(yù)期的效果。其功能基本符合用戶(hù)需求，能夠完成個(gè)人資金的錄入與修改，股票隨心的買(mǎi)入，股票賣(mài)出歷史的查詢(xún)，以及各類(lèi)相關(guān)報(bào)表的打印，并提供部分系統(tǒng)維護(hù)功能,使用戶(hù)方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。通過(guò)本次畢業(yè)設(shè)計(jì)使我增加了設(shè)計(jì)經(jīng)驗(yàn)，體會(huì)了計(jì)算機(jī)的優(yōu)越性掌握了Visual Basic ，增長(zhǎng)了實(shí)踐經(jīng)驗(yàn)。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，而且我是第一次編寫(xiě)較大的應(yīng)用程序，所以該系統(tǒng)還有許多不盡如人意的地方，這些都有待進(jìn)一步改正。致謝緊張而有意義的大學(xué)生活，隨著畢業(yè)設(shè)計(jì)的基本完成也邁入了最后階段。很快我們就要離開(kāi)校園，進(jìn)入競(jìng)爭(zhēng)激烈的社會(huì)，這次的畢業(yè)設(shè)計(jì)給我們提供了一次很好的鍛煉機(jī)會(huì)，為我們進(jìn)入社會(huì)打下了堅(jiān)實(shí)的基礎(chǔ)。在本次畢業(yè)設(shè)計(jì)中，我要特別感謝指導(dǎo)老師，老師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、淵博的知識(shí)和認(rèn)真負(fù)責(zé)的工作態(tài)度都給我留下了深刻的印象，使我受益匪淺。這次畢業(yè)設(shè)計(jì)點(diǎn)點(diǎn)滴滴的成功，都離不開(kāi)指導(dǎo)老師的精心指導(dǎo)。在畢業(yè)設(shè)計(jì)過(guò)程中，當(dāng)我遇到困難時(shí)，老師不斷的鼓勵(lì)我、幫助我，為我指點(diǎn)迷津，讓我找到了解決問(wèn)題的思路；當(dāng)我松弛泄氣時(shí)老師又給我們敲響警鐘，使得我以更加飽滿(mǎn)的精神狀態(tài)繼續(xù)完成畢業(yè)設(shè)計(jì)。 在即將結(jié)束大學(xué)生活之際，我衷心的感謝計(jì)算機(jī)系的老師們。從他們身上我學(xué)到了許多寶貴的知識(shí)和做人的道理。他們?cè)趯W(xué)業(yè)上對(duì)我的悉心指導(dǎo)，以及嚴(yán)謹(jǐn)細(xì)致的科研態(tài)度，更令我受益終身。最后，感謝所有曾經(jīng)給我理解、關(guān)心與幫助的朋友們。主要參考文獻(xiàn)1．作者：美 刊物名稱(chēng)：《VB 》出版社：清華大學(xué)出版社 出版日期：版次： 11 開(kāi)本ISBN： 75049256752．作者: 美 Wallace Wang刊物名稱(chēng)：《輕松學(xué)用VB 》出版社:電子工業(yè)出版社出版日期: 版次： 11 開(kāi)本ISBN： 75049256753. 作者：明月工作室刊物名稱(chēng)：《VB 》出版社：人民郵電出版社出版日期：版次： 11 開(kāi)本ISBN： 75049256754. 作者：王興晶刊物名稱(chēng)：《》出版社：電子工業(yè)出版社出版日期：版次： 11 開(kāi)本ISBN： 75049256755. 作者：安忠 佟志臣刊物名稱(chēng)：《管理信息系統(tǒng)實(shí)用教程》出版社：中國(guó)鐵道出版社出版日期： 版次： 11 開(kāi)本ISBN： 75049256756. 作者：周正慶刊物名稱(chēng)：《證券市場(chǎng)導(dǎo)論》出版社：中國(guó)鐵道出版社出版日期：20000601 版次： 11 開(kāi)本ISBN： 75049256757. 作者：龍光臣 馬鈞 祁春波刊物名稱(chēng)：《證券發(fā)行上市理論與實(shí)務(wù)》出版社：中國(guó)科技出版社出版日期：20010601 版次： 11 開(kāi)本 ISBN： 7504925675附錄 程序清單及注釋設(shè)計(jì)過(guò)程中模塊和整個(gè)設(shè)計(jì)都進(jìn)行了測(cè)試并實(shí)現(xiàn)功能。如下代碼只是部分編譯，僅做為參考。l 登陸功能的部分代碼如下：Public dbs As DatabasePublic rec As RecordsetPublic czy As StringPublic filename As StringPrivate Sub chkmm_Click() If = 1 Then = 3550 = True = True = True = True 240, 2800 2760, 2800 Else = False = False = False = False 240, 1760 2760, 1760 = 2550End IfEnd SubPrivate Sub cmbname_Change() r = MsgBox(非法用戶(hù),拒絕操作！, 0 + 16, 個(gè)人股票管理) EndEnd SubPrivate Sub Cmd_Click() = TrueEnd SubPrivate Sub CmdOK_Click()czy = filename = amp。 \Set dbs = OpenDatabase(filename)Set rec = (操作員) If = 1 Then If = Then r = MsgBox(操作員沒(méi)選！拒絕訪問(wèn), 0 + 16, 個(gè)人股票管理) Exit Sub End If Do While Not If (姓名) = Then Let mm = Trim((密碼)) End If Loop If Trim() = mm Then If Then r = MsgBox(新密碼不一致，請(qǐng)重填！, 0 + 16, 個(gè)人股票管理) = = = Else = PrimaryKey =, (1) = r = MsgBox(密碼修改成功！, 0 + 64, 個(gè)人股票管理) Unload Me Unload frmgu End If Else r = MsgBox(舊密碼出錯(cuò)！拒絕訪問(wèn), 0 + 16, 個(gè)人股票管理) = Exit Sub End If Else If = Then r = MsgBox(操作員沒(méi)選！拒絕訪問(wèn), 0 + 16, 個(gè)人股票管理) Exit Sub End If Do While Not If (姓名) = Then Let mm = Trim((密碼)) End If Loopl 用戶(hù)管理功能的部分代碼如下：Public dbs As DatabasePublic rec As RecordsetSub save() If = Then Exit Sub filename = amp。 \ Set dbs = OpenDatabase(filename) Set rec = (操作員) (0) = (1) = = = End Sub Set dbs = OpenDatabase(filename) Set rec = (操作員) If = 0 Then Exit SubDo While Not (0) Loop (2).Enabled = False (3).Enabled = False (4).Enabled = FalseEnd SubPrivate Sub Tlbar_ButtonClick(ByVal Button As ) Select Case Cas