航空售票系统系统实施报告.doc

航空售票管理系统实施报告组员： 目录第一章 引言31.1编写目的31.2参考文献31.3术语和缩写词3第二章 软件概述42.1软件用途42.2软件运行52 .3系统配置102 .4软件结构102 .5软件性能112 .6输入、处理、输出122.6.1输入122.6.2输出12第三章 软件使用过程133.1软件安装133.2运行步骤133.3运行说明133.3.1控制输入143.3.2管理信息143.4.3输入输出文件143.4.4输出报告143.5出错处理153.6非常规过程15第四章 软件维护过程154.1程序设计的约定154.2出错及纠正方法164.3专用维护程序174.4 源程序清单17第一章 引言1.1编写目的开发目标：开发出一个操作简便，界面友好，灵活实用，安全可靠，功能齐全的的航空售票管理信息系统。航空售票管理信息系统对航空相关单位进行包括机票订购在内的许多信息管理有着极其重要的作用，就一般的实用软件来说，它的设计内容繁多、功能重叠、操作复杂，比如订票和修改票务信息某些功能模块重叠等。本开发小组正是通过广泛调研，对同类的相关系统掌握了一定的资料的基础上，制定开发出来的。为了更好的完善本系统，在实施管理阶段特制定本实施报告，以求彻底完善本系统。 1.2参考文献1张翼英等 Visual Basic课程设计 清华大学出版社 出版日期:2008-12信息系统开发方法清华大学出版社 姜旭平1.3术语和缩写词在本文档中，所有专门术语的定义以及缩写词的原意如下：程序流程图：程序流程图又称程序框图，独立于任何一种设计语言，比较直观和清晰的描述了过程的控制流程。N-S图：N-S图是为了改变流程图描述程序逻辑时过大的随意性与灵活性，其规定了五种图形构建，包括：顺序型，选择型，while重复，until重复型，多分枝选择型。PAD图：PAD图是problem analysis diagram的英文缩写，是日本日立公司提出。它使用结构化程序设计思想表现程序的逻辑结构的图形工具。PDL语言：PDL语言是procedure design language的英文缩写。PDL是所有非正文形式的过程设计工具的统称。PDL具有“非纯粹”的编写语言的特点。第二章 软件概述2.1软件用途现在应用在大中型企业的管理信息系统中，几乎都包括了工资管理模块。有些环境中是由作为大型ERP软件中的一个模块引进的，有些是作为企业的财务系统的一部分。这些根据规范的西方的管理制度设计的工资管理软件，在很多时候还不能完全解决中国特色的中小企业的问题，本文介绍的就是要为高校解决他们在工资管理方面的问题，主要实现系统用户管理、员工基本信息管理、工资标准设定以及工资结算和查询等一般工资管理系统应具有的主要功能，以便完成课程实践的目的。2.2软件运行学生成绩管理系统主要有：登陆界面、员工信息管理，工资标准管理主要运行如下所示：a : 登陆界面输入姓名、密码，点击登陆界面显示图b : 航线信息界面图2.5c :机票信息界面图2.82 .3系统配置本软件要求在PC 及其兼容机上运行，要求奔腾II以上CPU，64兆以上内存，10G 以上硬盘。软件需要有WINDOWS 7操作系统环境。2 .4软件结构航空售票管理系统的结构图如下：图2.122 .5软件性能A:用户管理模块能在普通用户与管理员之间加以区分，分别实现其对应的功能，方法简单，性能较好。B:查询模块中我们对教职工按照姓名和工号两种方法进行查询，有效的考虑了重名的各种情况，达到一定的性能指标。C:工资模块：我们将职称工资管理和其他工资管理等几种情况D:密码管理：我们起初编写了一份密码表，只有按照密码表上的输入才能对工资管理系统进行相关操作，性能较好。2 .6输入、输出2.6.1输入本系统采用文本文框进行信息的输入以及成绩的输入。我们将创建模块，显示模块，存盘功能模块，读入功能模块，统计功能模块等的输入项2.6.2输出本系统采用文本文框进行信息的输出以及成绩的输出。我们将创建模块，显示模块，存盘功能模块，读入功能模块，统计功能模块等的输出项第三章 软件使用过程3.1软件安装本系统采用进行设计与实现，完成设计后进行发布就可以在没有安装环境的计算机中使用，安装方便简洁，只需要在安装的计算机中添加数据库即可。3.2运行步骤首先选择要登录的角色，然后进入相应的界面进行操作。3.3运行说明对于本系统我们设计时进行了权限的分配，比如普通用户登陆后只能进行自己工资的查询而不能进行工资的修改，管理员登陆后既可以进行查询又可以进行修改。3.3.1控制输入按照软件的说明，将测试数据加入到软件中3.3.2管理信息软件运行过程中的密码键入：通过文本框进行输入。3.4.3输入输出文件软件运行过程中通过文本框进行文件的输入输出。3.4.4输出报告若输入要输出的条件正确的话会弹出相应的提示框提示是否成功或者正确等。3.5出错处理软件运行过程中可能雏形的出物及处理如下：（1）输入信息出错在数据库内找不到输入的信息，输入信息有误，导致操作失败。（2）出错处理对策检查重新输入的信息是否符合要求。（3）数据库连接错误这类错误主要是数据库设置不正确，或sql server异常引起的，我们只要取消本次操作，提醒用户检查数据库问题就可。3.6非常规过程如果出现不可能处理的问题，可以直接与公司的技术支持人员联系。第四章 软件维护过程4.1程序设计的约定本软件程序是一个单一的运行软件，各个软件子模块的预定如下：航空售票管理系统主要以管理航空售票信息为目的，设置了严密的权限管理。用户管理：设置了权限管理功能查询管理：包括查询航线和航班等基本信息。可以显示单独一条记录，也可以显示所有信息。更新管理：当有需要时，管理员可以进行工资和信息的删除操作密码管理：管理员和个人可以根据需求修改密码。4.2出错及纠正方法可能由于输入的数据不符合软件的要求，软件将可能提出错误，并提醒您按照软件的要求运行程序；可能出现的问题如下：若输入密码格式不对，应提示：您输入的密码错误。4.3专用维护程序本软件提供您一个专用维护软件，以便在软件出现意想不到的问题时可以使您迅速发现您在软件运行时的失误，保证您的分析结果不会受到损失，尽管您的软件可能永远不会出现使用维护本软件的时候，希望您在使用分析错误！未找到索引项。软件的时候，可以浏览以下本软件的使用。软件的使用如下：A:输入正确的用户名与密码登陆。B：若是普通用户，请选择登陆普通用户界面。C：若是管理员，请选择登陆管理员界面。4.4 源程序清单登录界面代码：Imports System.DataImports System.Data.SqlClientPublic Class 登录 Inherits System.Windows.Forms.Form Dim count As Integer = 0 Dim my_class As New class1#Region Windows 窗体设计器生成的代码 Public Sub New() MyBase.New() 该调用是Windows 窗体设计器所必需的。 InitializeComponent() 在InitializeComponent() 调用之后添加任何初始化 End Sub 窗体重写dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer 注意: 以下过程是Windows 窗体设计器所必需的 可以使用Windows 窗体设计器修改此过程。 不要使用代码编辑器修改它。 Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(登录) Me.Button2 = New System.Windows.Forms.Button Me.Button1 = New System.Windows.Forms.Button Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.SuspendLayout() Button2 Me.Button2.Font = New System.Drawing.Font(宋体, 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Button2.Location = New System.Drawing.Point(306, 299) Me.Button2.Name = Button2 Me.Button2.Size = New System.Drawing.Size(112, 32) Me.Button2.TabIndex = 13 Me.Button2.Text = 取 消 Button1 Me.Button1.Font = New System.Drawing.Font(宋体, 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Button1.Location = New System.Drawing.Point(72, 299) Me.Button1.Name = Button1 Me.Button1.Size = New System.Drawing.Size(112, 32) Me.Button1.TabIndex = 12 Me.Button1.Text = 确 定 TextBox2 Me.TextBox2.Location = New System.Drawing.Point(208, 235) Me.TextBox2.Name = TextBox2 Me.TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) Me.TextBox2.Size = New System.Drawing.Size(240, 21) Me.TextBox2.TabIndex = 11 TextBox1 Me.TextBox1.Location = New System.Drawing.Point(208, 163) Me.TextBox1.Name = TextBox1 Me.TextBox1.Size = New System.Drawing.Size(240, 21) Me.TextBox1.TabIndex = 10 Label3 Me.Label3.Font = New System.Drawing.Font(宋体, 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label3.Location = New System.Drawing.Point(48, 234) Me.Label3.Name = Label3 Me.Label3.Size = New System.Drawing.Size(136, 22) Me.Label3.TabIndex = 9 Me.Label3.Text = 密 码 Label2 Me.Label2.Font = New System.Drawing.Font(宋体, 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label2.Location = New System.Drawing.Point(48, 163) Me.Label2.Name = Label2 Me.Label2.Size = New System.Drawing.Size(136, 21) Me.Label2.TabIndex = 8 Me.Label2.Text = 用户名 Label1 Me.Label1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.Label1.Font = New System.Drawing.Font(华文彩云, 36.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte) Me.Label1.ForeColor = System.Drawing.SystemColors.InactiveCaption Me.Label1.Location = New System.Drawing.Point(55, 9) Me.Label1.Name = Label1 Me.Label1.Size = New System.Drawing.Size(393, 120) Me.Label1.TabIndex = 7 Me.Label1.Text = 兰州航空公司 管理信息系统 登录 Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.BackgroundImage = CType(resources.GetObject($this.BackgroundImage), System.Drawing.Image) Me.ClientSize = New System.Drawing.Size(504, 390) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Icon = CType(resources.GetObject($this.Icon), System.Drawing.Icon) Me.Name = 登录 Me.Text = Form7 Me.ResumeLayout(False) Me.PerformLayout() End Sub#End Region Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim user As String Dim pw As String Dim temp1 As String Dim temp2 As String Dim con As String Dim singe As Integer = 1 user = TextBox1.Text username = TextBox1.Text pw = TextBox2.Text con = select * from users where id= + user + and password= + pw + Dim ds As New DataSet ds = class1.query(con) Try If ds.Tables(0).Rows.Count 0 Then class1.dr = ds.Tables(0).Rows(0) temp1 = class1.dr(0) temp2 = class1.dr(1) 主窗口.Show() End If Catch ex As Exception MessageBox.Show(ex.Message) End Try con = insert into log(id) select id from permission where id= + temp1 + If (Trim(user) = Trim(temp1) And Trim(pw) = Trim(temp2) And (user Or pw ) Then Me.Hide() class1.insert(con) singe = 1 ElseIf (user = And pw = ) Then MessageBox.Show(用户名和密码为空！, 提示) TextBox1.Focus() singe = 0 ElseIf (Trim(user) Trim(temp1) Or Trim(pw) Trim(temp2) Then MessageBox.Show(没有这个用户或密码错误，请重新输入！, 提示) TextBox1.SelectAll() TextBox1.Focus() singe = 0 End If count = count + 1 If (count = 3 And singe = 0) Then MessageBox.Show(三次错误，退出本系统, 提示) End End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End Sub Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load class1.init() Label1.BackColor = Color.Transparent Label2.BackColor = Color.Transparent Label3.BackColor = Color.Transparent Button1.BackColor = Color.Transparent Button2.BackColor = Color.Transparent End SubEnd Class订票界面代码：Public Class 订票 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer If TextBox1.Text = Then i = MsgBox(客户号不能为空, MsgBoxStyle.OkCancel, 警告) Else Dim conn As String = data source=.;connect timeout=5;User ID=sa;Password=123;initial catalog=Ticket; Dim objconn1 As New SqlConnection(conn) objconn1.Open() Dim 客户号 As New SqlParameter(客户号, SqlDbType.Int, 4) Dim 客户姓名 As New SqlParameter(客户姓名, SqlDbType.Char, 10) Dim 起飞地 As New SqlParameter(起飞地, SqlDbType.VarChar, 50) Dim 目的地 As New SqlParameter(目的地, SqlDbType.VarChar, 50) Dim 票价 As New SqlParameter(票价, SqlDbType.Int, 4) Dim 飞行时间 As New SqlParameter(飞行时间, SqlDbType.Int, 4) Dim 航空公司 As New SqlParameter(航空公司, SqlDbType.VarChar, 50) Dim strin As String strin = insert into flyernb(客户号,客户姓名,起飞地,目的地,票价,飞行时间,航空公司) values(客户号,客户姓名,起飞地,目的地,票价,飞行时间,航空公司) Dim objcmd1 As New SqlCommand(strin, objconn1) objcmd1.Parameters.Add(客户号) objcmd1.Parameters.Add(客户姓名) objcmd1.Parameters.Add(起飞地) objcmd1.Parameters.Add(目的地) objcmd1.Parameters.Add(票价) objcmd1.Parameters.Add(飞行时间) objcmd1.Parameters.Add(航空公司) 客户号.Value = TextBox1.Text 客户姓名.Value = TextBox2.Text 起飞地.Value = ComboBox2.Text() 目的地.Value = ComboBox3.Text() 票价.Value = TextBox5.Text 飞行时间.Value = TextBox6.Text 航空公司.Value = ComboBox1.Text objcmd1.ExecuteNonQuery() objconn1.Close() objcmd1.Dispose() MsgBox(订票成功!) TextBox1.Text = TextBox2.Text = TextBox5.Text = TextBox6.Text = ComboBox2.Text = ComboBox3.Text() = ComboBox1.Text() = End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class退票界面代码：Public Class 退票 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = MsgBox(确定要退票吗？, MsgBoxStyle.OkCancel, 警告) If i = MsgBoxResult.Cancel Then Close() Else Dim conn As String = data source=.;connect timeout=300;User ID=sa;Password=123;initial catalog=Ticket; Dim objconn1 As New SqlConnection(conn) objconn1.Open() Dim strsql As String = delete from flyernb where 客户号= & Trim(TextBox1.Text) & objconn1.Open() Dim objcmd As New SqlCommand(strsql, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() MsgBox(删除成功!) TextBox1.Text = End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class用户权限设置代码：Public Class 退票 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = MsgBox(确定要退票吗？, MsgBoxStyle.OkCancel, 警告) If i = MsgBoxResult.Cancel Then Close() Else Dim conn As String = data source=.;connect timeout=300;User ID=sa;Password=123;initial catalog=Ticket; Dim objconn1 As New SqlConnection(conn) objconn1.Open() Dim strsql As String = delete from flyernb where 客户号= & Trim(TextBox1.Text) & objconn1.Open() Dim objcmd As New SqlCommand(strsql, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() MsgBox(删除成功!) TextBox1.Text = End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class航线信息代码：Public Class 航线信息 Inherits System.Windows.Forms.Form#Region Windows 窗体设计器生成的代码 Public Sub New() MyBase.New() 该调用是Windows 窗体设计器所必需的。 InitializeComponent() 在InitializeComponent() 调用之后添加任何初始化 End Sub 窗体重写dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer 注意: 以下过程是Windows 窗体设计器所必需的 可以使用Windows 窗体设计器修改此过程。 不要使用代码编辑器修改它。 Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox4 As System.Windows.Forms.TextBox Friend WithEvents TextBox5 As System.Windows.Forms.TextBox Friend WithEvents TextBox6 As System.Windows.Forms.TextBox Friend WithEvents TextBox7 As System.Windows.Forms.TextBox Friend WithEvents TextBox8 As System.Windows.Forms.TextBox Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents TextBox10 As System.Windows.Forms.TextBox Friend WithEvents TextBox9 As System.Windows.Forms.TextBox Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(航线信息) Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.TextBox10 = New System.Windows.Forms.TextBox Me.TextBox9 = New System.Windows.Forms.TextBox Me.Label11 = New System.Windows.Forms.Label Me.ComboBox1 = New System.Windows.Forms.ComboBox Me.TextBox8 = New System.Windows.Forms.TextBox Me.TextBox7 = New System.Windows.Forms.TextBox Me.TextBox6 = New System.Windows.Forms.TextBox Me.TextBox5 = New System.Windows.Forms.TextBox Me.TextBox4 =