《个人股票管理系统.docx》由会员分享，可在线阅读，更多相关《个人股票管理系统.docx（48页珍藏版）》请在三一办公上搜索。
1、 47 前言随着计算机科学技术的突飞猛进，此种方法存在的工作量大、准确率低、管理难度大、使用不方便等问题越来越严重地暴露出来。作为计算机应用的一部分,使用计算机对个人的股票信息进行管理,有着手工管理所无法比拟的优点.特别是现在大家都比较喜欢在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个人股票管理系统功能需求简介 个人股票管理是一套功能完善的股票管理软件，可帮助您方便地管理自己的股票帐户，其界面友好，操作简便，除具备基本的交易记录功能外，更提供多种统计功能，供您准确地把握自己的帐户情况，以便科学地制定操作策略.1. 支持多帐户：适合于多人使用同一台计算机或一人拥有多个帐户。每个帐户均可设置密码及独立的佣金收取标准。2. 支持子帐户：适合于多人使用同一帐户。每个子帐户均有独立的交易记录及帐户统计。3.界面简洁：采用 Windows 资源管理器与 Microsoft Exce
7、l 相结合的界面风格，简洁、直观。4.操作简便：将股票交易及资金存取数据的录入统一在同一个操作界面中，并允许随时对任何一条交易记录进行修改、删除。5.支持单边印花税：可独立设置买入/卖出印花税率，从而可适应未来的单边印花税政策。6.盈利计算：提供股票盈利情况随股价变化的模拟计算功能。2.2功能需求描述通过对用户的需求分析，我们可分析出个人股票管理系统大致可分为四大模块：个人资金的修改、股票的买入、股票的卖出，税率，打印报表。下图说明五者的关系个人股票管理系统输入密码 费率 关于作者 打印报表个人资金的修改买入股票的信息卖出股票的历史记录费率 (1) 个人资金修改的模块 a、资金投入 主要统计追
8、加资金（即为投入的总资金），赢利金额和亏损金额 b、购买股票总金额，股票当前市场和资金帐户余额c、能修改，删除，保存所投入的资金、赢利和亏损金额。(2)股票买入信息的模块1、 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年代末期。数据库开发工具从早期的Bbas
11、e、FoxBASE发展到现在的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软件编写的应用程序。（2） 硬件环境一台CPU为80486/66MHZ以上的IBM及兼容微型计算
14、机，一个鼠标，16MB以上内存，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
15、240, 2800 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：资金方便用户查询所剩金额，以便于购买股票。另外还可以追加赢利和亏损
17、金额。H：退出 退出到主界面；股票卖出历史记录 这里详细统计了用户卖出股票的代号、购买价、费用、成本价、名称、当前价、数量、购买时间、卖出时间以及收益）如图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 MS
18、ComctlLib.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 I
19、f Case 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.
20、Row, 0) & 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 re
21、czj = 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(
22、1).Text = 当前资金余额： & 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 & ; _
23、& txtsx.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 frmf
24、l.Top = 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 费用 = 买入价* &
25、 fl & , 成本价 = 买入价+费用, 收益 = (当前价-成本价)*数量; _ & 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), v
26、bQuestion + 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
27、= False 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.
28、UpdateEnd 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).Te
29、xt = 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(filena
30、me)Set 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 h
31、j = 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()s
32、aveEnd 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.M
34、oveNextLoop 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 = Tr
35、uetxtbh.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 =
36、1 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 SubPrivate
38、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编程百例出版社：人民邮电出版社出版日期：20
42、01.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. 作者：龙光臣 马钧 祁春波刊物名称：证券发行上市理论与实务出版社：中国科技出版社出版日期：2001-06-01 版次： 1-1 开本 ISBN： 7-5049-2567-5附录 程序清单及注释设计过程中模块和整个设计都进行了测试并实现功能。如下代码只是部分编译，仅做为参考。l 登陆功能的
