kfyd.vb

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

                                Case Is = 1
                                    TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & "000" & CStr(ydtext + 1)
                                Case Is = 2
                                    TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & "00" & CStr(ydtext + 1)
                                Case Is = 3
                                    TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & "0" & CStr(ydtext + 1)
                                Case Is = 4
                                    TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & CStr(ydtext + 1)
                            End Select
                        End If
                    End If

                    TextBox4.Text = dr(0) '取出找到的房间号码
                    con2.Close()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                Finally
                    con.Close()
                    con2.Close()
                End Try

            Else
                con.Close()
                MsgBox("您所要的房间已预定完，请选择其它属性的房间！")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

    Private Sub ComboBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.GotFocus
        Dim pktext As Integer
        Try
            con.Open()
            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
                            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
            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))
            '                    Case Is = 1
            '                        TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & "000" & CStr(ydtext + 1)
            '                    Case Is = 2
            '                        TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & "00" & CStr(ydtext + 1)
            '                    Case Is = 3
            '                        TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & "0" & CStr(ydtext + 1)
            '                    Case Is = 4
            '                        TextBox1.Text = "YD" & "0" & Now().Month & "0" & Now().Day & CStr(ydtext + 1)
            '                End Select
            '            End If
            '        End If
            '        con2.Close()
            '    Catch ex As Exception
            '        MessageBox.Show(ex.Message)
            '    Finally
            '        con.Close()
            '        con2.Close()
            '    End Try
            'Else
            '    con.Close()
            '    MsgBox("您所要的房间已预定完，请选择其它属性的房间！")
            'End If
        Catch ex As Exception
            con.Close()
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Trim(TextBox3.Text) = "" Then
            MsgBox("姓名不能为空！")
            Exit Sub
        End If
        If Trim(ComboBox1.Text) = "" Then
            MsgBox("性别不能为空！")
            Exit Sub
        End If
        If Trim(ComboBox2.Text) = "" Then
            MsgBox("房间属性不能为空！")
            Exit Sub
        End If

        Try

            ''查找可用房间
            con.Close()
            con.Open()
            Dim dr1 As SqlDataReader
            Dim sql1 As String = "select 房间ID from 房间信息 where 房间状态 = '空闲 'and 房间属性= '" + ComboBox2.Text + "'"
            com = New SqlCommand(sql1, con)
            dr1 = com.ExecuteReader
            If dr1.Read Then
                Dim con2 As New SqlConnection(constr)
                Dim com2 As New SqlCommand
                Dim con3 As New SqlConnection(constr)
                Dim com3 As New SqlCommand

                con2.Open()
                Dim sql2 As String = "insert into 房间预定 values( '" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + ComboBox1.Text + "','" + TextBox4.Text + "','" + ComboBox2.Text + "')"
                com = New SqlCommand(sql2, con2)
                com.ExecuteNonQuery()

                Dim sql3 As String = "update 房间信息 set 房间状态='预定' where 房间ID='" + dr1(0) + "'"
                com3 = New SqlCommand(sql3, con2)
                com3.ExecuteNonQuery()

                ' con2.Close()
                If com2.ExecuteNonQuery Then
                    ydxx() '预定信息显示

                    '查找编号记录
                    Dim sql4 As String = "select * from 编号记录"
                    Dim com4 As New SqlCommand
                    Dim dr4 As SqlDataReader
                    com4 = New SqlCommand(sql4, con)
                    dr4 = com4.ExecuteReader()
                    '修改编号记录
                    Dim sql5 As String = "update 编号记录 set PK=dr(0)+1,GK=dr(1)+1,预定记录码=dr(2)+1"
                    Dim com5 As New SqlCommand
                    com5 = New SqlCommand(sql5, con)
                    com5.ExecuteNonQuery()

                    MsgBox("欢迎光临，预定成功！")
                Else
                    MsgBox("预定操作有误，请检查录入信息！")
                End If

            Else
                con.Close()
                MsgBox("您所要的房间已预定完，请选择其它属性的房间！")
                Exit Sub
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            con.Close()
        End Try
    End Sub
End Class