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

1、 個(gè)人股票管理系統(tǒng) PAGE 67 PAGE 68 PAGE 67 前言岸隨著計(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)在大家都比較罷喜歡在W矮in愛dows操作平皚臺(tái)上工作，落后捌的數(shù)據(jù)庫管理方柏式已經(jīng)很難適應(yīng)絆大家的需求。隨暗著數(shù)據(jù)庫開發(fā)工半具的不斷革新，跋V懊isual啊 Basic 半6.0以其強(qiáng)大般的功能逐步替代耙了落后的數(shù)據(jù)庫昂管理方式。V藹isual 案Basic 6敗.0無論是組織按信

2、息、運(yùn)行查詢把、創(chuàng)建集成的關(guān)吧系型數(shù)據(jù)庫系統(tǒng)挨，還是為最終用稗戶編寫功能全面澳的數(shù)據(jù)管理應(yīng)用哀程序，V埃isual 背Basic背 6.0板都可以提供管理扒數(shù)據(jù)所需的工具稗，可以在應(yīng)用程佰序或數(shù)據(jù)庫開發(fā)敗的任何一個(gè)領(lǐng)域凹中提供幫助。懊現(xiàn)如今，應(yīng)用V皚isual 邦Basic軟件敗編寫的財(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è)人的資金追加阿，贏利和虧損以擺

3、及個(gè)人買入和賣伴出股票等。對(duì)個(gè)扮人的股票信息量盎進(jìn)行統(tǒng)計(jì)，方便佰個(gè)人用戶的管理搬，還可以打印資叭金單、買入和賣愛出的名稱、數(shù)量藹買入價(jià)、賣出價(jià)岸，購買時(shí)間以及骯買出時(shí)間等。絆挨1搬章礙收支管理系統(tǒng)愛1.1背股票疤管理系統(tǒng)的發(fā)展愛歷史跋 從1骯990年12月芭19日上海證券罷交易所正式掛牌伴營業(yè)算起，我國吧證券市場(chǎng)從無到哀有，從小到大，吧已歷經(jīng)了10余柏年的發(fā)展。中國爸證券市場(chǎng)的發(fā)展辦和完善可以分為拔三個(gè)階段：疤“澳奠基階段扮”伴、佰“愛市場(chǎng)化階段搬”俺和班“凹國際化階段皚”壩，在中國證券市背場(chǎng)發(fā)展的第一個(gè)安10年里，我們凹已經(jīng)基本完成了阿“敖奠基階段?！卑?。在這個(gè)階段，跋我們以漸進(jìn)式改擺革的方

4、式，在中百國高度集中的傳板統(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)更好地符壩合市場(chǎng)經(jīng)濟(jì)和證礙券市場(chǎng)的內(nèi)在規(guī)愛律，提高中國證奧券市場(chǎng)迎接國際氨化挑戰(zhàn)的能力，艾我們需要在擺“絆奠基階段耙”瓣之后的鞍“氨市場(chǎng)化階段哀”盎中通過一系列的挨理念創(chuàng)新、制度靶創(chuàng)新和工具創(chuàng)新搬，大力推進(jìn)

5、中國傲證券市場(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ī)組成部分。壩現(xiàn)在，伴隨俺中國加入WTO斑組織法律程序的擺基本完成，我國絆證券市場(chǎng)的開放伴進(jìn)程將大大提前愛，這意味著我國案證券市場(chǎng)的國際哎化進(jìn)程將在市場(chǎng)把化尚未完成的情澳況之下開始，這案對(duì)我們而言意味礙著

6、巨大的挑戰(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ò)誤，提皚高工作效率，根柏?fù)?jù)單位實(shí)際工作挨需求，在調(diào)研了骯多位長期從事會(huì)芭計(jì)工作的老師傅班以后，我使用壩V耙isual 阿Basic 案 6鞍.0開發(fā)工具唉編寫了這套可進(jìn)扒行資金追加，資罷金修改（贏利及八虧損），股票買跋入，股票買出，白以及打印清單護(hù)頒等各功能的翱個(gè)人股票盎管理系統(tǒng)軟件。

7、半以達(dá)到提高斑個(gè)人股票八管理效率的目的般。搬襖2唉個(gè)人收支管理系板統(tǒng)分析與設(shè)計(jì)罷2.1個(gè)人股票擺管理系統(tǒng)功能需癌求簡介氨 個(gè)人股票昂管理是一套功吧能完善的股票管熬理軟件，可幫助巴您方便地管理自敖己的股票帳戶，柏其界面友好，操般作簡便，除具備班基本的交易記錄拜功能外，更提供巴多種統(tǒng)計(jì)功能，扳供您準(zhǔn)確地把握跋自己的帳戶情況礙，以便科學(xué)地制百定操作策略.拔支持多帳戶：適盎合于多人使用同辦一臺(tái)計(jì)算機(jī)或一懊人擁有多個(gè)帳戶奧。每個(gè)帳戶均可罷設(shè)置密碼及獨(dú)立哀的傭金收取標(biāo)準(zhǔn)擺。耙支持子帳戶：適愛合于多人使用同柏一帳戶。每個(gè)子礙帳戶均有獨(dú)立的捌交易記錄及帳戶爸統(tǒng)計(jì)。安3.界面簡潔：氨采用 Wind霸ows 資源

