宾馆客房管理系统(13)

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

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

Dim yuju10 As String = "select orderno,bookmoney,discount from t_book , t_vip where t_book.guestid=t_vip.guestid and roomid='" & TextBox16.Text & "' " Dim spq10 As SqlDataAdapter

spq10 = New SqlDataAdapter(yuju10, sql) Dim sjj10 As New DataSet() spq10.Fill(sjj10, "inn2")

DataGrid2.DataSource = sjj10.Tables("inn2") Dim mybind As BindingManagerBase mybind = BindingContext(sjj10, "inn2")

TextBox17.DataBindings.Add("text", sjj10.Tables("inn2"), "orderno") TextBox18.DataBindings.Add("text", sjj10.Tables("inn2"), "discount") TextBox19.DataBindings.Add("text", sjj10.Tables("inn2"), "bookmoney")

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Dim yuju11 As String = "select orderno,bookmoney,discount,intime,bookmoney from t_room and t_vip where t_room.guestid=t_vip.guestid and roomid='" & TextBox16.Text & "' " Dim spq11 As SqlDataAdapter

spq11 = New SqlDataAdapter(yuju11, sql) Dim sjj11 As New DataSet() spq11.Fill(sjj11, "inn5")

TextBox20.Text = sjj11.Tables("inn5").Columns(4).ToString

Dim yujus As String = "update t_room set status='true' where roomid='" & TextBox16.Text & "'"

Dim cmmds As New SqlCommand(yujus, sql)

Dim yuju15 As String = "insert into t_check values('" & TextBox17.Text & "','','','" & TextBox20.Text & "','','" & TextBox17.Text & "')"

Dim cmmd15 As New SqlCommand(yuju15, sql)

Dim yuju16 As String = "delete from t_book where roomid='" & TextBox16.Text & "'"

Dim cmmd16 As New SqlCommand(yuju16,sql) Dim ii As Integer Dim ff As Integer Dim tt As Integer sql.Open() Try

ii = cmmds.ExecuteNonQuery() ff = cmmds.ExecuteNonQuery() tt = cmmds.ExecuteNonQuery()