航空售票系统系统实施报告_航空售票系统测试报告

2020-02-28 其他范文下载本文

航空售票系统系统实施报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“航空售票系统测试报告”。

航空售票管理系统

实施报告

组员：

第一章引言 ················································································································· 4

1.1编写目的··········································································································· 4 1.2参考文献··········································································································· 4 1.3术语和缩写词...................................................................................................4 第二章

软件概述 ····································································································· 5

2.1软件用途··········································································································· 5 2.2软件运行··········································································································· 5 2.3系统配置·········································································································· 7 2.4软件结构·········································································································· 7 2.5软件性能·········································································································· 8 2.6输入、处理、输出·························································································· 8

2.6.1输入········································································································· 8 2.6.2输出········································································································· 9

第三章

软件使用过程 ····························································································· 10

3.1软件安装········································································································· 10 3.2运行步骤········································································································· 10 3.3运行说明········································································································· 10

3.3.1控制输入······························································································· 10 3.3.2管理信息······························································································· 10 3.4.3输入输出文件······················································································· 10 3.4.4输出报告······························································································· 10 3.5出错处理········································································································· 10 3.6非常规过程····································································································· 11 第四章软件维护过程 ······························································································· 12

4.1程序设计的约定····························································································· 12 4.2出错及纠正方法····························································································· 12 4.3专用维护程序································································································· 12 4.4 源程序清单···································································································· 12

第一章引言

1.1编写目的开发目标：开发出一个操作简便，界面友好，灵活实用，安全可靠，功能齐全的的航空售票管理信息系统。

航空售票管理信息系统对航空相关单位进行包括机票订购在内的许多信息管理有着极其重要的作用，就一般的实用软件来说，它的设计内容繁多、功能重叠、操作复杂，比如订票和修改票务信息某些功能模块重叠等。本开发小组正是通过广泛调研，对同类的相关系统掌握了一定的资料的基础上，制定开发出来的。为了更好的完善本系统，在实施管理阶段特制定本实施报告，以求彻底完善本系统。

1.2参考文献

[1]张翼英等《Visual Basic课程设计》清华大学出版社出版日期:2008-1 [2]《信息系统开发方法》清华大学出版社姜旭平

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.5 c :机票信息界面

图2.8 2.3系统配置

本软件要求在PC 及其兼容机上运行，要求奔腾II以上CPU，64兆以上内存，10G 以上硬盘。

软件需要有WINDOWS 7操作系统环境。.4软件结构

航空售票管理系统的结构图如下：

航空订票管理系统订票信息管理客户信息管理航线信息管理系统管理订票信息查询订票信息修改添加订票信息客户基本信息管理客户类别信息管理航线基本信息管理客机信息管理舱位信息管理密码管理用户管理客户信息查询客户信息修改客户信息添加客户类别信息修改客户类别信息添加航线信息查询航线信息修改航线信息添加客机信息查询客机信息修改客机信息添加舱位信息修改舱位信息添加

图2.12 2.5软件性能

A:用户管理模块能在普通用户与管理员之间加以区分，分别实现其对应的功能，方法简单，性能较好。

B:查询模块中我们对教职工按照姓名和工号两种方法进行查询，有效的考虑了重名的各种情况，达到一定的性能指标。

C:工资模块：我们将职称工资管理和其他工资管理等几种情况

D:密码管理：我们起初编写了一份密码表，只有按照密码表上的输入才能对工资管理系统进行相关操作，性能较好。.6输入、输出 2.6.1输入本系统采用文本文框进行信息的输入以及成绩的输入。

我们将创建模块，显示模块，存盘功能模块，读入功能模块，统计功能模块等的输入项

2.6.2输出

本系统采用文本文框进行信息的输出以及成绩的输出。

我们将创建模块，显示模块，存盘功能模块，读入功能模块，统计功能模块等的输出项

第三章软件使用过程

3.1软件安装

