⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmroominfo.vb

📁 用.net写的,不知道怎么样,各位看看再说吧.
💻 VB
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        '
        Me.txbState.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客房信息.状态"))
        Me.txbState.Location = New System.Drawing.Point(296, 76)
        Me.txbState.Name = "txbState"
        Me.txbState.Size = New System.Drawing.Size(64, 21)
        Me.txbState.TabIndex = 9
        Me.txbState.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(296, 52)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 18)
        Me.Label8.TabIndex = 8
        Me.Label8.Text = "状态"
        '
        'txbDescribe
        '
        Me.txbDescribe.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客房信息.客房描述"))
        Me.txbDescribe.Location = New System.Drawing.Point(16, 76)
        Me.txbDescribe.Name = "txbDescribe"
        Me.txbDescribe.Size = New System.Drawing.Size(256, 21)
        Me.txbDescribe.TabIndex = 7
        Me.txbDescribe.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(14, 52)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 18)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "客房描述"
        '
        'txbBed
        '
        Me.txbBed.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客房信息.床数"))
        Me.txbBed.Location = New System.Drawing.Point(384, 26)
        Me.txbBed.Name = "txbBed"
        Me.txbBed.Size = New System.Drawing.Size(64, 21)
        Me.txbBed.TabIndex = 5
        Me.txbBed.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(384, 10)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 18)
        Me.Label6.TabIndex = 4
        Me.Label6.Text = "床数"
        '
        'txbNumber
        '
        Me.txbNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客房信息.额定人数"))
        Me.txbNumber.Location = New System.Drawing.Point(296, 26)
        Me.txbNumber.Name = "txbNumber"
        Me.txbNumber.Size = New System.Drawing.Size(64, 21)
        Me.txbNumber.TabIndex = 3
        Me.txbNumber.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(296, 10)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 18)
        Me.Label5.TabIndex = 2
        Me.Label5.Text = "额定人数"
        '
        'txbRoomCode
        '
        Me.txbRoomCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "客房信息.客房编号"))
        Me.txbRoomCode.Location = New System.Drawing.Point(15, 26)
        Me.txbRoomCode.Name = "txbRoomCode"
        Me.txbRoomCode.Size = New System.Drawing.Size(73, 21)
        Me.txbRoomCode.TabIndex = 1
        Me.txbRoomCode.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(14, 10)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 18)
        Me.Label4.TabIndex = 0
        Me.Label4.Text = "客房编号"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "客房信息", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("客房编号", "客房编号"), New System.Data.Common.DataColumnMapping("类型编号", "类型编号"), New System.Data.Common.DataColumnMapping("楼层编号", "楼层编号"), New System.Data.Common.DataColumnMapping("额定人数", "额定人数"), New System.Data.Common.DataColumnMapping("床数", "床数"), New System.Data.Common.DataColumnMapping("状态", "状态"), New System.Data.Common.DataColumnMapping("是否可拼房", "是否可拼房"), New System.Data.Common.DataColumnMapping("客房描述", "客房描述"), New System.Data.Common.DataColumnMapping("备注", "备注")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 客房信息 WHERE (客房编号 = @Original_客房编号) AND (备注 = @Original_备注 OR @Origina" & _
        "l_备注 IS NULL AND 备注 IS NULL) AND (客房描述 = @Original_客房描述 OR @Original_客房描述 IS NUL" & _
        "L AND 客房描述 IS NULL) AND (床数 = @Original_床数 OR @Original_床数 IS NULL AND 床数 IS NUL" & _
        "L) AND (是否可拼房 = @Original_是否可拼房 OR @Original_是否可拼房 IS NULL AND 是否可拼房 IS NULL) AN" & _
        "D (楼层编号 = @Original_楼层编号) AND (状态 = @Original_状态 OR @Original_状态 IS NULL AND 状态 " & _
        "IS NULL) AND (类型编号 = @Original_类型编号) AND (额定人数 = @Original_额定人数 OR @Original_额定人" & _
        "数 IS NULL AND 额定人数 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房编号", System.Data.SqlDbType.VarChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_备注", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房描述", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房描述", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_床数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "床数", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_是否可拼房", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否可拼房", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_楼层编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "楼层编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_状态", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "状态", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_类型编号", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "类型编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_额定人数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "额定人数", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=KOBE;packet size=4096;integrated security=SSPI;data source=KOBE;pe" & _
        "rsist security info=False;initial catalog=hotelbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 客房信息(客房编号, 类型编号, 楼层编号, 额定人数, 床数, 状态, 是否可拼房, 客房描述, 备注) VALUES (@客房编号, " & _
        "@类型编号, @楼层编号, @额定人数, @床数, @状态, @是否可拼房, @客房描述, @备注); SELECT 客房编号, 类型编号, 楼层编号, 额定人" & _
        "数, 床数, 状态, 是否可拼房, 客房描述, 备注 FROM 客房信息 WHERE (客房编号 = @客房编号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房编号", System.Data.SqlDbType.VarChar, 12, "客房编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类型编号", System.Data.SqlDbType.VarChar, 4, "类型编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@楼层编号", System.Data.SqlDbType.Int, 4, "楼层编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@额定人数", System.Data.SqlDbType.Int, 4, "额定人数"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@床数", System.Data.SqlDbType.Int, 4, "床数"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@状态", System.Data.SqlDbType.VarChar, 4, "状态"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否可拼房", System.Data.SqlDbType.Bit, 1, "是否可拼房"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房描述", System.Data.SqlDbType.VarChar, 40, "客房描述"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 100, "备注"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 客房编号, 类型编号, 楼层编号, 额定人数, 床数, 状态, 是否可拼房, 客房描述, 备注 FROM 客房信息"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 客房信息 SET 客房编号 = @客房编号, 类型编号 = @类型编号, 楼层编号 = @楼层编号, 额定人数 = @额定人数, 床数 = @床数," & _
        " 状态 = @状态, 是否可拼房 = @是否可拼房, 客房描述 = @客房描述, 备注 = @备注 WHERE (客房编号 = @Original_客房编号) " & _
        "AND (备注 = @Original_备注 OR @Original_备注 IS NULL AND 备注 IS NULL) AND (客房描述 = @Orig" & _
        "inal_客房描述 OR @Original_客房描述 IS NULL AND 客房描述 IS NULL) AND (床数 = @Original_床数 OR " & _
        "@Original_床数 IS NULL AND 床数 IS NULL) AND (是否可拼房 = @Original_是否可拼房 OR @Original_是" & _
        "否可拼房 IS NULL AND 是否可拼房 IS NULL) AND (楼层编号 = @Original_楼层编号) AND (状态 = @Original_" & _
        "状态 OR @Original_状态 IS NULL AND 状态 IS NULL) AND (类型编号 = @Original_类型编号) AND (额定人数" & _
        " = @Original_额定人数 OR @Original_额定人数 IS NULL AND 额定人数 IS NULL); SELECT 客房编号, 类型编号" & _
        ", 楼层编号, 额定人数, 床数, 状态, 是否可拼房, 客房描述, 备注 FROM 客房信息 WHERE (客房编号 = @客房编号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房编号", System.Data.SqlDbType.VarChar, 12, "客房编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@类型编号", System.Data.SqlDbType.VarChar, 4, "类型编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@楼层编号", System.Data.SqlDbType.Int, 4, "楼层编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@额定人数", System.Data.SqlDbType.Int, 4, "额定人数"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@床数", System.Data.SqlDbType.Int, 4, "床数"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@状态", System.Data.SqlDbType.VarChar, 4, "状态"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否可拼房", System.Data.SqlDbType.Bit, 1, "是否可拼房"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@客房描述", System.Data.SqlDbType.VarChar, 40, "客房描述"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 100, "备注"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房编号", System.Data.SqlDbType.VarChar, 12, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_备注", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_客房描述", System.Data.SqlDbType.VarChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "客房描述", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_床数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "床数", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_是否可拼房", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否可拼房", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_楼层编号", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "楼层编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_状态", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "状态", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_类型编号", System.Data.SqlDbType.VarChar, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "类型编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_额定人数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "额定人数", System.Data.DataRowVersion.Original, Nothing))
        '
        'frmRoomInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(616, 325)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmRoomInfo"
        Me.Controls.SetChildIndex(Me.GroupBox1, 0)
        Me.GroupBox1.ResumeLayout(False)
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -