宾馆管理信息系统论文

f
 End Sub
Private Sub txtItem_GotFocus(Index As Integer)’文本框获得焦点时触发该事件，即自动选中输入的内容，便于修改
txtItem(Index).SelStart=0
txtItem(Index).SelLength=Len(txtItem(Index))
End Sub
Private Sub cmdExit_Click()’单击按钮cmdExit取消添加信息
If mblChange And cmdSave.Enabled Then
      If MsgBox(“保存当前记录的变化吗？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then ‘保存
             Call cmdSave_Click
      End If
End If
Unload Me
End Sub
Private Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)‘输入完内容，单击回车键将自动进入下一个文本框，触发文本框的Keydown事件
  EnterToTab KeyCode
End Sub
⑶修改客房标准窗体的创建
Private Sub From_Load()
ShowTitle
ShowData
flagTedit=True
End Sub
Private Sub ShowTitle()‘调用showTitle函数，显示表头
Dim i As Integer
With msgList
     .Cols=10
     .TextMatrix(0,1)=”标准编号”
     .TextMatrix(0,2)=”标准名称”
     .TextMatrix(0,3)=”房间面积”
     .TextMatrix(0,4)=”床位数量” 
     .TextMatrix(0,5)=”是否有空调”
     .TextMatrix(0,6)=”是否有电话”
     .TextMatrix(0,7)=”是否有电视”
     .TextMat

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>