宾馆管理信息系统论文

        txtItem(intCount)=”” ‘清除已经输入的内容
       Next intCount
       For intCount=0 To 3
           Combo1(intCount).ListIndex=0
       Next intCount
       mblChange=False’判断是否打开窗口
       if flagTedit Then
           Unload frmRoomtype
           frmRoomtype.txtSQL=“select *from roomtype”
           frmRoomtype.Show
       End If
     ElseIf gintTmode=2 Then ‘判断是否处于修改状态
           Unload Me
           If flagTedit Then
               Unload frmRoomtype
           EndIf
           frmRoomtype.txtSQL=”select *from roomtype”
           frmRoomtype.Show
     End I

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