宾馆管理信息系统论文

nteger
   If flagTedit Then  ‘判断是否打开记录窗体
        If frmRoomtype.msgList.Rows>1 Then
            fintTmode=2‘设置为修改状态
            intCount=frmRoomtype.msgList.Row‘记下选择记录
           frmRoomtype1.txtSQL=”select*from roomtype where typeid’”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1))&”’”
           frmRoomtype1.Show
         Else
              Call menuAddroomtype_Click
         End If
   Else
         frmRoomtype.txtSQL=”select*from roomtype”
         frmRoomtype.Show
   End If
End Sub
Private Sub From_Resize()‘窗体变化时，调整标签和表格位置，使标签处于窗体的最上方，而表格始终处于标签下方
    If Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimized Then‘边界处理
           If Me.Scaleheight<10*lblTitle.Height Then
            &nb

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