个人股票管理系统方案

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

2、以在应用程序或数据库开发的任何一个领域中提供帮助。现如今，应用VisualBasic软件编写的财务管理系统，生产计划管理系统，人事管理系统等等的软件很多。但是真正完全适用于个人股票管理方面的软件到现在依然没有解决。因此，基于以上原因，为了提高个人股票管理、降低个人工作量，我编写了适应于个人股票管理系统软件。本个人的股票管理系统主要用于实现个人的资金追加，赢利和亏损以及个人买入和卖出股票等。对个人的股票信息量进行统计，方便个人用户的管理，还可以打印资金单、买入和卖出的名称、数量买入价、卖出价，购买时间以及买出时间等。1章收支管理系统1.1股票管理系统的发展历史从1990年12月19日证券交易所正

3、式挂牌营业算起，我国证券市场从无到有，从小到大，已历经了10余年的发展。中国证券市场的发展和完善可以分为三个阶段：“奠基阶段”、“市场化阶段”和“国际化阶段”，在中国证券市场发展的第一个10年里，我们已经基本完成了“奠基阶段”。在这个阶段，我们以渐进式改革的方式，在中国高度集中的传统计划经济体系上构建了一个初具规模的证券市场，并为将来的市场化、国际化打下了基础。但在整个“奠基阶段”里，由于我们采用的一些方法手段带有明显的计划经济痕迹，从而直接导致我国证券市场现行的制度架构中带有较为浓厚的非市场特征，这与我国证券市场直接脱胎于高度集中的计划经济体制有关。但是，从长远发展来看，为了使我国的证券市场

4、更好地符合市场经济和证券市场的在规律，提高中国证券市场迎接国际化挑战的能力，我们需要在“奠基阶段”之后的“市场化阶段”过一系列的理念创新、制度创新和工具创新，大力推进中国证券市场的市场化水平，以消除过去形成的种种非市场化色彩，这一阶段大约要持续5年左右时间。只有在基本完成市场化进程之后，我们的证券市场将步入一条更为健康的发展道路，从而才能更好地进入“国际化阶段”。在这一阶段，我们证券市场将与国际资本市场充分接轨。只有完成了这一国际化进程之后，我们的证券市场才真正与世界市场融为一体，成为国际资本市场的有机组成部分。现在，伴随中国加入WTO组织法律程序的基本完成，我国证券市场的开放进程将大大提前，

5、这意味着我国证券市场的国际化进程将在市场化尚未完成的情况之下开始，这对我们而言意味着巨大的挑战。1.2股票管理系统的作用在当今的信息社会里，人门和股票越来越分不开了。而对股票信息的采集，和对资金管理工作更是我们每天自觉或不自觉地进行着的大量烦琐工作。股票管理系统则是一个个人不可缺少的部分，为了提高个人股票管理系统工作的准确度，降低劳动强度，减少人为手写错误，提高工作效率，根据单位实际工作需求，在调研了多位长期从事会计工作的老师傅以后，我使用VisualBasic6.0开发工具编写了这套可进行资金追加，资金修改（赢利及亏损），股票买入，股票买出，以及打印清单护等各功能的个人股票管理系统软件。以达

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

7、面中，并允许随时对任何一条交易记录进行修改、删除。支持单边印花税：可独立设置买入/卖出印花税率，从而可适应未来的单边印花税政策。盈利计算：提供股票盈利情况随股价变化的模拟计算功能。2.2功能需求描述通过对用户的需求分析，我们可分析出个人股票管理系统大致可分为四大模块：个人资金的修改、股票的买入、股票的卖出，税率，打印报表。下图说明五者的关系（1）个人资金修改的模块a、资金投入主要统计追加资金（即为投入的总资金），赢利金额和亏损金额b、购买股票总金额，股票当前市场和资金余额c、能修改，删除，保存所投入的资金、赢利和亏损金额。（2）股票买入信息的模块l、a:买入主要功能是：记录买入股票的代号、购买

