rrivalCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[ticketDate] [datetime] NULL ,
[serviceType] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[ticketPrice] [numeric](18, 2) NULL ,
[ticketSum] [numeric](18, 2) NULL ,
[ticketMemo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
4 航空公司管理信息系统主窗体的创建
上面的SQL语句在SQL Server 2000中查询分析器的执行,将自动产生需要的所有表格。有关数据库结构的所有后台工作已经完成。现在将通过航空公司管理信息系统中各个功能模块的实现,讲解如何使用Visual Basic来编写数据库系统的客户端程序。
4.1 创建工程项目--MIS_Ticket
启动Visual Basic后,单击File|New Project菜单,在工程模板中选择Standard EXE,Visual Basic将自动产生一个Form窗体,属性都是缺省设置。这里我们删除这个窗体,单击File|Save Project菜单,将这个工程项目命名为MIS_Ticket。
4.2 创建航空公司管理信息系统的主窗体
这个项目我们使用多
文档界面,单击工具栏中的ADD MDI Form按钮,产生一个窗体。在这个窗体上添加所需的控件,窗体和控件的属性设置见表9-7。创建好的窗体如图9-10所示。
表9-7 主窗体及其控件属性设置
控 件
属 性
属性取值
frmMain(Form)
Name
FrmMain
Caption
大唐航空公司信息管理系统
StartUpPositon
CenterScreen
WindowState
Maximized
SbStatusBar(StatusBar)
Name
SbStatusBar
Panels(1)
Style
SbrText
Panels(2)
Style
SbrDate
Panels(3)
Style
SbrTime
图9-10 航空公司管理信息系统主窗体
在主窗体中加入状态栏控件,可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性,还需要在其特有的弹出式菜单中进行设置。选中状态栏控件,单击鼠标右键,选中Property菜单,然后设置属性。面板1用来显示各种文本信息,面板2用来显示当前日期,面板3用来显示当前时间。
4.3 创建主窗体的菜单
在如图9-10所示的主窗体中,单击鼠标右键,选择弹出式菜单中的Menu Editor,创建如图9-11所示的菜单结构:
图9-11 主窗体中的菜单结构
4.4 创建公用模块
在Visual Basic中可以用公用模块来存放整个工程项目公用的函数、过程和全局变量等。这样可以极大地提高代码的效率。在项目资源管理器中为项目添加一个Module,保存为Module1.bas。下面就可以开始添加需要的代码了。
由于系统中各个功能模块都将频繁使用数据库中的各种数据,因此需要一个公共的数据操作函数,用以执行各种SQL语句。添加函数ExecuteSQL,代码如下:
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
'执行SQL语句,并返回记录集对象
'声明一个连接
Dim cnn As ADODB.Connection
'声明一个数据集对象
Dim rst As ADODB.Recordset
Dim sTokens() As String
'异常处理
On Error GoTo ExecuteSQL_Error
'用Split函数产生一个包含各个子串的数组
sTokens = Split(SQL)
'创建一个连接
Set cnn = New ADODB.Connection
'打开连接
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
相关热词:java 航空 公司 管理 信息 系统 论文 java