個(gè)人股票管理系統(tǒng)方案

1、前言隨著計(jì)算機(jī)科學(xué)技術(shù)的突飛猛進(jìn)，此種方法存在的工作量大、準(zhǔn)確率低、管理難度大、使用不方便等問題越來越嚴(yán)重地暴露出來。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)個(gè)人的股票信息進(jìn)行管理,有著手工管理所無法比擬的優(yōu)點(diǎn).特別是現(xiàn)在大家都比較喜歡在Windows操作平臺(tái)上工作，落后的數(shù)據(jù)庫管理方式已經(jīng)很難適應(yīng)大家的需求。隨著數(shù)據(jù)庫開發(fā)工具的不斷革新，VisualBasic6.0以其強(qiáng)大的功能逐步替代了落后的數(shù)據(jù)庫管理方式。VisualBasic6.0無論是組織信息、運(yùn)行查詢、創(chuàng)建集成的關(guān)系型數(shù)據(jù)庫系統(tǒng)，還是為最終用戶編寫功能全面的數(shù)據(jù)管理應(yīng)用程序，VisualBasic6.0都可以提供管理數(shù)據(jù)所需的工具，可

2、以在應(yīng)用程序或數(shù)據(jù)庫開發(fā)的任何一個(gè)領(lǐng)域中提供幫助?，F(xiàn)如今，應(yīng)用VisualBasic軟件編寫的財(cái)務(wù)管理系統(tǒng)，生產(chǎn)計(jì)劃管理系統(tǒng)，人事管理系統(tǒng)等等的軟件很多。但是真正完全適用于個(gè)人股票管理方面的軟件到現(xiàn)在依然沒有解決。因此，基于以上原因，為了提高個(gè)人股票管理、降低個(gè)人工作量，我編寫了適應(yīng)于個(gè)人股票管理系統(tǒng)軟件。本個(gè)人的股票管理系統(tǒng)主要用于實(shí)現(xiàn)個(gè)人的資金追加，贏利和虧損以及個(gè)人買入和賣出股票等。對(duì)個(gè)人的股票信息量進(jìn)行統(tǒng)計(jì)，方便個(gè)人用戶的管理，還可以打印資金單、買入和賣出的名稱、數(shù)量買入價(jià)、賣出價(jià)，購買時(shí)間以及買出時(shí)間等。1章收支管理系統(tǒng)1.1股票管理系統(tǒng)的發(fā)展歷史從1990年12月19日證券交易所正

3、式掛牌營業(yè)算起，我國證券市場(chǎng)從無到有，從小到大，已歷經(jīng)了10余年的發(fā)展。中國證券市場(chǎng)的發(fā)展和完善可以分為三個(gè)階段：“奠基階段”、“市場(chǎng)化階段”和“國際化階段”，在中國證券市場(chǎng)發(fā)展的第一個(gè)10年里，我們已經(jīng)基本完成了“奠基階段”。在這個(gè)階段，我們以漸進(jìn)式改革的方式，在中國高度集中的傳統(tǒng)計(jì)劃經(jīng)濟(jì)體系上構(gòu)建了一個(gè)初具規(guī)模的證券市場(chǎng)，并為將來的市場(chǎng)化、國際化打下了基礎(chǔ)。但在整個(gè)“奠基階段”里，由于我們采用的一些方法手段帶有明顯的計(jì)劃經(jīng)濟(jì)痕跡，從而直接導(dǎo)致我國證券市場(chǎng)現(xiàn)行的制度架構(gòu)中帶有較為濃厚的非市場(chǎng)特征，這與我國證券市場(chǎng)直接脫胎于高度集中的計(jì)劃經(jīng)濟(jì)體制有關(guān)。但是，從長遠(yuǎn)發(fā)展來看，為了使我國的證券市場(chǎng)

4、更好地符合市場(chǎng)經(jīng)濟(jì)和證券市場(chǎng)的在規(guī)律，提高中國證券市場(chǎng)迎接國際化挑戰(zhàn)的能力，我們需要在“奠基階段”之后的“市場(chǎng)化階段”過一系列的理念創(chuàng)新、制度創(chuàng)新和工具創(chuàng)新，大力推進(jìn)中國證券市場(chǎng)的市場(chǎng)化水平，以消除過去形成的種種非市場(chǎng)化色彩，這一階段大約要持續(xù)5年左右時(shí)間。只有在基本完成市場(chǎng)化進(jìn)程之后，我們的證券市場(chǎng)將步入一條更為健康的發(fā)展道路，從而才能更好地進(jìn)入“國際化階段”。在這一階段，我們證券市場(chǎng)將與國際資本市場(chǎng)充分接軌。只有完成了這一國際化進(jìn)程之后，我們的證券市場(chǎng)才真正與世界市場(chǎng)融為一體，成為國際資本市場(chǎng)的有機(jī)組成部分?，F(xiàn)在，伴隨中國加入WTO組織法律程序的基本完成，我國證券市場(chǎng)的開放進(jìn)程將大大提前，