8、价、费用、成本价、名称、当前价（市场价）、数量、购买时间、预测收益。B：卖出主要功能是：记录卖出股票的代号、购买价、费用、成本价、名称、卖出价、数量、购买时间、卖出时间，预测收益（亏损或赢利计算其中已经扣掉了手续费和印花税率）。C:修改主要功能是：修改买入股票的购买价、费用、成本价、名称、当前价、数量、购买时间。D:删除主要功能是：删除所购买的股票（主要是为了方便用户修改决定购买而没有购买的股票。）e:保存主要是为了修改做后盾的修改完用户所要修改的股票资料后，用户需要保存自己所做的决定，就靠它了。F：费率这个费率和2的费率是一样的，主要方便用户随时更改手续费和印花税率。G：资金这个资金和1的资

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

10、冗余。C：保存这主要是给增加做服务的，用户添加好自己的用户名和密码后，点击保存即可。D:撤消撤消上一次因为疏于考虑而做错的决定。（7）关于作者这里主要介绍了一下本软件是作者的毕业设计，关于作者的联系方式等。2.3模块开发环境的简介2.3.1VisualBasic6.0简介数据库技术产生于20世纪60年代末期。数据库开发工具从早期的Bbase、FoxBASE发展到现在的VisualBasic6.0，经历了巨大的革新，特别是面向对象可视化语言的出现，以其友好的工作界面、可视化的编程技术，为广大数据库开发人员提供了强有力的支持工具。VisualBasic6.0采用当今最为流行的面向对象程序设计技术及

11、可视化技术，以其卓越的数据库处理性能、良好的开发环境赢得了广大用户的喜爱。用户可以通过VisualBasic的开发环境方便地设计对数据库的结构、管理数据库，设计应用程序界面，设计查询、报表及菜单；利用项目管理器对数据库和程序进行管理，生成可执行文件，发布应用程序；等等。VisualBasic是目前微机上最为流行的关系数据库管理系统，利用VisualBasic6.0开发程序之快、功能之强大，不觉使人产生相见恨晚的感觉。23.2个人股票管理系统数据库设计数据库表名数据类型可否为空Mail文本是操作员文本否费率数字否个人购买记录数字是股票卖出记录数字是投入资金明细数字是资金数字否表2-1Mail表表

12、名数据类型可否为空ID自动编号是Mail文本是表2-2操作员表表名数据类型可否为空文本否密码文本是表2-3费率表表名数据类型可否为空ID自动编号否手续费数字否印花税率数字否表2-4个人购买记录表表名数据类型可否为空ID自动编号否代号文本否名称文本否买入价数字否费用数字否成本价数字否当前价数字否收益数字否数量数字否购买时间日期否表2-5卖出历史记录表表名数据类型可否为空ID自动编号否代号文本否名称文本否买入价数字否费用数字否成本价数字否卖出价数字否收益数字否数量数字否购买时间日期否卖出时间时间否表2-6投入资金明细表表名数据类型可否为空ID自动编号否方式文本否时间时间否资金量数字否表2-7资金表

13、表名数据类型可否为空资金投量数字否购股金额数字是股票市值数字否资金寸量数字否损益金额数字是表2-82.3.3系统平台的选择（1）软件环境本程序是在Windows操作平台上运行，利用VisualBasic6.0软件编写的应用程序。2）硬件环境CmdNO.Move2760,2800台CPU为80486/66MHZ以上的IBM及兼容微型计算机，一个鼠标，16MB以上存，VGA或更高档次的适配器。3章个人股票管理系统的具体功能实现3.1登陆界面此界面主要实现了用户登陆，需输入密码，确保了用户信息的安全性。另外还可以修改密码，修改密码需要输入旧密码，然后输入新密码，确定即可生效。默认用户名为：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、面是用户使用该软件的主要界面，能对资金进行修改，（包括资金追加，赢利和亏损统计），费率修改（包括手续费和印花税率），股票（包括股票买入主要功能是：A:记录买入股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时间、预测收益。B：卖出主要功能是：记录卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时间、卖出时间，预测收益（亏损或赢利计算其中已经扣掉了手续费和印花税率）。C：修改主要功能是：修改买入股票的购买价、费用、成本价、名称、当前价、数量、购买时间。D：删除主要功能是：删除所购买的股票（主要是为了方便用户修改决定购买而没有购买的股票Ee：保存主要是为了修改做后盾的修改完

