课程设计信息系统分析与设计

1、湖南商学院课程设计目 录1. 引言1.1项目来源 31.2任务目标 31.3应用价值 32. 项目规划2.1 项目资源 2.1.1硬件设备32.1.2软件环境42.1.3软件工具42.2项目进程 2.2.1 任务描述52.2.2进度安排 52.3项目可行性评估2.3.1技术可行性62.3.2计划可行性72.3.3应用可行性83. 系统需求分析3.1 业务需求3.1.1业务组织 83.1.2业务定义 83.1.3业务流程 93.2 功能需求3.2.1功能组成93.2.2功能定义103.3 数据需求3.3.1数据关系113.3.2静态数据定义113.4 其他需求 134. 系统结构设计4.1总体框

2、架 134.2 软件结构 4.2.1模块定义135. 系统详细设计5.1功能模块详细设计5.1.1 车次管理模块代码实现145.1.2 票价管理模块代码实现155.1.3 用户管理模块代码实现165.2数据库详细设计5.2.1 数据库环境配置175.2.2 表设计及其关系设置175.2.3 数据访问方式205.3 界面设计226.总结22附录：系统程序源代码24参考文献1. 引言1.1项目来源 随着时代的进步，社会的发展，人们的生活形式与习惯也越来越多样化，出行成为了人们生活中的一个重要组成部分，而汽车成为许多人出行选择的交通工具。面对巨大数量的乘客的购票需要，汽车站就要选择使用先进的管理方法

3、来实现方便、快捷的售票、退票等方面的票务管理。随着计算机的普及，信息处理量的逐渐扩大，手工处理方式远远不能满足人们管理活动的需要，各种工作都逐渐由手工转为自动化，使许多复杂、繁琐、且需要很多人力的工作变得简单。汽车站每天产生售票、退票等行为数量多，使得汽车站售票管理的数据量大，而且速度要求要快，传统的人力行为适应，计算机应用软件的使用则能很好地满足汽车站的这一需要，提高售票人员的工作效率，节约相关管理成本。1.2任务目标本系统的任务目标是：实现方便、快速售票；是用户准确了解售票情况，提供多种查询和统计功能；实现系统的安全性设置，使系统本身具备一定的维护功能。1.3应用价值通过本系统的应用来提高

4、售票人员的工作频率，节省售票所需时间。系统可利用数据库自身的数据连接等功能使用户能够实现不同条件的查询，避免过多的人力资源的利用而且可靠行高、成本低。2. 项目规划 2.1 项目资源2.1.1硬件设备 表1 系统运行的硬件要求硬件配置CPUPentium IV 1.8GHz输入设备键盘、鼠标硬盘20G内存512M显卡NVIDIA GeForce FX 5200显示器纯平彩显2.1.2软件环境表2 系统的开发环境及工具表开发环境/工具名称系统开发操作系统Windows server 2008系统开发数据库系统Access 2003系统编码设计与开发环境Visual Basic 6.0系统相应图表

5、绘制工具Word2.1.3软件工具 (1) Visual Basic 6.0中文版作为前台开发软件Visual Basic 6.0中文版功能强大，涉及很多方面。其中数据访问是Visual Basic 程序涉及中的重要内容，在Visual Basic 6.0中新增了很多功能。Visual Basic 6.0包括JET数据库引擎的最新版本（Visual Basic 与Microsoft Access 2003均有这种数据库引擎）。（2）Access 2003中文版作为后台数据库Access 2003提供真正的关系数据库管理。Access具有主关键字和外部关键字定义，并且在数据库的引擎级提供了完全的

6、引用完整性，可以避免不合理的更新与删除。Visual Basic 6.0与两者结合Visual Basic使用ADO数据访问技术存取Access数据库ActiveX.Exe.DLL数据窗体DHTML编码远端MicrosoftTransactionServer数据绑定DCOM,远端ADO数据集，远端UDTs类模块 ADO Recordset对象，ADO Data控件数据访问ADO，RDO，DAO可视化数据工具数据中间层客户端图1 Visual Basic 使用的数据库访问技术示意图2.2项目进程2.2.1 任务描述 策划阶段：搜集参考资料，整体进度安排，选定编程语言与数据库设计工具。 设计阶段：

7、软件模块设计，数据库定义与设计，代码编写。 测试阶段：系统整体调试、分析，相应代码修改。2.2.2进度安排 表 3 进度安排表进 度完成任务所需时间系统设计总体策划2008年1月系统资料搜集和整理2008年1月2008年2月上旬软件模块、数据库定义2008年2月中旬数据库设计2008年下旬软件代码设计2008年3月上旬2008年中旬软件代码测试2008年3月中旬2008年3月下旬系统确认及验收2008年4月上旬2.3项目可行性评估2.3.1技术可行性（1）Visual Basic编程语言特点面向对象的可视化编程在Visual Basic中，应用面向对象的程序设计方法（OOP）,把程序和数据“封