本系统采用vb.net进行设计与实现，完成设计后进行发布就可以在没有安装vb.net环境的计算机中使用，安装方便简洁，只需要在安装的计算机中添加数据库即可。

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.Data Imports System.Data.SqlClient Public Cla 登录

Inherits System.Windows.Forms.Form Dim count As Integer = 0 Dim my_cla As New cla1 #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.PawordChar = 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 paword='” + pw + “'” Dim ds As New DataSet ds = cla1.query(con)Try If ds.Tables(0).Rows.Count > 0 Then cla1.dr = ds.Tables(0).Rows(0)temp1 = cla1.dr(0)temp2 = cla1.dr(1)主窗口.Show()End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try 'con = “insert into log(id)select id from permiion where id='” + temp1 + “'” 'If(Trim(user)= Trim(temp1)And Trim(pw)= Trim(temp2)And(user “” Or pw “”))Then ' Me.Hide()' cla1.insert(con)' singe = 1 'ElseIf(user = “” And pw = “”)Then ' MeageBox.Show(“用户名和密码为空！”, “提示”)' TextBox1.Focus()' singe = 0 'ElseIf(Trim(user)Trim(temp1)Or Trim(pw)Trim(temp2))Then ' MeageBox.Show(“没有这个用户或密码错误，请重新输入！”, “提示”)' TextBox1.SelectAll()' TextBox1.Focus()' singe = 0 'End If 'count = count + 1 'If(count = 3 And singe = 0)Then ' MeageBox.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 cla1.init()Label1.BackColor = Color.Transparent Label2.BackColor = Color.Transparent Label3.BackColor = Color.Transparent Button1.BackColor = Color.Transparent Button2.BackColor = Color.Transparent End Sub End Cla 订票界面代码：

Public Cla 订票

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;Paword='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 Sub End Cla 退票界面代码：

Public Cla 退票

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;Paword='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 Sub End Cla 用户权限设置代码：

Public Cla 退票

Public Cla 航线信息

Inherits System.Windows.Forms.Form #Region “ Windows 窗体设计器生成的代码” Public Sub New()MyBase.New()'该调用是Windows 窗体设计器所必需的。InitializeComponent()'在InitializeComponent()调用之后添加任何初始化

End Sub '窗体重写dispose 以清理组件列表。

'不要使用代码编辑器修改它。

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 = New System.Windows.Forms.TextBox Me.TextBox3 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox1 = New System.Windows.Forms.TextBox Me.Label10 = New System.Windows.Forms.Label Me.Label9 = New System.Windows.Forms.Label Me.Label8 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.GroupBox1.SuspendLayout()Me.SuspendLayout()'

'GroupBox1' Me.GroupBox1.Controls.Add(Me.TextBox10)Me.GroupBox1.Controls.Add(Me.TextBox9)Me.GroupBox1.Controls.Add(Me.Label11)Me.GroupBox1.Controls.Add(Me.ComboBox1)Me.GroupBox1.Controls.Add(Me.TextBox8)Me.GroupBox1.Controls.Add(Me.TextBox7)Me.GroupBox1.Controls.Add(Me.TextBox6)Me.GroupBox1.Controls.Add(Me.TextBox5)Me.GroupBox1.Controls.Add(Me.TextBox4)Me.GroupBox1.Controls.Add(Me.TextBox3)Me.GroupBox1.Controls.Add(Me.TextBox2)Me.GroupBox1.Controls.Add(Me.TextBox1)Me.GroupBox1.Controls.Add(Me.Label10)Me.GroupBox1.Controls.Add(Me.Label9)Me.GroupBox1.Controls.Add(Me.Label8)Me.GroupBox1.Controls.Add(Me.Label7)Me.GroupBox1.Controls.Add(Me.Label6)Me.GroupBox1.Controls.Add(Me.Label5)Me.GroupBox1.Controls.Add(Me.Label4)Me.GroupBox1.Controls.Add(Me.Label3)Me.GroupBox1.Controls.Add(Me.Label2)Me.GroupBox1.Controls.Add(Me.Label1)Me.GroupBox1.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.GroupBox1.Location = New System.Drawing.Point(8, 8)Me.GroupBox1.Name = “GroupBox1” Me.GroupBox1.Size = New System.Drawing.Size(488, 344)Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = “航线信息” '

