个人股票管理系统

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

2、理数据所需的工具，能够在应用程序或数据库开发的任何一个领域中提供关心。现现在，应用Visual Basic软件编写的财务治理系统，生产打算治理系统，人事治理系统等等的软件专门多。然而真正完全适用于个人股票治理方面的软件到现在依旧没有解决。因此，基于以上缘故，为了提高个人股票治理、降低个人工作量，我编写了适应于个人股票治理系统软件。本个人的股票治理系统要紧用于实现个人的资金追加，赢利和亏损以及个人买入和卖出股票等。对个人的股票信息量进行统计，方便个人用户的治理，还能够打印资金单、买入和卖出的名称、数量买入价、卖出价，购买时刻以及买出时刻等。1章收支治理系统1.1股票治理系统的进展历史 从1990

3、年12月19日上海证券交易所正式挂牌营业算起，我国证券市场从无到有，从小到大，已历经了10余年的进展。中国证券市场的进展和完善能够分为三个时期：“奠基时期”、“市场化时期”和“国际化时期”，在中国证券市场进展的第一个10年里，我们差不多差不多完成了“奠基时期”。在那个时期，我们以渐进式改革的方式，在中国高度集中的传统打算经济体系上构建了一个初具规模的证券市场，并为今后的市场化、国际化打下了基础。但在整个“奠基时期”里，由于我们采纳的一些方法手段带有明显的打算经济痕迹，从而直接导致我国证券市场现行的制度架构中带有较为浓厚的非市场特征，这与我国证券市场直接脱胎于高度集中的打算经济体制有关。然而，从

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

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

6、以及打印清单护等各功能的个人股票治理系统软件。以达到提高个人股票治理效率的目的。2个人收支治理系统分析与设计2.1个人股票治理系统功能需求简介 个人股票治理是一套功能完善的股票治理软件，可关心您方便地治理自己的股票帐户，其界面友好，操作简便，除具备差不多的交易记录功能外，更提供多种统计功能，供您准确地把握自己的帐户情况，以便科学地制定操作策略.支持多帐户：适合于多人使用同一台计算机或一人拥有多个帐户。每个帐户均可设置密码及独立的佣金收取标准。支持子帐户：适合于多人使用同一帐户。每个子帐户均有独立的交易记录及帐户统计。3.界面简洁：采纳 Windows 资源治理器与 Microsoft Exce

7、l 相结合的界面风格，简洁、直观。4.操作简便：将股票交易及资金存取数据的录入统一在同一个操作界面中，并同意随时对任何一条交易记录进行修改、删除。5.支持单边印花税：可独立设置买入/卖出印花税率，从而可适应以后的单边印花税政策。6.盈利计算：提供股票盈利情况随股价变化的模拟计算功能。2.2功能需求描述通过对用户的需求分析，我们可分析出个人股票治理系统大致可分为四大模块：个人资金的修改、股票的买入、股票的卖出，税率，打印报表。下图讲明五者的关系个人股票治理系统个人股票治理系统输入密码输入密码 买入股票的信息 买入股票的信息(1) 个人资金修改的模块 a、资金投入 要紧统计追加资金（即为投入的总资

8、金），赢利金额和亏损金额 b、购买股票总金额，股票当前市场和资金帐户余额c、能修改，删除，保存所投入的资金、赢利和亏损金额。(2)股票买入信息的模块a：买入 要紧功能是：记录买入股票的代号、购买价、费用、成本价、名称、当前价(市场价)、数量、购买时刻、预测收益。B：卖出 要紧功能是：记录卖出股票的代号、购买价、费用、成本价、名称、卖出价、数量、购买时刻、卖出时刻，预测收益（亏损或赢利计算 其中差不多扣掉了手续费和印花税率）。C：修改 要紧功能是：修改买入股票的购买价、费用、成本价、名称、当前价、数量、购买时刻。D：删除 要紧功能是：删除所购买的股票（要紧是为了方便用户修改决定购买而没有购买的股