8、装”起来成为一个对象，每个对象都是可视的。开发人员只要按设计要求的屏幕布局，用系统提供的工具，直接在屏幕上“画”出窗口、命令按钮、文本框等不同类型的对象，并为每个对象赋予应有的属性，即可设计图形用户界面。时间驱动的编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序（称为“事件过程”）来响应。结构化的设计语言Visual Basic是在结构化的BASIC语言基础上发展起来的，加上面向对象的设计方法，因此是更出色的结构化程序设计语言。友好的VB集成开发环境Visual Basic提供了易学易用的应用程序集成开发环境。在该集成开发环境中，

9、用户可以设计界面、编写代码和调试程序。Visual Basic 6.0为数据库应用开发提供了丰富的数据库开发组件，使数据库应用开发功能更强大，控制更灵活，编译后的程序运行速度更快。（2）Access数据库技术Access是一种关系型数据库管理系统，其主要特点如下：存储对象单一Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb）的数据库文件里，便于用户的操作和管理。面向对象Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是一系列对象组成的，极大地简化了用户

10、的开发工作。同时，这种基于面对对象的开发方式，使得开发应用程序更为简便。界面友好、易操作Access是一个可视化工具，风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、窗体向导、报表向导等工具，使得操作简便、容易使用和掌握。集成环境、处理多种数据信息Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。Access支持ODBC利用Access强

11、大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、Word文档，还可以建立动态的数据库报表和窗体等。2.3.2计划可行性 虽然整个系统设计的时间有三个多月，但是整个系统设计涉及到的方面很多，包括后台数据库的设计与前台界面的设计与代码设计编写。这次选择的Visual Basic语言编程在之前并没有学习或接触过，所以对于整个计划的安排感觉时间不是很足够。2.3.3应用可行性 整个系统是使用Access 2003与Visual Basic 6.0设计完成的，但是汽车站售票管理系统要实现的是动态数据的管理。在选择的Visual Basic 6.0中无法实现该功能，

12、或者说在我掌握的只是范围内无法实现。还有Access对于汽车站售票系统的大量数据处理实现效果不理想，所以该系统的应用性不适合真正地被使用。3. 系统需求分析3.1 业务需求3.1.1业务组织使用该系统的主要是汽车站售票人员、汽车站售票工作的管理人员与系统管理员。该系统分为普用户和系统管理员两种权限登陆。汽车站的普通售票人员（普通用户）只能使用该系统的查询、售票管理等基本功能，汽车站售票人员、汽车站售票工作的管理人员能够修改自身的用户名和密码，系统管理员则能实现系统用户与普通用户的添加，修改普通用户与系统管理员的密码，以此确保该系统能够安全操作，避免不必要的损失。3.1.2业务定义用户通过输入不

13、同用户名和密码进行身份验证，系统通过用户名和密码判断不同用户的权限，从而确定该用户可以执行的操作。顶层数据流程图如下3.1.3业务流程 所谓业务流程就是用户在使用系统时的工作过程。对于多类型用户的系统来说，每一类用户的工作流程都是不同的。多用户系统的工作流程都是从用户登陆模块开始，对用户的身份进行认证。身份认证可以分为以下两个过程：（1）确认用户是否是有效的系统用户。（2）确定用户的类型。第一个过程决定用户是否进入系统。第二个过程根据用户的类型决定用户的操作权限，从而决定用户的工作界面。本系统的流程分析如图3。图1 系统流程图3.2 功能需求3.2.1功能组成在这个汽车站售票管理系统下设有五个

14、不同模块的功能：分别是车次管理、票价管理、票务管理、用户管理和查询管理。车次管理中实现车次信息的编辑。票价管理部分实现票价信息的录入、修改与删除以及票价折扣信息的录入、修改与删除。票务管理部分实现前台售票、前台退票功能。用户管理部分实现用户添加，用户信息修改与用户的删除。具体联系如图所示汽车站售票管理系统票务管理票价管理车次管理用户管理查询管理车次信息编辑票价信息录入票价信息修改票价信息删除前台售票前台退票用户信息添加票价信息修改票价信息删除车次信息查询票价信息查询图2 功能组成结构图3.2.2功能定义 （1）车次管理：车次详细信息的编辑。车次管理中的数据源为Access数据库中Car表，在此