8、管爸理器與 Mic案rosoft 爸Excel 相拜結(jié)合的界面風(fēng)格白，簡潔、直觀。襖4.操作簡便：柏將股票交易及資邦金存取數(shù)據(jù)的錄叭入統(tǒng)一在同一個(gè)絆操作界面中，并版允許隨時(shí)對(duì)任何暗一條交易記錄進(jìn)佰行修改、刪除。昂5.支持單邊印凹花稅：可獨(dú)立設(shè)罷置買入/賣出印胺花稅率，從而可稗適應(yīng)未來的單邊絆印花稅政策。百6.盈利計(jì)算：胺提供股票盈利情白況隨股價(jià)變化的礙模擬計(jì)算功能。跋2.2功能需求熬描述般通過對(duì)用戶的需唉求分析，我們可扮分析出個(gè)人股票跋管理系統(tǒng)大致可啊分為四大模塊：氨個(gè)人資金的修改耙、股票的買入、哎股票的賣出，稅襖率，打印報(bào)表。敖下圖說明五者的伴關(guān)系個(gè)人股票管理系統(tǒng)輸入密碼 費(fèi)率 關(guān)于作者 打

9、印報(bào)表個(gè)人資金的修改買入股票的信息賣出股票的歷史記錄費(fèi)率 背 罷 襖(1)盎 個(gè)人資金修改叭的模塊邦 靶a、資金投入 熬主要統(tǒng)計(jì)追加資岸金（即為投入的吧總資金），贏利奧金額和虧損金額熬 b、購買股票吧總金額，股票當(dāng)岸前市場(chǎng)和資金帳板戶余額c、能修敖改，刪除，保存澳所投入的資金、捌贏利和虧損金額八。胺(2)辦股票買入信息的啊模塊暗a：買入 主要白功能是：記錄買鞍入股票的代號(hào)、般購買價(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è)收百益（虧損或贏利

10、疤計(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的資金是一胺樣的，方便用戶盎查詢所剩金額，扳以便于購買股票頒。另外還可以追翱加贏利和虧損金骯額。H：退出 耙退出到主界

11、面。八 (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í)笆候，用戶可以把擺其刪除了，減少奧冗余。C：保

12、存八 這主要是給增芭加做服務(wù)的，用藹戶添加好自己的隘用戶名和密碼后板，點(diǎn)擊保存即可哎。D：撤消 撤矮消上一次因?yàn)槭璋从诳紤]而做錯(cuò)的吧決定。熬（7）關(guān)于作者稗 耙這里主要介紹了跋一下本軟件是作吧者的畢業(yè)設(shè)計(jì)，奧關(guān)于作者的聯(lián)系壩方式等。拜2.3模塊開發(fā)辦環(huán)境的簡介皚2.3.1般 半V敖isual 俺Basic 6案.0簡介凹數(shù)據(jù)庫技術(shù)產(chǎn)生壩于20世紀(jì)60扒年代末期。數(shù)據(jù)板庫開發(fā)工具從早擺期的擺Bbase按、F安ox芭BASE發(fā)展到敗現(xiàn)在的昂V跋isual 案Basic敗 6.0拌，經(jīng)歷了巨大的扒革新, 特別是跋面向?qū)ο罂梢暬@語言的出現(xiàn)，以般其友好的工作界癌面、可視化的編板程技術(shù)，為廣大邦數(shù)據(jù)庫開

13、發(fā)人員疤提供了強(qiáng)有力的背支持工具。背V芭isual 凹Basic 6昂.0采用當(dāng)今最耙為流行的面向?qū)Π断蟪绦蛟O(shè)計(jì)技術(shù)耙及可視化技術(shù)，伴以其卓越的數(shù)據(jù)吧庫處理性能、良俺好的開發(fā)環(huán)境贏癌得了廣大用戶的安喜愛。用戶可以癌通過 V啊isual 扳Basic的開阿發(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)用程序；等叭等。V斑isual 跋Basic是目耙前微機(jī)上最為流辦行的關(guān)系數(shù)據(jù)庫絆管理系統(tǒng)，利用邦 V礙isual 扒Basic 6矮.0開發(fā)程序之拜快、功能之強(qiáng)大吧，不覺使人產(chǎn)生扒

14、相見恨晚的感覺靶。昂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表傲表名襖數(shù)據(jù)類型八可否為空擺ID巴自動(dòng)編號(hào)翱是罷M霸ail班文本哀是表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à)

15、癌數(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à)爸?jǐn)?shù)字熬否凹賣出價(jià)安數(shù)字霸否笆收益愛數(shù)字俺否拌數(shù)量藹數(shù)字邦否版購買時(shí)間案日期扳否八賣出時(shí)間百時(shí)間頒否表2-6投入資金明細(xì)表哎表名捌數(shù)據(jù)類型凹可否為空頒ID扮自動(dòng)編號(hào)澳否扮方式跋文本吧否半時(shí)間案時(shí)間懊否熬資金量骯數(shù)字敖否表2-7資金表癌表名暗數(shù)據(jù)類型搬可否為空暗資金投量阿數(shù)字埃否矮購股金額擺數(shù)字骯是吧股票市值柏?cái)?shù)字安否扒資金寸量爸?jǐn)?shù)字傲否敗損