9、票。）e：保存 要紧是为了修改做后盾的 修改完用户所要修改的股票资料后，用户需要保存自己所做的决定，就靠它了。F：费率 那个费率和2的费率是一样的，要紧方便用户随时更改手续费和印花税率。G：资金 那个资金和1的资金是一样的，方便用户查询所剩金额，以便于购买股票。另外还能够追加赢利和亏损金额。H：退出 退出到主界面。 (3)股票卖出历史模块那个地点详细统计了用户卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时刻、卖出时刻以及收益。(4)税率要紧是手续费和印花税率，能修改和确定取消。（5）打印模块为了方便用户对平常购买和卖出股票的治理，那个地点的打印为用户提供了资金、卖出记录，买入

10、记录的打印。方便了用户以后对前一段时刻股票信息的回忆和总结。（6）用户治理 a：增加 那个地点方便了多用户使用同意软件的功能。能添加自己的用户名和有一个属于自己的密码。B：删除 当感受自己的用户不需要了的时候，用户能够把其删除了，减少冗余。C：保存 这要紧是给增加做服务的，用户添加好自己的用户名和密码后，点击保存即可。D：撤消 撤消上一次因为疏于考虑而做错的决定。（7）关于作者 那个地点要紧介绍了一下本软件是作者的毕业设计，关于作者的联系方式等。2.3模块开发环境的简介2.3.1 Visual Basic 6.0简介数据库技术产生于20世纪60年代末期。数据库开发工具从早期的Bbase、Fox

11、BASE进展到现在的Visual Basic 6.0，经历了巨大的革新, 特不是面向对象可视化语言的出现，以其友好的工作界面、可视化的编程技术，为宽敞数据库开发人员提供了强有力的支持工具。Visual Basic 6.0采纳当今最为流行的面向对象程序设计技术及可视化技术，以其卓越的数据库处理性能、良好的开发环境赢得了宽敞用户的喜爱。用户能够通过 Visual Basic的开发环境方便地设计对数据库的结构、治理数据库，设计应用程序界面，设计查询、报表及菜单；利用项目治理器对数据库和程序进行治理，生成可执行文件，公布应用程序；等等。Visual Basic是目前微机上最为流行的关系数据库治理系统，

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

13、日期否表2-5卖出历史记录表表名数据类型可否为空ID自动编号否代号 文本否名称文本否买入价数字否费用数字否成本价数字否卖出价数字否收益数字否数量数字否购买时刻日期否卖出时刻时刻否表2-6投入资金明细表表名数据类型可否为空ID自动编号否方式文本否时刻时刻否资金量数字否表2-7资金表表名数据类型可否为空资金投量数字否购股金额数字是股票市值数字否资金寸量数字否损益金额数字是表2-82.3.3系统平台的选择（1）软件环境本程序是在Windows 操作平台上运行，利用Visual Basic 6.0软件编写的应用程序。硬件环境一台CPU为80486/66MHZ以上的IBM及兼容微型计算机，一个鼠标，16

14、MB以上内存，VGA或更高档次的适配器。3章 个人股票治理系统的具体功能实现3.1登陆界面 此界面要紧实现了用户登陆，需输入密码，确保了用户信息的安全性。另外还能够修改密码，修改密码需要输入旧密码，然后输入新密码，确定即可生效。默认用户名为：admin ；密码为：admin。如图3-1 图3-1Ifchkmm.Value = 1 Then zcform.Height = 3550 xmmlb.Visible = True qrmmlb.Visible = True xmmtxt.Visible = True qrmmtxt.Visible = True CmdOK.Move 240, 2800