15、管理部分中，能够使用界面操作实现车次信息的编辑，并将数据库中的数据按照编辑的要求来及时更新数据表中的相关数据。 （2）票价管理：票价详细信息的录入、修改、删除，它的数据源为Access数据库的Price表。在此管理部分中，通过票价管理（FrmPriceManage）界面来选择记录并决定执行何种操作，是修改、添加或删除。当命令为修改或者添加时则自动跳转到票价编辑窗体（FrmPriceEdit）实现票价信息的编辑并更新数据库中相应数据记录。 （3）折扣管理：针对不同车次的不同车票类型进行信息的录入、修改与删除，数据源为Access数据库的PriceDiscount表。此管理部分首先显示的为票价折扣

16、信息管理窗体（FrmDiscount），通过选择不同的命令按钮来执行相应的修改、添加或删除操作中一个，选择添加或修改则转至折扣信息编辑窗体（FrmDiscountEdit）执行命令并更新相应的数据记录。（4）用户管理：所有系统用户的管理，包括系统普通用户与系统管理员。此管理模块数据源为Access数据库的Users表。在系统主界面中首先进入的是名称为FrmUserMan的用户管理主窗体，选择添加或删除用户进入名为FrmUserEdit的用户编辑界面进行操作，操作完成便更新数据库数据。（5）查询管理：通过查询界面可以根据条件进行车次时刻、车次票价查询。3.3 数据需求3.3.1数据关系1111

17、11N1CarIDCarTypePlateNumberCarHolderRunningWaySeatLimitOutSetTimeTerminalIDOutStationTerminalNameTNPYCodeCarIDTicketPriceRecordNumberTicketTypeIDDiscountCarIDCarIDDateTerminalSellPricesnoTicketTypeIDRecordIDTicketType图3 实体关系图3.3.2静态数据定义表1 Car表详细设计字段名数据类型是否主键是否必填字段说明CarID文本是是车次编号CarType数字否否客车型号PlateN

18、umber文本否是车牌号CarHolder文本否否责任人RunningWay文本否否经营路线SeatLimit数字否是座位限额OutSetTime日期/时间否是发车时间表2 Seat表详细设计表6 PriceDiscount表详细设计字段名数据类型是否主键是否必填字段说明RecordNumber自动编号是是记录号TicketTypeID数字否是车票类型Discount数字否是折扣CarID文本否是车次表3 Price表详细设计表4 Type表详细设计字段名数据类型是否主键是否必填字段说明RecordID自动编号是是记录号TicketTypeID数字否是车票类型编号TicketType文本否是车

19、票类型3.4 其他需求汽车站售票系统数据库中的数据量十分庞大，而且更新速度十分快。在数据大小方面要求数据的属性要设置合理，假如是数据的属性值越大，则数据本身所占用的容量也就十分的庞大，有可能削弱系统运行速度，使得系统无法达到预期的目的。另外，在整个系统当中要确保数据在保存与传递过程中的安全，以免发生严重的错误，造成巨大的损失。4. 系统结构设计4.1总体框架系统工作模式为后台数据库前台操作界面系统用户的工作模式。系统用户通过前台操作界面从后台数据库中提取数据并进行有关数据的操作。图4 系统工作模式示意图后台数据库前台操作界面系统用户4.2 软件结构4.2.1模块定义 （1）车次管理模块 编辑车

20、次信息查看车次信息 （2）票价管理模块 添加票价信息修改票价信息查看票价信息 （3）折扣信息管理 添加折扣信息删除折扣信息查看折扣信息 （4）用户信息管理添加用户信息修改用户密码删除用户信息查看用户信息 （5）查询管理 票价查询车次查询5. 系统详细设计5.1功能模块详细设计5.1.1 车次管理模块代码实现Private Sub Cmd_OK_Click()'检查用户录入数据的有效性 txtCarID.SetFocus Exit Sub End If If Len(Trim(txtOutTime) = 0 Then MsgBox "请输入发车时间" txtOutTi

21、me.SetFocus Exit Sub End If '把用户录入的数据赋值到数据库对象变量中 With MyType .CarID = MakeStr(txtCarID) '车次编号 .OutSetTime = MakeStr(TimeEdit) '发车时间 .RunninWay = MakeStr(WayEdit) '经营路线 .CarType = MakeStr(TypeEdit) '车辆类型 .PlateNumber = MakeStr(CNnEdit) '车牌号 .CarHolder = MakeStr(HolderEdit) 

22、9;责任人 .SeatLimit = MakeStr(LSeatEdit) '额定座位 'End IfEnd With Unload Me '关闭窗口5.1.2 票价管理模块代码实现 票价管理部分代码如下（信息添加过程）：Private Sub Cmd_Add_Click() '初始化FrmDiscountEdit信息 FrmPriceEdit.txtTerminalName = "" FrmPriceEdit.txtTNPYCode = "" FrmPriceEdit.txtCarID = "" Fr

23、mPriceEdit.txtTicketPrice = "" FrmPriceEdit.Show RefreshDataEnd Sub5.1.3用户管路模块代码实现（编辑窗体代码）：Private Sub Cmd_OK_Click() If Trim(txtUserName) = "" Then MsgBox "请输入用户名" txtUserName.SetFocus Exit Sub End If End If If txtPass <> txtPass2 Then MsgBox "密码和确认密码不相同，请重新

24、确认" txtPass2.SelLength = Len(txtPass2) Exit Sub End If '判断是否存在同名用户 With MyUser If Modify = False Or OriUser <> Trim(txtUserName) Then If .In_DB(Trim(txtUserName) = True Then txtUserName.SelStart = 0 txtUserName.SelLength = Len(txtUserName) Exit Sub End If5.2数据库详细设计5.2.1 数据库环境配置此系统使用Ac

25、cess 2003中文版作为后台数据库，它对环境的要求并不大。用户可以在将其与其他一些Microsoft套装来一起进行安装，也可以将Access 2003中文版作为一个但单独的数据库软件类安装。5.2.2 表设计及其关系设置图5 表Car 结构图6 表Price结构图7 表PriceDiscount结构图8 表Type结构图 9 表 SelledTicket表结构图 10 表BackTicket表结构图 11 表Users结构图 13 表间结构示意图5.2.3 数据访问方式及其代码分析与说明 在本系统中Visual Basic使用ADO数据访问技术存取Access数据库。数据提供程序和使用者之

26、间的桥梁就是数据源，数据源是使用Microsoft ActiveX Data Objects(ADO)创建的，而Microsoft ActiveX Data Objects是Visual Basic在任何数据源中访问数据的主要方法。为了向后兼容和方便工程维护，它仍然支持远程数据对象（Remote Data Object,RDO）和数据访问对象（Data Access Objects,DAO）。在Visual B，数据访问对象（DAO）、ODBC直接连接到数据库。其中ADO是最新的数据库访问技术。它是使用更加简单，而又更加灵活的对象模型。对于新工程，应该使用ADO作为数据访问接口。为了节省系统资

27、源，在系统中新建一个模块，该模块用于连接各个模块中的数据表，从而避免在程序中大量运用ADO控件，给开发应用程序带来诸多不便。模块中的程序代码如下：Public adoCon As New ADODB.ConncetionPublic adors As New ADODB.Recordset'连接数据库Public Sub main() Set adoCon = New ADODB.Connection adoCon.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &

28、" 汽车站售票管理系统.mdb" & "Persist Security Info=False" FrmLogin.Show FrmLogin.txtUser.SetFocusEnd Sub 5.3 界面设计系统主界面设计如下，主界面顶端显示不同管理模块，点击则进入相应界面。下端显示系统当前所处日期和时间。图14 系统主界面设计6.总结 这次的课程设计对于我来说是一项很重大的任务，也是一次很大的挑战。首先，我选择的是做系统，要做好一个系统就必须要有前台和后台的不同区别。前台的界面我选择的是Visual Basic 6.0。这是我以前从来没有接触过

29、的语言，要做系统就要学习这一门语言。其次，做一个系统的整体设计以前从来没有过，这是第一次的尝试。 经过这一段的时间，我还是大概出了一个系统做，只是系统最终并没有编译成功，所以根本不能运行，这就说明我的系统设计是不成功的。虽然没有取得比较好的结果，但是我至少知道了系统设计的一些步骤与流程，也对Visual Basic语言有了一定的了解，这是我有收获的方面。回头仔细分析自己制作开发的系统很不完善,要实现汽车站的快速、方便的票务管理，用Access作为后台数据库是行不通的，本系统实现的功能也不够完善。而且，单独选用Visual Basic来设计前台的操作界面也不是一个理想的选择。使用Visual B

