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

《信息系统与数据库技术》技术实践

Catch wxs As Exception MsgBox(wxs.Message) End Try sql.Close()

MsgBox("退房成功！欢迎再次光临！") End Sub

Private Sub Button2_Click(ByVal sender As System.Object, System.EventArgs) Handles Button2.Click End End Sub

Private Sub Button13_Click(ByVal sender As System.Object, System.EventArgs) Handles Button13.Click

Dim yujub As String = "select * from t_room where ComboBox1.Text & "' "

Dim spqb As SqlDataAdapter

spqb = New SqlDataAdapter(yujub, sql) Dim sjjb As New DataSet() spqb.Fill(sjjb, "innb")

DataGrid2.DataSource = sjjb.Tables("innb") End Sub

Private Sub Button14_Click(ByVal sender As System.Object, System.EventArgs) Handles Button14.Click

Dim yujuc As String = "select * from t_room where ComboBox3.Text & "' "

Dim spqc As SqlDataAdapter

spqc = New SqlDataAdapter(yujuc, sql) Dim sjjc As New DataSet() spqc.Fill(sjjc, "inna")

DataGrid2.DataSource = sjjc.Tables("innc") End Sub

End Class

20

ByVal e As

ByVal e As position='" &

ByVal e As position='" &