个人股票管理系统

《个人股票管理系统》由会员分享，可在线阅读，更多相关《个人股票管理系统（73页珍藏版）》请在装配图网上搜索。

1、 73 前言随着计算机科学学技术的突飞飞猛进，此种种方法存在的的工作量大、准准确率低、管管理难度大、使使用不方便等等问题越来越越严重地暴露露出来。作为为计算机应用用的一部分,使用计算机机对个人的股股票信息进行行管理,有着着手工管理所所无法比拟的的优点.特别别是现在大家家都比较喜欢欢在Windowss操作平台上上工作，落后后的数据库管管理方式已经经很难适应大大家的需求。随随着数据库开开发工具的不不断革新，VVisuall Basiic 6.00以其强大的的功能逐步替替代了落后的的数据库管理理方式。Viisual Basicc 6.0无无论是组织信信息、运行查查询、创建集集成的关系型型数据库系统统

2、，还是为最最终用户编写写功能全面的的数据管理应应用程序，VVisuall Basiic 6.00都可以提供供管理数据所所需的工具，可可以在应用程程序或数据库库开发的任何何一个领域中中提供帮助。现如今，应用VVisuall Basiic软件编写写的财务管理理系统，生产产计划管理系系统，人事管管理系统等等等的软件很多多。但是真正正完全适用于于个人股票管管理方面的软软件到现在依依然没有解决决。因此，基基于以上原因因，为了提高高个人股票管管理、降低个个人工作量，我我编写了适应应于个人股票票管理系统软软件。本个人人的股票管理理系统主要用用于实现个人人的资金追加加，赢利和亏亏损以及个人人买入和卖出出股票等

3、。对对个人的股票票信息量进行行统计，方便便个人用户的的管理，还可可以打印资金金单、买入和和卖出的名称称、数量买入入价、卖出价价，购买时间间以及买出时时间等。1章收支管理理系统1.1股票管理理系统的发展展历史 从11990年112月19日日上海证券交交易所正式挂挂牌营业算起起，我国证券券市场从无到到有，从小到到大，已历经经了10余年年的发展。中中国证券市场场的发展和完完善可以分为为三个阶段：“奠基阶段”、“市场化阶段段”和“国际化阶段段”，在中国证证券市场发展展的第一个110年里，我我们已经基本本完成了“奠基阶段”。在这个阶阶段，我们以以渐进式改革革的方式，在在中国高度集集中的传统计计划经济体系

4、系上构建了一一个初具规模模的证券市场场，并为将来来的市场化、国国际化打下了了基础。但在整个“奠基阶段”里，由于我我们采用的一一些方法手段段带有明显的的计划经济痕痕迹，从而直直接导致我国国证券市场现现行的制度架架构中带有较较为浓厚的非非市场特征，这这与我国证券券市场直接脱脱胎于高度集集中的计划经经济体制有关关。但是，从从长远发展来来看，为了使使我国的证券券市场更好地地符合市场经经济和证券市市场的内在规规律，提高中中国证券市场场迎接国际化化挑战的能力力，我们需要要在“奠基阶段”之后的“市场化阶段段”中通过一系系列的理念创创新、制度创创新和工具创创新，大力推推进中国证券券市场的市场场化水平，以以消除

5、过去形形成的种种非非市场化色彩彩，这一阶段段大约要持续续5年左右时时间。只有在基本本完成市场化化进程之后，我我们的证券市市场将步入一一条更为健康康的发展道路路，从而才能能更好地进入入“国际化阶段段”。在这一阶阶段，我们证证券市场将与与国际资本市市场充分接轨轨。只有完成成了这一国际际化进程之后后，我们的证证券市场才真真正与世界市市场融为一体体，成为国际际资本市场的的有机组成部部分。现在，伴随随中国加入WWTO组织法法律程序的基基本完成，我我国证券市场场的开放进程程将大大提前前，这意味着着我国证券市市场的国际化化进程将在市市场化尚未完完成的情况之之下开始，这这对我们而言言意味着巨大大的挑战。1.2