15、 CmdNO.Move 2760, 2800Else xmmlb.Visible = False qrmmlb.Visible = False xmmtxt.Visible = False qrmmtxt.Visible = False CmdOK.Move 240, 1760 CmdNO.Move 2760, 1760 zcform.Height = 25503.2使用界面 该界面是用户使用该软件的要紧界面，能对资金进行修改，（包括资金追加，赢利和亏损统计），费率修改（包括手续费和印花税率），股票（包括股票买入 要紧功能是：A：记录买入股票的代号、购买价、费用、成本价、名称、当前价、数量、购

16、买时刻、预测收益。B：卖出 要紧功能是：记录卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时刻、卖出时刻，预测收益（亏损或赢利计算 其中差不多扣掉了手续费和印花税率）。C：修改 要紧功能是：修改买入股票的购买价、费用、成本价、名称、当前价、数量、购买时刻。D：删除 要紧功能是：删除所购买的股票（要紧是为了方便用户修改决定购买而没有购买的股票。）e：保存 要紧是为了修改做后盾的 修改完用户所要修改的股票资料后，用户需要保存自己所做的决定，就靠它了。F：费率 要紧方便用户随时更改手续费和印花税率。G：资金方便用户查询所剩金额，以便于购买股票。另外还能够追加赢利和亏损金额。H：退出

17、退出到主界面；股票卖出历史记录 那个地点详细统计了用户卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时刻、卖出时刻以及收益）如图3-2 图3-2Private Sub about_Click()frmAbout.ShowEnd SubPrivate Sub fl_Click() frmfl.ShowEnd Sub Private Sub gp_Click() frmgu.ShowEnd Sub Private Sub ls_Click()frmls.ShowEnd SubPrivate Sub Tlbar_ButtonClick(ByVal Button As MSComctl

18、Lib.Button) Select Case Button.KeyCase fl frmfl.Show Case gg frmgu.Show Case jj frmzj.Show Case gy frmAbout.Show vbModal Case exit Dim strmsg As String strmsg = 确认是否退出？ If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, 个人股票治理) = vbOK Then Cancel = False End Else Cancel = True End If Case

19、 ls frmls.Show Case dy Form2.ShowCase yh user.Show vbModal End Select End Sub3.3资金治理 包括资金追加，赢利和亏损统计，和查看资金所剩数额。如图 3-3 图3-3Private Sub del() If txtsj.Text = Then Exit Sub r = MsgBox(是否确认删除？(Y/N), 1 + 64, 个人股票治理) If r = 1 Then dbs.Execute DELETE * FROM _ & 投入资金明细 WHERE ID= & grid.TextMatrix(grid.Row, 0

20、) & d1.Refresh countje frmgu.trzjhj trzj showzj Sbr.Panels(1).Text = 当前资金投入总额： & hjzj & 元 End If txtsj.Text = cmbfs.Text = txtje.Text = txtsj.Enabled = False cmbfs.Enabled = False txtje.Enabled = FalseEnd SubPrivate Sub showzj()If reczj.RecordCount = 0 Then Exit Sub frmgu.trzjhj countje Set reczj =

21、dbs.OpenRecordset(资金) lbtrje.Caption = 资金帐户投入总金额： & reczj.Fields(资金投量) & 元 gpje.Caption = 购买股票总金额： & reczj.Fields(购股金额) & 元 gpsz.Caption = 股票当前市值： & reczj.Fields(股票市值) & 元 gpyy.Caption = 帐户当前损益： & sy & 元 zjxc.Caption = 资金帐户余额： & reczj.Fields(资金存量) & 元 If reczj.Fields(资金存量) = 0 Then Sbr.Panels(1).Tex

22、t = 当前资金余额： & reczj.Fields(资金存量) & 元 Else Sbr.Panels(1).Text = 当前需要补充资金额： & reczj.Fields(资金存量) & 元 End IfEnd Sub3.4费率设置 要紧是手续费和印花税率，能修改和确定取消。如图 3-4 图3-4Private Sub CmdNO_Click() Unload MeEnd SubPrivate Sub CmdOK_Click() dbs.Execute UPDATE 费率 SET 手续费率 = & txtsx.Text & ,印花税率= & txtyh.Text & ; _ & txts

