zsdj.vb

酒店管理系统。可对酒店的各项任务分配管理

        Me.TextBox6.ReadOnly = True
        Me.TextBox6.Size = New System.Drawing.Size(80, 23)
        Me.TextBox6.TabIndex = 25
        Me.TextBox6.Text = ""
        '
        'TextBox7
        '
        Me.TextBox7.Font = New System.Drawing.Font("宋体", 10.0!)
        Me.TextBox7.Location = New System.Drawing.Point(392, 280)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(80, 23)
        Me.TextBox7.TabIndex = 26
        Me.TextBox7.Text = ""
        '
        'ComboBox5
        '
        Me.ComboBox5.Font = New System.Drawing.Font("宋体", 10.0!)
        Me.ComboBox5.Items.AddRange(New Object() {"正常", "欠费"})
        Me.ComboBox5.Location = New System.Drawing.Point(128, 320)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(88, 21)
        Me.ComboBox5.TabIndex = 9
        Me.ComboBox5.Text = "正常"
        '
        'Label13
        '
        Me.Label13.Font = New System.Drawing.Font("宋体", 12.0!)
        Me.Label13.Location = New System.Drawing.Point(312, 320)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(88, 23)
        Me.Label13.TabIndex = 26
        Me.Label13.Text = "房间信息"
        '
        'TextBox8
        '
        Me.TextBox8.Font = New System.Drawing.Font("宋体", 10.0!)
        Me.TextBox8.Location = New System.Drawing.Point(392, 320)
        Me.TextBox8.MaxLength = 10
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.ReadOnly = True
        Me.TextBox8.Size = New System.Drawing.Size(80, 23)
        Me.TextBox8.TabIndex = 27
        Me.TextBox8.Text = "几楼几号房"
        '
        'Label14
        '
        Me.Label14.Font = New System.Drawing.Font("宋体", 12.0!)
        Me.Label14.Location = New System.Drawing.Point(312, 200)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(88, 23)
        Me.Label14.TabIndex = 28
        Me.Label14.Text = "住宿天数"
        '
        'TextBox9
        '
        Me.TextBox9.Font = New System.Drawing.Font("宋体", 10.0!)
        Me.TextBox9.Location = New System.Drawing.Point(392, 200)
        Me.TextBox9.MaxLength = 3
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(32, 23)
        Me.TextBox9.TabIndex = 6
        Me.TextBox9.Text = "1"
        '
        'Label15
        '
        Me.Label15.Font = New System.Drawing.Font("宋体", 12.0!)
        Me.Label15.Location = New System.Drawing.Point(40, 240)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(88, 23)
        Me.Label15.TabIndex = 30
        Me.Label15.Text = "宿费金额"
        '
        'TextBox10
        '
        Me.TextBox10.Font = New System.Drawing.Font("宋体", 10.0!)
        Me.TextBox10.Location = New System.Drawing.Point(128, 240)
        Me.TextBox10.MaxLength = 4
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(56, 23)
        Me.TextBox10.TabIndex = 7
        Me.TextBox10.Text = ""
        '
        'Label16
        '
        Me.Label16.Font = New System.Drawing.Font("宋体", 12.0!)
        Me.Label16.Location = New System.Drawing.Point(312, 240)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(88, 23)
        Me.Label16.TabIndex = 32
        Me.Label16.Text = "押　金"
        '
        'TextBox11
        '
        Me.TextBox11.Font = New System.Drawing.Font("宋体", 10.0!)
        Me.TextBox11.Location = New System.Drawing.Point(392, 240)
        Me.TextBox11.MaxLength = 4
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(56, 23)
        Me.TextBox11.TabIndex = 8
        Me.TextBox11.Text = ""
        '
        'zsdj
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(608, 430)
        Me.ControlBox = False
        Me.Controls.Add(Me.TextBox11)
        Me.Controls.Add(Me.Label16)
        Me.Controls.Add(Me.TextBox10)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.TextBox9)
        Me.Controls.Add(Me.Label14)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.Label13)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.ComboBox2)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label12)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.Label10)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label2)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "zsdj"
        Me.Text = "住宿登记"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub fjsx() '房间属性
        Try
            con.Open()
            Dim sql As String = "select 房间属性 from 房间参数"
            ComboBox4.Items.Clear()
            com = New SqlCommand(sql, con)
            dr = com.ExecuteReader
            While dr.Read
                ComboBox4.Items.Add(dr(0))
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

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


    Private Sub ComboBox4_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox4.GotFocus
        Dim pktext As Integer
        Try
            con.Open()
            Dim com As SqlCommand
            Dim dr As SqlDataReader
            Dim sql As String = "select PK from 编号记录"
            com = New SqlCommand(sql, con)
            dr = com.ExecuteReader
            While dr.Read
                pktext = dr(0)
            End While

            '用于生成客户ID＝客户类型＋月份＋日期＋客户编码
            If Now().Month > 10 Then
                If Now.Day > 10 Then
                    Select Case Len(CStr(pktext))
                        Case Is = 1
                            TextBox1.Text = "PK" & Now().Month & Now().Day & "000" & CStr(pktext + 1)
                        Case Is = 2
                            TextBox1.Text = "PK" & Now().Month & Now().Day & "00" & CStr(pktext + 1)
                        Case Is = 3
                            TextBox1.Text = "PK" & Now().Month & Now().Day & "0" & CStr(pktext + 1)
                        Case Is = 4
                            TextBox1.Text = "PK" & Now().Month & Now().Day & CStr(pktext + 1)
                    End Select
                Else
                    Select Case Len(CStr(pktext))
                        Case Is = 1
                            TextBox1.Text = "PK" & Now().Month & "0" & Now().Day & "000" & CStr(pktext + 1)
                        Case Is = 2
                            TextBox1.Text = "PK" & Now().Month & "0" & Now().Day & "00" & CStr(pktext + 1)
                        Case Is = 3
                            TextBox1.Text = "PK" & Now().Month & "0" & Now().Day & "0" & CStr(pktext + 1)
                        Case Is = 4
                            TextBox1.Text = "PK" & Now().Month & "0" & Now().Day & CStr(pktext + 1)
                    End Select
                End If
            Else
                If Now.Day > 10 Then
                    Select Case Len(CStr(pktext))
                        Case Is = 1
                            TextBox1.Text = "PK" & "0" & Now().Month & Now().Day & "000" & CStr(pktext + 1)
                        Case Is = 2
                            TextBox1.Text = "PK" & "0" & Now().Month & Now().Day & "00" & CStr(pktext + 1)
                        Case Is = 3
                            TextBox1.Text = "PK" & "0" & Now().Month & Now().Day & "0" & CStr(pktext + 1)
                        Case Is = 4
                            TextBox1.Text = "PK" & "0" & Now().Month & Now().Day & CStr(pktext + 1)
                    End Select
                Else
                    Select Case Len(CStr(pktext))
                        Case Is = 1
                            TextBox1.Text = "PK" & "0" & Now().Month & "0" & Now().Day & "000" & CStr(pktext + 1)
                        Case Is = 2
                            TextBox1.Text = "PK" & "0" & Now().Month & "0" & Now().Day & "00" & CStr(pktext + 1)
                        Case Is = 3
                            TextBox1.Text = "PK" & "0" & Now().Month & "0" & Now().Day & "0" & CStr(pktext + 1)
                        Case Is = 4
                            TextBox1.Text = "PK" & "0" & Now().Month & "0" & Now().Day & CStr(pktext + 1)
                    End Select
                End If
            End If
            con.Close()

        Catch ex As Exception
            con.Close()
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try

    End Sub

    Private Sub zsdj_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fjsx() '设置房间属性

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try
            If ComboBox1.Text = "是" Then '判断是否为预定客户
                con.Close()
                con.Open()
                Dim com1 As SqlCommand
                Dim dr1 As SqlDataReader
                Dim sql1 As String = "select * from 房间预定 where 预定码='" + TextBox3.Text + "'"
                com1 = New SqlCommand(sql1, con)
                dr1 = com1.ExecuteReader()
                If dr1.Read Then
                    con.Close()
                    con.Open()
                    Dim com5 As SqlCommand
                    Dim sql3 As String = "update 房间信息 set 房间状态='使用' where 房间ID='" + TextBox4.Text + "'"
                    MessageBox.Show(sql3)
                    com5 = New SqlCommand(sql3, con)
                    com5.ExecuteNonQuery()
                    Dim i As Int32 = com5.ExecuteNonQuery()
                    If i > 0 Then
                        MsgBox("房间信息已成功更新！")
                    Else
                        MsgBox("房间信息更新有错误！")
                    End If

                    con.Close()
                End If

                con.Close()
                con.Open()
                Dim com As SqlCommand
                Dim sql As String = "insert into 客户信息 values('" + TextBox1.Text + "','" + TextBox4.Text + "','" + ComboBox1.Text + "','" + TextBox3.Text + "','" + TextBox2.Text _
                + "','" + ComboBox2.Text + "','" + ComboBox3.Text + "','" + TextBox5.Text + "','" + ComboBox4.Text + "','" + TextBox9.Text + "','" + TextBox10.Text + "','" + _
                TextBox11.Text + "','" + TextBox6.Text + "','" + TextBox7.Text + "','" + ComboBox5.Text + "','" + TextBox8.Text + "')"
                com = New SqlCommand(sql, con)
                MessageBox.Show(sql)
                com.ExecuteNonQuery()
                Dim ii As Int32 = com.ExecuteNonQuery()

                'Dim com2 As SqlCommand
                'Dim sql2 As String = "update 房间信息 set 房间状态='使用' where 房间ID='" + TextBox4.Text + "'"
                'com2 = New SqlCommand(sql2, con)
                'com2.ExecuteNonQuery()

                If ii > 0 Then
                    MsgBox("欢迎光临，登记成功！")

                    '将预定的房间删除
                    If ComboBox1.Text = "是" Then
                        Try
                            Dim sql3 As String = "delete 房间预定 where 预定码='" + Trim(TextBox3.Text) + "'"
                            com = New SqlCommand(sql3, con)
                            com.ExecuteNonQuery()
                            Dim iii As Int32 = com.ExecuteNonQuery()
                            If iii > 0 Then
                                MsgBox("已成功将预定激活！")
                                con.Close()
                            Else
                                con.Close()
                                MsgBox("对房间预定表更新发生错误，表未更新！")
                            End If

                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        Finally
                            con.Close()
                        End Try

                    End If

                    Exit Sub
                Else
                    MsgBox("登记有误，请检查信息！")
                    Exit Sub
                End If


            Else