铁路车站现车信息管理系统.doc

1、1一摘 要随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本系统是在管理信息系统的理论和方法指导下、数据库技术支持下完成的。本文在结构上首先论述了毕业设计选题的背景、目的和意义，然后叙述了开发环境、开发平台以及数据库技术，接着用表格和图片的方式介绍了系统的整体规划，接下来是系统在具体实现中的详细内容，最终本系统能够完成信息的输入、输出,数据的修改、查询以及打印报表等功能，本系统界面友好，操作简单，比较实用。课题目的及意义

2、由于现今的铁路车站现车信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻铁路工作人员的工作负担，决定开发铁路车站现车信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全等等。为了解决传统铁路车站现车信息的管理正面临着的这些问题，我所设计的铁路车站现车信息管理系统也就应运而生了。2二开发环境

3、、工具介绍该软件是在 Windows XP Professional + Visual Basic 6.0 + SQL Server 2000 的环境下完成的。下面就对这些开发工具进行介绍：1.1 SQL Server 2000 简介SQL Server 2000 是微软公司最新版的大型数据库服务器，其性能指标在各方面都有赶超 Oracle 数据库的趋势。用它可以方便地管理数据库和开发应用程序，它使用了最先进的数据库构架，与 Windows NT/2000 平台紧密集成，具有完全的 Web 功能。通过对高端硬件平台、网络和存储技术的支持，为 WEB 站和企业的应用最大限度地提供了可扩展性和高可

4、靠性，能在 Internet 商业领域快速建立并应用。此外，还增强了安全性，保护防火墙内外的数据。支持基于角色的安全并拥有安全审计工具。在经历了 SQL Server 6.5 和 7.0 两个版本的尝试后，微软公司终于开始了大规模的业务。记得在以前各种关于 SQL Server 的文章，都会将其定位成中小型应用方面，这种感觉被大家自然的延续到了 2000版之中。其实这是一种误解。在过去的很长一段时间中，微软公司聘请了世界上最优秀的数据库专家以及专门搭建了信息量可谓空前的地理信息系统，励精图治，就是为了摘掉扣在自己头上的这顶帽子。有了强大的性能和功能支持，再配合其一向为人称道的易用性，SQL S

5、erver 可以说成为了开发者手中的一柄利器！另外，目前国内的一些关于微软平台的数据库编程教程，喜欢使用 Access作为数据库平台的案例，并展开相关的内容。这其实对于开发真正的数据库应用并没有直接的帮助作用，只能使大家停留在应用的初级阶段。SQL Server 2000 提供的非常傻瓜的缺省安装和使用模式，其上手难度并不比 Access 大。另外，SQL Server 2000 可以兼顾小、中、大规模的应用，有着远远比 Access 强大的伸缩性。1.2 SQL Server 数据库特点概括起来，SQL Server 2000 数据库管理系统具有以下主要特点。1） 、丰富的图形管理工具，使系

6、统管理、操作更为直观方便。SQL Server企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理 SQL Server 服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。此外，SQL Server 2000 还提供了 SQL 事件探查器、SQL 查询分析器、SQL Server 服务管理器和多种操作向导3等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。2） 、动态自动管理和优化功能。即使 SQL Server 数据库管理员不做任何设置，SQL Server 也能够在运行过程中根据环境配置和用户访问情况动态自动

7、配置，以达到最优性能，从而减轻管理员工作。3） 、充分的 Internet 技术支持。Internet 网络发展到今天已经成为一条重要的信息发布渠道，SQL Server 增强了对 Internet 技术支持，它除保留了前期版本中的数据库 Web 出版工具“Web 助手”外，还增强了对 XML 和 HTTP 技术的支持，这使得电子商务系统能够通过 XML 等访问 SQL Server 数据库系统，也扩展了 SQL Server 在数据挖掘和分析服务领域的应用。4） 、丰富的编程接口工具，使用户开发 SQL Server 数据库应用程序更加灵活。SQL Server 提供了 Transact-S