6、股票管理理系统的作用用 在当今的信信息社会里，人人门和股票越越来越分不开开了。而对股股票信息的采采集，和对资资金管理工作作更是我们每每天自觉或不不自觉地进行行着的大量烦烦琐工作。股股票管理系统统则是一个个个人不可缺少少的部分，为为了提高个人人股票管理系系统工作的准准确度，降低低劳动强度，减减少人为手写写错误，提高高工作效率，根根据单位实际际工作需求，在在调研了多位位长期从事会会计工作的老老师傅以后，我我使用Visuall Basiic 6.0开发发工具编写了了这套可进行行资金追加，资资金修改（赢赢利及亏损），股股票买入，股股票买出，以以及打印清单单护等各功能能的个人股票票管理系统软软件。以达到

7、到提高个人股股票管理效率率的目的。2个人收支管管理系统分析析与设计2.1个人股票票管理系统功功能需求简介介 个人股票票管理是一一套功能完善善的股票管理理软件，可帮帮助您方便地地管理自己的的股票帐户，其其界面友好，操操作简便，除除具备基本的的交易记录功功能外，更提提供多种统计计功能，供您您准确地把握握自己的帐户户情况，以便便科学地制定定操作策略.1. 支持多帐户：适适合于多人使使用同一台计计算机或一人人拥有多个帐帐户。每个帐帐户均可设置置密码及独立立的佣金收取取标准。2. 支持子帐户：适适合于多人使使用同一帐户户。每个子帐帐户均有独立立的交易记录录及帐户统计计。3.界面简洁：采用 Wiindow

8、ss 资源管理理器与 Miicrosooft Exxcel 相相结合的界面面风格，简洁洁、直观。4.操作简便：将股票交易易及资金存取取数据的录入入统一在同一一个操作界面面中，并允许许随时对任何何一条交易记记录进行修改改、删除。5.支持单边印印花税：可独独立设置买入入/卖出印花花税率，从而而可适应未来来的单边印花花税政策。6.盈利计算：提供股票盈盈利情况随股股价变化的模模拟计算功能能。2.2功能需求求描述通过对用户的需需求分析，我我们可分析出出个人股票管管理系统大致致可分为四大大模块：个人人资金的修改改、股票的买买入、股票的的卖出，税率率，打印报表表。下图说明明五者的关系系个人股票管理系统输入密

9、码 费率 关于作者 打印报表个人资金的修改买入股票的信息卖出股票的历史记录费率 (1) 个人资资金修改的模模块 a、资资金投入 主主要统计追加加资金（即为为投入的总资资金），赢利利金额和亏损损金额 b、购购买股票总金金额，股票当当前市场和资资金帐户余额额c、能修改改，删除，保保存所投入的的资金、赢利利和亏损金额额。(2)股票买入入信息的模块块1、 a：买入 主要要功能是：记记录买入股票票的代号、购购买价、费用用、成本价、名名称、当前价价(市场价)、数量、购购买时间、预预测收益。BB：卖出 主主要功能是：记录卖出股股票的代号、购购买价、费用用、成本价、名名称、卖出价价、数量、购购买时间、卖卖出时

10、间，预预测收益（亏亏损或赢利计计算 其中已已经扣掉了手手续费和印花花税率）。CC：修改 主主要功能是：修改买入股股票的购买价价、费用、成成本价、名称称、当前价、数数量、购买时时间。D：删删除 主要要功能是：删删除所购买的的股票（主要要是为了方便便用户修改决决定购买而没没有购买的股股票。）e：保存 主要要是为了修改改做后盾的 修改完用户户所要修改的的股票资料后后，用户需要要保存自己所所做的决定，就就靠它了。FF：费率 这个费率和和2的费率是是一样的，主主要方便用户户随时更改手手续费和印花花税率。G：资金 这个个资金和1的的资金是一样样的，方便用用户查询所剩剩金额，以便便于购买股票票。另外还可可以

11、追加赢利利和亏损金额额。H：退出出 退出到主主界面。 (3)股票卖卖出历史模块块这里详细统计了了用户卖出股股票的代号、购购买价、费用用、成本价、名名称、当前价价、数量、购购买时间、卖卖出时间以及及收益。(4)税率主要是手续费和和印花税率，能能修改和确定定取消。（5）打印模块块为了方便用户对对平时购买和和卖出股票的的管理，这里里的打印为用用户提供了资资金、卖出记记录，买入记记录的打印。方方便了用户以以后对前一段段时间股票信信息的回顾和和总结。（6）用户管理理 a：增加 这里里方便了多用用户使用同意意软件的功能能。能添加自自己的用户名名和有一个属属于自己的密密码。B：删删除 当感觉觉自己的用户户不