30、asic设计的界面功能不够强大，操作不是很方便，无法实现现实中的应用。 附录：系统程序源代码(1)登陆窗体（FrmLogin）代码Public PasswordKey As StringPublic NameKey As StringPublic Try_times As Integer'取消键退出登陆界面Private Sub Cmd_Cancel_Click()Unload MeEnd SubPrivate Sub Cmd_OK_Click() '数据库有效性检查If Trim(txtUser) = "" ThenEnd IfIf Trim(txtPwd

31、) = "" Then MsgBox "请输入密码" txtPwd.SetFocus Exit Sub End If PasswordKey = Str(txtPwd) '判断用户是否存在 If MyUser.In_DB(NameKey) = Flase Then MsgBox "用户名不存在"'判断密码是否正确 MyUser.GetINfo (NameKey) If MyUser.Pwd <> PasswordKey Then MsgBox "密码错误" Try_times = Try

32、_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End If '登陆成功，将当前用户的信息保存在CurUser中'关闭自己并显示主窗体 Unload Me FrmMain.ShowEnd Function（2）主窗体(FrmMain)代码'设置数据库连接字符串Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &

33、 " 汽车站售票管理系统.mdb " & "Presist Security Info=False"End SubPrivate Sub TPGL_Click() FrmBack.ShowEnd SubPrivate Sub XGMM_Click() If CurUser.User_type = 1 Then FrmUserMan.Show Else MsgBox "没有权限" End IfEnd SubPrivate Sub ZKGL_Click() FrmDiscount.ShowEnd Sub（3）售票窗体（FrmTic

34、ketSell）代码Private Sub Cmd_Cancel_Click() Unload MeEnd SubPrivate Sub Cmd_Search_Click() 'GridRsfresh '根据条件查询所有信息End SubPrivate Sub Cmd_Sell_Click() Dim ComboDate As String, TNPYCode As String, CarID As String Dim left As Integer TNPY = Trim(txtTNPYCode) Trim(ComboDate) & "'"

35、; & " and Price.TNPYCode='" & Trim(txtTNPYCode) & "'" '根据输入的信息，从表里得出查询结果rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata.EOF Then MsgBox "车次或拼音码输入有误，请重新输入！", , "Error!" ComboDate.Text = "" TNPYCode = "" txtCa

36、rID = "" txtCarID.SetFocus ElseIf IsNumeric(Number) = False Then MsgBox "车次编号应为数字！" txtCarID.Text = "" txtCarID.SetFocus Else rsdata.Close rsdata.Close strQuery = "select count(*) as total from Seat where Seat.sell=false and Seat.date='" & _ Trim(Combo

37、Date) & "'" & " and Seat.CarID='" & Trim(txtCarID) & "'" rsdata.Open strQuery, cnnrsdata, , , adCmdText '统计本车次的剩余的座位数 rsdata.MoveFirst rsdata.AddNew rsdata!Date = comdate rsdata!Seat = comSNno rsdata!CarID = CarID rsdata!TNPYCode = TNPYCo

38、de rsdata!sno = Trim(seatnumber) rsdata.Update '添加新记录 '更新 Seat 表 ，将刚卖出的座位号设为 false strQuery = "select * from Seat where Seat.sno='" & Trim(seatnumber) & _ "' and Seat.date='" & Trim(ComboDate) & "'" & _ " and SeatCarID=&#

39、39;" & Trim(txtCarID) & "'" rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata!sell = False Then rsdata!sell = True rsdata.Update End If （4）退票窗体（FrmBack）代码Private Sub Cmdback_Click() Dim strdate As String strTnl = Trim(ComboTerminal.Text) Dim strcnn init_ado strQuery

40、 = "Select * From SellTicket Where SellTicket.date='" & _ Trim(Combodate.Text) & "'" & " and SellTicket.Sno='" & Trim(ComboSNno.Text) & "'" & _" and SellTicket.carID='" & Trim(ComboCarID.Text) & &qu

41、ot;'" '检查车票日期、车次和座位是否有效 rsdata.Open strQuery, cnnrsdata, , , adCmdText If rsdata.EOF Then MsgBox "你所要退的票为无效票或是你的输入有问题！" Combodate.Text = rsdata!Date ComboSNSno.Text = rsdata!sno ComboCarID.Text = rsdata!CarID '车票有效，确认日期、车次和座位号，确认是否退票 ticketinformation = "日期:" &am

42、p; strdate & " " & "车次:" & strCarID & " " & "座位号:" & strsno & "" response = MsgBox(ticketinformation, vbOKCancel + vbInformation, "是否真要退票?") If response = 1 Then '更改 SellTicket 表 rsdata.Close strQuery = "select * from SellTicket" rsdata.Open strQuery, cnnrsdata, , , adCmdText rsdata.MoveFirst Dim i As Integer For i = 1 To rsdata.RecordCount If rsdata!Date = strdate And rsdata!sno = strsno And rsdata!sno = strseat Then rsdata.Delete rsdata.Update End If Combodate.Text = ""