8、QL、DB-Library for C、嵌入式SQL（ESQL）等开发工具，Transact-SQL 与工业标准 SQL 语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。此外，SQL Server 2000 还支持 ODBC、OLE DB、ADO 规范，可以使用 ODBC、OLE DB、ADO 接口访问 SQL Server 数据库。5） 、具有很好的伸缩性和可靠性。SQL Server 2000 既能运行在 Windows桌面操作系统下，又可运行在服务器操作系统（包括 Windows NT 和 Windows 2000）下；既能运行在单 CPU 计算机上，又能运行在对称多处理系

9、统下。所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。6） 、简单的管理方式。SQL Server 2000 与 Microsoft Windows 2000 有机集成，所以可以使用 Windows 2000 的活动目录（Active Directory）功能对 SQL Server 进行集中管理，大大简化大型企业中的系统管理工作。此外，与Windows 2000 的集成还使 SQL Server 能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步 I/O 等） ，从而增强了 SQL Server 数据库系统的功能，并

10、且只需要占用很少的系统资源。1.3 ADO 对象概述ADO 对象能够存取到数据库的内容，首先要求数据库的驱动程序( ODBC 驱动程序与 OLE DB 驱动程序)必须安装上，否则， ADO 对象是无法存取数据库中内容，其原理示意图如下图所示：客户端 客户端 客户端ADO 对象各种数据库所对应的驱动程序各种数据库(如 Access、SQL Server 以及 Oracle 等)4请注意：上图中的“各种数据库所对应的驱动程序”即 ODBC 驱动程序与OLE DB 驱动程序。1.4 利用 ADO 开发网络数据库应用程序ADO（Active Date Objects,即 ActiveX 数据对象）是一

11、个 ASP 内置的ActiveX 服务器组件（ActiveX Server Component） 。可把它与 ASP 结合起来，建立提供数据库信息的网页内容，对数据库进行查询、插入、更新、删除等操作，并可以把在用户端实现“网上实时更新显示”的最新 Web 数据库技术。要执行 ADO，服务器端必须安装 Windows NT Server 和 Internet Information Server(IIS)，而客户端只要有 IE 或 NETSCAPE 较新版本的浏览器即可。利用 ADO 开发网络数据库应用程序有以下几个优点：1） 、支持客户机/服务器结构（Client/Server）与 Web 系

12、统开发技术。2） 、内部有多个互相独立的对象模型。3） 、支持分批修改数据库内容。4） 、支持多种不同的数据控制指标形式。5） 、先进的 Recordset 数据高速缓存管理功能。6） 、允许在程序中使用多个 Recordset 对象或者多个分批修改区块传送。7） 、ADO 属于 Free_threaded 对象，利用它可以开发出更有效的 Web 应用程序。1.5 ADO 组件的主要对象及其功能ADO 组件又称为数据库访问组件，它提供了以下七种对象：1） 、Connection 对象：提供对数据库的连接服务。2） 、Command 对象：定义对数据库源操作的命令。3） 、Recordset 对

13、象：由数据库服务器所返回的记录集。Recordset 对象的 LockType 属性的设置值如下表所示：常量 值 说明adLockReadOnly 1 默认值，只读。无法更改数据adLockPressimistic 2 保守式记录锁定（逐条） 。提供者执行必5要的操作确保成功编辑记录，通常采用立即锁定数据源的记录的方式。adLockOptimistic 3开放式记录锁定（逐条） 。提供者使用开放式锁定，只在调用 Updata 方法时锁定记录。adLockBatchOptimistic 4开放式批更新。用于与立即更新模式相反的批更新模式。4） 、Fields 对象：由数据库服务器所返回的单一数据

14、字段5） 、Parametes 对象：表示 Command 对象的参数。6） 、Property 对象：单独的一个 Property 对象，提供属性功能。7） 、Error 对象：提供处理错误的功能。使用 ADO 对象可以建立和管理数据库的连接，按数据库服务器的要求获得数据，执行更新、删除、添加数据等操作，获取 ODBC 的错误信息等。1.6 用来操控数据的 SQL 命令SQL 命令是发送给数据库并要求数据库操作的指令，它是专门为数据库设计的语言，比一般的计算机程序语言简单的多。SQL 命令主要分成两部分：DDL(Data Definition Language)和 DML(Data Mani

15、pulation Language),其中DDL 是建立数据表及数据列的指令群，而 DML 则是操作数据库记录的指令群，如数据库记录的添加、更新、删除、和查询等。SQL 命令，包括 Select、Delete、Update、Insert Into、Select Into 等。1） 、筛选及排序记录的 Select 指令基本句型一：Select 字段串列 From 数据表基本句型二：Select From Where 筛选条件基本句型三：Select From Order By 字段串列Select Top：限定选取数据的条数2） 、删除数据记录的 Delete 指令基本语法：Delete Fr