'TextBox10 ' Me.TextBox10.Location = New System.Drawing.Point(376, 182)Me.TextBox10.Name = “TextBox10” Me.TextBox10.Size = New System.Drawing.Size(100, 23)Me.TextBox10.TabIndex = 22 '

'TextBox9 ' Me.TextBox9.Location = New System.Drawing.Point(128, 32)Me.TextBox9.Name = “TextBox9” Me.TextBox9.Size = New System.Drawing.Size(100, 23)Me.TextBox9.TabIndex = 21 '

'Label11 Me.Label11.Location = New System.Drawing.Point(24, 32)Me.Label11.Name = “Label11” Me.Label11.Size = New System.Drawing.Size(100, 23)Me.Label11.TabIndex = 20 Me.Label11.Text = “航线编号” 'ComboBox1 Me.ComboBox1.Location = New System.Drawing.Point(376, 29)Me.ComboBox1.Name = “ComboBox1” Me.ComboBox1.Size = New System.Drawing.Size(104, 22)Me.ComboBox1.TabIndex = 18 'TextBox8 ' Me.TextBox8.Location = New System.Drawing.Point(128, 272)Me.TextBox8.Multiline = True Me.TextBox8.Name = “TextBox8” Me.TextBox8.ScrollBars = System.Windows.Forms.ScrollBars.Both Me.TextBox8.Size = New System.Drawing.Size(336, 56)Me.TextBox8.TabIndex = 17 'TextBox7 Me.TextBox7.Location = New System.Drawing.Point(130, 237)Me.TextBox7.Name = “TextBox7” Me.TextBox7.Size = New System.Drawing.Size(100, 23)Me.TextBox7.TabIndex = 16 'TextBox6 Me.TextBox6.Location = New System.Drawing.Point(376, 237)Me.TextBox6.Name = “TextBox6” Me.TextBox6.Size = New System.Drawing.Size(100, 23)Me.TextBox6.TabIndex = 15 'TextBox5 Me.TextBox5.Location = New System.Drawing.Point(128, 182)Me.TextBox5.Name = “TextBox5” Me.TextBox5.Size = New System.Drawing.Size(100, 23)Me.TextBox5.TabIndex = 14 'TextBox4 Me.TextBox4.Location = New System.Drawing.Point(128, 131)Me.TextBox4.Name = “TextBox4” Me.TextBox4.Size = New System.Drawing.Size(100, 23)Me.TextBox4.TabIndex = 13 'TextBox3 ' Me.TextBox3.Location = New System.Drawing.Point(376, 125)Me.TextBox3.Name = “TextBox3” Me.TextBox3.Size = New System.Drawing.Size(100, 23)Me.TextBox3.TabIndex = 12 'TextBox2 Me.TextBox2.Location = New System.Drawing.Point(376, 72)Me.TextBox2.Name = “TextBox2” Me.TextBox2.Size = New System.Drawing.Size(100, 23)Me.TextBox2.TabIndex = 11'

'TextBox1 Me.TextBox1.Location = New System.Drawing.Point(128, 72)Me.TextBox1.Name = “TextBox1” Me.TextBox1.Size = New System.Drawing.Size(100, 23)Me.TextBox1.TabIndex = 10 'Label10' Me.Label10.Location = New System.Drawing.Point(24, 288)Me.Label10.Name = “Label10” Me.Label10.Size = New System.Drawing.Size(88, 23)Me.Label10.TabIndex = 9 Me.Label10.Text = “备注信息” 'Label9 Me.Label9.Location = New System.Drawing.Point(24, 240)Me.Label9.Name = “Label9” Me.Label9.Size = New System.Drawing.Size(100, 23)Me.Label9.TabIndex = 8 Me.Label9.Text = “头等舱价格” 'Label8 Me.Label8.Location = New System.Drawing.Point(270, 237)Me.Label8.Name = “Label8” Me.Label8.Size = New System.Drawing.Size(100, 23)Me.Label8.TabIndex = 7 Me.Label8.Text = “公务舱价格” 'Label7 Me.Label7.Location = New System.Drawing.Point(270, 185)Me.Label7.Name = “Label7” Me.Label7.Size = New System.Drawing.Size(100, 23)Me.Label7.TabIndex = 6 Me.Label7.Text = “经济舱价格” 'Label6 Me.Label6.Location = New System.Drawing.Point(22, 185)Me.Label6.Name = “Label6” Me.Label6.Size = New System.Drawing.Size(100, 23)Me.Label6.TabIndex = 5 Me.Label6.Text = “客机编号” 'Label5 Me.Label5.Location = New System.Drawing.Point(24, 131)Me.Label5.Name = “Label5” Me.Label5.Size = New System.Drawing.Size(100, 23)Me.Label5.TabIndex = 4 Me.Label5.Text = “出发时间” 'Label4 Me.Label4.Location = New System.Drawing.Point(270, 128)Me.Label4.Name = “Label4” Me.Label4.Size = New System.Drawing.Size(100, 23)Me.Label4.TabIndex = 3 Me.Label4.Text = “到达时间” 'Label3' Me.Label3.Location = New System.Drawing.Point(270, 35)Me.Label3.Name = “Label3” Me.Label3.Size = New System.Drawing.Size(100, 23)Me.Label3.TabIndex = 2 Me.Label3.Text = “航班日期” 'Label2 Me.Label2.Location = New System.Drawing.Point(270, 80)Me.Label2.Name = “Label2” Me.Label2.Size = New System.Drawing.Size(100, 23)Me.Label2.TabIndex = 1 Me.Label2.Text = “到达城市” 'Label1' Me.Label1.Location = New System.Drawing.Point(24, 77)Me.Label1.Name = “Label1” Me.Label1.Size = New System.Drawing.Size(88, 24)Me.Label1.TabIndex = 0 Me.Label1.Text = “出发城市”'

'航线信息

' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)Me.ClientSize = New System.Drawing.Size(504, 414)Me.Controls.Add(Me.Button2)Me.Controls.Add(Me.Button1)Me.Controls.Add(Me.GroupBox1)Me.Icon = CType(resources.GetObject(“$this.Icon”), System.Drawing.Icon)Me.Name = “航线信息” Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = “航线信息” Me.GroupBox1.ResumeLayout(False)Me.GroupBox1.PerformLayout()Me.ResumeLayout(False)End Sub #End Region Private Sub 航线信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load ct = 31 cla1.init()TextBox9.Focus()If(mytemp = 0)Then Button1.Text = “添加” Else Button1.Text = “修改” End If Dim ds As DataSet Dim con As String Dim count, i As Integer con = “select * from airlineinfo” ds = cla1.query(con)count = ds.Tables(0).Rows.Count For i = 0 To count-2 cla1.dr = ds.Tables(0).Rows(i)ComboBox1.Items.Add(Trim(CStr(cla1.dr(“航班日期”))))Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim con As String Dim con1 As String Dim ano, dd, dt, at, pno, cp, cap, fp As String Dim dc, ac, am As String Dim signe As Integer = 1 ano = TextBox9.Text dc = TextBox1.Text ac = TextBox2.Text dd = ComboBox1.Text pno = TextBox10.Text dt = TextBox3.Text at = TextBox4.Text cp = TextBox5.Text cap = TextBox6.Text fp = TextBox7.Text am = TextBox8.Text con = “select * from airlineinfo where 航线编号='” + TextBox9.Text + “'” Dim ds As DataSet Try ds = cla1.query(con)Catch ex As Exception MeageBox.Show(ex.Meage)End Try Try If(ds.Tables(0).Rows.Count > 0 And mytemp = 0)Then cla1.dr = ds.Tables(0).Rows(0)If cla1.dr(“航线编号”)> 0 Then MsgBox(“已存在该航线！”)TextBox9.Focus()signe = 0 End If End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try If TextBox9.Text = “” Then MsgBox(“航线编号不能为空！”)TextBox9.Focus()ElseIf(signe = 1 Or mytemp = 1)Then con1 = “delete from airlineinfo where 航线编号='” + TextBox9.Text + “'” con = “insert into airlineinfo values('” + ano + “','” + dc + “','” + ac + “','” + dd + “','” + dt + “','” + at + “','” + pno + “','” + cp + “','” + cap + “','” + fp + “','” + am + “')” Try cla1.delete(con1)Catch ex As Exception MeageBox.Show(ex.Meage)End Try Try cla1.update(con)If(mytemp = 0)Then MsgBox(“添加成功！”)End If If(mytemp = 1)Then MsgBox(“修改成功！”)End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try TextBox1.Text = “” TextBox2.Text = “” TextBox3.Text = “” TextBox4.Text = “” TextBox5.Text = “” TextBox6.Text = “” TextBox7.Text = “” TextBox8.Text = “” TextBox9.Text = “” ComboBox1.Text = “” TextBox10.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 Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles GroupBox1.Enter End Sub End Cla 添加用户代码：