12、需要了的的时候，用户户可以把其删删除了，减少少冗余。C：保存 这主主要是给增加加做服务的，用用户添加好自自己的用户名名和密码后，点点击保存即可可。D：撤消消 撤消上一一次因为疏于于考虑而做错错的决定。（7）关于作者者 这里主要介绍了了一下本软件件是作者的毕毕业设计，关关于作者的联联系方式等。2.3模块开发发环境的简介介2.3.1 VVisuall Basiic 6.00简介数据库技术产生生于20世纪纪60年代末末期。数据库库开发工具从从早期的Bbbase、FFoxBASEE发展到现在在的Visuall Basiic 6.00，经历了巨巨大的革新, 特别是面面向对象可视视化语言的出出现，以其友友

13、好的工作界界面、可视化化的编程技术术，为广大数数据库开发人人员提供了强强有力的支持持工具。Visual Basicc 6.0采采用当今最为为流行的面向向对象程序设设计技术及可可视化技术，以以其卓越的数数据库处理性性能、良好的的开发环境赢赢得了广大用用户的喜爱。用用户可以通过过 Vissual BBasic的的开发环境方方便地设计对对数据库的结结构、管理数数据库，设计计应用程序界界面，设计查查询、报表及及菜单；利用用项目管理器器对数据库和和程序进行管管理，生成可可执行文件，发发布应用程序序；等等。VVisuall Basiic是目前微微机上最为流流行的关系数数据库管理系系统，利用 Visuaal

14、 Bassic 6.0开发程序序之快、功能能之强大，不不觉使人产生生相见恨晚的的感觉。23.2个人人股票管理系系统数据库设设计数据库表名数据类型可否为空Mail文本是操作员文本否费率数字否个人购买记录数字是股票卖出记录数字是投入资金明细数字是资金数字否表2-1Mail表表名数据类型可否为空ID自动编号是Mail文本是表2-2操作员表表名数据类型可否为空姓名文本否密码文本是表2-3费率表表名数据类型可否为空ID自动编号否手续费数字否印花税率数字否表2-4个人购买记录表表表名数据类型可否为空ID自动编号否代号 文本否名称文本否买入价数字否费用数字否成本价数字否当前价数字否收益数字否数量数字否购买时

15、间日期否表2-5卖出历史记录表表表名数据类型可否为空ID自动编号否代号 文本否名称文本否买入价数字否费用数字否成本价数字否卖出价数字否收益数字否数量数字否购买时间日期否卖出时间时间否表2-6投入资金明细表表表名数据类型可否为空ID自动编号否方式文本否时间时间否资金量数字否表2-7资金表表名数据类型可否为空资金投量数字否购股金额数字是股票市值数字否资金寸量数字否损益金额数字是表2-82.3.3系统统平台的选择择（1）软件环境境本程序是在Wiindowss 操作平台台上运行，利利用Visuual Baasic 6.0软件件编写的应用用程序。（2） 硬件环境一台CPU为880486/66MHZZ以上

16、的IBBM及兼容微微型计算机，一一个鼠标，116MB以上上内存，VGGA或更高档档次的适配器器。3章 个人股股票管理系统统的具体功能能实现3.1登陆界面面 此此界面主要实实现了用户登登陆，需输入入密码，确保保了用户信息息的安全性。另另外还可以修修改密码，修修改密码需要要输入旧密码码，然后输入入新密码，确确定即可生效效。默认用户户名为：addmin ；密码为：aadmin。如如图3-1 图3-1Ifchkmmm.Valuue = 11 Thenn zcfform.HHeightt = 35550 xmmmlb.Viisiblee = Trrue qrmmmlb.VVisiblle = TTrue

17、 xmmmtxt.VVisiblle = TTrue qrmmmtxt.VVisiblle = TTrue CmdOOK.Movve 2400, 28000 CmdNNO.Movve 27660, 28800Else xmmlb.Visibble = Falsee qrmmllb.Vissible = Fallse xmmtxxt.Vissible = Fallse qrmmttxt.Viisiblee = Faalse CmdOKK.Movee 240, 17600 CmdNO.Move 2760, 17600 zcforrm.Heiight = 255003.2使用界面面 该界面是是用户使

