Visual Basic 2010 数据库开发之酒店管理系统03客房信息设置

Imports System.Data.SqlClient
Public Class frmKeFangInfo
    Dim flag As String = ""

    Private Sub SetControlDisable()
        GroupBox1.Enabled = False
    End Sub
    Private Sub SetControlEnable()
        GroupBox1.Enabled = True
    End Sub
    Private Sub SetControlEmpty()
        txtBianHao.Text = ""
        cmbLeiXing.Text = ""
        txtBedTotal.Text = ""
        txtMoney.Text = ""
        txtDetail.Text = ""
        txtMemo.Text = ""
    End Sub

    Dim conn As SqlConnection = GetConnection()
    Dim strSql As String = "Select * From 客房信息"
    Dim myda As New SqlDataAdapter(strSql, conn)
    Dim mydt As DataTable
    '使用dataview定制从数据库返回的、存储在DataSet中的记录的视图
    Dim myDataView As DataView
    'CurrencyManager用于控制绑定数据
    Dim bmdata As CurrencyManager

    '数据填充并更新显示过程
    Private Sub FillDataSetAndView()
        mydt = New DataTable
        myda.Fill(mydt)
        '将表填入dataview
        myDataView = New DataView(mydt)
        '将DataView变量绑定控件，能记录位置
        bmdata = Me.BindingContext(myDataView)
    End Sub

    Private Sub BindingFields()
        txtBianHao.DataBindings.Clear()
        cmbLeiXing.DataBindings.Clear()
        txtBedTotal.DataBindings.Clear()
        txtMoney.DataBindings.Clear()
        txtDetail.DataBindings.Clear()
        txtMemo.DataBindings.Clear()

        txtBianHao.DataBindings.Add("text", myDataView, "客房编号")
        cmbLeiXing.DataBindings.Add("text", myDataView, "客房类型")
        txtBedTotal.DataB