编写vb.net代码，在bookingform窗体中选择一个时间段后弹出“预约成功”，并在sql server的reservation表中插入预约信息，包括预约编号、用户，包厢号、预约日期（取getdate）、预约时间（插入用户选中的时间），用户电话号码（插入用户填入的号码）

好的，首先需要在bookingform窗体中添加一个选择时间段的控件，比如一个DateTimePicker控件。然后，在用户选择时间段后，我们需要在代码中编写插入预约信息的功能。

在代码中，我们需要使用SQL语句向reservation表中插入预约信息。具体代码如下：

Dim connString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;"
Dim conn As New SqlConnection(connString)
conn.Open()

Dim insertCommand As New SqlCommand("INSERT INTO reservation (booking_number, user_name, room_number, booking_date, booking_time, phone_number) VALUES (@booking_number, @user_name, @room_number, GETDATE(), @booking_time, @phone_number)", conn)
insertCommand.Parameters.AddWithValue("@booking_number", "预约编号")
insertCommand.Parameters.AddWithValue("@user_name", "用户")
insertCommand.Parameters.AddWithValue("@room_number", "包厢号")
insertCommand.Parameters.AddWithValue("@booking_time", DateTimePicker1.Value)
insertCommand.Parameters.AddWithValue("@phone_number", "用户电话号码")
insertCommand.ExecuteNonQuery()

conn.Close()

在这个代码中，我们首先创建了一个SqlConnection对象，然后使用Open()方法打开数据库连接。接着，我们创建了一个SqlCommand对象，使用INSERT INTO语句将预约信息插入到reservation表中。使用Parameters.AddWithValue()方法来设置预约信息的参数，其中booking_date使用了SQL Server内置的GETDATE()函数来获取当前日期。最后，使用ExecuteNonQuery()方法来执行SQL语句，将预约信息插入到数据库中。

在插入预约信息的同时，我们可以使用MessageBox.Show()方法弹出“预约成功”的提示框，代码如下：

MessageBox.Show("预约成功！")

这样，当用户选择时间段后，我们就可以插入预约信息到数据库中，并弹出“预约成功”的提示框。完整代码如下：

Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
    Dim connString As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;"
    Dim conn As New SqlConnection(connString)
    conn.Open()

    Dim insertCommand As New SqlCommand("INSERT INTO reservation (booking_number, user_name, room_number, booking_date, booking_time, phone_number) VALUES (@booking_number, @user_name, @room_number, GETDATE(), @booking_time, @phone_number)", conn)
    insertCommand.Parameters.AddWithValue("@booking_number", "预约编号")
    insertCommand.Parameters.AddWithValue("@user_name", "用户")
    insertCommand.Parameters.AddWithValue("@room_number", "包厢号")
    insertCommand.Parameters.AddWithValue("@booking_time", DateTimePicker1.Value)
    insertCommand.Parameters.AddWithValue("@phone_number", "用户电话号码")
    insertCommand.ExecuteNonQuery()

    conn.Close()

    MessageBox.Show("预约成功！")
End Sub