资源描述:
《系统用户管理模块的创建》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、5系统用户管理模块的创建
用户管理模块主要实现:用户登录.添加用户.修改用户密码.
6舱位信息管理模块的创建
舱位信息管理模块主要实现如下功能:添加舱位信息.修改舱位信息.删除舱位信息.6.1显示舱位信息窗体的创建选择"航线信息管理
2、舱位信息"菜单,将出现如图9-12所示的窗体.
–438–
航空公司管理系统国
图9-12舱位等级信息窗体
这个窗体用来显示舱位等级信息,并且可以对各条记录进行操作.在载入窗体时,程序将自动载入所有记录,代码如下:
3、PrivateSubmenuCarbin_Click()frmService.txtSQL="select*fromserviceInfo"frmService.Show0EndSub
窗体的Show方法后面加上0或者1,可以得到不同的窗体显示方式.参数为0时,显示的窗体为无模式形式,窗体切换时不需要进行其他操作;参数为1时,显示的窗体为有模式形式,窗体切换时必须进行相关操作.载入窗体时将自动显示各条记录,代码如下:
PrivateSubForm_Load()ShowTitleShowData
4、EndSub
函数ShowTitle用来显示表头,代码如下:
PrivateSubShowTitle()DimiAsIntegerWithmsgList.Cols=12.TextMatrix(0,1)="等级编号".TextMatrix(0,2)="机舱等级".TextMatrix(0,3)="是否有礼品".TextMatrix(0,4)="是否有报纸"
邮箱:lyfbysj@163.com手机:13955813944.Tex
5、tMatrix(0,5)="是否有饮料".TextMatrix(0,6)="是否有午餐".TextMatrix(0,7)="是否提供电影".TextMatrix(0,8)="是否可以改签".TextMatrix(0,9)="是否可以退票".TextMatrix(0,10)="是否可以打折".TextMatrix(0,11)="备注信息"'固定表头.FixedRows=1'设置各列的对齐方式F
6、ori=0To11.ColAlignment(i)=0Nexti'表头项居中.FillStyle=flexFillRepeat.Col=0.Row=0.RowSel=1.ColSel=.Cols-1.CellAlignment=4'设置单元大小.ColWidth(0)=1000.ColWidth(1)=1000.ColWidth(2)=2000.ColWidth(3)=1000.ColWidth(4)=1000.ColWidth(5)=1000.ColWidth(6)=1000.ColWidth(7)=1000.ColWidth
7、(8)=1000.ColWidth(9)=1000.ColWidth(10)=1000.ColWidth(11)=1000.Row=1EndWithEndSub
函数ShowData把各条记录加到表格中,并显示出来,代码如下:
PrivateSubShowData()DimjAsInteger–440–
航空公司管理系统国
DimiAsIntegerDimMsgTextAsString'获得数据集Setmrc=ExecuteSQL(txtSQL,MsgText)WithmsgList.Rows=1
8、'判断是否为空DoWhileNotmrc.EOF'移动到下一行.Rows=.Rows+1'循环Fori=1Tomrc.Fields.Count'判断是否为空IfNotIsNull(Trim(mrc.Fields(i-1)))Then'根据数据类型显示SelectCasemrc.Fields(i-1).TypeCaseadDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&"","yyyy-mm-dd")CaseElse.TextM
9、atrix(.Rows-1,i)=mrc.Fields(i-1)&""EndSelectEndIfNextI'移动到下一条记录mrc.MoveNextLoopEndWith'关闭数据集对象mrc.CloseEndSub
在窗体