kfyd.vb

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

    Dim com As SqlCommand
    Dim dr As SqlDataReader
    Private Sub kfyd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fjsx()
        ydxx() '预定信息显示
    End Sub

    'Private Sub kfyd_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus
    '    Dim f1 As New Form1
    '    f1.Button1.Hide() '主按钮
    '    f1.Button2.Hide()
    '    f1.Button3.Hide()
    '    f1.Button4.Hide()

    '    f1.Button13.Hide()  '前台管理
    '    f1.Button14.Hide()
    '    f1.Button15.Hide()
    '    f1.Button16.Hide()

    '    f1.Button5.Hide()    '客房管理
    '    f1.Button6.Hide()
    '    f1.Button7.Hide()
    '    f1.Button8.Hide()

    '    f1.Button9.Hide()  '基础信息
    '    f1.Button10.Hide()
    '    f1.Button11.Hide()
    '    f1.Button12.Hide()

    '    f1.Button17.Hide()           '系统维护
    '    f1.Button18.Hide()
    '    f1.Button19.Hide()
    'End Sub

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

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

    Sub ydxx() '预定信息显示
        Try
            con.Close()
            ListView1.View = View.LargeIcon
            ListView1.Items.Clear()
            ListView1.LargeImageList = ImageList1
            con.Open()
            Dim sql As String = "select 预定房间 from 房间预定"
            com = New SqlCommand(sql, con)
            dr = com.ExecuteReader
            While dr.Read
                Dim ydfj As String
                ydfj = dr(0)
                Dim myListItem As New ListViewItem(ydfj)
                myListItem.ImageIndex = 0
                ListView1.Items.Add(myListItem)
            End While
        Catch ex As Exception
            con.Close()
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

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

            If ComboBox2.Text = "贵宾单间" Or ComboBox2.Text = "贵宾双间" Then
                '用于生成客户ID＝客户类型＋月份＋日期＋客户编码
                If Now().Month > 10 Then
                    If Now.Day > 10 Then
                        Select Case Len(CStr(gktext))
                            Case Is = 1
                                TextBox2.Text = "GK" & Now().Month & Now().Day & "000" & CStr(gktext + 1)
                            Case Is = 2
                                TextBox2.Text = "GK" & Now().Month & Now().Day & "00" & CStr(gktext + 1)
                            Case Is = 3
                                TextBox2.Text = "GK" & Now().Month & Now().Day & "0" & CStr(gktext + 1)
                            Case Is = 4
                                TextBox2.Text = "GK" & Now().Month & Now().Day & CStr(gktext + 1)
                        End Select
                    Else
                        Select Case Len(CStr(gktext))
                            Case Is = 1
                                TextBox2.Text = "GK" & Now().Month & "0" & Now().Day & "000" & CStr(gktext + 1)
                            Case Is = 2
                                TextBox2.Text = "GK" & Now().Month & "0" & Now().Day & "00" & CStr(gktext + 1)
                            Case Is = 3
                                TextBox2.Text = "GK" & Now().Month & "0" & Now().Day & "0" & CStr(gktext + 1)
                            Case Is = 4
                                TextBox2.Text = "GK" & Now().Month & "0" & Now().Day & CStr(gktext + 1)
                        End Select
                    End If
                Else
                    If Now.Day > 10 Then
                        Select Case Len(CStr(gktext))
                            Case Is = 1
                                TextBox2.Text = "GK" & "0" & Now().Month & Now().Day & "000" & CStr(gktext + 1)
                            Case Is = 2
                                TextBox2.Text = "GK" & "0" & Now().Month & Now().Day & "00" & CStr(gktext + 1)
                            Case Is = 3
                                TextBox2.Text = "GK" & "0" & Now().Month & Now().Day & "0" & CStr(gktext + 1)
                            Case Is = 4
                                TextBox2.Text = "GK" & "0" & Now().Month & Now().Day & CStr(gktext + 1)
                        End Select
                    Else
                        Select Case Len(CStr(gktext))
                            Case Is = 1
                                TextBox2.Text = "GK" & "0" & Now().Month & "0" & Now().Day & "000" & CStr(gktext + 1)
                            Case Is = 2
                                TextBox2.Text = "GK" & "0" & Now().Month & "0" & Now().Day & "00" & CStr(gktext + 1)
                            Case Is = 3
                                TextBox2.Text = "GK" & "0" & Now().Month & "0" & Now().Day & "0" & CStr(gktext + 1)
                            Case Is = 4
                                TextBox2.Text = "GK" & "0" & Now().Month & "0" & Now().Day & CStr(gktext + 1)
                        End Select
                    End If
                End If
            Else
                If Now().Month > 10 Then
                    If Now.Day > 10 Then
                        Select Case Len(CStr(pktext))
                            Case Is = 1
                                TextBox2.Text = "PK" & Now().Month & Now().Day & "000" & CStr(pktext + 1)
                            Case Is = 2
                                TextBox2.Text = "PK" & Now().Month & Now().Day & "00" & CStr(pktext + 1)
                            Case Is = 3
                                TextBox2.Text = "PK" & Now().Month & Now().Day & "0" & CStr(pktext + 1)
                            Case Is = 4
                                TextBox2.Text = "PK" & Now().Month & Now().Day & CStr(pktext + 1)
                        End Select
                    Else
                        Select Case Len(CStr(pktext))
                            Case Is = 1
                                TextBox2.Text = "PK" & Now().Month & "0" & Now().Day & "000" & CStr(pktext + 1)
                            Case Is = 2
                                TextBox2.Text = "PK" & Now().Month & "0" & Now().Day & "00" & CStr(pktext + 1)
                            Case Is = 3
                                TextBox2.Text = "PK" & Now().Month & "0" & Now().Day & "0" & CStr(pktext + 1)
                            Case Is = 4
                                TextBox2.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
                                TextBox2.Text = "PK" & "0" & Now().Month & Now().Day & "000" & CStr(pktext + 1)
                            Case Is = 2
                                TextBox2.Text = "PK" & "0" & Now().Month & Now().Day & "00" & CStr(pktext + 1)
                            Case Is = 3
                                TextBox2.Text = "PK" & "0" & Now().Month & Now().Day & "0" & CStr(pktext + 1)
                            Case Is = 4
                                TextBox2.Text = "PK" & "0" & Now().Month & Now().Day & CStr(pktext + 1)
                        End Select
                    Else
                        Select Case Len(CStr(pktext))
                            Case Is = 1
                                TextBox2.Text = "PK" & "0" & Now().Month & "0" & Now().Day & "000" & CStr(pktext + 1)
                            Case Is = 2
                                TextBox2.Text = "PK" & "0" & Now().Month & "0" & Now().Day & "00" & CStr(pktext + 1)
                            Case Is = 3
                                TextBox2.Text = "PK" & "0" & Now().Month & "0" & Now().Day & "0" & CStr(pktext + 1)
                            Case Is = 4
                                TextBox2.Text = "PK" & "0" & Now().Month & "0" & Now().Day & CStr(pktext + 1)
                        End Select
                    End If
                End If
            End If
            con.Close()

            '查找可用房间
            con.Open()
            Dim sql1 As String = "select 房间ID from 房间信息 where 房间状态 = '空闲 'and 房间属性= '" + ComboBox2.Text + "'"
            com = New SqlCommand(sql1, con)
            dr = com.ExecuteReader

            If dr.Read Then  '判断房间是否可用
                Dim ydtext As Integer
                Dim con2 As New SqlConnection(constr) ''这里用于连接编号记录表
                Dim com2 As SqlCommand
                Dim dr2 As SqlDataReader
                Try
                    con2.Open()
                    Dim sql2 As String = "select 预定记录码 from 编号记录"
                    com2 = New SqlCommand(sql2, con2)
                    dr2 = com2.ExecuteReader
                    While dr2.Read
                        ydtext = dr2(0)
                    End While

                    '用于生成预定码＝YD＋月份＋日期＋预定记录码
                    If Now().Month > 10 Then
                        If Now.Day > 10 Then
                            Select Case Len(CStr(ydtext))
                                Case Is = 1
                                    TextBox1.Text = "YD" & Now().Month & Now().Day & "000" & CStr(ydtext + 1)
                                Case Is = 2
                                    TextBox1.Text = "YD" & Now().Month & Now().Day & "00" & CStr(ydtext + 1)
                                Case Is = 3
                                    TextBox1.Text = "YD" & Now().Month & Now().Day & "0" & CStr(ydtext + 1)
                                Case Is = 4
                                    TextBox1.Text = "YD" & Now().Month & Now().Day & CStr(ydtext + 1)
                            End Select
                        Else
                            Select Case Len(CStr(ydtext))
                                Case Is = 1
                                    TextBox1.Text = "YD" & Now().Month & "0" & Now().Day & "000" & CStr(ydtext + 1)
                                Case Is = 2
                                    TextBox1.Text = "YD" & Now().Month & "0" & Now().Day & "00" & CStr(ydtext + 1)
                                Case Is = 3
                                    TextBox1.Text = "YD" & Now().Month & "0" & Now().Day & "0" & CStr(ydtext + 1)
                                Case Is = 4
                                    TextBox1.Text = "YD" & Now().Month & "0" & Now().Day & CStr(ydtext + 1)
                            End Select
                        End If
                    Else
                        If Now.Day > 10 Then
                            Select Case Len(CStr(ydtext))
                                Case Is = 1
                                    TextBox1.Text = "YD" & "0" & Now().Month & Now().Day & "000" & CStr(ydtext + 1)
                                Case Is = 2
                                    TextBox1.Text = "YD" & "0" & Now().Month & Now().Day & "00" & CStr(ydtext + 1)
                                Case Is = 3
                                    TextBox1.Text = "YD" & "0" & Now().Month & Now().Day & "0" & CStr(ydtext + 1)
                                Case Is = 4
                                    TextBox1.Text = "YD" & "0" & Now().Month & Now().Day & CStr(ydtext + 1)
                            End Select
                        Else
                            Select Case Len(CStr(ydtext))