18、用该该软件的主要要界面，能对对资金进行修修改，（包括括资金追加，赢赢利和亏损统统计），费率率修改（包括括手续费和印印花税率），股股票（包括股股票买入 主主要功能是：A：记录买买入股票的代代号、购买价价、费用、成成本价、名称称、当前价、数数量、购买时时间、预测收收益。B：卖卖出 主要功功能是：记录录卖出股票的的代号、购买买价、费用、成成本价、名称称、当前价、数数量、购买时时间、卖出时时间，预测收收益（亏损或或赢利计算 其中已经扣扣掉了手续费费和印花税率率）。C：修修改 主要功功能是：修改改买入股票的的购买价、费费用、成本价价、名称、当当前价、数量量、购买时间间。D：删除除 主要功功能是：删除除所

19、购买的股股票（主要是是为了方便用用户修改决定定购买而没有有购买的股票票。）e：保保存 主要是是为了修改做做后盾的 修修改完用户所所要修改的股股票资料后，用用户需要保存存自己所做的的决定，就靠靠它了。F：费率 主主要方便用户户随时更改手手续费和印花花税率。G：资金方便用用户查询所剩剩金额，以便便于购买股票票。另外还可可以追加赢利利和亏损金额额。H：退出出 退出到主主界面；股票票卖出历史记记录 这里里详细统计了了用户卖出股股票的代号、购购买价、费用用、成本价、名名称、当前价价、数量、购购买时间、卖卖出时间以及及收益）如图图3-2 图图3-2Privatee Sub aboutt_Clicck()f

20、rmAbouut.ShoowEnd SubbPrivaate Suub fl_Clickk() frmfl.ShowEnd Subb Privatee Sub gp_Cllick() frmgu.ShowEnd Subb Privatte Subb ls_CClick()frmls.SShowEnd SubbPrivatee Sub Tlbar_BButtonnClickk(ByVaal Buttton AAs MSCComctllLib.BButtonn) Selecct Casse Buttton.KKeyCasse fll frmfl.Show Case gg frmguu.Showw

21、Case jj frmzjj.Showw Case gy frmAboout.Shhow vbbModall Case exitt Dim sstrmsgg As SStringg strmmsg = 确认是否否退出？ If MsggBox(sstrmsgg, vbQQuestiion + vbOKCCancell + vbbDefauultButtton1, 个人股股票管理) = vbbOK Thhen Cancel = Fallse End EElse Cancel = Truue End IIf Case lls frmlss.Showw Case dy Form22.ShowwCase

22、 yh user.SShow vvbModaal End Seelect End Subb3.3资金管理理 包括资资金追加，赢赢利和亏损统统计，和查看看资金所剩数数额。如图 3-3 图33-3Privatee Sub del() If txttsj.Teext = Thhen Exit Suub rr = MssgBox(是否确认认删除？(YY/N), 1 + 64, 个人股票管管理) IIf r = 1 Thhen dbbs.Exeecute DELEETE * FROM _ & 投入资金明明细 WHERE IID= & gridd.TexttMatriix(griid.Roww, 0) &

23、 d1.Reefreshh counttje frmguu.trzjjhj trzj showzzj Sbr.PPanelss(1).TText = 当前资资金投入总额额： & hjzj & 元 Ennd If txtsjj.Textt = cmbfss.Textt = txtjee.Textt = txtsjj.Enabbled = Falsse cmbfss.Enabbled = Falsse txtjee.Enabbled = FalsseEnd SubbPrivatee Sub showzzj()If reczzj.ReccordCoount = 0 Then Exxit Suub f

24、rmguu.trzjjhj counttje Set rreczj = dbss.OpennRecorrdset(资金) lbtrjje.Capption = 资金金帐户投入总总金额： & recczj.Fiields(资金投量量) & 元 gpje.Captiion = 购买股票票总金额： & reeczj.FFieldss(购股金金额) & 元 gpsz.Captiion = 股票当前前市值： & recczj.Fiields(股票市值值) & 元 gpyy.Captiion = 帐户当前前损益： & sy & 元 zjxc.Captiion = 资金帐户户余额： & recczj.Fii

25、elds(资金存量量) & 元 If reeczj.FFieldss(资金存存量) = 0 TThen Sbbr.Pannels(11).Texxt = 当前资金余余额： & reczzj.Fieelds(资金存量) & 元 Else SSbr.Paanels(1).Teext = 当前需要要补充资金额额： & reczjj.Fiellds(资资金存量) & 元元 End IIfEnd Subb3.4费率设置置 主要是是手续费和印印花税率，能能修改和确定定取消。如图图 3-4 图3-4Privatee Sub CmdNOO_Clicck() Unloaad MeEnd SubbPrivatee

