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

Dim ee As Integer sql.Open() Try

ee = cmmd3.ExecuteNonQuery() Catch wx2 As Exception MsgBox(wx2.Message)

End Try sql.Close()

MsgBox("欢迎您，尊贵的会员！") End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click yuju = "select * from t_vip"

spq = New SqlDataAdapter(yuju, sql) spq.Fill(sjj, "001")

DataGrid4.DataSource = sjj.Tables("001") End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

Dim yuju4 As String = "insert into t_guest values('" & TextBox5.Text & "','','" & TextBox8.Text & "','" & TextBox7.Text & "')"

Dim yuju6 As String = "insert into t_book values('" & TextBox8.Text & "','','" & TextBox9.Text & "','','','" & TextBox10.Text & "')"

Dim cmmd4 As New SqlCommand(yuju4, sql) Dim cmmd6 As New SqlCommand(yuju6, sql) Dim ee2 As Integer Dim ee6 As Integer sql.Open() Try

ee2 = cmmd4.ExecuteNonQuery() ee6 = cmmd4.ExecuteNonQuery() Catch wx3 As Exception MsgBox(wx3.Message)

End Try sql.Close()

MsgBox("预订成功！") End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As