5、這意味著我國證券市場(chǎng)的國際化進(jìn)程將在市場(chǎng)化尚未完成的情況之下開始，這對(duì)我們而言意味著巨大的挑戰(zhàn)。1.2股票管理系統(tǒng)的作用在當(dāng)今的信息社會(huì)里，人門和股票越來越分不開了。而對(duì)股票信息的采集，和對(duì)資金管理工作更是我們每天自覺或不自覺地進(jìn)行著的大量煩瑣工作。股票管理系統(tǒng)則是一個(gè)個(gè)人不可缺少的部分，為了提高個(gè)人股票管理系統(tǒng)工作的準(zhǔn)確度，降低勞動(dòng)強(qiáng)度，減少人為手寫錯(cuò)誤，提高工作效率，根據(jù)單位實(shí)際工作需求，在調(diào)研了多位長期從事會(huì)計(jì)工作的老師傅以后，我使用VisualBasic6.0開發(fā)工具編寫了這套可進(jìn)行資金追加，資金修改（贏利及虧損），股票買入，股票買出，以及打印清單護(hù)等各功能的個(gè)人股票管理系統(tǒng)軟件。以達(dá)

6、到提高個(gè)人股票管理效率的目的。2個(gè)人收支管理系統(tǒng)分析與設(shè)計(jì)2.1個(gè)人股票管理系統(tǒng)功能需求簡介個(gè)人股票管理是一套功能完善的股票管理軟件，可幫助您方便地管理自己的股票，其界面友好，操作簡便，除具備基本的交易記錄功能外，更提供多種統(tǒng)計(jì)功能，供您準(zhǔn)確地把握自己的情況，以便科學(xué)地制定操作策略.1.支持多：適合于多人使用同一臺(tái)計(jì)算機(jī)或一人擁有多個(gè)。每個(gè)均可設(shè)置密碼及獨(dú)立的傭金收取標(biāo)準(zhǔn)。2.支持子：適合于多人使用同一。每個(gè)子均有獨(dú)立的交易記錄及統(tǒng)計(jì)。3.界面簡潔：采用Windows資源管理器與MicrosoftExcel相結(jié)合的界面風(fēng)格，簡潔、直觀。操作簡便：將股票交易及資金存取數(shù)據(jù)的錄入統(tǒng)一在同一個(gè)操作界

7、面中，并允許隨時(shí)對(duì)任何一條交易記錄進(jìn)行修改、刪除。支持單邊印花稅：可獨(dú)立設(shè)置買入/賣出印花稅率，從而可適應(yīng)未來的單邊印花稅政策。盈利計(jì)算：提供股票盈利情況隨股價(jià)變化的模擬計(jì)算功能。2.2功能需求描述通過對(duì)用戶的需求分析，我們可分析出個(gè)人股票管理系統(tǒng)大致可分為四大模塊：個(gè)人資金的修改、股票的買入、股票的賣出，稅率，打印報(bào)表。下圖說明五者的關(guān)系（1）個(gè)人資金修改的模塊a、資金投入主要統(tǒng)計(jì)追加資金（即為投入的總資金），贏利金額和虧損金額b、購買股票總金額，股票當(dāng)前市場(chǎng)和資金余額c、能修改，刪除，保存所投入的資金、贏利和虧損金額。（2）股票買入信息的模塊l、a:買入主要功能是：記錄買入股票的代號(hào)、購買

8、價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)（市場(chǎng)價(jià)）、數(shù)量、購買時(shí)間、預(yù)測(cè)收益。B：賣出主要功能是：記錄賣出股票的代號(hào)、購買價(jià)、費(fèi)用、成本價(jià)、名稱、賣出價(jià)、數(shù)量、購買時(shí)間、賣出時(shí)間，預(yù)測(cè)收益（虧損或贏利計(jì)算其中已經(jīng)扣掉了手續(xù)費(fèi)和印花稅率）。C:修改主要功能是：修改買入股票的購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間。D:刪除主要功能是：刪除所購買的股票（主要是為了方便用戶修改決定購買而沒有購買的股票。）e:保存主要是為了修改做后盾的修改完用戶所要修改的股票資料后，用戶需要保存自己所做的決定，就靠它了。F：費(fèi)率這個(gè)費(fèi)率和2的費(fèi)率是一樣的，主要方便用戶隨時(shí)更改手續(xù)費(fèi)和印花稅率。G：資金這個(gè)資金和1的資

9、金是一樣的，方便用戶查詢所剩金額，以便于購買股票。另外還可以追加贏利和虧損金額。H：退出退出到主界面。（3）股票賣出歷史模塊這里詳細(xì)統(tǒng)計(jì)了用戶賣出股票的代號(hào)、購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間、賣出時(shí)間以及收益。（4）稅率主要是手續(xù)費(fèi)和印花稅率，能修改和確定取消。（5）打印模塊為了方便用戶對(duì)平時(shí)購買和賣出股票的管理，這里的打印為用戶提供了資金、賣出記錄，買入記錄的打印。方便了用戶以后對(duì)前一段時(shí)間股票信息的回顧和總結(jié)。（6）用戶管理a:增加這里方便了多用戶使用同意軟件的功能。能添加自己的用戶名和有一個(gè)屬于自己的密碼。B:刪除當(dāng)感覺自己的用戶不需要了的時(shí)候，用戶可以把其刪除了，減少

