宾馆客房管理系统(12)

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

System.EventArgs) Handles Button3.Click

Dim yuju7 As String = "select guestname,intime from t_book and t_guest where t_book.guestid=t_guest.guestid and orderno='" & TextBox14.Text & "' " Dim spq7 As SqlDataAdapter

spq7 = New SqlDataAdapter(yuju7, sql) Dim sjj7 As New DataSet() spq7.Fill(sjj7, "inn")

DataGrid1.DataSource = sjj7.Tables("inn")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, System.EventArgs) Handles Button4.Click

Dim yuju8 As String = "select * from t_book and t_book.guestid=t_guest.guestid " Dim spq8 As SqlDataAdapter

spq8 = New SqlDataAdapter(yuju8, sql) Dim sjj8 As New DataSet() spq8.Fill(sjj8, "inn3")

DataGrid1.DataSource = sjj8.Tables("inn3")

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, System.EventArgs) Handles Button6.Click

Dim yujua As String = "select * from t_room where ComboBox2.Text & "' "

Dim spqa As SqlDataAdapter

spqa = New SqlDataAdapter(yujua, sql) Dim sjja As New DataSet() spqa.Fill(sjja, "inna")

DataGrid2.DataSource = sjja.Tables("inna") End Sub

Private Sub Button7_Click(ByVal sender As System.Object, System.EventArgs) Handles Button7.Click

Dim yuju9 As String = "select * from t_room " Dim spq9 As SqlDataAdapter

spq9 = New SqlDataAdapter(yuju9, sql) Dim sjj9 As New DataSet() spq9.Fill(sjj9, "inn1")

DataGrid2.DataSource = sjj9.Tables("inn1") End Sub

ByVal e As t_guest where ByVal e As position='" & ByVal e As