If Keyasc = 13 Then
'转换成Tab键
SendKeys "{TAB}"
End If
End Sub
Keyasc用来保存当前按键,SendKeys函数用来指定的按键。一旦按下回车键,将返回Tab键,下一个控件自动获得输入焦点。
添加全局变量,用来记录各个功能模块的读写状态,代码如下:
Public gintSmode As Integer '记载舱位等级功能模块的读写状态
Public gintPmode As Integer '记载客机信息模块的读写状态
Public gintAmode As Integer '记载航线信息模块的读写状态
Public gintTmode As Integer '记载客户类型模块的读写状态
Public gintCmode As Integer '记载客户信息模块的读写状态
Public gintKmode As Integer '记载订票信息模块的读写状态
这些全局变量用来记录是添加状态还是修改状态,赋值1为添加,赋值2为修改。
由于航空公司管理信息管理系统启动后,需要对用户进行判断。如果登录者是授权用户,将进入系统,否则将停止程序的执行。这个判断需要在系统运行的最初进行,因此将代码放在公用模块中。
5 系统用户管理模块的创建
用户管理模块主要实现:
用户登录。
添加用户。
修改用户密码。
6 舱位信息管理模块的创建
舱位信息管理模块主要实现如下功能:
添加舱位信息。
修改舱位信息。
删除舱位信息。
6.1 显示舱位信息窗体的创建
选择“航线信息管理|舱位信息”菜单,将出现如图9-12所示的窗体。
图9-12 舱位等级信息窗体
这个窗体用来显示舱位等级信息,并且可以对各条记录进行操作。在载入窗体时,程序将自动载入所有记录,代码如下:
Private Sub menuCarbin_Click()
frmService.txtSQL = "select * from serviceInfo"
frmService.Show 0
End Sub
窗体的Show方法后面加上0或者1,可以得到不同的窗体显示方式。参数为0时,显示的窗体为无模式形式,窗体切换时不需要进行其他操作;参数为1时,显示的窗体为有模式形式,窗体切换时必须进行相关操作。
载入窗体时将自动显示各条记录,代码如下:
Private Sub Form_Load()
ShowTitle
ShowData
End Sub
函数ShowTitle用来显示表头,代码如下:
Private Sub ShowTitle()
Dim i As Integer
With msgList
.Cols = 12
.TextMatrix(0, 1) = "等级编号"
.TextMatrix(0, 2) = "机舱等级"
.TextMatrix(0, 3) = "是否有礼品"
.TextMatrix(0, 4) = "是否有报纸"
.TextMatrix(0, 5) = "是否有饮料"
.TextMatrix(0, 6) = "是否有午餐"
.TextMatrix(0, 7) = "是否提供电影"
.TextMatrix(0, 8) = "是否可以改签"
.TextMatrix(0, 9) = "是否可以退票"
.TextMatrix(0, 10) = "是否可以打折"
.TextMatrix(0, 11) = "备注信息"
'固定表头
.FixedRows = 1
'设置各列的对齐方式
For i = 0 To 11
.ColAlignment(i) = 0
Next i
'表头项居中
.FillStyle = flexFillRepeat
.Col = 0
.Row = 0
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>