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]  ... 下一页  >>