10、冗余。C：保存這主要是給增加做服務(wù)的，用戶添加好自己的用戶名和密碼后，點(diǎn)擊保存即可。D:撤消撤消上一次因?yàn)槭栌诳紤]而做錯(cuò)的決定。（7）關(guān)于作者這里主要介紹了一下本軟件是作者的畢業(yè)設(shè)計(jì)，關(guān)于作者的聯(lián)系方式等。2.3模塊開發(fā)環(huán)境的簡介2.3.1VisualBasic6.0簡介數(shù)據(jù)庫技術(shù)產(chǎn)生于20世紀(jì)60年代末期。數(shù)據(jù)庫開發(fā)工具從早期的Bbase、FoxBASE發(fā)展到現(xiàn)在的VisualBasic6.0，經(jīng)歷了巨大的革新，特別是面向?qū)ο罂梢暬Z言的出現(xiàn)，以其友好的工作界面、可視化的編程技術(shù)，為廣大數(shù)據(jù)庫開發(fā)人員提供了強(qiáng)有力的支持工具。VisualBasic6.0采用當(dāng)今最為流行的面向?qū)ο蟪绦蛟O(shè)計(jì)技術(shù)及

11、可視化技術(shù)，以其卓越的數(shù)據(jù)庫處理性能、良好的開發(fā)環(huán)境贏得了廣大用戶的喜愛。用戶可以通過VisualBasic的開發(fā)環(huán)境方便地設(shè)計(jì)對(duì)數(shù)據(jù)庫的結(jié)構(gòu)、管理數(shù)據(jù)庫，設(shè)計(jì)應(yīng)用程序界面，設(shè)計(jì)查詢、報(bào)表及菜單；利用項(xiàng)目管理器對(duì)數(shù)據(jù)庫和程序進(jìn)行管理，生成可執(zhí)行文件，發(fā)布應(yīng)用程序；等等。VisualBasic是目前微機(jī)上最為流行的關(guān)系數(shù)據(jù)庫管理系統(tǒng)，利用VisualBasic6.0開發(fā)程序之快、功能之強(qiáng)大，不覺使人產(chǎn)生相見恨晚的感覺。23.2個(gè)人股票管理系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫表名數(shù)據(jù)類型可否為空Mail文本是操作員文本否費(fèi)率數(shù)字否個(gè)人購買記錄數(shù)字是股票賣出記錄數(shù)字是投入資金明細(xì)數(shù)字是資金數(shù)字否表2-1Mail表表

12、名數(shù)據(jù)類型可否為空ID自動(dòng)編號(hào)是Mail文本是表2-2操作員表表名數(shù)據(jù)類型可否為空文本否密碼文本是表2-3費(fèi)率表表名數(shù)據(jù)類型可否為空ID自動(dòng)編號(hào)否手續(xù)費(fèi)數(shù)字否印花稅率數(shù)字否表2-4個(gè)人購買記錄表表名數(shù)據(jù)類型可否為空ID自動(dòng)編號(hào)否代號(hào)文本否名稱文本否買入價(jià)數(shù)字否費(fèi)用數(shù)字否成本價(jià)數(shù)字否當(dāng)前價(jià)數(shù)字否收益數(shù)字否數(shù)量數(shù)字否購買時(shí)間日期否表2-5賣出歷史記錄表表名數(shù)據(jù)類型可否為空ID自動(dòng)編號(hào)否代號(hào)文本否名稱文本否買入價(jià)數(shù)字否費(fèi)用數(shù)字否成本價(jià)數(shù)字否賣出價(jià)數(shù)字否收益數(shù)字否數(shù)量數(shù)字否購買時(shí)間日期否賣出時(shí)間時(shí)間否表2-6投入資金明細(xì)表表名數(shù)據(jù)類型可否為空ID自動(dòng)編號(hào)否方式文本否時(shí)間時(shí)間否資金量數(shù)字否表2-7資金表

13、表名數(shù)據(jù)類型可否為空資金投量數(shù)字否購股金額數(shù)字是股票市值數(shù)字否資金寸量數(shù)字否損益金額數(shù)字是表2-82.3.3系統(tǒng)平臺(tái)的選擇（1）軟件環(huán)境本程序是在Windows操作平臺(tái)上運(yùn)行，利用VisualBasic6.0軟件編寫的應(yīng)用程序。2）硬件環(huán)境CmdNO.Move2760,2800臺(tái)CPU為80486/66MHZ以上的IBM及兼容微型計(jì)算機(jī)，一個(gè)鼠標(biāo)，16MB以上存，VGA或更高檔次的適配器。3章個(gè)人股票管理系統(tǒng)的具體功能實(shí)現(xiàn)3.1登陸界面此界面主要實(shí)現(xiàn)了用戶登陸，需輸入密碼，確保了用戶信息的安全性。另外還可以修改密碼，修改密碼需要輸入舊密碼，然后輸入新密碼，確定即可生效。默認(rèn)用戶名為：admin

14、；密碼為：admin。如圖3-1圖3-1Ifchkmm.Value=1Thenzcform.Height=3550 xmmlb.Visible=Trueqrmmlb.Visible=Truexmmtxt.Visible=Trueqrmmtxt.Visible=TrueCmdOK.Move240,2800Elsexmmlb.Visible=Falseqrmmlb.Visible=Falsexmmtxt.Visible=Falseqrmmtxt.Visible=FalseCmdOK.Move240,1760CmdNO.Move2760,1760zcform.Height=25503.2使用界面該界

15、面是用戶使用該軟件的主要界面，能對(duì)資金進(jìn)行修改，（包括資金追加，贏利和虧損統(tǒng)計(jì)），費(fèi)率修改（包括手續(xù)費(fèi)和印花稅率），股票（包括股票買入主要功能是：A:記錄買入股票的代號(hào)、購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間、預(yù)測(cè)收益。B：賣出主要功能是：記錄賣出股票的代號(hào)、購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間、賣出時(shí)間，預(yù)測(cè)收益（虧損或贏利計(jì)算其中已經(jīng)扣掉了手續(xù)費(fèi)和印花稅率）。C：修改主要功能是：修改買入股票的購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間。D：刪除主要功能是：刪除所購買的股票（主要是為了方便用戶修改決定購買而沒有購買的股票Ee：保存主要是為了修改做后盾的修改完