26、 Sub CmdOK_CClick() dbs.EExecutte UPPDATE 费率 SET 手续费费率 = & txttsx.Teext & ,印印花税率= & txxtyh.TText & ; _ & txtsxx.Enabbled = Falsse txtyhh.Enabbled = Falsse Unloaad MeEnd SubbPrivatee Sub Form_Looad() filenname = App.Path & 股股票.mdbb Set ddbs = OpenDDatabaase(fiilenamme) Set rrec = dbs.OOpenReecordsset

27、(费费率) txtsxx.Textt = reec.Fieelds(11) txtyhh.Textt = reec.Fieelds(22) txtsxx.Enabbled = Falsse txtyhh.Enabbled = Falsse frmfll.Leftt = 35500 frmfll.Top = 10000End Subb3.5个人购买买记录主要功能是：记记录买入股票票的代号、购购买价、费用用、成本价、名名称、当前价价、数量、购购买时间、预预测收益。如如图3-5 图3-5Public Sub jjs()filenamme = AApp.Paath & 股票.mdbd1.Dataaba

28、seNName = fileenameSet dbss = OppenDattabasee(fileename)Set recc = dbbs.OpeenRecoordsett(费率)fl = Vaal(recc.Fiellds(1) + VVal(reec.Fieelds(22)dbs.Exeecute UPDAATE 个股股购买记录 SET 费用 = 买入价价* & fl & , 成本本价 = 买买入价+费用用, 收益 = (当前前价-成本价价)*数量; _ & Set recc = NoothinggEnd SubbPrivatee Sub Tlbar_BButtonnClickk(By

29、Vaal Buttton AAs MSCComctllLib.BButtonn)Select Case Buttoon.Keyy Case AddaaddCasse Saave ssave Case flffrmfl.Show d1.Reffresh Case Del 删除 If txtt(0).TText = TThen Exit Suub r = MssgBox(是否确认认删除【 & txtt(4).TText & 】？(Y/N), vbQuesstion + vbOOKCanccel + vbDeffaultBButtonn1, 个个人股票管理理) Iff r = 1 Theen dbs

30、.EExecutte DEELETE *FROM & 个股购买记记录 WHERE IID= & gridd.TexttMatriix(griid.Roww, 0) & d1.Reffresh hjje trzjhhj addd End If Case Exit Unload Me Caase mmc sale Tlbar.Buttoons(4).Enabbled = Falsse Tlbar.Buttoons(5).Enabbled = Falsse Tlbarr.Butttons(66).Enaabled = Fallse Tlbar.Buttoons(7).Enabbled = Falss

31、eCase EEdit xg CCase zj frmzjj.ShowwEnd Sellect End SubbPublic Sub trzjhjj()filenamme = AApp.Paath & 股票.mdbSet dbss = OppenDattabasee(fileename)Set recczj = dbs.OOpenReecordsset(资资金) reczzj.ediit reczzj.Fieelds(股票市值) = hhj reczzj.Fieelds(购股金额) = ggpzj reczzj.Fieelds(损益金额) = hhj - ggpzj reczzj.Upddat

32、eEnd Subb36卖出历史史记录 这里里详细统计了了用户卖出股股票的代号、购购买价、费用用、成本价、名名称、当前价价、数量、购购买时间、卖卖出时间以及及收益。如图图3.6 图33-6Privatee Subtxtsl_CChangee() If Vall(saleestonee.txtssl.Texxt) Val(ffrmgu.txt(66).Texxt) Thhen r = MsggBox(你输入的数数量超过该股股票的现存量量！, 00 + 166, 个人人股票管理) txxtsl.TText = Exxit Suub End Iff txt(2).Textt = (VVal(txxt(

33、1) + Vaal(txtt(5).TText) * fll txt(3).Textt = Vaal(txtt(1) + Vall(txt(2).Teext) txt(7).Textt = (VVal(txxt(5).Text) - Vaal(txtt(3).TText) * Vaal(txttsl.Teext) If Vall(txt(7).Teext) = 0 TThen txtt(7).FForeCoolor = &HFFF& Else Vall (txtt(7).TText) 0 txtt(7).FForeCoolor = &HC0000& End Iff End SuubPublic

34、 Sub ttrzjhjj()filenamme = AApp.Paath & 股票.mdbSet dbss = OppenDattabasee(fileename)Set recczj = dbs.OOpenReecordsset(资资金) reczzj.ediit reczzj.Fieelds(股票市值) = hhj reczzj.Fieelds(购股金额) = ggpzj reczzj.Fieelds(损益金额) = hhj - ggpzj reczzj.UpddateEnd SubbPrivatee Sub hjje()filenamme = AApp.Paath & 股票.mdbSe

35、t dbss = OppenDattabasee(fileename)Set recc = dbbs.OpeenRecoordsett(个股购购买记录) hj = 00 gpzj = 0 Do Whilee Not rec.EEOF hj = hj + recc.Fiellds(当当前价) * recc.Fiellds(数数量) gpzzj = ggpzj + rec.Fieldds(买入入价) * rec.Fieldds(数量量) recc.MoveeNext LooppEnd Subb3.7用户管理理 A：增加 这这里方便了多多用户使用同同意软件的功功能。能添加加自己的用户户名和有一个个数

36、于自己的的密码。B：删除 当感感觉自己的用用户不需要了了的时候，用用户可以把其其删除了，减减少冗余。CC：保存 这这主要是给增增加做服务的的，用户添加加好自己的用用户名和密码码后，点击保保存即可。DD：撤消 撤撤消上一次因因为疏于考虑虑而做错的决决定。如图33-7 图3-7Privatee Sub CmdOK_CClick()saveEnd SubbPrivatee Sub Form_Looad()CmdOK.EEnableed = FFalsetxtbh.EEnableed = FFalsetxtmc.EEnableed = FFalseTlbar.BButtonns.addd 1, Add

37、, 增加, , AddTlbar.BButtonns.addd 2, Del, 删除, , DelTlbar.BButtonns.addd 3, , , tbbrSepaaratorrTlbar.BButtonns.addd 4, Save, 保存存, , SaveeTlbar.BButtonns.addd 5, Undo, 撤消消, , UndooTlbar.BButtonns.addd 6, , , tbbrSepaaratorrTlbar.BButtonns.addd 7, Exit, 退出出, , Exitt Dim mmNode, mnodde1 Ass Nodee Dim ii A

38、s IIntegeer Dim ssql Ass Striing filenname = App.Path & 股股票.mdbb Set ddbs = OpenDDatabaase(fiilenamme) Set rrec = dbs.OOpenReecordsset(操操作员) If reec.ReccordCoount = 0 Thhen Exxit SuubDo Whille Nott rec.EOF lstnaame.AdddItemm rec.Fieldds(0) rec.MoveNNextLoop Tllbar.BButtonns(2).Enablled = Falsee Tllb

39、ar.BButtonns(3).Enablled = Falsee Tllbar.BButtonns(4).Enablled = FalseeEnd SubbPrivatee Sub Tlbarr_ButttonCliick(ByyVal BButtonn As MMSComcctlLibb.Buttton) Selectt Casee Buttton.KeeyCase AAdd CChangeed = FFalseTlbar.BButtonns(5).Enabledd = Faalsetxtbh.EEnableed = TTrue txtmc.EEnableed = TTruetxtbh.T

40、Text = txtmc.Text = txtbh.SSetFoccus CmdOK.EEnableed = FFalseCase UUndo txtbh.TText = txtmc.Text = Tlbaar.Butttons(2).Ennabledd = Faalse Tlbaar.Butttons(3).Ennabledd = Faalse Tlbbar.Buuttonss(5).EEnableed = FFalseCase SSaveTTlbar.Buttoons(2).Enabledd = Faalse ssave Case Delr = MsggBox(是否确认删删除？(Y/N),

41、 1 + 664, 个个人股票管理理)If r = 1 Then ddbs.Exxecutee DELETE * FROOM _ & 操作员员 WHEERE 姓名名 = & lsttname.Text & txtbh.Text = lstnaame.ReemoveIItem llstnamme.LisstIndeex txttmc.Teext = EEnd Iff Casse Exxit Unnload Me Endd SeleectEnd SubbPrivatee Sub txtmc_CChangee() CmdOKK.Enabbled = Truee Tlbarr.Butttons(44)

42、.Enabledd = TrrueEnd Subb3.8关于作者者这里主要介绍了了一下本软件件是作者的毕毕业设计，关关于作者的联联系方式等。如图3-8图3-8Privatee Sub CmdOK_CClick() Unload Me End Subb3.9打印为了方便用户对对平时购买和和卖出股票的的管理，这里里的打印为用用户提供了资资金、卖出记记录，买入记记录的打印。方方便了用户以以后对前一段段时间股票信信息的回顾和和总结。如图图3-9 图3-9Privatee Sub Commandd1_Cliick()DataRepport1.ShowEnd SubbPrivatee Sub Comman

43、dd2_Cliick()DataRepport3.ShowEnd SubbPrivatee Sub Commannd3_Cllick()DataRepport4.ShowEnd SubbPrivatee Sub Commannd5_Cllick()DataRepport2.ShowEnd Subb3.10退出界界面如图3-10图3-10结束语 经过我个人的的努力以及老老师的指导下下，基本上该该系统能为个个人股票管理理提供了很大大的帮助。但但是系统还有有很多不足之之处，希望大大家批评指导导，而且本人人的能力有限限，难免系统统不是很全面面。但我相信信在以后的日日子里，它会会慢慢变的更更加全面，更更

44、加实用，希希望老师能给给我指出更多多的不足之处处，以便于我我改进此系统统，也能使我我的能力得到到提高。在代代码中还有很很多需要改进进的，由于能能力有限，不不能更进一步步改进和完善善。还有很多多问题，需要要在大家的一一起努力下，才才会得到解决决。在以后的的日子里，我我会更加努力力作出更多的的软件，并且且使得这些软软件更加实用用和完善，力力求更上一层层楼。经过这这些日子的努努力，个人股股票管理系统统开发完毕。经经初步的调试试基本正常，并并且收到了预预期的效果。其其功能基本符符合用户需求求，能够完成成个人资金的的录入与修改改，股票随心心的买入，股股票卖出历史史的查询，以以及各类相关关报表的打印印，并

45、提供部部分系统维护护功能,使用户方便便进行数据备备份和恢复、数数据删除。通过本次毕业设设计使我增加加了设计经验验，体会了计计算机的优越越性掌握了VVisuall Basiic 6.00语言的使用用，增长了实实践经验。 但是由于毕毕业设计时间间较短，而且且我是第一次次编写较大的的应用程序，所所以该系统还还有许多不尽尽如人意的地地方，这些都都有待进一步步改正。致谢紧张而有意义的的大学生活，随随着毕业设计计的基本完成成也迈入了最最后阶段。很很快我们就要要离开校园，进进入竞争激烈烈的社会，这这次的毕业设设计给我们提提供了一次很很好的锻炼机机会，为我们们进入社会打打下了坚实的的基础。在本次毕业设计计中，

46、我要特特别感谢指导导老师，老师师严谨的治学学态度、渊博博的知识和认认真负责的工工作态度都给给我留下了深深刻的印象，使使我受益匪浅浅。这次毕业业设计点点滴滴滴的成功，都都离不开指导导老师的精心心指导。在毕毕业设计过程程中，当我遇遇到困难时，老老师不断的鼓鼓励我、帮助助我，为我指指点迷津，让让我找到了解解决问题的思思路；当我松松弛泄气时老老师又给我们们敲响警钟，使使得我以更加加饱满的精神神状态继续完完成毕业设计计。 在即将结束大学学生活之际，我我衷心的感谢谢计算机系的的老师们。从从他们身上我我学到了许多多宝贵的知识识和做人的道道理。他们在在学业上对我我的悉心指导导，以及严谨谨细致的科研研态度，更令

47、令我受益终身身。最后，感谢所有有曾经给我理理解、关心与与帮助的朋友友们。主要参考文献1作者：美 Robinna.Reyyholdss.hearr 刊物名称：VVB 6.00和VB.NNET面向程程序设计出版社：清华大大学出版社 出版日期：20002.7版次： 1-11 开本ISBN： 77-50499-25677-52作者: 美美 Walllace WWang刊物名称：轻轻松学用VBB 6.0 出版社:电子工工业出版社出版日期:20002.5 版次： 1-11 开本ISBN： 77-50499-25677-53. 作者：明明月工作室刊物名称：VVB 6.00编程百例出版社：人民邮邮电出版社出版

48、日期：20001.5版次： 1-11 开本ISBN： 77-50499-25677-54. 作者：王王兴晶刊物名称：VVB6.0数数据库开发典典型实例出版社：电子工工业出版社出版日期：20002.9版次： 1-11 开本ISBN： 77-50499-25677-55. 作者：安安忠 佟志志臣刊物名称：管管理信息系统统实用教程出版社：中国铁铁道出版社出版日期：20002.9 版次： 1-11 开本ISBN： 77-50499-25677-56. 作者：周周正庆刊物名称：证证券市场导论论出版社：中国铁铁道出版社出版日期：20000-066-01 版次： 1-11 开本ISBN： 77-50499-

49、25677-57. 作者：龙龙光臣 马钧钧 祁春波刊物名称：证证券发行上市市理论与实务务出版社：中国科科技出版社出版日期：20001-066-01 版次： 1-11 开本 ISSBN： 77-50499-25677-5附录 程序清单单及注释设计过程中模块块和整个设计计都进行了测测试并实现功功能。如下代代码只是部分分编译，仅做做为参考。l 登陆功能的部分分代码如下：Public dbs AAs DattabaseePublic rec AAs ReccordseetPublic czy AAs StrringPublic filenname AAs StrringPrivatee Sub chk

50、mmm_Clicck() If chhkmm.VValue = 1 TThen zcfform.HHeightt = 35550 xmmmlb.Viisiblee = Trrue qrmmmlb.VVisiblle = TTrue xmmmtxt.VVisiblle = TTrue qrmmmtxt.Visibble = True CmddOK.Moove 2440, 28800 CmddNO.Moove 27760, 22800 Else xmmmlb.Viisiblee = Faalse qrmmmlb.VVisiblle = FFalse xmmmtxt.VVisiblle = FFal

51、se qrmmmtxt.Visibble = Falsee CmddOK.Moove 2440, 17760 CmddNO.Moove 27760, 11760 zcfform.HHeightt = 25550End IfEnd SubbPrivatee Sub cmbnaame_Chhange() r = MsgBoox(非法法用户,拒绝绝操作！, 0 + 16, 个人股票管管理) EndEnd SubbPrivatee Sub Cmd_CClick() MonthVView.VVisiblle = TTrueEnd SubbPrivatee Sub CmdOKK_Clicck()czy =

52、 ccmbnamme.Texxtfilenamme = AApp.Paath & 股票.mdbSet dbss = OppenDattabasee(fileename)Set recc = dbbs.OpeenRecoordsett(操作员员) If cchkmm.Valuee = 1 Then If cmmbnamee.Textt = Thenn r = MsgBBox(操操作员没选！拒绝访问, 0 + 16, 个人股票票管理) Exiit Subb Endd If rec.MoveFFirst Do Whilee Not rec.EEOF If reec.Fieelds(姓名) = cmb

53、bname.Text Then LLet mmm = Trrim(reec.Fieelds(密码) End IIf rec.MMoveNeext Looop Iff Trimm(txtmmm.Texxt) = mm Thhen If xxmmtxtt.Textt qqrmmtxxt.Texxt Theen r = MMsgBoxx(新密码码不一致，请请重填！, 0 + 16, 个人股票管管理) xmmtxxt.Texxt = qrmmttxt.Teext = xmmtxxt.Texxt = Elsee rec.IIndex = PrrimaryyKey rec.SSeek =, ccmbnam

54、me.Texxt rec.eedit rec.FFieldss(1) = xmmttxt.Teext rec.UUpdatee r = MMsgBoxx(密码修修改成功！, 0 + 64, 个人股票票管理) Unloaad Me jm.Shhow frmguu.Showw Unloaad frmmgu Ennd If Elsse r = MsgBBox(旧旧密码出错！拒绝访问, 0 + 16, 个人股票票管理) txttmm.Teext = txttmm.SeetFocuus Exiit Subb Endd If Else If ccmbnamme.Texxt = Theen rr = Mss

55、gBox(操作员没没选！拒绝访访问, 00 + 166, 个人人股票管理) Exiit Subb End If rec.MoveFFirst Do Whilee Not rec.EEOF If reec.Fieelds(姓名) = cmbbname.Text Then LLet mmm = Trrim(reec.Fieelds(密码) End IIf rec.MMoveNeextLoopl 用户管理功能的的部分代码如如下：Public dbs AAs DattabaseePublic rec AAs ReccordseetSub savve() If txxtbh.TText = TThen EExit SSub filenname = App.Path & 股股票.mdbb