16、用户所要修改的股票资料后，用户需要保存自己所做的决定，就靠它了。F：费率主要方便用户随时更改手续费和印花税率。G：资金方便用户查询所剩金额，以便于购买股票。另外还可以追加赢利和亏损金额。H：退出退出到主界面；股票卖出历史记录这里详细统计了用户卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时间、卖出时间以及收益）如图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=确认是否退出？IfMsgBox(strmsg,vbQuestion+vbOKCancel+vbDefaultButton1,个人股票管理)=vbOKThenCancel=FalseE

18、ndElseCancel=TrueEndIfCaselsfrmls.ShowCasedyForm2.ShowCaseyhuser.ShowvbModalEndSelectEndSub3.3资金管理包括资金追加，赢利和亏损统计，和查看资金所剩数额。如图3-3图3-3PrivateSubdel()Iftxtsj.Text=”ThenExitSubr=MsgBox(是否确认删除？(Y/N),1+64,个人股票管理)Ifr=1Thendbs.ExecuteDELETE*FROM_&投入资金明细WHEREID=&grid.TextMatrix(grid.Row,0)&dl.Refreshcountjef

19、rmgu.trzjhjtrzjshowzjSbr.Panels（1）.Text=当前资金投入总额：&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=股票当前市值：&reczj.Fields（”股票市值）&元gpyy.Caption=当前损益：&sy&元zjxc.Caption=资金余额：&reczj.Fields（”资金存量）&元Ifreczj.Fields（”资金存量）=0ThenSbr.Panels(l).Text=当前资金余额：&reczj.Fields(”资金存量)&II二n元ElseSbr.Panels(l).Text=当前需要补充资金额：&reczj.Fields(”资金存量)&元EndIfEndSub3.4费率设

21、置主要是手续费和印花税率，能修改和确定取消。如图3-4图3-4PrivateSubCmdNO_Click()UnloadMeEndSubPrivateSubCmdOK_Click()dbs.ExecuteUPDATE费率SET手续费率=&txtsx.Text&，印花税率=&txtyh.Text&;&txtsx.Enabled=Falsetxtyh.Enabled=FalseUnloadMeEndSubPrivateSubForm_Load()filename=App.Path&股票.mdbSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset

22、(费率)txtsx.Text=rec.Fields(l)txtyh.Text=rec.Fields(2)txtsx.Enabled=Falsetxtyh.Enabled=Falsefrmfl.Left=3500frmfl.Top=1000EndSub3.5个人购买记录主要功能是：记录买入股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时间、预测收益。如图3-5图3-5PublicSubjs()filename=App.Path&股票.mdbd1.DatabaseName=filenameSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecor

23、dset(费率)fl=Val(rec.Fields(1)+Val(rec.Fields(2)dbs.ExecuteUPDATE个股购买记录SET费用=买入价*&fl&,成本价=买入价+费用,收益=(当前价-成本价)*数量;_&Setrec=NothingEndSubPrivateSubTlbar_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseAddaddCaseSavesaveCaseflfrmfl.Showd1.RefreshCaseDel删除Iftxt(0).Text=ThenExitSubr=Msg

24、Box(是否确认删除【&txt(4).Text&】？(Y/N),vbQuestion+vbOKCancel+vbDefaultButton1,个人股票管理)Ifr=1Thendbs.ExecuteDELETE*FROM&个股购买记录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卖出历史记录这里详细统计了用户卖出股票的代号、购买价、费用

26、、成本价、名称、当前价、数量、购买时间、卖出时间以及收益。如图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(你输入的数量超过该股票的现存量！，0+16,个人股票管理)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（个股购买记录）hj=0gpzj=0DoWhileNotrec.EOFhj=hj+rec.Fields（当前价）*rec.Fields（数量）gpzj=gpzj+rec.Fields（”买入价）*rec.Fields（”数量）rec.M

29、oveNextLoopEndSub3.7用户管理A:增加这里方便了多用户使用同意软件的功能。能添加自己的用户名和有一个数于自己的密码。B:删除当感觉自己的用户不需要了的时候，用户可以把其删除了，减少冗余。C：保存这主要是给增加做服务的，用户添加好自己的用户名和密码后，点击保存即可。D:撤消撤消上一次因为疏于考虑而做错的决定。如图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(是否确认删除？(Y/N),1+64,个人股票管理)Ifr=1Thendbs.ExecuteDELETE*FROM_&操作员WHERE=&lstname.Text&txtbh.Text=lstname.RemoveItemlstname.ListIndextxtmc.Text=EndIfCaseExitUnloadMeEndSelectEndSubPrivateSubtxtmc_Change()CmdOK.Enabled=TrueTlbar.Buttons(4).Enabled=TrueEndSub3.8关于作者这里主要介绍了一下本软件是作者的毕业设计，关于作者的联系方式

34、等。如图3-8个人月殳票管理系统瞪票个人管理茅统,是股票管理的好帮手，可巫虺標供盼票的收益分析和管理好个人的盼票和協金帐.户.制作人：段洁指导老师二極吉荣敬勰專翳汙有不足之如ES3图3-8PrivateSubCmdOK_Click()UnloadMeEndSub3.9打印为了方便用户对平时购买和卖出股票的管理，这里的打印为用户提供了资金、卖出记录，买入记录的打印。方便了用户以后对前一段时间股票信息的回顾和总结。如图3-9图3-9PrivateSubCommandl_Click()DataReportl.ShowEndSubPrivateSubCommand2_Click()DataReport

35、3.ShowEndSubPrivateSubCommand3_Click()DataReport4.ShowEndSubPrivateSubCommand5_Click()DataReport2.ShowEndSub3.10退出界面如图3-10图3-10结束语经过我个人的努力以及老师的指导下，基本上该系统能为个人股票管理提供了很大的帮助。但是系统还有很多不足之处，希望大家批评指导，而且本人的能力有限，难免系统不是很全面。但我相信在以后的日子里，它会慢慢变的更加全面，更加实用，希望老师能给我指出更多的不足之处，以便于我改进此系统，也能使我的能力得到提高。在代码中还有很多需要改进的，由于能力有限，

36、不能更进一步改进和完善。还有很多问题，需要在大家的一起努力下，才会得到解决。在以后的日子里，我会更加努力作出更多的软件，并且使得这些软件更加实用和完善，力求更上一层楼。经过这些日子的努力，个人股票管理系统开发完毕。经初步的调试基本正常，并且收到了预期的效果。其功能基本符合用户需求，能够完成个人资金的录入与修改，股票随心的买入，股票卖出历史的查询，以及各类相关报表的打印，并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。通过本次毕业设计使我增加了设计经验，体会了计算机的优越性掌握了VisualBasic6.0语言的使用，增长了实践经验。但是由于毕业设计时间较短，而且我是第一次编写较

37、大的应用程序，所以该系统还有许多不尽如人意的地方，这些都有待进一步改正。致紧而有意义的大学生活，随着毕业设计的基本完成也迈入了最后阶段。很快我们就要离开校园，进入竞争激烈的社会，这次的毕业设计给我们提供了一次很好的锻炼机会，为我们进入社会打下了坚实的基础。在本次毕业设计中，我要特别感指导老师，老师严谨的治学态度、渊博的知识和认真负责的工作态度都给我留下了深刻的印象，使我受益匪浅。这次毕业设计点点滴滴的成功，都离不开指导老师的精心指导。在毕业设计过程中，当我遇到困难时，老师不断的鼓励我、帮助我，为我指点迷津，让我找到了解决问题的思路；当我松弛泄气时老师又给我们敲响警钟，使得我以更加饱满的精神状态

38、继续完成毕业设计。在即将结束大学生活之际，我衷心的感计算机系的老师们。从他们身上我学到了许多宝贵的知识和做人的道理。他们在学业上对我的悉心指导，以及严谨细致的科研态度，更令我受益终身。最后，感所有曾经给我理解、关心与帮助的朋友们。主要参考文献1作者：美Robina.Reyholds.hear刊物名称：VB6.0和VB.NET面向程序设计：清华大学出版日期：2002.7版次：1-1开本ISBN：7-5049-2567-52作者:美WallaceWang刊物名称：轻松学用VB6.0:电子工业出版日期:2002.5版次：1-1开本ISBN：7-5049-2567-5作者：明月工作室刊物名称：VB6.

39、0编程百例：人民邮电出版日期：2001.5版次：1-1开本ISBN：7-5049-2567-5作者：王兴晶刊物名称：VB6.0数据库开发典型实例：电子工业出版日期：2002.9版次：1-1开本ISBN：7-5049-2567-5作者：安忠佟志臣刊物名称：管理信息系统实用教程：中国铁道出版日期：2002.9版次：1-1开本ISBN：7-5049-2567-5作者：周正庆刊物名称：证券市场导论：中国铁道出版日期：2000-06-01版次：1-1开本ISBN：7-5049-2567-5作者：龙光臣马钧祁春波刊物名称：证券发行上市理论与实务：中国科技出版日期：2001-06-01版次：1-1开本ISB

40、N：7-5049-2567-5附录程序清单及注释设计过程中模块和整个设计都进行了测试并实现功能。如下代码只是部分编译，仅做为参考。登陆功能的部分代码如下：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()个人股票管理)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个人股票管理)r=MsgBox(操作员没选！拒绝访问，0+16,ExitSubEndIfrec.MoveFirstDoWhileNotrec.EOFIfrec.Fields()=cmbname.TextThenLetmm=Trim(rec.Fields(”密码)EndIfrec.MoveNe

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

44、x（旧密码出错！拒绝访问，0+16,个人股票管理）txtmm.Text=txtmm.SetFocusExitSubEndIfElseIfcmbname.Text=Thenr=MsgBox（操作员没选！拒绝访问，0+16,个人股票管理）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个人股票管理)r=MsgBox(是否确认删除？(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=个人用户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(投入资金明细)Setzj=dbs.OpenRecordset(资金)Setrecls=dbs.OpenRecordset(股票卖出历史)IfRight(sales

51、tone.txtsl.Text,1)0OrRight(salestone.txtsl.Text,2)0OrVal(salestone.txtsl)=0Thenr=MsgBox(你输入的数量必须为一手及100的倍数！，0+16,个人股票管理)txtsl.Text=ExitSubEndIfr=MsgBox(是否确认卖出【&txt(4).Text&】+Chr(13)+损益金额:&txt(7).Text&(Y/N)？,vbQuestion+vbOKCancel+vbDefaultButton1,个人股票管理)Ifr=1Thensqlupdate=update个股购买记录_&set数量=数量-&txts

52、l.Text&_&WHEREID=&frmgu.grid.TextMatrix(frmgu.grid.Row,0)&;dbs.ExecutesqlupdateIfVal(txtsl.Text)=Val(frmgu.txt(6).Text)Thendbs.ExecuteDELETE*from个股购买记录_&WHEREID=&frmgu.grid.TextMatrix(frmgu.grid.Row,0)&;EndIfIfVal(txt(7).Text)0Thenreczj.AddNewreczj.Fields(”时间)=txt(8).TextIfVal(txt(7).Text)Val(frmgu.

53、txt(6).Text)Thenr=MsgBox(你输入的数量超过该股票的现存量！，0+16,个人股票管理)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（个股购买记录）hj=0gpzj=0DoWhileNotrec.EOFhj=hj+rec.Fields（当前价）*rec.Fields（数量）gpzj=gpzj+rec.Fields（”买入价）*rec.Fields（”数量）rec.MoveNextLoopEndSub个人购买模块功能的部分代码如下：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(个股购买记录)d1.DatabaseName=filenamejsjsjsd1.RecordSource=select*from个股购买记录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,费率,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=当前个股市价总计：trzjhjEndSubExit&hj&元PublicSubjs()filename=App.Path&股票.mdbd1.DatabaseName=filenameSetdbs=OpenDatabase(filename)Setrec=dbs.OpenRecordset(费率)fl=Val(rec.Fields(1)+Val

60、(rec.Fields(2)dbs.ExecuteUPDATE个股购买记录SET费用=买入价*&fl&，成本价=买入价+费用,收益=(当前价-成本价)*数量;_&Setrec=NothingEndSub保存PrivateSubsave()d1.DatabaseName=filenameSetrec=dbs.OpenRecordset(个股购买记录)Iftxt(0).Text=Ortxt(1).Text=Ortxt(4).Text=&_Ortxt(5).Text=Ortxt(6).Text=&_Ortxt(8).Text=Then个人股票管理)r=MsgBox(数据不全，保存非法，0+16,Ex