16、用戶所要修改的股票資料后，用戶需要保存自己所做的決定，就靠它了。F：費(fèi)率主要方便用戶隨時(shí)更改手續(xù)費(fèi)和印花稅率。G：資金方便用戶查詢所剩金額，以便于購買股票。另外還可以追加贏利和虧損金額。H：退出退出到主界面；股票賣出歷史記錄這里詳細(xì)統(tǒng)計(jì)了用戶賣出股票的代號(hào)、購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間、賣出時(shí)間以及收益）如圖3-2圖3-2PrivateSubabout_Click()frmAbout.ShowEndSubPrivateSubfl_Click()frmfl.ShowEndSubPrivateSubgp_Click()frmgu.ShowEndSubPrivateSubls_

17、Click()frmls.ShowEndSubPrivateSubTlbar_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseflfrmfl.ShowCaseggfrmgu.ShowCasejjfrmzj.ShowCasegyfrmAbout.ShowvbModalCaseexitDimstrmsgAsStringstrmsg=確認(rèn)是否退出？IfMsgBox(strmsg,vbQuestion+vbOKCancel+vbDefaultButton1,個(gè)人股票管理)=vbOKThenCancel=FalseE

18、ndElseCancel=TrueEndIfCaselsfrmls.ShowCasedyForm2.ShowCaseyhuser.ShowvbModalEndSelectEndSub3.3資金管理包括資金追加，贏利和虧損統(tǒng)計(jì)，和查看資金所剩數(shù)額。如圖3-3圖3-3PrivateSubdel()Iftxtsj.Text=”ThenExitSubr=MsgBox(是否確認(rèn)刪除？(Y/N),1+64,個(gè)人股票管理)Ifr=1Thendbs.ExecuteDELETE*FROM_&投入資金明細(xì)WHEREID=&grid.TextMatrix(grid.Row,0)&dl.Refreshcountjef

19、rmgu.trzjhjtrzjshowzjSbr.Panels（1）.Text=當(dāng)前資金投入總額：&hjzj&元EndIftxtsj.Text=cmbfs.Text=txtje.Text=txtsj.Enabled=Falsecmbfs.Enabled=Falsetxtje.Enabled=FalseEndSubPrivateSubshowzj（）Ifreczj.RecordCount=0ThenExitSubfrmgu.trzjhjcountjeSetreczj=dbs.OpenRecordset（資金）lbtrje.Caption=資金投入總金額：&reczj.Fields（”資金投量）&

20、元gpje.Caption=購買股票總金額：&reczj.Fields（”購股金額）&元gpsz.Caption=股票當(dāng)前市值：&reczj.Fields（”股票市值）&元gpyy.Caption=當(dāng)前損益：&sy&元zjxc.Caption=資金余額：&reczj.Fields（”資金存量）&元Ifreczj.Fields（”資金存量）=0ThenSbr.Panels(l).Text=當(dāng)前資金余額：&reczj.Fields(”資金存量)&II二n元ElseSbr.Panels(l).Text=當(dāng)前需要補(bǔ)充資金額：&reczj.Fields(”資金存量)&元EndIfEndSub3.4費(fèi)率設(shè)

21、置主要是手續(xù)費(fèi)和印花稅率，能修改和確定取消。如圖3-4圖3-4PrivateSubCmdNO_Click()UnloadMeEndSubPrivateSubCmdOK_Click()dbs.ExecuteUPDATE費(fèi)率SET手續(xù)費(fèi)率=&txtsx.Text&，印花稅率=&txtyh.Text&;&txtsx.Enabled=Falsetxtyh.Enabled=FalseUnloadMeEndSubPrivateSubForm_Load()filename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset

22、(費(fèi)率)txtsx.Text=rec.Fields(l)txtyh.Text=rec.Fields(2)txtsx.Enabled=Falsetxtyh.Enabled=Falsefrmfl.Left=3500frmfl.Top=1000EndSub3.5個(gè)人購買記錄主要功能是：記錄買入股票的代號(hào)、購買價(jià)、費(fèi)用、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間、預(yù)測(cè)收益。如圖3-5圖3-5PublicSubjs()filename=App.Path&股票.mdbd1.DatabaseName=filenameSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecor

23、dset(費(fèi)率)fl=Val(rec.Fields(1)+Val(rec.Fields(2)dbs.ExecuteUPDATE個(gè)股購買記錄SET費(fèi)用=買入價(jià)*&fl&,成本價(jià)=買入價(jià)+費(fèi)用,收益=(當(dāng)前價(jià)-成本價(jià))*數(shù)量;_&Setrec=NothingEndSubPrivateSubTlbar_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseAddaddCaseSavesaveCaseflfrmfl.Showd1.RefreshCaseDel刪除Iftxt(0).Text=ThenExitSubr=Msg

24、Box(是否確認(rèn)刪除【&txt(4).Text&】？(Y/N),vbQuestion+vbOKCancel+vbDefaultButton1,個(gè)人股票管理)Ifr=1Thendbs.ExecuteDELETE*FROM&個(gè)股購買記錄WHEREID=&grid.TextMatrix(grid.Row,0)&d1.RefreshhjjetrzjhjaddEndIfCaseExitUnloadMeCasemcsaleTlbar.Buttons(4).Enabled=FalseTlbar.Buttons(5).Enabled=FalseTlbar.Buttons(6).Enabled=FalseTlb

25、ar.Buttons(7).Enabled=FalseCaseEditxgCasezjfrmzj.ShowEndSelectEndSubPublicSubtrzjhj()filename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setreczj=dbs.OpenRecordset(資金)reczj.editreczj.Fields(”股票市值)=hjreczj.Fields(”購股金額)=gpzjreczj.Fields(”損益金額)=hjgpzjreczj.UpdateEndSub3-6賣出歷史記錄這里詳細(xì)統(tǒng)計(jì)了用戶賣出股票的代號(hào)、購買價(jià)、費(fèi)用

26、、成本價(jià)、名稱、當(dāng)前價(jià)、數(shù)量、購買時(shí)間、賣出時(shí)間以及收益。如圖3.6忖伯=|ri-.ih-r:(|HUiJUI，f*r.tSiJ-II.itif“釜靈丨丨丨丨丨卜股資欄|K.:|J!-IV：h-|-:圖3-6PrivateSubtxtsl_Change()IfVal(salestone.txtsl.Text)Val(frmgu.txt(6).Text)Thenr=MsgBox(你輸入的數(shù)量超過該股票的現(xiàn)存量！，0+16,個(gè)人股票管理)txtsl.Text=ExitSubEndIftxt(2).Text=(Val(txt(1)+Val(txt(5).Text)*fltxt(3).Text=Val

27、(txt(1)+Val(txt(2).Text)txt(7).Text=(Val(txt(5).Text)-Val(txt(3).Text)*Val(txtsl.Text)IfVal(txt(7).Text)=0Thentxt(7).ForeColor=&HFF&ElseVal(txt(7).Text)0txt(7).ForeColor=&HC000&EndIfEndSubPublicSubtrzjhj()filename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setreczj=dbs.OpenRecordset(資金)reczj.editre

28、czj.Fields(”股票市值)=hjreczj.Fields(”購股金額)=gpzjreczj.Fields(”損益金額)=hj-gpzjreczj.UpdateEndSubPrivateSubhjje（）filename=App.Path&股票.mdbSetdbs=OpenDatabase（filename）Setrec=dbs.OpenRecordset（個(gè)股購買記錄）hj=0gpzj=0DoWhileNotrec.EOFhj=hj+rec.Fields（當(dāng)前價(jià)）*rec.Fields（數(shù)量）gpzj=gpzj+rec.Fields（”買入價(jià)）*rec.Fields（”數(shù)量）rec.M

29、oveNextLoopEndSub3.7用戶管理A:增加這里方便了多用戶使用同意軟件的功能。能添加自己的用戶名和有一個(gè)數(shù)于自己的密碼。B:刪除當(dāng)感覺自己的用戶不需要了的時(shí)候，用戶可以把其刪除了，減少冗余。C：保存這主要是給增加做服務(wù)的，用戶添加好自己的用戶名和密碼后，點(diǎn)擊保存即可。D:撤消撤消上一次因?yàn)槭栌诳紤]而做錯(cuò)的決定。如圖3-7圖3-7PrivateSubCmdOK_Click()saveEndSubPrivateSubForm_Load()CmdOK.Enabled=Falsetxtbh.Enabled=Falsetxtmc.Enabled=FalseTlbar.Buttons.add

30、1,Add,增加,AddTlbar.Buttons.add2,Del,刪除,DelTlbar.Buttons.add3,tbrSeparatorTlbar.Buttons.add4,Save,保存，SaveTlbar.Buttons.add5,Undo,撤消,UndoTlbar.Buttons.add6,tbrSeparatorTlbar.Buttons.add7,Exit,退出,ExitDimmNode,mnode1AsNodeDimiAsIntegerDimsqlAsStringfilename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Set

31、rec=dbs.OpenRecordset(操作員)Ifrec.RecordCount=0ThenExitSubDoWhileNotrec.EOFlstname.AddItemrec.Fields(0)rec.MoveNextLoopTlbar.Buttons(2).Enabled=FalseTlbar.Buttons(3).Enabled=FalseTlbar.Buttons(4).Enabled=FalseEndSubPrivateSubTlbar_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseAdd

32、Changed=FalseTlbar.Buttons(5).Enabled=Falsetxtbh.Enabled=Truetxtmc.Enabled=Truetxtbh.Text=txtmc.Text=txtbh.SetFocusCmdOK.Enabled=FalseCaseUndotxtbh.Text=txtmc.Text=Tlbar.Buttons(2).Enabled=FalseTlbar.Buttons(3).Enabled=FalseTlbar.Buttons(5).Enabled=FalseCaseSaveTlbar.Buttons(2).Enabled=FalsesaveCase

33、Delr=MsgBox(是否確認(rèn)刪除？(Y/N),1+64,個(gè)人股票管理)Ifr=1Thendbs.ExecuteDELETE*FROM_&操作員WHERE=&lstname.Text&txtbh.Text=lstname.RemoveItemlstname.ListIndextxtmc.Text=EndIfCaseExitUnloadMeEndSelectEndSubPrivateSubtxtmc_Change()CmdOK.Enabled=TrueTlbar.Buttons(4).Enabled=TrueEndSub3.8關(guān)于作者這里主要介紹了一下本軟件是作者的畢業(yè)設(shè)計(jì)，關(guān)于作者的聯(lián)系方式

34、等。如圖3-8個(gè)人月殳票管理系統(tǒng)瞪票個(gè)人管理茅統(tǒng),是股票管理的好幫手，可巫虺標(biāo)供盼票的收益分析和管理好個(gè)人的盼票和協(xié)金帳.戶.制作人：段潔指導(dǎo)老師二極吉榮敬勰專翳汙有不足之如ES3圖3-8PrivateSubCmdOK_Click()UnloadMeEndSub3.9打印為了方便用戶對(duì)平時(shí)購買和賣出股票的管理，這里的打印為用戶提供了資金、賣出記錄，買入記錄的打印。方便了用戶以后對(duì)前一段時(shí)間股票信息的回顧和總結(jié)。如圖3-9圖3-9PrivateSubCommandl_Click()DataReportl.ShowEndSubPrivateSubCommand2_Click()DataReport

35、3.ShowEndSubPrivateSubCommand3_Click()DataReport4.ShowEndSubPrivateSubCommand5_Click()DataReport2.ShowEndSub3.10退出界面如圖3-10圖3-10結(jié)束語經(jīng)過我個(gè)人的努力以及老師的指導(dǎo)下，基本上該系統(tǒng)能為個(gè)人股票管理提供了很大的幫助。但是系統(tǒng)還有很多不足之處，希望大家批評(píng)指導(dǎo)，而且本人的能力有限，難免系統(tǒng)不是很全面。但我相信在以后的日子里，它會(huì)慢慢變的更加全面，更加實(shí)用，希望老師能給我指出更多的不足之處，以便于我改進(jìn)此系統(tǒng)，也能使我的能力得到提高。在代碼中還有很多需要改進(jìn)的，由于能力有限，

36、不能更進(jìn)一步改進(jìn)和完善。還有很多問題，需要在大家的一起努力下，才會(huì)得到解決。在以后的日子里，我會(huì)更加努力作出更多的軟件，并且使得這些軟件更加實(shí)用和完善，力求更上一層樓。經(jīng)過這些日子的努力，個(gè)人股票管理系統(tǒng)開發(fā)完畢。經(jīng)初步的調(diào)試基本正常，并且收到了預(yù)期的效果。其功能基本符合用戶需求，能夠完成個(gè)人資金的錄入與修改，股票隨心的買入，股票賣出歷史的查詢，以及各類相關(guān)報(bào)表的打印，并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。通過本次畢業(yè)設(shè)計(jì)使我增加了設(shè)計(jì)經(jīng)驗(yàn)，體會(huì)了計(jì)算機(jī)的優(yōu)越性掌握了VisualBasic6.0語言的使用，增長了實(shí)踐經(jīng)驗(yàn)。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，而且我是第一次編寫較

37、大的應(yīng)用程序，所以該系統(tǒng)還有許多不盡如人意的地方，這些都有待進(jìn)一步改正。致緊而有意義的大學(xué)生活，隨著畢業(yè)設(shè)計(jì)的基本完成也邁入了最后階段。很快我們就要離開校園，進(jìn)入競(jì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)滴滴的成功，都離不開指導(dǎo)老師的精心指導(dǎo)。在畢業(yè)設(shè)計(jì)過程中，當(dāng)我遇到困難時(shí)，老師不斷的鼓勵(lì)我、幫助我，為我指點(diǎn)迷津，讓我找到了解決問題的思路；當(dāng)我松弛泄氣時(shí)老師又給我們敲響警鐘，使得我以更加飽滿的精神狀態(tài)

38、繼續(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作者：美Robina.Reyholds.hear刊物名稱：VB6.0和VB.NET面向程序設(shè)計(jì)：清華大學(xué)出版日期：2002.7版次：1-1開本ISBN：7-5049-2567-52作者:美WallaceWang刊物名稱：輕松學(xué)用VB6.0:電子工業(yè)出版日期:2002.5版次：1-1開本ISBN：7-5049-2567-5作者：明月工作室刊物名稱：VB6.

39、0編程百例：人民郵電出版日期：2001.5版次：1-1開本ISBN：7-5049-2567-5作者：王興晶刊物名稱：VB6.0數(shù)據(jù)庫開發(fā)典型實(shí)例：電子工業(yè)出版日期：2002.9版次：1-1開本ISBN：7-5049-2567-5作者：安忠佟志臣刊物名稱：管理信息系統(tǒng)實(shí)用教程：中國鐵道出版日期：2002.9版次：1-1開本ISBN：7-5049-2567-5作者：周正慶刊物名稱：證券市場(chǎng)導(dǎo)論：中國鐵道出版日期：2000-06-01版次：1-1開本ISBN：7-5049-2567-5作者：龍光臣馬鈞祁春波刊物名稱：證券發(fā)行上市理論與實(shí)務(wù)：中國科技出版日期：2001-06-01版次：1-1開本ISB

40、N：7-5049-2567-5附錄程序清單及注釋設(shè)計(jì)過程中模塊和整個(gè)設(shè)計(jì)都進(jìn)行了測(cè)試并實(shí)現(xiàn)功能。如下代碼只是部分編譯，僅做為參考。登陸功能的部分代碼如下：PublicdbsAsDatabasePublicrecAsRecordsetPublicczyAsStringPublicfilenameAsStringPrivateSubchkmm_Click()Ifchkmm.Value=1Thenzcform.Height=3550 xmmlb.Visible=Trueqrmmlb.Visible=Truexmmtxt.Visible=Trueqrmmtxt.Visible=TrueCmdOK.Mo

41、ve240,2800CmdNO.Move2760,2800Elsexmmlb.Visible=Falseqrmmlb.Visible=Falsexmmtxt.Visible=Falseqrmmtxt.Visible=FalseCmdOK.Move240,1760CmdNO.Move2760,1760zcform.Height=2550EndIfEndSubPrivateSubcmbname_Change()個(gè)人股票管理)r=MsgBox(非法用戶，拒絕操作！，0+16,EndEndSubPrivateSubCmd_Click()MonthView.Visible=TrueEndSubPriva

42、teSubCmdOK_Click()czy=cmbname.Textfilename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset(操作員)Ifchkmm.Value=1ThenIfcmbname.Text=Then個(gè)人股票管理)r=MsgBox(操作員沒選！拒絕訪問，0+16,ExitSubEndIfrec.MoveFirstDoWhileNotrec.EOFIfrec.Fields()=cmbname.TextThenLetmm=Trim(rec.Fields(”密碼)EndIfrec.MoveNe

43、xtLoopIfTrim(txtmm.Text)=mmThenIfxmmtxt.Textqrmmtxt.TextThenr=MsgBox(新密碼不一致，請(qǐng)重填！，0+16,個(gè)人股票管理)xmmtxt.Text=qrmmtxt.Text=xmmtxt.Text=Elserec.Index=PrimaryKeyrec.Seek=,cmbname.Textrec.editrec.Fields（1）=xmmtxt.Textrec.Updater=MsgBox（密碼修改成功！，0+64,個(gè)人股票管理）UnloadMejm.Showfrmgu.ShowUnloadfrmguEndIfElser=MsgBo

44、x（舊密碼出錯(cuò)！拒絕訪問，0+16,個(gè)人股票管理）txtmm.Text=txtmm.SetFocusExitSubEndIfElseIfcmbname.Text=Thenr=MsgBox（操作員沒選！拒絕訪問，0+16,個(gè)人股票管理）ExitSubEndIfrec.MoveFirstDoWhileNotrec.EOFIfrec.Fields()=cmbname.TextThenLetmm=Trim(rec.Fields(”密碼)EndIfrec.MoveNextLoop用戶管理功能的部分代碼如下：PublicdbsAsDatabasePublicrecAsRecordsetSubsave()I

45、ftxtbh.Text=ThenExitSubfilename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset(操作員)rec.AddNewrec.Fields(0)=txtbh.Textrec.Fields(1)=txtmc.Textrec.Updatelstname.AddItemtxtbh.Texttxtbh.Text=txtmc.Text=txtbh.SetFocusEndSubSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset(操作員)If

46、rec.RecordCount=0ThenExitSubDoWhileNotrec.EOFlstname.AddItemrec.Fields(0)rec.MoveNextLoopTlbar.Buttons(2).Enabled=FalseTlbar.Buttons(3).Enabled=FalseTlbar.Buttons(4).Enabled=FalseEndSubPrivateSubTlbar_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseAddChanged=FalseTlbar.Buttons(5

47、).Enabled=Falsetxtbh.Enabled=Truetxtmc.Enabled=Truetxtbh.Text=txtmc.Text=txtbh.SetFocusCmdOK.Enabled=FalseCaseUndotxtbh.Text=txtmc.Text=Tlbar.Buttons(2).Enabled=FalseTlbar.Buttons(3).Enabled=FalseTlbar.Buttons(5).Enabled=FalseCaseSaveTlbar.Buttons(2).Enabled=FalsesaveCaseDel個(gè)人股票管理)r=MsgBox(是否確認(rèn)刪除？(Y

48、/N),1+64,Ifr=1Thendbs.ExecuteDELETE*FROM_&操作員WHERE=&lstname.Text&txtbh.Text=lstname.RemoveItemlstname.ListIndextxtmc.Text=EndIfCaseExitUnloadMeEndSelectEndSubPrivateSubtxtmc_Change()CmdOK.Enabled=TrueTlbar.Buttons(4).Enabled=TrueEndSubPrivateSublstname_Click()Iflstname.Text=個(gè)人用戶ThenTlbar.Buttons(2).

49、Enabled=FalseElseTlbar.Buttons(2).Enabled=TrueEndIfEndSub股票管理功能的部分代碼如下：PublicdbsAsDatabasePublicrecAsRecordsetPublicxgAsBooleanPublicflAsDoublePublicfilenameAsStringPublicreczjAsRecordsetPublichjAsIntegerPublicgpzjAsDoublePubliczjAsRecordsetPrivateSubCmdNO_Click()UnloadMefrmgu.Tlbar.Buttons(4).Enabl

50、ed=Truefrmgu.Tlbar.Buttons(5).Enabled=Truefrmgu.Tlbar.Buttons(6).Enabled=Truefrmgu.Tlbar.Buttons(7).Enabled=TrueEndSubPrivateSubCmdOK_Click()txt(5).Text=DimsqlupdateAsStringDimreclsAsRecordsetSetreczj=dbs.OpenRecordset(投入資金明細(xì))Setzj=dbs.OpenRecordset(資金)Setrecls=dbs.OpenRecordset(股票賣出歷史)IfRight(sales

51、tone.txtsl.Text,1)0OrRight(salestone.txtsl.Text,2)0OrVal(salestone.txtsl)=0Thenr=MsgBox(你輸入的數(shù)量必須為一手及100的倍數(shù)！，0+16,個(gè)人股票管理)txtsl.Text=ExitSubEndIfr=MsgBox(是否確認(rèn)賣出【&txt(4).Text&】+Chr(13)+損益金額:&txt(7).Text&(Y/N)？,vbQuestion+vbOKCancel+vbDefaultButton1,個(gè)人股票管理)Ifr=1Thensqlupdate=update個(gè)股購買記錄_&set數(shù)量=數(shù)量-&txts

52、l.Text&_&WHEREID=&frmgu.grid.TextMatrix(frmgu.grid.Row,0)&;dbs.ExecutesqlupdateIfVal(txtsl.Text)=Val(frmgu.txt(6).Text)Thendbs.ExecuteDELETE*from個(gè)股購買記錄_&WHEREID=&frmgu.grid.TextMatrix(frmgu.grid.Row,0)&;EndIfIfVal(txt(7).Text)0Thenreczj.AddNewreczj.Fields(”時(shí)間)=txt(8).TextIfVal(txt(7).Text)Val(frmgu.

53、txt(6).Text)Thenr=MsgBox(你輸入的數(shù)量超過該股票的現(xiàn)存量！，0+16,個(gè)人股票管理)txtsl.Text=ExitSubEndIftxt(2).Text=(Val(txt(1)+Val(txt(5).Text)*fltxt(3).Text=Val(txt(1)+Val(txt(2).Text)txt(7).Text=(Val(txt(5).Text)-Val(txt(3).Text)*Val(txtsl.Text)IfVal(txt(7).Text)=0Thentxt(7).ForeColor=&HFF&ElseVal(txt(7).Text)0txt(7).ForeC

54、olor=&HC000&EndIfEndSubPublicSubtrzjhj()filename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setreczj=dbs.OpenRecordset(資金)reczj.editreczj.Fields(”股票市值)=hjreczj.Fields(”購股金額)=gpzjreczj.Fields(”損益金額)=hj-gpzjreczj.UpdateEndSubPrivateSubhjje()filename=App.Path&股票.mdbSetdbs=OpenDatabase（filename）Setrec=

55、dbs.OpenRecordset（個(gè)股購買記錄）hj=0gpzj=0DoWhileNotrec.EOFhj=hj+rec.Fields（當(dāng)前價(jià)）*rec.Fields（數(shù)量）gpzj=gpzj+rec.Fields（”買入價(jià)）*rec.Fields（”數(shù)量）rec.MoveNextLoopEndSub個(gè)人購買模塊功能的部分代碼如下：PublicdbsAsDatabasePublicrecAsRecordsetPublicxgAsBooleanPublicflAsDoublePublicfilenameAsStringPublicreczjAsRecordsetPublichjAsIntege

56、rPublicgpzjAsDoublePubliczjAsRecordsetPrivateSubCmd_Click(IndexAsInteger)day.Visible=TrueEndSubPrivateSubCommand1_Click()ARViewer1.PrintReportTrueEndSubPrivateSubday_DateDblClick(ByValDateDblClickedAsDate)day.Visible=Falsetxt(8).Text=day.ValueEndSubPrivateSubForm_Load()frmgu.Left=2000frmgu.Top=250fi

57、lename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset(個(gè)股購買記錄)d1.DatabaseName=filenamejsjsjsd1.RecordSource=select*from個(gè)股購買記錄Tlbar.Buttons.add1,Add,買入,AddTlbar.Buttons.add2,mc,賣出,mcTlbar.Buttons.add3,tbrSeparatorTlbar.Buttons.add4,Edit,修改,EditTlbar.Buttons.add5,Del,刪除,DelTlbar.B

58、uttons.add6,tbrSeparatorTlbar.Buttons.add7,Save,保存,SaveTlbar.Buttons.add8,tbrSeparatorTlbar.Buttons.add9,fl,費(fèi)率,flTlbar.Buttons.add10,tbrSeparatorTlbar.Buttons.add11,zj,資金,Tlbar.Buttons.add12,tbrSeparatorTlbar.Buttons.add13,Exit,退出,Tlbar.Buttons(2).Enabled=FalseTlbar.Buttons(3).Enabled=FalseTlbar.But

59、tons(5).Enabled=Falsetxt(3).Enabled=Falsetxt(7).Enabled=Falsetxt(8).Enabled=FalsehjjeSbr.Panels(1).Width=4000Sbr.Panels(1).Text=當(dāng)前個(gè)股市價(jià)總計(jì)：trzjhjEndSubExit&hj&元PublicSubjs()filename=App.Path&股票.mdbd1.DatabaseName=filenameSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset(費(fèi)率)fl=Val(rec.Fields(1)+Val

60、(rec.Fields(2)dbs.ExecuteUPDATE個(gè)股購買記錄SET費(fèi)用=買入價(jià)*&fl&，成本價(jià)=買入價(jià)+費(fèi)用,收益=(當(dāng)前價(jià)-成本價(jià))*數(shù)量;_&Setrec=NothingEndSub保存PrivateSubsave()d1.DatabaseName=filenameSetrec=dbs.OpenRecordset(個(gè)股購買記錄)Iftxt(0).Text=Ortxt(1).Text=Ortxt(4).Text=&_Ortxt(5).Text=Ortxt(6).Text=&_Ortxt(8).Text=Then個(gè)人股票管理)r=MsgBox(數(shù)據(jù)不全，保存非法，0+16,Ex