宾馆管理信息系统论文

>   End If
ExecuteSQL_Exit:
   Set rst=Nothing
   Set cnn=Nothing
   Exit Function
ExecuteSQL_Error:
   MsgString=”查询错误:”&Err.Description
   Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer)
‘判断是否为回车键
  If Keyasc=13 Then ‘ Keyasc用来保存当前按键 
     ‘转换成Tab键
     SendKeys”{TAB}”
   End If
End sub
‘添加全局变量，用来记录各个窗口的读写状态，代码如下：
Public flagTedit As Boolean ‘ 标示是否进入修改的窗体
Public flagRedit As Boolean
Public flagBedit As Boolean
Public flagCedit As Boolean
Public gintCmode As Integer 
Public gintTmode As Integer ’记录是添加还是修改状态，1为添加，2为修改
Public gintRmode As Integer
Public gintBmode As Integer 
Public flagSedit As Boolean
⑵系统用户管理模块的创建
 用户管理模块主要实现：
   •用户登陆。
   •添加用户。
•修改用户
  具体客房标准添加代码：
Private Sub Form_Load() ‘载入窗体后，判断所处状态
   Dim intCount As Integer
   Dim MsgText As String 
   Dim i As Integer
   If gintTmode=1 Then ‘判断是否属于添加状态
   &nbs

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>