Public Cla 添加用户

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 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 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 Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Private Sub InitializeComponent()Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(添加用户))Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.TextBox3 = New System.Windows.Forms.TextBox Me.TextBox4 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.SuspendLayout()'Label1' Me.Label1.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label1.Location = New System.Drawing.Point(55, 33)Me.Label1.Name = “Label1” Me.Label1.Size = New System.Drawing.Size(100, 23)Me.Label1.TabIndex = 0 Me.Label1.Text = “用户名” '

'Label2 Me.Label2.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label2.Location = New System.Drawing.Point(55, 84)Me.Label2.Name = “Label2” Me.Label2.Size = New System.Drawing.Size(100, 23)Me.Label2.TabIndex = 1 Me.Label2.Text = “姓名” 'Label3 Me.Label3.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label3.Location = New System.Drawing.Point(55, 121)Me.Label3.Name = “Label3” Me.Label3.Size = New System.Drawing.Size(100, 23)Me.Label3.TabIndex = 2 Me.Label3.Text = “新密码” 'Label4 Me.Label4.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Label4.Location = New System.Drawing.Point(55, 168)Me.Label4.Name = “Label4” Me.Label4.Size = New System.Drawing.Size(100, 23)Me.Label4.TabIndex = 3 Me.Label4.Text = “确认密码” 'TextBox1 Me.TextBox1.Location = New System.Drawing.Point(224, 32)Me.TextBox1.Name = “TextBox1” Me.TextBox1.Size = New System.Drawing.Size(100, 21)Me.TextBox1.TabIndex = 4 'TextBox2 Me.TextBox2.Location = New System.Drawing.Point(224, 72)Me.TextBox2.Name = “TextBox2” Me.TextBox2.Size = New System.Drawing.Size(100, 21)Me.TextBox2.TabIndex = 5 'TextBox3 Me.TextBox3.Location = New System.Drawing.Point(224, 120)Me.TextBox3.Name = “TextBox3” Me.TextBox3.PawordChar = Global.Microsoft.VisualBasic.ChrW(42)Me.TextBox3.Size = New System.Drawing.Size(100, 21)Me.TextBox3.TabIndex = 6 'TextBox4 Me.TextBox4.Location = New System.Drawing.Point(224, 168)Me.TextBox4.Name = “TextBox4” Me.TextBox4.PawordChar = Global.Microsoft.VisualBasic.ChrW(42)Me.TextBox4.Size = New System.Drawing.Size(100, 21)Me.TextBox4.TabIndex = 7'

