form3.vb

是一个酒店管理信息系统。 用VB.NET以及SQL开发 包括程序

            TextBox1.Text = DatePart(DateInterval.Year, Today()).ToString & "00" & index.ToString
        ElseIf 10 <= index < 100 Then
            TextBox1.Text = DatePart(DateInterval.Year, Today()).ToString & "0" & index.ToString
        Else
            TextBox1.Text = DatePart(DateInterval.Year, Today()).ToString & index.ToString
        End If
        TextBox7.Text = Today
    End Sub



    Private Sub save()
        Try
            Dim lszh As String = TextBox1.Text
            Dim xm As String = TextBox2.Text
            Dim xb As String = ComboBox1.Text
            Dim lb As String = ComboBox2.Text
            Dim zjlb As String = ComboBox3.Text
            Dim zjhm As String = TextBox3.Text
            Dim rs As String = TextBox5.Text
            Dim yj As String = TextBox6.Text
            Dim rzrq As String = TextBox7.Text
            Dim fth As String = TextBox4.Text
            Const null As String = ""
            rzrq = Today
            Select Case null
                Case TextBox2.Text
                    MessageBox.Show("姓名不能为空!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                Case ComboBox1.Text
                    MessageBox.Show("请选择性别!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                Case ComboBox2.Text
                    MessageBox.Show("请选择正确的类别!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                Case ComboBox3.Text
                    MessageBox.Show("请选择您的身份凭证!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                Case TextBox3.Text
                    MessageBox.Show("请输入您的" & ComboBox3.Text & "号码", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                Case TextBox6.Text
                    MessageBox.Show("您的押金不能为空!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
                Case Else
                    If ds.Tables("房台信息").Rows.Count = 0 Then
                        MsgBox("已经没有可以入住的房间了", MsgBoxStyle.Exclamation, "警告")
                        Exit Sub
                    Else
                        '设置开台表
                        If rs = "" Then rs = 0
                        cm.CommandText = "insert into 开台(流水帐号,房台号,人数,押金,入住日期) values (" & CInt(lszh) & ",'" & fth & "'," & CInt(rs) & ",'" & yj & "','" & rzrq & "')"
                        cn.Open()
                        cm.ExecuteNonQuery()
                        cn.Close()
                        '设置房台为使用或预定状态
                        cm.CommandText = "update 房台信息 set 状态='使用' where 房台号='" & TextBox4.Text & "'"
                        cn.Open()
                        cm.ExecuteReader()
                        cn.Close()
                        '这里重新生成一个流水帐号
                        TextBox1.Text = ""
                        TextBox2.Text = ""
                        TextBox3.Text = ""
                        TextBox4.Text = ""
                        TextBox5.Text = ""
                        TextBox6.Text = ""
                        TextBox7.Text = ""
                        createindex()
                        '重新填充数据
                        cn.Open()
                        ds.Clear()
                        cm.Connection = cn
                        cm.CommandText = "select * from 客人信息"
                        customerda.SelectCommand = cm
                        customerda.Fill(ds, "客人信息")
                        cm.CommandText = "select * from 房台信息 where 状态='空闲'"
                        houseda.SelectCommand = cm
                        houseda.Fill(ds, "房台信息")
                        cm.CommandText = "select * from 开台"
                        setupda.SelectCommand = cm
                        setupda.Fill(ds, "开台")
                        cn.Close()
                        MsgBox("录入成功", MsgBoxStyle.Information, "消息")
                    End If
            End Select

        Catch ex As SqlException
            cn.Close()
            MsgBox(ex.ToString)
        End Try
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If DataGrid2.CurrentRowIndex = -1 Then
            MsgBox("您需要先录入客人的基本信息", MsgBoxStyle.MsgBoxHelp, "msg")
        Else
            save()
        End If
    End Sub

    Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseUp
        TextBox4.Text = DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        createindex()
        Button1.Enabled = True
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "团体" Then
            TextBox5.Enabled = True
        Else
            TextBox5.Enabled = False
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.main.Show()
        Me.main.WindowState = FormWindowState.Normal
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case ""
            Case TextBox2.Text
                MessageBox.Show("姓名不能为空!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Case ComboBox1.Text
                MessageBox.Show("请选择性别!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Case ComboBox2.Text
                MessageBox.Show("请选择正确的类别!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Case ComboBox3.Text
                MessageBox.Show("请选择您的身份凭证!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Case TextBox3.Text
                MessageBox.Show("请输入您的" & ComboBox3.Text & "号码", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Case TextBox6.Text
                MessageBox.Show("您的押金不能为空!", "警告:", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)
            Case Else
                '添加一条记录
                Dim lszh As String = TextBox1.Text
                Dim xm As String = TextBox2.Text
                Dim xb As String = ComboBox1.Text
                Dim lb As String = ComboBox2.Text
                Dim zjlb As String = ComboBox3.Text
                Dim zjhm As String = TextBox3.Text
                Dim rs As String = TextBox5.Text
                Dim yj As String = TextBox6.Text
                Dim rzrq As String = TextBox7.Text
                Dim fth As String = TextBox4.Text
                Dim rowarray As DataRow = ds.Tables("客人信息").NewRow
                rowarray("流水帐号") = Int(lszh)
                rowarray("姓名") = xm
                rowarray("性别") = xb
                rowarray("类型") = lb
                rowarray("证件类型") = zjlb
                rowarray("证件号码") = zjhm
                ds.Tables("客人信息").Rows.Add(rowarray)
                cm.CommandText = "select * from 客人信息"
                Dim T As New SqlClient.SqlCommandBuilder(customerda)
                customerda.Update(ds.Tables("客人信息"))
                MsgBox("客人" & xm & "的基本信息添加成功!", MsgBoxStyle.Information, "添加成功")
                '重生成一个帐号
                createindex()
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox6.Text = ""
        End Select
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            If DataGrid2.CurrentRowIndex <> -1 Then
                Dim lszh As String = TextBox1.Text
                Dim xm As String = TextBox2.Text
                Dim xb As String = ComboBox1.Text
                Dim lb As String = ComboBox2.Text
                Dim zjlb As String = ComboBox3.Text
                Dim zjhm As String = TextBox3.Text
                Dim rs As String = TextBox5.Text
                Dim yj As String = TextBox6.Text
                Dim rzrq As String = TextBox7.Text
                If rs.Trim = "" Then rs = 0
                If yj.Trim = "" Then yj = 0
                cm.CommandText = "update 客人信息 set 流水帐号=" & CInt(lszh) & ",姓名='" & xm & "',性别='" & xb & "',类型='" & lb & "',证件类型='" & zjlb & "',证件号码='" & zjhm & "' where 流水帐号=" & TextBox1.Text.Trim
                ds.Tables("客人信息").Clear()
                cn.Open()
                cm.ExecuteNonQuery()
                cn.Close()
                cm.CommandText = "select * from 客人信息"
                customerda.Fill(ds, "客人信息")
                MsgBox("修改成功!", MsgBoxStyle.Information, "信息")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If DataGrid2.CurrentRowIndex = -1 Then
            MsgBox("请先在客人信息表里选择您想删除的记录!", MsgBoxStyle.Exclamation, "提示")
        Else

            cm.CommandText = "delete from 客人信息 where 流水帐号=" & DataGrid2.Item(DataGrid2.CurrentRowIndex, 0)
            cn.Open()
            cm.ExecuteNonQuery()
            cn.Close()
            ds.Tables("客人信息").Clear()
            cm.CommandText = "select * from 客人信息"
            customerda.Fill(ds, "客人信息")
            MsgBox("执行删除成功!", MsgBoxStyle.Information, "信息")
            DataGrid1.CurrentRowIndex = 0
        End If

    End Sub

    Private Sub DataGrid2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid2.MouseUp
        TextBox1.Text = DataGrid2.Item(DataGrid2.CurrentRowIndex, 0)
        TextBox2.Text = DataGrid2.Item(DataGrid2.CurrentRowIndex, 1)
        ComboBox1.Text = DataGrid2.Item(DataGrid2.CurrentRowIndex, 2).trim
        ComboBox2.Text = DataGrid2.Item(DataGrid2.CurrentRowIndex, 3).trim
        ComboBox3.Text = DataGrid2.Item(DataGrid2.CurrentRowIndex, 4).trim
        TextBox3.Text = DataGrid2.Item(DataGrid2.CurrentRowIndex, 5)
        ds.Tables("开台").DefaultView.RowFilter = "流水帐号=" & DataGrid2.Item(DataGrid2.CurrentRowIndex, 0)
        If ds.Tables("开台").DefaultView.Count <> 0 Then
            TextBox5.Text = ds.Tables("开台").DefaultView.Item(0).Item("人数")
            TextBox6.Text = ds.Tables("开台").DefaultView.Item(0).Item("押金")
            TextBox7.Text = ds.Tables("开台").DefaultView.Item(0).Item("入住日期")
            TextBox4.Text = ds.Tables("开台").DefaultView.Item(0).Item("房台号")
        Else
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""
            TextBox4.Text = ""
        End If
    End Sub
End Class