23、x.Enabled = False txtyh.Enabled = False Unload MeEnd SubPrivate Sub Form_Load() filename = App.Path & 股票.mdb Set dbs = OpenDatabase(filename) Set rec = dbs.OpenRecordset(费率) txtsx.Text = rec.Fields(1) txtyh.Text = rec.Fields(2) txtsx.Enabled = False txtyh.Enabled = False frmfl.Left = 3500 frmfl.Top

24、= 1000End Sub3.5个人购买记录要紧功能是：记录买入股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时刻、预测收益。如图3-5 图3-5Public Sub js()filename = App.Path & 股票.mdbd1.DatabaseName = filenameSet dbs = OpenDatabase(filename)Set rec = dbs.OpenRecordset(费率)fl = Val(rec.Fields(1) + Val(rec.Fields(2)dbs.Execute UPDATE 个股购买记录 SET 费用 = 买入价* & fl &

25、, 成本价 = 买入价+费用, 收益 = (当前价-成本价)*数量; _ & Set rec = NothingEnd SubPrivate Sub Tlbar_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case AddaddCase Save save Case flfrmfl.Show d1.Refresh Case Del 删除 If txt(0).Text = Then Exit Sub r = MsgBox(是否确认删除【 & txt(4).Text & 】？(Y/N), vbQuest

26、ion + vbOKCancel + vbDefaultButton1, 个人股票治理) If r = 1 Then dbs.Execute DELETE *FROM & 个股购买记录 WHERE ID= & grid.TextMatrix(grid.Row, 0) & d1.Refresh hjje trzjhj add End If Case Exit Unload Me Case mc sale Tlbar.Buttons(4).Enabled = False Tlbar.Buttons(5).Enabled = False Tlbar.Buttons(6).Enabled = Fals

27、e Tlbar.Buttons(7).Enabled = FalseCase Edit xg Case zj frmzj.ShowEnd Select End SubPublic Sub trzjhj()filename = App.Path & 股票.mdbSet dbs = OpenDatabase(filename)Set reczj = dbs.OpenRecordset(资金) reczj.edit reczj.Fields(股票市值) = hj reczj.Fields(购股金额) = gpzj reczj.Fields(损益金额) = hj - gpzj reczj.Update

28、End Sub36卖出历史记录 那个地点详细统计了用户卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时刻、卖出时刻以及收益。如图3.6 图3-6Private Subtxtsl_Change() If Val(salestone.txtsl.Text) Val(frmgu.txt(6).Text) Then r = MsgBox(你输入的数量超过该股票的现存量！, 0 + 16, 个人股票治理) txtsl.Text = Exit Sub End If txt(2).Text = (Val(txt(1) + Val(txt(5).Text) * fl txt(3).Text =

29、 Val(txt(1) + Val(txt(2).Text) txt(7).Text = (Val(txt(5).Text) - Val(txt(3).Text) * Val(txtsl.Text) If Val(txt(7).Text) = 0 Then txt(7).ForeColor = &HFF& Else Val (txt(7).Text) 0 txt(7).ForeColor = &HC000& End If End SubPublic Sub trzjhj()filename = App.Path & 股票.mdbSet dbs = OpenDatabase(filename)S

30、et reczj = dbs.OpenRecordset(资金) reczj.edit reczj.Fields(股票市值) = hj reczj.Fields(购股金额) = gpzj reczj.Fields(损益金额) = hj - gpzj reczj.UpdateEnd SubPrivate Sub hjje()filename = App.Path & 股票.mdbSet dbs = OpenDatabase(filename)Set rec = dbs.OpenRecordset(个股购买记录) hj = 0 gpzj = 0 Do While Not rec.EOF hj =

31、hj + rec.Fields(当前价) * rec.Fields(数量) gpzj = gpzj + rec.Fields(买入价) * rec.Fields(数量) rec.MoveNext LoopEnd Sub3.7用户治理 A：增加 那个地点方便了多用户使用同意软件的功能。能添加自己的用户名和有一个数于自己的密码。B：删除 当感受自己的用户不需要了的时候，用户能够把其删除了，减少冗余。C：保存 这要紧是给增加做服务的，用户添加好自己的用户名和密码后，点击保存即可。D：撤消 撤消上一次因为疏于考虑而做错的决定。如图3-7 图3-7Private Sub CmdOK_Click()sav

32、eEnd SubPrivate Sub Form_Load()CmdOK.Enabled = Falsetxtbh.Enabled = Falsetxtmc.Enabled = FalseTlbar.Buttons.add 1, Add, 增加, , AddTlbar.Buttons.add 2, Del, 删除, , DelTlbar.Buttons.add 3, , , tbrSeparatorTlbar.Buttons.add 4, Save, 保存, , SaveTlbar.Buttons.add 5, Undo, 撤消, , UndoTlbar.Buttons.add 6, , ,

33、tbrSeparatorTlbar.Buttons.add 7, Exit, 退出, , Exit Dim mNode, mnode1 As Node Dim i As Integer Dim sql As String filename = App.Path & 股票.mdb Set dbs = OpenDatabase(filename) Set rec = dbs.OpenRecordset(操作员) If rec.RecordCount = 0 Then Exit SubDo While Not rec.EOF lstname.AddItem rec.Fields(0) rec.Mov

34、eNextLoop Tlbar.Buttons(2).Enabled = False Tlbar.Buttons(3).Enabled = False Tlbar.Buttons(4).Enabled = FalseEnd SubPrivate Sub Tlbar_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.KeyCase Add Changed = FalseTlbar.Buttons(5).Enabled = Falsetxtbh.Enabled = True txtmc.Enabled = True

35、txtbh.Text = txtmc.Text = txtbh.SetFocus CmdOK.Enabled = FalseCase Undo txtbh.Text = txtmc.Text = Tlbar.Buttons(2).Enabled = False Tlbar.Buttons(3).Enabled = False Tlbar.Buttons(5).Enabled = FalseCase SaveTlbar.Buttons(2).Enabled = False save Case Delr = MsgBox(是否确认删除？(Y/N), 1 + 64, 个人股票治理)If r = 1

36、Then dbs.Execute DELETE * FROM _ & 操作员 WHERE 姓名 = & lstname.Text & txtbh.Text = lstname.RemoveItem lstname.ListIndex txtmc.Text = End If Case Exit Unload Me End SelectEnd SubPrivate Sub txtmc_Change() CmdOK.Enabled = True Tlbar.Buttons(4).Enabled = TrueEnd Sub3.8关于作者那个地点要紧介绍了一下本软件是作者的毕业设计，关于作者的联系方式等

37、。如图3-8图3-8Private Sub CmdOK_Click() Unload Me End Sub3.9打印为了方便用户对平常购买和卖出股票的治理，那个地点的打印为用户提供了资金、卖出记录，买入记录的打印。方便了用户以后对前一段时刻股票信息的回忆和总结。如图3-9 图3-9Private Sub Command1_Click()DataReport1.ShowEnd SubPrivate Sub Command2_Click()DataReport3.ShowEnd SubPrivate Sub Command3_Click()DataReport4.ShowEnd SubPrivat

38、e Sub Command5_Click()DataReport2.ShowEnd Sub3.10退出界面如图3-10图3-10结束语 通过我个人的努力以及老师的指导下，差不多上该系统能为个人股票治理提供了专门大的关心。然而系统还有专门多不足之处，希望大伙儿批判指导，而且本人的能力有限，难免系统不是专门全面。但我相信在以后的生活里，它会慢慢变的更加全面，更加有用，希望老师能给我指出更多的不足之处，以便于我改进此系统，也能使我的能力得到提高。在代码中还有专门多需要改进的，由于能力有限，不能更进一步改进和完善。还有专门多问题，需要在大伙儿的一起努力下，才会得到解决。在以后的生活里，我会更加努力作出

39、更多的软件，同时使得这些软件更加有用和完善，力求更上一层楼。通过这些生活的努力，个人股票治理系统开发完毕。经初步的调试差不多正常，同时收到了预期的效果。其功能差不多符合用户需求，能够完成个人资金的录入与修改，股票随心的买入，股票卖出历史的查询，以及各类相关报表的打印，并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。通过本次毕业设计使我增加了设计经验，体会了计算机的优越性掌握了Visual Basic 6.0语言的使用，增长了实践经验。 然而由于毕业设计时刻较短，而且我是第一次编写较大的应用程序，因此该系统还有许多不尽如人意的地点，这些都有待进一步改正。致谢紧张而有意义的大学生活

40、，随着毕业设计的差不多完成也迈入了最后时期。专门快我们就要离开校园，进入竞争激烈的社会，这次的毕业设计给我们提供了一次专门好的锻炼机会，为我们进入社会打下了坚实的基础。在本次毕业设计中，我要特不感谢指导老师，老师严谨的治学态度、渊博的知识和认真负责的工作态度都给我留下了深刻的印象，使我受益匪浅。这次毕业设计点点滴滴的成功，都离不开指导老师的精心指导。在毕业设计过程中，当我遇到困难时，老师不断的鼓舞我、关心我，为我指点迷津，让我找到了解决问题的思路；当我松弛泄气时老师又给我们敲响警钟，使得我以更加饱满的精神状态接着完成毕业设计。 在立即结束大学生活之际，我衷心的感谢计算机系的老师们。从他们身上我

41、学到了许多宝贵的知识和做人的道理。他们在学业上对我的悉心指导，以及严谨细致的科研态度，更令我受益终身。最后，感谢所有曾经给我理解、关怀与关心的朋友们。要紧参考文献1作者：美 Robina.Reyholds.hear 刊物名称：VB 6.0和VB.NET面向程序设计出版社：清华大学出版社 出版日期：2002.7版次： 1-1 开本ISBN： 7-5049-2567-52作者: 美 Wallace Wang刊物名称：轻松学用VB 6.0 出版社:电子工业出版社出版日期:2002.5 版次： 1-1 开本ISBN： 7-5049-2567-53. 作者：明月工作室刊物名称：VB 6.0编程百例出版社

42、：人民邮电出版社出版日期：2001.5版次： 1-1 开本ISBN： 7-5049-2567-54. 作者：王兴晶刊物名称：VB6.0数据库开发典型实例出版社：电子工业出版社出版日期：2002.9版次： 1-1 开本ISBN： 7-5049-2567-55. 作者：安忠 佟志臣刊物名称：治理信息系统有用教程出版社：中国铁道出版社出版日期：2002.9 版次： 1-1 开本ISBN： 7-5049-2567-56. 作者：周正庆刊物名称：证券市场导论出版社：中国铁道出版社出版日期：2000-06-01 版次： 1-1 开本ISBN： 7-5049-2567-57. 作者：龙光臣 马钧 祁春波刊物

43、名称：证券发行上市理论与实务出版社：中国科技出版社出版日期：2001-06-01 版次： 1-1 开本 ISBN： 7-5049-2567-5附录 程序清单及注释设计过程中模块和整个设计都进行了测试并实现功能。如下代码只是部分编译，仅做为参考。登陆功能的部分代码如下：Public dbs As DatabasePublic rec As RecordsetPublic czy As StringPublic filename As StringPrivate Sub chkmm_Click() If chkmm.Value = 1 Then zcform.Height = 3550 xmmlb

44、.Visible = True qrmmlb.Visible = True xmmtxt.Visible = True qrmmtxt.Visible = True CmdOK.Move 240, 2800 CmdNO.Move 2760, 2800 Else xmmlb.Visible = False qrmmlb.Visible = False xmmtxt.Visible = False qrmmtxt.Visible = False CmdOK.Move 240, 1760 CmdNO.Move 2760, 1760 zcform.Height = 2550End IfEnd SubP

45、rivate Sub cmbname_Change() r = MsgBox(非法用户,拒绝操作！, 0 + 16, 个人股票治理) EndEnd SubPrivate Sub Cmd_Click() MonthView.Visible = TrueEnd SubPrivate Sub CmdOK_Click()czy = cmbname.Textfilename = App.Path & 股票.mdbSet dbs = OpenDatabase(filename)Set rec = dbs.OpenRecordset(操作员) If chkmm.Value = 1 Then If cmbna

46、me.Text = Then r = MsgBox(操作员没选！拒绝访问, 0 + 16, 个人股票治理) Exit Sub End If rec.MoveFirst Do While Not rec.EOF If rec.Fields(姓名) = cmbname.Text Then Let mm = Trim(rec.Fields(密码) End If rec.MoveNext Loop If Trim(txtmm.Text) = mm Then If xmmtxt.Text qrmmtxt.Text Then r = MsgBox(新密码不一致，请重填！, 0 + 16, 个人股票治理)

47、xmmtxt.Text = qrmmtxt.Text = xmmtxt.Text = Else rec.Index = PrimaryKey rec.Seek =, cmbname.Text rec.edit rec.Fields(1) = xmmtxt.Text rec.Update r = MsgBox(密码修改成功！, 0 + 64, 个人股票治理) Unload Me jm.Show frmgu.Show Unload frmgu End If Else r = MsgBox(旧密码出错！拒绝访问, 0 + 16, 个人股票治理) txtmm.Text = txtmm.SetFocus

48、 Exit Sub End If Else If cmbname.Text = Then r = MsgBox(操作员没选！拒绝访问, 0 + 16, 个人股票治理) Exit Sub End If rec.MoveFirst Do While Not rec.EOF If rec.Fields(姓名) = cmbname.Text Then Let mm = Trim(rec.Fields(密码) End If rec.MoveNextLoop用户治理功能的部分代码如下：Public dbs As DatabasePublic rec As RecordsetSub save() If tx

49、tbh.Text = Then Exit Sub filename = App.Path & 股票.mdb Set dbs = OpenDatabase(filename) Set rec = dbs.OpenRecordset(操作员) rec.AddNew rec.Fields(0) = txtbh.Text rec.Fields(1) = txtmc.Text rec.Update lstname.AddItem txtbh.Text txtbh.Text = txtmc.Text = txtbh.SetFocusEnd Sub Set dbs = OpenDatabase(filena

50、me) Set rec = dbs.OpenRecordset(操作员) If rec.RecordCount = 0 Then Exit SubDo While Not rec.EOF lstname.AddItem rec.Fields(0) rec.MoveNextLoop Tlbar.Buttons(2).Enabled = False Tlbar.Buttons(3).Enabled = False Tlbar.Buttons(4).Enabled = FalseEnd SubPrivate Sub Tlbar_ButtonClick(ByVal Button As MSComctl

51、Lib.Button) Select Case Button.Key Case Add Changed = False Tlbar.Buttons(5).Enabled = False txtbh.Enabled = True txtmc.Enabled = True txtbh.Text = txtmc.Text = txtbh.SetFocus CmdOK.Enabled = False Case Undo txtbh.Text = txtmc.Text = Tlbar.Buttons(2).Enabled = False Tlbar.Buttons(3).Enabled = False

52、Tlbar.Buttons(5).Enabled = False Case Save Tlbar.Buttons(2).Enabled = False save Case Del r = MsgBox(是否确认删除？(Y/N), 1 + 64, 个人股票治理) If r = 1 Then dbs.Execute DELETE * FROM _ & 操作员 WHERE 姓名 = & lstname.Text & txtbh.Text = lstname.RemoveItem lstname.ListIndex txtmc.Text = End If Case Exit Unload Me End

53、 SelectEnd SubPrivate Sub txtmc_Change() CmdOK.Enabled = True Tlbar.Buttons(4).Enabled = TrueEnd SubPrivate Sub lstname_Click() If lstname.Text = 个人用户 Then Tlbar.Buttons(2).Enabled = False Else Tlbar.Buttons(2).Enabled = True End IfEnd Sub股票治理功能的部分代码如下：Public dbs As DatabasePublic rec As RecordsetPu

54、blic xg As BooleanPublic fl As DoublePublic filename As StringPublic reczj As RecordsetPublic hj As IntegerPublic gpzj As DoublePublic zj As RecordsetPrivate Sub CmdNO_Click() Unload Me frmgu.Tlbar.Buttons(4).Enabled = True frmgu.Tlbar.Buttons(5).Enabled = True frmgu.Tlbar.Buttons(6).Enabled = True

55、frmgu.Tlbar.Buttons(7).Enabled = TrueEnd SubPrivate Sub CmdOK_Click()txt(5).Text = Dim sqlupdate As StringDim recls As RecordsetSet reczj = dbs.OpenRecordset(投入资金明细)Set zj = dbs.OpenRecordset(资金)Set recls = dbs.OpenRecordset(股票卖出历史) If Right(salestone.txtsl.Text, 1) 0 Or Right(salestone.txtsl.Text,

56、2) 0 Or Val(salestone.txtsl) = 0 Then r = MsgBox(你输入的数量必须为一手及100的倍数！, 0 + 16, 个人股票治理) txtsl.Text = Exit Sub End If r = MsgBox(是否确认卖出【 & txt(4).Text & 】 + Chr(13) + 损益金额: & txt(7).Text & (Y/N)？, vbQuestion + vbOKCancel + vbDefaultButton1, 个人股票治理)If r = 1 Then sqlupdate = update 个股购买记录 _ & set 数量= 数量-

57、 & txtsl.Text & _ & WHERE ID = & frmgu.grid.TextMatrix(frmgu.grid.Row, 0) & ; dbs.Execute sqlupdate If Val(txtsl.Text) = Val(frmgu.txt(6).Text) Then dbs.Execute DELETE * from 个股购买记录 _ & WHERE ID = & frmgu.grid.TextMatrix(frmgu.grid.Row, 0) & ; End If If Val(txt(7).Text) 0 Then reczj.AddNew reczj.Fie

58、lds(时刻) = txt(8).Text If Val(txt(7).Text) Val(frmgu.txt(6).Text) Then r = MsgBox(你输入的数量超过该股票的现存量！, 0 + 16, 个人股票治理) txtsl.Text = Exit Sub End If txt(2).Text = (Val(txt(1) + Val(txt(5).Text) * fl txt(3).Text = Val(txt(1) + Val(txt(2).Text) txt(7).Text = (Val(txt(5).Text) - Val(txt(3).Text) * Val(txtsl

59、.Text) If Val(txt(7).Text) = 0 Then txt(7).ForeColor = &HFF& Else Val (txt(7).Text) 0 txt(7).ForeColor = &HC000& End If End SubPublic Sub trzjhj()filename = App.Path & 股票.mdbSet dbs = OpenDatabase(filename)Set reczj = dbs.OpenRecordset(资金) reczj.edit reczj.Fields(股票市值) = hj reczj.Fields(购股金额) = gpzj

60、 reczj.Fields(损益金额) = hj - gpzj reczj.UpdateEnd SubPrivate Sub hjje()filename = App.Path & 股票.mdbSet dbs = OpenDatabase(filename)Set rec = dbs.OpenRecordset(个股购买记录) hj = 0 gpzj = 0 Do While Not rec.EOF hj = hj + rec.Fields(当前价) * rec.Fields(数量) gpzj = gpzj + rec.Fields(买入价) * rec.Fields(数量) rec.Move