宾馆客房管理系统(10)

宾馆客房管理设计,工具sql和vs2008.

ComboBox1.DataSource = sjj9.Tables("inn1")

ComboBox1.DisplayMember = sjj9.Tables("inn1").Columns(0).ToString ComboBox2.DataSource = sjj9.Tables("inn1")

ComboBox2.DisplayMember = sjj9.Tables("inn1").Columns(2).ToString ComboBox3.DataSource = sjj9.Tables("inn1")

ComboBox3.DisplayMember = sjj9.Tables("inn1").Columns(1).ToString ComboBox4.DataSource = sjj9.Tables("inn1")

ComboBox4.DisplayMember = sjj9.Tables("inn1").Columns(0).ToString End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim yuju1 As String = "insert into t_guest values('" & TextBox1.Text & "','" & ListBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"

Dim yuju2 As String = "insert into t_book values('" & TextBox2.Text & "','" & TextBox6.Text & "','" & ComboBox4.Text & "','" & TextBox4.Text & "'" & _ ",' ','" & TextBox15.Text & "')"

Dim yujuz As String = "update t_room set status='false' where roomid='" & ComboBox4.Text & "'"

Dim cmmd As New SqlCommand(yuju1, sql) Dim cmmd2 As New SqlCommand(yuju2, sql) Dim i As Integer Dim d As Integer sql.Open() Try

i = cmmd.ExecuteNonQuery() d = cmmd2.ExecuteNonQuery() Catch wx As Exception MsgBox(wx.Message)

End Try sql.Close()

MsgBox("客户入住成功！")

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Dim yuju3 As String = "insert into t_vip values('" & TextBox21.Text & "','" & TextBox22.Text & "','" & TextBox23.Text & "','" & TextBox25.Text & "')" Dim cmmd3 As New SqlCommand(yuju3, sql)