16、益金額懊數(shù)字安是表2-8柏2.3.3系統(tǒng)壩平臺(tái)的選擇（1）軟件環(huán)境藹本程序是在W盎indows哀 操作平臺(tái)上運(yùn)哀行，利用V啊isual斑 Basic 百 6.0罷軟件編寫的應(yīng)用愛程序。硬件環(huán)境拜一臺(tái)CPU為8哎0486/66捌MHZ以上的I案BM及兼容微型敗計(jì)算機(jī)，一個(gè)鼠版標(biāo)，16MB以澳上內(nèi)存，VGA案或更高檔次的適靶配器。愛罷3藹章 個(gè)人股票管擺理系統(tǒng)的具體功頒能實(shí)現(xiàn)般3.1俺登陸界面 埃 此氨界面主要實(shí)現(xiàn)了昂用戶登陸，需輸案入密碼，確保了礙用戶信息的安全般性。另外還可以瓣修改密碼，修改傲密碼需要輸入舊絆密碼，然后輸入邦新密碼，確定即斑可生效。默認(rèn)用礙戶名為：adm昂in ；密碼為骯：ad

17、min。翱如圖3-1 圖3-1埃Ifchkmm班.Value 隘= 1 The礙n跋 zcf澳orm.Hei愛ght = 3絆550啊 xmm爸lb.Visi吧ble = T礙rue叭 qrm拔mlb.Vis拌ible = 芭True耙 xmm辦txt.Vis捌ible = 叭True盎 qrmm愛txt.Vis敗ible = 拜True辦 CmdO挨K.Move 盎240, 28把00擺 CmdN隘O.Move 艾2760, 2拌800Else瓣 xmmlb.拔Visible扳 = Fals巴e罷 qrmml岸b.Visib艾le = Fa板lse霸 xmmtx愛t.Visib百le = F

18、a半lse叭 qrmmt吧xt.Visi邦ble = F癌alse搬 CmdOK罷.Move 2凹40, 176凹0襖 CmdNO.暗Move 27跋60, 176熬0壩 zcfor傲m.Heigh芭t = 255阿03.2使用界面俺 該界面是敗用戶使用該軟件拔的主要界面，能耙對(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ù)

19、量、購買時(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)率耙 主要方便用俺戶隨時(shí)更改手續(xù)笆費(fèi)和印花稅率。跋G：資金方便用哎戶查詢所剩金額白，以便于購買股胺票。另外還可以氨追加贏利和虧損敖金額。H：退出耙 退出到主界面壩；股票賣出歷史

20、盎記錄 這里詳壩細(xì)統(tǒng)計(jì)了用戶賣懊出股票的代號(hào)、辦購買價(jià)、費(fèi)用、盎成本價(jià)、名稱、阿當(dāng)前價(jià)、數(shù)量、白購買時(shí)間、賣出扒時(shí)間以及收益）矮如圖3-2辦 哀 哀 鞍 懊 埃 圖3-2愛Private頒 Sub ab拌out_Cli熬ck()胺frmAbou拜t.Show半End Sub愛Private奧 Sub fl敖_Click(敖)哀 半 frmfl.搬Show拌End Sub巴 哀Private巴 Sub gp凹_Click(靶)啊 frmgu.斑ShowEnd Sub昂 埃Private爸 Sub ls扒_Click(邦)愛frmls.S罷howEnd Sub案Private熬 Sub 氨Tlba

21、r_B敖uttonCl岸ick(ByV邦al Butt安on As M頒SComctl柏Lib.But礙ton)案 Selec班t Case 百Button.翱KeyCase骯 fl般 frmfl.般Show藹 爸Case g搬g拜 爸frmgu.S唉how擺 Case 扒jj敖 瓣frmzj.S敖how礙 背Case g吧y按 frmAbo啊ut.Show矮 vbModa邦l隘 奧Case e辦xit壩 Dim s拔trmsg A百s Strin辦g按 strm艾sg = 確俺認(rèn)是否退出？壩 If Msg澳Box(str八msg, vb挨Questio邦n + vbO吧KCancel岸 +

22、vbDe啊faultBu奧tton1, 爸個(gè)人股票管理氨) = vb哀OK Then柏 白Cancel 柏= False版 End拌 哎Else頒 敖Cancel 捌= True扳 End I笆f絆 癌Case l班s懊 哎frmls.S愛how案 Case 岸dy柏 靶Form2.S扒howCase皚 yh按 user.S礙how vbM哀odal澳 芭End Sel扒ect半 End Sub3.3資金管理熬 包括資白金追加，贏利和懊虧損統(tǒng)計(jì)，和查矮看資金所剩數(shù)額懊。如圖 3-3暗 八 圖3-3擺Private笆 Sub de頒l()佰 If txt扮sj.Text爸 = T敖hen 熬Ex

23、it Su疤b半 r巴 = MsgB扮ox(是否確傲認(rèn)刪除？(Y/芭N), 1 巴+ 64, 敖個(gè)人股票管理吧)傲 I熬f r = 1敗 Then啊 翱 dbs.絆Execute搬 DELET柏E * FRO把M _白 捌 翱 翱 & 投笆入資金明細(xì) 伴 阿WHERE I俺D= & g拜rid.Tex拔tMatrix按(grid.R八ow, 0) 扮& 八 疤d1.Refr熬esh擺 稗countje背 伴frmgu.t拔rzjhj疤 挨trzj叭 拔showzj邦 拜Sbr.Pan柏els(1).礙Text = 霸當(dāng)前資金投入矮總額： & 啊hjzj & 半元絆 En爸d If背 txtsj

24、礙.Text =氨 爸 cmbfs爸.Text =埃 骯 txtje礙.Text =瓣 背 txtsj擺.Enable柏d = Fal班se哀 cmbfs伴.Enable哀d = Fal頒se版 txtje啊.Enable芭d = Fal翱seEnd Sub扮Private班 Sub sh邦owzj()版If recz敗j.Recor白dCount 八= 0 板Then Ex皚it Sub暗 frmgu背.trzjhj襖 count凹je按 Set r拌eczj = 白dbs.Ope斑nRecord熬set(資金凹)拔 lbtrj胺e.Capti啊on = 資氨金帳戶投入總金斑額： & r稗e

25、czj.Fi俺elds(資版金投量) &唉 元凹 gpje.安Caption皚 = 購買股罷票總金額： 笆& reczj翱.Fields耙(購股金額俺) & 元班 gpsz.澳Caption唉 = 股票當(dāng)哎前市值： &伴 reczj.背Fields(扒股票市值)皚 & 元藹 gpyy.柏Caption吧 = 帳戶當(dāng)跋前損益： &翱 sy & 澳元癌 zjxc.埃Caption敗 = 資金帳背戶余額： &半 reczj.氨Fields(扒資金存量)翱 & 元頒 If re骯czj.Fie捌lds(資金爸存量) =盎 0 Then拌 Sb氨r.Panel柏s(1).Te阿xt = 當(dāng)藹前資金余額：

26、骯 & recz爸j.Field擺s(資金存量把) & 元按 Else板 S拜br.Pane奧ls(1).T搬ext = 盎當(dāng)前需要補(bǔ)充資邦金額： & 稗r(nóng)eczj.F搬ields(阿資金存量) 盎& 元俺 End I癌fEnd Sub3.4費(fèi)率設(shè)置捌 主要是皚手續(xù)費(fèi)和印花稅擺率，能修改和確骯定取消。如圖 拌3-4 圖3-4昂Private礙 Sub Cm背dNO_Cli昂ck()佰 Unloa懊d MeEnd Sub氨Private氨 Sub 擺CmdOK_C鞍l(fā)ick()白 dbs.E襖xecute 岸UPDATE百 費(fèi)率 拜SET 手續(xù)費(fèi)挨率 = & 邦txtsx.T隘ext & 瓣 ,

27、印花稅率版= & tx拔tyh.Tex隘t & ;奧 _柏 按 & 笆百 txtsx啊.Enable佰d = Fal澳se壩 txtyh氨.Enable半d = Fal傲se百 Unloa柏d MeEnd Sub跋Private挨 Sub 岸Form_Lo扮ad()癌 filen把a(bǔ)me = A斑pp.Path巴 & 股票把.mdb挨 Set d白bs = Op隘enDatab熬ase(fil艾ename)叭 Set r伴ec = db班s.OpenR懊ecordse昂t(費(fèi)率)哀 txtsx壩.Text =安 rec.Fi岸elds(1)鞍 txtyh芭.Text =案 rec.Fi擺eld

28、s(2)唉 txtsx拜.Enable骯d = Fal扒se矮 txtyh百.Enable邦d = Fal敗se霸 frmfl邦.Left =背 3500暗 frmfl傲.Top = 巴1000End Sub傲3.5個(gè)人購買礙記錄艾主要功能是：記邦錄買入股票的代翱號(hào)、購買價(jià)、費(fèi)絆用、成本價(jià)、名哎稱、當(dāng)前價(jià)、數(shù)岸量、購買時(shí)間、盎預(yù)測(cè)收益。如圖皚3-5 圖3-5奧Public 艾Sub js(胺)邦filenam礙e = App吧.Path &傲 股票.m叭db案d1.Data案baseNam熬e = fil艾ename邦Set dbs鞍 = Open耙Databas哀e(filen盎ame)凹S

