VB航空公司管理信息系统 第4页
[arrivalCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[departDate] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[departTime] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[arrivalTime] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[planeNO] [char] (18) COLLATE Chinese_PRC_CI_AS NULL ,
[commonPrice] [numeric](18, 2) NULL ,
[commercialPrice] [numeric](18, 2) NULL ,
[firstPrice] [numeric](18, 2) NULL ,
[airlineMemo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
3.5 创建客户类型信息表
CREATE TABLE [dbo].[customerType] (
[ctypeNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[ctypeName] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[discount] [numeric](2, 0) NULL ,
[ctypeMemo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
3.6 创建客户信息表
CREATE TABLE [dbo].[customerInfo] (
[customerNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[customerName] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[customerSex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL ,
[customerID] [char] (18) COLLATE Chinese_PRC_CI_AS NULL ,
[customerTele] [char] (20) COLLATE Chinese_PRC_CI_AS NULL ,
[customerType] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,
[customerMemo] [text] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
3.7 创建订票信息表
CREATE TABLE [dbo].[ticketInfo] (
[ticketNO] [char] (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[customerNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,
[customerName] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[customerType] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,
[discount] [numeric](18, 0) NULL ,
[airlineNO] [char] (14) COLLATE Chinese_PRC_CI_AS NULL ,
[departCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[arrivalCity] [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。下面就可以开始添加需要的代码了。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VB航空公司管理信息系统 第4页下载如图片无法显示或论文不完整,请联系qq752018766