16、om 数据表 Where 条件式3） 、更新数据记录的 Update 指令基本语法：Update 数据表 Set 表达式4） 、增加数据记录的 Insert Into 指令基本句型一：Insert Into 数据表 (字段串列) Values (字段串列)基本句型二：Insert Into 数据表 (字段 1,字段 2,字段 n) Select 65） 、建立新数据表的 Select Into 指令该指令与“Insert Into Select ”指令的区别是，这个指令将建立另一个新的数据表，而 Insert Into 是增加数据记录到“现存的”数据表中。1.7 VB 访问数据库过程1） 、定

17、义数据库组件Dim conn As New ADODB.Connection 其中 conn 为连接对象Dim reco As New ADODB.Recordset 其中 reco 为结果集对象2） 、打开数据库对于 SQL 数据库，其连接语句为 conn.Open “driver=sql server;server=localhost;uid=sa;pwd=;database=student“。而对于 Access 数据库，连接语句为conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=“ UID=sa;PWD=“End Funct

18、ionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set cnn = New ADODB.Connectioncnn.Open ConnectStringIf InStr(“INSERT,DELETE,UPDATE“,

19、 UCase(sTokens(0) Thencnn.Execute SQLMsgString = sTokens(0) & “ 查询成功“ElseSet rst = New ADODB.Recordsetrst.Open Trim(SQL), cnn, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = “查询到“ & rst.RecordCount & “ 条记录 “End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit FunctionExecuteSQ

20、L_Error:MsgString = “查询错误: “ & Err.DescriptionResume ExecuteSQL_ExitEnd FunctionPublic Function Testtxt(txt As String) As BooleanIf Trim(txt) = “ ThenTesttxt = FalseElseTesttxt = True11End IfEnd FunctionPublic Sub mkdir_kill()On Error Resume NextMkDir “c:program files“MkDir “c:Program FilesMicrosoft

21、 SQL Server“MkDir “C:Program FilesMicrosoft SQL ServerMSSQL“MkDir “C:Program FilesMicrosoft SQL ServerMSSQLData“Kill “C:Program FilesMicrosoft SQL ServerMSSQLDatamaokeyang_Log.LDF“Kill “C:Program FilesMicrosoft SQL ServerMSSQLDatamaokeyang_Data.MDF“End Sub4.2 登录窗体设计添加一个窗体，该部分主要包括用户的验证以及登录次数的限制。窗体运行情

22、况如下图所示窗口代码如下；Private Sub Command1_Click()Trim (Text1.Text = 邴泽邑) And Trim(Text2 = 200900017)主界面.ShowEnd Sub12Private Sub Command2_Click()Unload MeEnd Sub4.3 主界面设计添加一个窗体（frm_main） 。该窗口主要有：到发场信息，北场，出发场信息，编组场信息，帮助和退出系统几个功能。以用户名为邴泽邑、密码为200900017 登录，窗体运行情况如下图所示：主界面代码如下；Private Sub BCXX_Click()北场.ShowEnd

23、SubPrivate Sub BZCXX_Click()编组场.ShowEnd SubPrivate Sub CLXX_Click()线路车数.ShowEnd Sub13Private Sub CR_Click()到达车场信息添加.ShowEnd SubPrivate Sub CX_Click()信息查询.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub GL_Click()到达场信息.ShowEnd SubPrivate Sub TC_Click()Unload MeEnd SubPrivate Sub XXCC_Click()发车场信

24、息插入.ShowEnd SubPrivate Sub XXXX_Click()发车场信息查询.ShowEnd Sub4.3.1 菜单编辑器在主界面设计时，要用到工具下的菜单编辑器，如图所示，输入相关的信息144.5 到发场信息该部分包括信息查询，信息管理，信息插入。4.5.1 信息管理窗口设计该部分主要完成到发场信息管理功能。窗体运行情况如下图所示：15信息管理窗口代码如下；Private Sub Command1_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIf Trim(Text1(0)

25、.Text) = “ ThenMsgBox “请输入线路编号！“, vbOKOnly + vbExclamation, “警告“Exit SubText1(0).SetFocusElsetxtSQL = “select * from 到发场 “Set mrc = ExecuteSQL(txtSQL, MsgText)While (mrc.EOF = False)mrc.MoveNextWendEnd IfIf Text1(1).Text = “ ThenMsgBox “有效长度不能为空！“, vbOKOnly + vbExclamation, “警告“Text1(1).SetFocusText

26、1(1).Text = “Text1(2).Text = “Text1(3).Text = “Text1(4).Text = “16Text1(5).Text = “ElseText1(2).Text = “mrc.AddNewmrc.Fields(0) = Trim(Text1(0).Text)mrc.Fields(1) = Trim(Text1(1).Text)mrc.Fields(2) = Trim(Text1(2).Text)mrc.Fields(3) = Trim(Text1(2).Text)mrc.Fields(4) = Trim(Text1(2).Text)mrc.Fields(

27、5) = Trim(Text1(2).Text)mrc.Updatemrc.CloseMe.HideMsgBox “添加成功！“, vbOKOnly + vbExclamation, “添加用户“End IfEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.RecordCount 0 ThenText1(0).Enabled = FalseFor i = 1 To 5Text1(i).Enabled = TrueNext iCommand4.Enabled = TrueCommand1.Enabled = FalseCommand2.

28、Enabled = FalseCommand3.Enabled = FalseElseMsgBox (“没有要修改的数据!“)End IfEnd SubPrivate Sub Command3_Click()Dim myval As Stringmyval = MsgBox(“是否要删除该记录？“, vbYesNo)If myval = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLastFor i = 0 T

29、o 517Text1(i).Enabled = FalseNext iEnd IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateFor i = 0 To 5Text1(i).Enabled = FalseNext iCommand4.Enabled = FalseCommand3.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd Sub4.5.2 信息插入窗口设

30、计信息插入窗口主要用于对信息的添加，完善数据库。窗体运行情况如下图所示：信息窗口代码如下；18Private Sub Command1_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIf Trim(Text1(0).Text) = “ ThenMsgBox “请输入线路编号！“, vbOKOnly + vbExclamation, “警告“Exit SubText1(0).SetFocusElsetxtSQL = “select * from 到发场 “Set mrc = ExecuteSQL

31、(txtSQL, MsgText)While (mrc.EOF = False)mrc.MoveNextWendEnd IfIf Text1(1).Text = “ ThenMsgBox “有效长度不能为空！“, vbOKOnly + vbExclamation, “警告“Text1(1).SetFocusText1(1).Text = “Text1(2).Text = “Text1(3).Text = “Text1(4).Text = “Text1(5).Text = “Elsemrc.AddNewmrc.Fields(0) = Trim(Text1(0).Text)mrc.Fields(1

32、) = Trim(Text1(1).Text)mrc.Fields(2) = Trim(Text1(2).Text)mrc.Fields(3) = Trim(Text1(3).Text)mrc.Fields(4) = Trim(Text1(4).Text)mrc.Fields(5) = Trim(Text1(5).Text)mrc.Updatemrc.CloseMe.HideMsgBox “添加成功！“, vbOKOnly + vbExclamation, “添加用户“End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub194.5.

33、3 信息查询窗口设计该窗口实现了用户通过输入线路编号就能详细的了解相关信息。信息查询窗口运行如下图所示。信息查询窗口代码如下；Private Sub Command1_Click()Dim sqlxuehao As Stringsqlxuehao = “select * from 到发场 where 线路编号=“ & Text1.Text & “ “MsgBox sqlxuehaoAdodc1.RecordSource = sqlxuehaoAdodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Unload MeEn

34、d Sub4.6 北场信息此窗口的功能主要实现了，用户快速查询北厂相关信息，了解北场信息。窗体运行情况如下图所示：20窗口代码如下；Private Sub Command1_Click()主界面.ShowEnd SubPrivate Sub Command2_Click()Dim sqlxuehao As Stringsqlxuehao = “select * from 北场MsgBox sqlxuehaoAdodc1.RecordSource = sqlxuehaoAdodc1.RefreshDataGrid1.RefreshEnd Sub4.7 出发场信息该界面有信息插入，信息查询两部分组

35、成。4.71 信息插入该窗口方便用户进行数据信息插入。窗体运行情况如下图所示：21窗口代码如下；Private Sub Command1_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIf Trim(Text1(0).Text) = “ ThenMsgBox “请输入线路编号！“, vbOKOnly + vbExclamation, “警告“Exit SubText1(0).SetFocusElsetxtSQL = “select * from 发车场 “Set mrc = ExecuteSQ

36、L(txtSQL, MsgText)While (mrc.EOF = False)mrc.MoveNextWendEnd IfIf Text1(1).Text = “ ThenMsgBox “有效长度不能为空！“, vbOKOnly + vbExclamation, “警告“Text1(1).SetFocusText1(1).Text = “Text1(2).Text = “Text1(3).Text = “Text1(4).Text = “Text1(5).Text = “Elsemrc.AddNew22mrc.Fields(0) = Trim(Text1(0).Text)mrc.Field

37、s(1) = Trim(Text1(1).Text)mrc.Fields(2) = Trim(Text1(2).Text)mrc.Fields(3) = Trim(Text1(3).Text)mrc.Fields(4) = Trim(Text1(4).Text)mrc.Fields(5) = Trim(Text1(5).Text)mrc.Updatemrc.CloseMe.HideMsgBox “添加成功！“, vbOKOnly + vbExclamation, “添加“End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.72

38、信息查询该窗口实现了用户通过输入线路编号就能详细的了解相关信息。该界面运行如下图所示；出发场信息查询窗口代码如下；Private Sub Command1_Click()Dim txtSQL As StringDim txSQL As StringDim mrc As ADODB.Recordset23Dim mr As ADODB.RecordsetDim MsgText As StringDim MsgTe As StringtxtSQL = “select * from 发车场 where 线路编号= “ & Text1.Text & “Set mrc = ExecuteSQL(txtS

39、QL, MsgText)Text2.Text = mrc.Fields(“有效长度“)Text3.Text = mrc.Fields(“容车数 1“)Text4.Text = mrc.Fields(“容车数 2“)Text5.Text = mrc.Fields(“最大容车数 1“)Text6.Text = mrc.Fields(“最大容车数 2“)mrc.ClosetxSQL = “select count(*) as 总数 from 发车场 “Set mr = ExecuteSQL(txSQL, MsgTe)Text7.Text = mr.Fields(“总数“)End SubPrivate

40、 Sub Command2_Click()Unload Me主界面.ShowEnd Sub4.7 编组场信息该界面向用户提供了编组场的全部信息，使用户能够更全面的了解信息。该界面运行如下图所示；24编组场窗口代码如下；Private Sub Command1_Click()主界面.ShowEnd Sub4.8 车辆信息主要方便用户了解车辆的相关信息。该界面运行如下图；25窗口界面代码如下；Private Sub Command1_Click()Dim sqlxuehao As Stringsqlxuehao = “select * from 车辆 where 线路编号=“ & Trim(Tex

41、t1.Text) & “ “MsgBox sqlxuehaoAdodc1.RecordSource = sqlxuehaoAdodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim sqlxuehao As Stringsqlxuehao = “select * from 车辆 where 车辆编号=“ & Trim(Text2.Text) & “ “MsgBox sqlxuehaoAdodc2.RecordSource = sqlxuehaoAdodc2.RefreshDataGrid2.RefreshEnd SubPrivate Sub Command3_Click()26主界面.ShowEnd Sub然后打开文件夹铁路车站现车信息管理系统，双击图标铁路车站现车信息管理系统，就进入上述系统。