'Button1 ' Me.Button1.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Button1.Location = New System.Drawing.Point(48, 208)Me.Button1.Name = “Button1” Me.Button1.Size = New System.Drawing.Size(88, 40)Me.Button1.TabIndex = 8 Me.Button1.Text = “确定” 'Button2 Me.Button2.Font = New System.Drawing.Font(“宋体”, 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))Me.Button2.Location = New System.Drawing.Point(240, 208)Me.Button2.Name = “Button2” Me.Button2.Size = New System.Drawing.Size(88, 40)Me.Button2.TabIndex = 9 Me.Button2.Text = “取消” '添加用户 ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)Me.ClientSize = New System.Drawing.Size(392, 270)Me.Controls.Add(Me.Button2)Me.Controls.Add(Me.Button1)Me.Controls.Add(Me.TextBox4)Me.Controls.Add(Me.TextBox3)Me.Controls.Add(Me.TextBox2)Me.Controls.Add(Me.TextBox1)Me.Controls.Add(Me.Label4)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.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = “添加用户” 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 cla1.init()Dim con As String Dim user, name As String Dim pw1, pw2 As String Dim ds As DataSet Dim signe As Integer = 1 user = TextBox1.Text name = TextBox2.Text pw1 = TextBox3.Text pw2 = TextBox4.Text con = “select * from users where id='” + TextBox1.Text + “'” ds = cla1.query(con)Try If(ds.Tables(0).Rows.Count > 0)Then cla1.dr = ds.Tables(0).Rows(0)If cla1.dr(“id”)“” Then MsgBox(“已存在用户！”)TextBox1.SelectAll()TextBox1.Focus()TextBox2.Clear()TextBox3.Clear()TextBox4.Clear()signe = 0 End If End If Catch ex As Exception MeageBox.Show(ex.Meage)End Try If(TextBox3.Text TextBox4.Text)Then MeageBox.Show(“密码不一致，请重新确认”, “提示”)TextBox3.SelectAll()TextBox3.Focus()TextBox4.Clear()signe = 0 End If If Trim(TextBox1.Text)= “” Then MsgBox(“用户名不能为空！”)Exit Sub TextBox1.Focus()ElseIf(signe = 1)Then con = “insert into users values('” + user + “','” + pw2 + “','” + name + “','null')” cla1.insert(con)MsgBox(“添加成功！”)End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub Private Sub 添加用户_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load ct = 0 End Sub

End Cla

航空售票管理系统

#include #include #include #include #include #define N 100 using namespace std;typedef struct node//定义信息结构体 {char num[10];// 航班号int hour;//起飞时间小......

航空售票系统数据库分析表

flight1．用户表：user用户编号：userid int 自动增长主键用户名 username varchar(20) 密码paword varchar(20) 类型usertype varchar(10) 登录时间 logintime datetime 2.航空......

国际国内航空售票系统代理加盟协议

北京万能通连锁电航空票务系统平台加盟协议甲方：乙方：甲乙双方本着友好互利、共赢的原则，就乙方代理加盟航空售票系统事宜达成协议。一、甲方责任与义务1、甲方向乙方提供查票......

铁路售票系统

铁路售票系统应用软件需求分析报告前言：（1）需求分析报告的编写目的本需求分析报告的目的是规范化本软件的编写，旨在于提高软件开发过程中的能见度，便于对软件开发过程中的控制与......

火车票售票系统

火车票售票系统班级：S3SN131班姓名：王宁如今科技发展突飞猛进，交通发达迅速。而我要做的是让远在千里之外的你轻松购得回家的一票。火车站市场的管理和规范问题，是困扰我们多年......

相关专题航空售票系统测试报告报告系统航空航空售票系统测试报告报告系统航空

[其他范文]相关推荐

[其他范文]热门文章