29、et rec艾 = dbs.芭OpenRec盎ordset(拌費(fèi)率)阿fl = Va襖l(rec.F邦ields(1安) + Va哎l(rec.F啊ields(2哀)盎dbs.Exe癌cute U俺PDATE 個(gè)傲股購買記錄 爸SET 費(fèi)用 搬= 買入價(jià)*扒 & fl &擺 , 成本價(jià)氨 = 買入價(jià)+疤費(fèi)用, 收益 靶= (當(dāng)前價(jià)-稗成本價(jià))*數(shù)量把; _辦 挨 & 奧阿Set rec哀 = Noth頒ingEnd Sub唉Private柏 Sub 奧Tlbar_B唉uttonCl半ick(ByV啊al Butt笆on As M挨SComctl哎Lib.But唉ton)拜Select 笆Cas

30、e Bu鞍tton.Ke懊y絆 Case 鞍Addadd矮Case S佰ave sa辦ve埃 Case 案flfrm百fl.Show壩 d1.Ref頒resh隘 Case 拜Del 刪壩除哎 If txt挨(0).Tex瓣t = 捌Then 矮Exit Su鞍b班 r = Ms哎gBox(是隘否確認(rèn)刪除【盎 & txt(辦4).Text白 & 】？(絆Y/N),敖 vbQues版tion + 敗vbOKCan拌cel + v爸bDefaul百tButton哎1, 個(gè)人股辦票管理)笆 If r =稗 1 Then矮 八dbs.Exe般cute D把ELETE *奧FROM 爸& 個(gè)股百購買記錄

31、阿WHERE I啊D= & g八rid.Tex版tMatrix隘(grid.R板ow, 0) 骯& 啊 d1.Ref唉resh疤 哎hjje tr按zjhj ad敖d End If半 Case 傲Exit 癌Unload 礙Me Case艾 mc sale罷 Tlbar.背Buttons吧(4).Ena叭bled = 芭False矮 Tlbar.按Buttons敗(5).Ena跋bled = 扮False啊 Tlbar暗.Button稗s(6).En骯abled =案 False瓣 Tlbar.板Buttons昂(7).Ena阿bled = 笆False芭Case E笆dit xg拜 Case

32、 吧zj f扳rmzj.Sh唉ow柏End Sel邦ect襖 End Sub絆Public 岸Sub擺 trzjhj把()昂filenam伴e = App隘.Path &暗 股票.m按db敗Set dbs稗 = Open案Databas胺e(filen氨ame)案Set rec胺zj = db瓣s.OpenR唉ecordse版t(資金)捌 recz唉j.edit俺 recz岸j.Field耙s(股票市值翱) = hj芭 recz佰j.Field邦s(購股金額耙) = gp埃zj邦 recz挨j.Field靶s(損益金額扒) = hj鞍 - gpzj跋 recz爸j.Updat愛eEnd Sub

33、背36賣出歷史笆記錄耙 這里哀詳細(xì)統(tǒng)計(jì)了用戶案賣出股票的代號(hào)耙、購買價(jià)、費(fèi)用拔、成本價(jià)、名稱癌、當(dāng)前價(jià)、數(shù)量柏、購買時(shí)間、賣把出時(shí)間以及收益搬。如圖3.6俺 伴 癌 愛 靶 柏圖3-6盎Private版 Sub扒txtsl_C凹hange()擺 If Val柏(salest班one.txt啊sl.Text頒) Val愛(frmgu.氨txt(6).壩Text) T氨hen板 r 按= MsgBo骯x(你輸入的拜數(shù)量超過該股票凹的現(xiàn)存量！,襖 0 + 16柏, 個(gè)人股票稗管理)白 tx吧tsl.Tex白t = 佰 Ex把it Sub End If搬 txt(2)白.Text =翱 (Val(t埃

34、xt(1) 頒+ Val(t挨xt(5).T凹ext) *疤 fl把 txt(3)敖.Text =骯 Val(tx癌t(1) +盎 Val(tx般t(2).Te癌xt)暗 txt(7)案.Text =伴 (Val(t案xt(5).T巴ext) - 瓣Val(txt稗(3).Tex癌t) * V般al(txts懊l.Text)隘 If Val敖(txt(7)罷.Text) 斑= 0 Th傲en捌 txt板(7).For罷eColor 搬= &HFF& Else背 Val矮 (txt(7頒).Text)皚 0爸 txt伴(7).For啊eColor 傲= &HC00絆0& End If唉 End

35、Su板b半Public 澳Sub trz俺jhj()拌filenam襖e = App頒.Path &懊 股票.m壩db佰Set dbs奧 = Open按Databas愛e(filen白ame)澳Set rec埃zj = db跋s.OpenR把ecordse靶t(資金)阿 recz伴j.edit岸 recz扳j.Field俺s(股票市值罷) = hj熬 recz矮j.Field般s(購股金額案) = gp敗zj俺 recz哎j.Field把s(損益金額霸) = hj伴 - gpzj頒 recz辦j.Updat阿eEnd Sub盎Private瓣 Sub hj埃je()般filenam案e = A

36、pp隘.Path &敗 股票.m傲db搬Set dbs敖 = Open襖Databas襖e(filen懊ame)背Set rec襖 = dbs.頒OpenRec拜ordset(芭個(gè)股購買記錄邦) hj = 0爸 gpzj =把 0岸 Do 啊While N矮ot rec.版EOF罷 跋 hj = 叭hj + re熬c.Field耙s(當(dāng)前價(jià)笆) * rec拜.Fields笆(數(shù)量)奧 八 gpzj 哎= gpzj 伴+ rec.F靶ields(拔買入價(jià)) *笆 rec.Fi背elds(數(shù)佰量)澳 拌 rec.M昂oveNext LoopEnd Sub3.7用戶管理白 A：增加 這班里方便了多用

37、戶扮使用同意軟件的哎功能。能添加自氨己的用戶名和有稗一個(gè)數(shù)于自己的傲密碼。B：刪除安 當(dāng)感覺自己的艾用戶不需要了的昂時(shí)候，用戶可以班把其刪除了，減艾少冗余。C：保愛存 這主要是給盎增加做服務(wù)的，阿用戶添加好自己般的用戶名和密碼氨后，點(diǎn)擊保存即頒可。D：撤消 鞍撤消上一次因?yàn)榘胧栌诳紤]而做錯(cuò)巴的決定。如圖3稗-7 半 邦 唉 圖3-7按Private隘 Sub 瓣CmdOK_C捌lick()saveEnd Sub按Private哀 Sub 安Form_Lo巴ad()絆CmdOK.E扒nabled 巴= False稗txtbh.E昂nabled 扳= False巴txtmc.E罷nabled 愛=

38、 False澳Tlbar.B按uttons.擺add 1, 般Add, 拔增加, ,昂 Add阿Tlbar.B暗uttons.氨add 2, 敗Del, 霸刪除, ,白 Del罷Tlbar.B暗uttons.辦add 3, 扒, , tbr哀Separat壩or拔Tlbar.B跋uttons.伴add 4, 按Save,哀 保存, 敖, Save辦扮Tlbar.B懊uttons.芭add 5, 拔Undo,暗 撤消, 罷, Undo拜氨Tlbar.B矮uttons.叭add 6, 熬, , tbr按Separat俺or案Tlbar.B埃uttons.盎add 7, 胺Exit,斑 退出, 班,

39、 Exit瓣捌 Dim m襖Node, m瓣node1 A氨s Node癌 Dim i唉 As Int版eger捌 Dim s案ql As S氨tring扒 filen艾ame = A暗pp.Path霸 & 股票唉.mdb稗 Set d案bs = Op哀enDatab奧ase(fil稗ename)搬 Set r背ec = db百s.OpenR翱ecordse斑t(操作員敖)伴 If re班c.Recor拔dCount 礙= 0 The擺n Exit 挨Sub熬Do Whil案e Not r扮ec.EOF襖 lstna白me.AddI稗tem rec暗.Fields扳(0)瓣 rec.白Move

40、Nex盎t阿Loop澳 唉Tlbar.B版uttons(般2).Enab案led = F拜alse傲 Tl瓣bar.But暗tons(3)埃.Enable氨d = Fal敖se熬 Tl阿bar.But唉tons(4)扒.Enable白d = Fal八seEnd Sub霸Private笆 Sub Tl罷bar_But稗tonClic辦k(ByVal拜 Button艾 As MSC爸omctlLi擺b.Butto哎n)爸 Select懊 Case B拌utton.K翱ey礙Case A傲dd Cha耙nged = 頒False胺Tlbar.B邦uttons(瓣5).靶Enabled氨 = Fals

41、矮e辦txtbh.E敖nabled 耙= True扮 案txtmc.E拔nabled 案= True絆txtbh.T熬ext = 耙 哀 txtmc.氨Text = 耙伴txtbh.S哀etFocus艾 叭CmdOK.E斑nabled 胺= False搬Case U百ndo 暗txtbh.T搬ext = 藹岸 txtmc.拌Text = 巴瓣 Tlba哀r.Butto挨ns(2).E矮nabled 盎= False靶 Tlba矮r.Butto暗ns(3).E哀nabled 笆= False八 Tlb拜ar.Butt凹o(jì)ns(5).半Enabled敖 = Fals扳e八Case S霸aveTlb

42、哎ar.Butt捌ons(2).叭Enabled白 = Fals啊e save 唉 Case 岸Del襖r = Msg皚Box(是否班確認(rèn)刪除？(Y拜/N), 1稗 + 64, 扒個(gè)人股票管理壩)骯If r = 翱1 盎Then d扒bs.Exec絆ute 白DELETE 柏* FROM 版 _熬 疤 & 奧操作員 WH芭ERE 姓名 昂= & l半stname.扮Text & 啊凹 txtbh.跋Text = 哎矮 lstna暗me.Remo啊veItem 熬lstname拌.ListIn氨dex胺 txt跋mc.Text凹 = 案 E埃nd If叭 Cas昂e Exit扒壩 邦 Unlo懊

43、ad Me岸 End熬 SelectEnd Sub靶Private鞍 Sub 絆txtmc_C凹hange()白 CmdOK矮.Enable翱d = Tru笆e哀 Tlbar哀.Button俺s(4).擺Enabled藹 = TrueEnd Sub3.8關(guān)于作者阿這里主要介紹了扒一下本軟件是作扮者的畢業(yè)設(shè)計(jì)，芭關(guān)于作者的聯(lián)系愛方式等。如圖3-8圖3-8百Private骯 Sub 案CmdOK_C邦lick() 敖 百Unload 霸Me傲 End Sub3.9打印頒為了方便用戶對(duì)佰平時(shí)購買和賣出襖股票的管理，這斑里的打印為用戶背提供了資金、賣伴出記錄，買入記懊錄的打印。方便阿了用戶以后對(duì)前搬一

44、段時(shí)間股票信把息的回顧和總結(jié)襖。如圖3-9藹 澳 藹 把 般 圖3-瓣9氨Private叭 Sub 昂Command巴1_Click伴()半DataRep把ort1.Sh板owEnd Sub盎Private絆 Sub 安Command伴2_Click罷()昂DataRep半ort3.Sh案owEnd Sub邦Private搬 Sub氨 Comman版d3_Clic吧k()矮DataRep愛ort4.Sh霸owEnd Sub稗Private半 Sub巴 Comman埃d5_Clic百k()跋DataRep白o(hù)rt2.Sh隘owEnd Sub板3.10退出界伴面如圖3-10圖3-10結(jié)束語吧 辦經(jīng)

45、過我個(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)和哀完善。還有很多霸問題，需要在大斑家的一起努力下翱，才會(huì)得到解決拔。在以后的日子艾里，我會(huì)更加努八力作出更多的軟耙件，并且使得這斑些軟件更加實(shí)用埃和完善，力求更頒上一層樓。拌經(jīng)過這些日子的拔努力

46、，個(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)越性扮掌握了V般isual 擺Basic 凹6.0埃語言的使用，增隘長了實(shí)踐經(jīng)驗(yàn)。瓣 搬但是由于畢業(yè)設(shè)板計(jì)時(shí)間較短，而按且我是第一次編伴寫較大的應(yīng)用程白序，所以該系統(tǒng)白還有許多不盡如耙人意的地方，這把些都有待進(jìn)一步八改正。致謝礙緊張而有意義的耙大學(xué)生活

47、，隨著巴畢業(yè)設(shè)計(jì)的基本巴完成也邁入了最襖后階段。很快我霸們就要離開校園皚，進(jìn)入競爭激烈靶的社會(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)繼續(xù)艾完成畢業(yè)

48、設(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.胺Reyhold搬s.hear 笆 罷刊物名稱：V扳B 6.0和V案B.NET面向安程序設(shè)計(jì)稗出版社：清華大鞍學(xué)出版社 板出版日期：20襖02.7奧版次： 1-1愛 開本邦I(lǐng)SBN： 7襖-5049-2凹567-5盎2作者: 美絆 Wallac敖e Wang絆刊物名稱：輕把松學(xué)用VB 6吧.0 靶出

49、版社:電子工懊業(yè)出版社哀出版日期:20扳02.5 笆版次： 1-1絆 開本俺ISBN： 7澳-5049-2靶567-5佰3. 作者：明罷月工作室隘刊物名稱：V挨B 6.0編程俺百例鞍出版社：人民郵啊電出版社斑出版日期：20哀01.5啊版次： 1-1敗 開本邦I(lǐng)SBN： 7案-5049-2拔567-5敗4. 作者：王愛興晶翱刊物名稱：V挨B6.0數(shù)據(jù)庫傲開發(fā)典型實(shí)例疤出版社：電子工斑業(yè)出版社啊出版日期：20愛02.9骯版次： 1-1氨 開本襖ISBN： 7把-5049-2八567-5頒5. 作者：安安忠 佟志臣盎刊物名稱：管靶理信息系統(tǒng)實(shí)用矮教程氨出版社：中國鐵礙道出版社鞍出版日期：20懊02.

50、9 氨版次： 1-1骯 開本扮ISBN： 7愛-5049-2邦567-5拜6. 作者：周八正慶翱刊物名稱：證把券市場(chǎng)導(dǎo)論耙出版社：中國鐵矮道出版社巴出版日期：20昂00-06-0霸1 安版次： 1-1扒 開本叭ISBN： 7白-5049-2霸567-5擺7. 作者：龍埃光臣 馬鈞 祁擺春波斑刊物名稱：證襖券發(fā)行上市理論壩與實(shí)務(wù)半出版社：中國科板技出版社按出版日期：20襖01-06-0把1 稗版次： 1-1矮 開本扳 IS皚BN： 7-5巴049-256佰7-5耙附錄 襖程序清單及注釋傲設(shè)計(jì)過程中模塊伴和整個(gè)設(shè)計(jì)都進(jìn)靶行了測(cè)試并實(shí)現(xiàn)按功能。如下代碼壩只是部分編譯，罷僅做為參考。敗登陸功能的部分邦

51、代碼如下：翱Public 壩dbs As 胺Databas拌e柏Public 柏rec As 捌Records爸et巴Public 拔czy As 礙String靶Public 埃filenam熬e As St拔ring背Private艾 Sub ch氨kmm_Cli艾ck()芭 If ch敗kmm.Val拌ue = 1 頒Then埃 zcf埃orm.Hei搬ght = 3霸550搬 xmm奧lb.Visi扒ble = T板rue絆 qrm埃mlb.Vis傲ible = 俺True拔 xmm阿txt.Vis絆ible = 霸True傲 qrm挨mtxt.Vi唉sible =罷 True按 Cm

52、d扳OK.Move暗 240, 2笆800襖 Cmd皚NO.Move埃 2760, 耙2800 Else頒 xmm矮lb.Visi傲ble = F稗alse拔 qrm背mlb.Vis扳ible = 艾F(xiàn)alse安 xmm般txt.Vis澳ible = 壩False愛 qrm盎mtxt.Vi拜sible =擺 False愛 Cmd辦OK.Move唉 240, 1盎760稗 Cmd盎NO.Move巴 2760, 隘1760襖 zcf半orm.Hei凹ght = 2板550End IfEnd Sub扳Private襖 Sub cm斑bname_C邦hange()搬 r = 隘MsgBox(岸非法用戶

53、,拒扳絕操作！, 挨0 + 16,埃 個(gè)人股票管翱理) EndEnd Sub瓣P(guān)rivate澳 Sub Cm邦d_Click扳()爸 MonthV搬iew.Vis安ible = 氨TrueEnd Sub拌Private罷 Sub Cm瓣dOK_Cli拜ck()瓣czy = c哀mbname.巴Text邦filenam凹e = App唉.Path &氨 股票.m氨db頒Set dbs跋 = Open跋Databas版e(filen班ame)百Set rec白 = dbs.般OpenRec阿ordset(哎操作員)按 If c礙hkmm.Va扮lue = 1叭 Then矮 壩If cmbn佰ame

54、.Tex隘t = 藹Then扳 版 r = M昂sgBox(芭操作員沒選！拒隘絕訪問, 0罷 + 16, 挨個(gè)人股票管理巴)扳 澳 Exit 敗Sub瓣 敗 End I般f半 rec.啊MoveFir鞍st 艾 Do 哀While N頒ot rec.翱EOF敗 拜If rec.奧Fields(挨姓名) =邦 cmbnam邦e.Text 氨Then半 巴 Let芭 mm = T佰rim(rec辦.Fields骯(密碼)半 斑End If藹 柏rec.Mov矮eNext絆 Loo暗p版 If板 Trim(t翱xtmm.Te岸xt) = m俺m Then版 班 If xmm隘txt.Tex按t qr

55、辦mmtxt.T絆ext The敗n疤 挨 r 艾= MsgBo白x(新密碼不唉一致，請(qǐng)重填！敖, 0 + 邦16, 個(gè)人巴股票管理)百 斑 xm吧mtxt.Te矮xt = 暗 矮 qr班mmtxt.T岸ext = 敖靶 岸 xm按mtxt.Te版xt = 伴 癌 Else班 爸 re礙c.Index藹 = Pri跋maryKey半啊 跋 re半c.Seek 稗=, cm唉bname.T班ext板 懊 re辦c.edit百 扳 re百c.Field哀s(1) = 疤xmmtxt.澳Text把 叭 re罷c.Updat捌e澳 胺 r 笆= MsgBo瓣x(密碼修改敖成功！, 0白 + 64, 扳

56、個(gè)人股票管理半)捌 傲 Un唉load Me敖 邦 jm巴.Show阿 懊 fr盎mgu.Sho佰w頒 暗 Un稗load fr稗mgu奧 翱 End 柏If隘 Els白e佰 八 r = M把sgBox(伴舊密碼出錯(cuò)！拒芭絕訪問, 0鞍 + 16, 岸個(gè)人股票管理版)般 柏 txtmm癌.Text =邦 扮 巴 txtmm骯.SetFoc傲us版 襖 Exit 阿Sub擺 End巴 If Else芭 If c岸mbname.叭Text = 絆 Then半 r案 = MsgB矮ox(操作員皚沒選！拒絕訪問敖, 0 + 擺16, 個(gè)人扮股票管理)凹 Exi按t Sub愛 End 襖If疤 rec.

57、辦MoveFir板st 拜 Do 耙While N澳ot rec.辦EOF辦 白If rec.芭Fields(熬姓名) =隘 cmbnam擺e.Text 俺Then拌 芭 Let藹 mm = T疤rim(rec背.Fields白(密碼)伴 稗End If扮 埃rec.Mov啊eNextLoop壩用戶管理功能的隘部分代碼如下：靶Public 拜dbs As 班Databas頒e阿Public 襖rec As 拌Records哎et般Sub sav哎e()岸 If tx氨tbh.Tex皚t = 藹Then Ex瓣it Sub罷 filen暗ame = A吧pp.Path胺 & 股票疤.mdb藹 S

58、et d翱bs = Op骯enDatab懊ase(fil矮ename)笆 Set r辦ec = db辦s.OpenR翱ecordse扒t(操作員扮)邦 岸 rec.A哎ddNew骯 跋 rec.F絆ields(0奧) = txt伴bh.Text礙 耙 rec.F瓣ields(1案) = txt巴mc.Text敖 啊 rec.U把pdate吧 擺 lstna熬me.AddI吧tem txt柏bh.Text傲 吧 txtbh吧.Text =耙 礙 捌 txtmc熬.Text =叭 癌 唉 txtbh啊.SetFoc傲usEnd Sub胺 Set d癌bs = Op頒enDatab板ase(fil昂

59、ename)熬 Set r柏ec = db氨s.OpenR柏ecordse拔t(操作員般)笆 If re藹c.Recor拜dCount 礙= 0 The搬n Exit 鞍Sub拔Do Whil版e Not r斑ec.EOF捌 lstna敗me.AddI奧tem rec啊.Fields俺(0)跋 rec.瓣MoveNex叭tLoop吧 Tl板bar.But案tons(2)艾.Enable艾d = Fal癌se罷 Tl傲bar.But暗tons(3)艾.Enable敗d = Fal扳se骯 Tl矮bar.But瓣tons(4)骯.Enable埃d = Fal斑seEnd Sub昂Private版

60、Sub Tl叭bar_But藹tonClic耙k(ByVal壩 Button敖 As MSC把omctlLi盎b.Butto跋n)稗 Select壩 Case B皚utton.K澳ey跋 Ca背se Add拌盎 哀Changed疤 = Fals哎e熬 岸Tlbar.B絆uttons(阿5).Enab昂led = F骯alse白 氨txtbh.E稗nabled 氨= True伴 愛txtmc.E把nabled 叭= True吧 佰txtbh.T邦ext = 跋耙 熬txtmc.T愛ext = 吧挨 骯txtbh.S吧etFocus斑 拜CmdOK.E耙nabled 把= False熬 Cas暗e