frmroomstate.vb

vb.net+SQL开发工具 是一个很好的管理系统的源码

Public Class frmRoomState
    Inherits System.Windows.Forms.Form
    '为dgdList保存数据的数据表
    Private dtData As DataTable
    '保存要显示的客房信息的数据表
    Private dtRoom As DataTable
    '保存位图对象的ArrayList
    Private bitMaps As ArrayList
    '记录房间数最多的那一层的房间数
    Private iMaxRoomNumber As Int16
    Private gridMouseDownTime As DateTime = New DateTime
    '客房编号
    Public strRoomCode As String = ""
    '双击DataGrid的单元格是否关闭窗口
    Public bClose As Boolean = False
    '限制要显示那些状态客房的字符串
    Public strFilter As String = ""
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents btnUpate As System.Windows.Forms.Button
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents rbnEmpty As System.Windows.Forms.RadioButton
    Friend WithEvents rbnFull As System.Windows.Forms.RadioButton
    Friend WithEvents rbnSelf As System.Windows.Forms.RadioButton
    Friend WithEvents rbnRepair As System.Windows.Forms.RadioButton
    Friend WithEvents rbnArrive As System.Windows.Forms.RadioButton
    Friend WithEvents rbnLeave As System.Windows.Forms.RadioButton
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents dgdList As System.Windows.Forms.DataGrid
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents lblRoom As System.Windows.Forms.Label
    Friend WithEvents btnSet As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmRoomState))
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.btnSet = New System.Windows.Forms.Button
        Me.btnUpate = New System.Windows.Forms.Button
        Me.GroupBox3 = New System.Windows.Forms.GroupBox
        Me.PictureBox6 = New System.Windows.Forms.PictureBox
        Me.PictureBox5 = New System.Windows.Forms.PictureBox
        Me.PictureBox4 = New System.Windows.Forms.PictureBox
        Me.PictureBox3 = New System.Windows.Forms.PictureBox
        Me.PictureBox2 = New System.Windows.Forms.PictureBox
        Me.rbnLeave = New System.Windows.Forms.RadioButton
        Me.rbnArrive = New System.Windows.Forms.RadioButton
        Me.rbnRepair = New System.Windows.Forms.RadioButton
        Me.rbnSelf = New System.Windows.Forms.RadioButton
        Me.rbnFull = New System.Windows.Forms.RadioButton
        Me.rbnEmpty = New System.Windows.Forms.RadioButton
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.lblRoom = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.dgdList = New System.Windows.Forms.DataGrid
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.dgdList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.btnSet)
        Me.GroupBox1.Controls.Add(Me.btnUpate)
        Me.GroupBox1.Controls.Add(Me.GroupBox3)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
        Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(200, 405)
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "控制区"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(24, 312)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(160, 80)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "提示：房态一般由程序自动修改，人工一般不可以修改，除非是发现错误或者是将房态设置为自用房等操作，实际系统中学要对用户的权限进行验证。"
        '
        'btnSet
        '
        Me.btnSet.Location = New System.Drawing.Point(24, 280)
        Me.btnSet.Name = "btnSet"
        Me.btnSet.TabIndex = 1
        Me.btnSet.Text = "设置房态"
        '
        'btnUpate
        '
        Me.btnUpate.Location = New System.Drawing.Point(24, 24)
        Me.btnUpate.Name = "btnUpate"
        Me.btnUpate.TabIndex = 0
        Me.btnUpate.Text = "更新房态图"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.PictureBox6)
        Me.GroupBox3.Controls.Add(Me.PictureBox5)
        Me.GroupBox3.Controls.Add(Me.PictureBox4)
        Me.GroupBox3.Controls.Add(Me.PictureBox3)
        Me.GroupBox3.Controls.Add(Me.PictureBox2)
        Me.GroupBox3.Controls.Add(Me.rbnLeave)
        Me.GroupBox3.Controls.Add(Me.rbnArrive)
        Me.GroupBox3.Controls.Add(Me.rbnRepair)
        Me.GroupBox3.Controls.Add(Me.rbnSelf)
        Me.GroupBox3.Controls.Add(Me.rbnFull)
        Me.GroupBox3.Controls.Add(Me.rbnEmpty)
        Me.GroupBox3.Controls.Add(Me.PictureBox1)
        Me.GroupBox3.Location = New System.Drawing.Point(16, 56)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(168, 216)
        Me.GroupBox3.TabIndex = 0
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "房态选择"
        '
        'PictureBox6
        '
        Me.PictureBox6.Image = CType(resources.GetObject("PictureBox6.Image"), System.Drawing.Image)
        Me.PictureBox6.Location = New System.Drawing.Point(88, 176)
        Me.PictureBox6.Name = "PictureBox6"
        Me.PictureBox6.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox6.TabIndex = 10
        Me.PictureBox6.TabStop = False
        '
        'PictureBox5
        '
        Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Image)
        Me.PictureBox5.Location = New System.Drawing.Point(88, 144)
        Me.PictureBox5.Name = "PictureBox5"
        Me.PictureBox5.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox5.TabIndex = 9
        Me.PictureBox5.TabStop = False
        '
        'PictureBox4
        '
        Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Image)
        Me.PictureBox4.Location = New System.Drawing.Point(88, 112)
        Me.PictureBox4.Name = "PictureBox4"
        Me.PictureBox4.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox4.TabIndex = 8
        Me.PictureBox4.TabStop = False
        '
        'PictureBox3
        '
        Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
        Me.PictureBox3.Location = New System.Drawing.Point(88, 82)
        Me.PictureBox3.Name = "PictureBox3"
        Me.PictureBox3.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox3.TabIndex = 7
        Me.PictureBox3.TabStop = False
        '
        'PictureBox2
        '
        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
        Me.PictureBox2.Location = New System.Drawing.Point(88, 49)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox2.TabIndex = 6
        Me.PictureBox2.TabStop = False
        '
        'rbnLeave
        '
        Me.rbnLeave.Location = New System.Drawing.Point(32, 184)
        Me.rbnLeave.Name = "rbnLeave"
        Me.rbnLeave.Size = New System.Drawing.Size(48, 24)
        Me.rbnLeave.TabIndex = 5
        Me.rbnLeave.Text = "将离 "
        '
        'rbnArrive
        '
        Me.rbnArrive.Location = New System.Drawing.Point(32, 152)
        Me.rbnArrive.Name = "rbnArrive"
        Me.rbnArrive.Size = New System.Drawing.Size(48, 24)
        Me.rbnArrive.TabIndex = 4
        Me.rbnArrive.Text = "将到"
        '
        'rbnRepair
        '
        Me.rbnRepair.Location = New System.Drawing.Point(32, 120)
        Me.rbnRepair.Name = "rbnRepair"
        Me.rbnRepair.Size = New System.Drawing.Size(48, 24)
        Me.rbnRepair.TabIndex = 3
        Me.rbnRepair.Text = "维修"
        '
        'rbnSelf
        '
        Me.rbnSelf.Location = New System.Drawing.Point(32, 88)
        Me.rbnSelf.Name = "rbnSelf"
        Me.rbnSelf.Size = New System.Drawing.Size(48, 24)
        Me.rbnSelf.TabIndex = 2
        Me.rbnSelf.Text = "自用"
        '
        'rbnFull
        '
        Me.rbnFull.Location = New System.Drawing.Point(32, 56)
        Me.rbnFull.Name = "rbnFull"
        Me.rbnFull.Size = New System.Drawing.Size(48, 24)
        Me.rbnFull.TabIndex = 1
        Me.rbnFull.Text = "住房"
        '
        'rbnEmpty
        '
        Me.rbnEmpty.Location = New System.Drawing.Point(32, 24)
        Me.rbnEmpty.Name = "rbnEmpty"
        Me.rbnEmpty.Size = New System.Drawing.Size(48, 24)
        Me.rbnEmpty.TabIndex = 0
        Me.rbnEmpty.Text = "空房"
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(88, 16)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.lblRoom)
        Me.GroupBox2.Controls.Add(Me.Label2)
        Me.GroupBox2.Controls.Add(Me.dgdList)
        Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox2.Location = New System.Drawing.Point(200, 0)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(408, 405)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "房态显示"
        '
        'lblRoom
        '
        Me.lblRoom.Location = New System.Drawing.Point(88, 32)
        Me.lblRoom.Name = "lblRoom"
        Me.lblRoom.Size = New System.Drawing.Size(128, 16)
        Me.lblRoom.TabIndex = 2
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(24, 32)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 16)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "当前房间"
        '
        'dgdList
        '
        Me.dgdList.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgdList.CaptionVisible = False
        Me.dgdList.DataMember = ""
        Me.dgdList.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdList.Location = New System.Drawing.Point(3, 72)
        Me.dgdList.Name = "dgdList"
        Me.dgdList.Size = New System.Drawing.Size(402, 328)
        Me.dgdList.TabIndex = 0
        '
        'frmRoomState
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 405)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmRoomState"
        Me.Text = "房态图"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.dgdList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub frmRoomState_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        InitMaps()