scgl_bdth.frm

一个简单的酒店管理系统 用VB.net+SQL2000实现

        m_zkrs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 2))
        m_wbrs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 3))
        m_tdwbrs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 4))
        m_tdnbrs.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 5))
        m_czl.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 6))
        m_pj_fj.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 7))
        m_bz.Text = IIf(Trim(FLEX1.TextArray(FLEX1.Row * 10 + 8)) = "*", "", Trim(FLEX1.TextArray(FLEX1.Row * 10 + 8)))
        m_lsh.Text = Trim(FLEX1.TextArray(FLEX1.Row * 10 + 9))
        Exit Sub
error1:
       If Err() = 383 Then
            Resume Next
       End If
End Sub
Private Sub m_pj_fj_LostFocus()
    If Frame2.Enabled = True Then
        If Not Trim(m_pj_fj.Text) = "" Then
            If IsNumeric(Trim(m_pj_fj.Text)) Then
                m_bz.SetFocus
                m_bz.SelStart = 0
                m_bz.SelLength = Len(Trim(m_bz.Text))
            Else
                frm_msg.Caption = "无效平均房价!"
                m_pj_fj.SetFocus
                m_pj_fj.SelStart = 0
                m_pj_fj.SelLength = Len(Trim(m_pj_fj.Text))
            End If
        Else
            m_pj_fj.Text = "0"
            m_bz.SetFocus
            m_bz.SelStart = 0
            m_bz.SelLength = Len(Trim(m_bz.Text))
        End If
    End If
End Sub

Private Sub m_wbrs_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_wbrs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
         If Not Trim(m_wbrs.Text) = "" Then
            Call m_wbrs_LostFocus
        Else
            m_wbrs.Text = "0"
            m_tdwbrs.SetFocus
            m_tdwbrs.SelStart = 0
            m_tdwbrs.SelLength = Len(Trim(m_tdwbrs.Text))
        End If
    End If
End Sub

Private Sub m_wbrs_LostFocus()
    If Frame2.Enabled = True Then
        If Not Trim(m_wbrs.Text) = "" Then
            If IsNumeric(Trim(m_wbrs.Text)) Then
                m_tdwbrs.SetFocus
                m_tdwbrs.SelStart = 0
                m_tdwbrs.SelLength = Len(Trim(m_tdwbrs.Text))
            Else
                frm_msg.Caption = "无效外宾人数!"
                m_wbrs.SetFocus
                m_wbrs.SelStart = 0
                m_wbrs.SelLength = Len(Trim(m_wbrs.Text))
            End If
        Else
            m_wbrs.Text = "0"
            m_tdwbrs.SetFocus
            m_tdwbrs.SelStart = 0
            m_tdwbrs.SelLength = Len(Trim(m_tdwbrs.Text))
        End If
    End If
End Sub
    
Private Sub m_zkrs_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_zkrs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        If Not Trim(m_zkrs.Text) = "" Then
            Call m_zkrs_LostFocus
        Else
            m_zkrs.Text = "0"
            m_wbrs.SetFocus
            m_wbrs.SelStart = 0
            m_wbrs.SelLength = Len(Trim(m_wbrs.Text))
        End If
    End If
End Sub

Private Sub m_zkrs_LostFocus()
    If Frame2.Enabled = True Then
        If Not Trim(m_zkrs.Text) = "" Then
            If IsNumeric(Trim(m_zkrs.Text)) Then
                m_wbrs.SetFocus
                m_wbrs.SelStart = 0
                m_wbrs.SelLength = Len(Trim(m_wbrs.Text))
            Else
                frm_msg.Caption = "无效住客人数!"
                m_zkrs.SetFocus
                m_zkrs.SelStart = 0
                m_zkrs.SelLength = Len(Trim(m_zkrs.Text))
            End If
        Else
            m_zkrs.Text = "0"
            m_wbrs.SetFocus
            m_wbrs.SelStart = 0
            m_wbrs.SelLength = Len(Trim(m_wbrs.Text))
        End If
    End If
End Sub
Private Sub m_tdwbrs_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_tdwbrs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
         If Not Trim(m_tdwbrs.Text) = "" Then
            Call m_tdwbrs_LostFocus
        Else
            m_tdwbrs.Text = "0"
            m_tdnbrs.SetFocus
            m_tdnbrs.SelStart = 0
            m_tdnbrs.SelLength = Len(Trim(m_tdnbrs.Text))
        End If
    End If
End Sub

Private Sub m_tdwbrs_LostFocus()
    If Frame2.Enabled = True Then
        If Not Trim(m_tdwbrs.Text) = "" Then
            If IsNumeric(Trim(m_tdwbrs.Text)) Then
                m_tdnbrs.SetFocus
                m_tdnbrs.SelStart = 0
                m_tdnbrs.SelLength = Len(Trim(m_tdnbrs.Text))
            Else
                frm_msg.Caption = "无效团队外宾人数!"
                m_tdwbrs.SetFocus
                m_tdwbrs.SelStart = 0
                m_tdwbrs.SelLength = Len(Trim(m_tdwbrs.Text))
            End If
        Else
            m_tdwbrs.Text = "0"
            m_tdnbrs.SetFocus
            m_tdnbrs.SelStart = 0
            m_tdnbrs.SelLength = Len(Trim(m_tdnbrs.Text))
        End If
    End If
End Sub
Private Sub m_tdnbrs_Change()
    frm_msg.Caption = ""
End Sub

Private Sub m_tdnbrs_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
         If Not Trim(m_tdnbrs.Text) = "" Then
            Call m_tdnbrs_LostFocus
        Else
            m_tdnbrs.Text = "0"
            m_czl.SetFocus
            m_czl.SelStart = 0
            m_czl.SelLength = Len(Trim(m_czl.Text))
        End If
    End If
End Sub

Private Sub m_tdnbrs_LostFocus()
    If Frame2.Enabled = True Then
        If Not Trim(m_tdnbrs.Text) = "" Then
            If IsNumeric(Trim(m_tdnbrs.Text)) Then
                m_czl.SetFocus
                m_czl.SelStart = 0
                m_czl.SelLength = Len(Trim(m_czl.Text))
            Else
                frm_msg.Caption = "无效外宾人数!"
                m_tdnbrs.SetFocus
                m_tdnbrs.SelStart = 0
                m_tdnbrs.SelLength = Len(Trim(m_tdnbrs.Text))
            End If
        Else
            m_tdnbrs.Text = "0"
            m_czl.SetFocus
            m_czl.SelStart = 0
            m_czl.SelLength = Len(Trim(m_czl.Text))
        End If
    End If
End Sub


Private Sub CMD1_Click(Index As Integer)
    Select Case Index
    Case 0
        Select Case OPT
        Case "0"
            Set rec = YX_data.OpenRecordset("SELECT FSRQ,DWMC,ZKRS,WBRS,TDWBRS,TDNBRS,CZL,PJ_FZ,BZ,LSH,LOCK_NO FROM YX_BDTH", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
            End If
            With rec
            .AddNew
            !FSRQ = CDate(m_fsrq.Text)
            !DWMC = IIf(Trim(m_dwmc.Text) = "", "*", UCase(Trim(m_dwmc.Text)))
            !ZKRS = CDec(Trim(m_zkrs.Text))
            !WBRS = CDec(Trim(m_wbrs.Text))
            !TDWBRS = CDec(Trim(m_tdwbrs.Text))
            !TDNBRS = CDec(Trim(m_tdnbrs.Text))
            !CZL = CDec(Trim(m_czl.Text))
            !PJ_FZ = CDec(Trim(m_pj_fj.Text))
            !BZ = IIf(Trim(m_bz.Text) = "", "*", UCase(Trim(m_bz.Text)))
            Dim j As Integer
            Dim t_1 As String
            j = 1
            Do While True
                t_1 = Right("00" & j, 3)
                Set t_rec = YX_data.OpenRecordset("select DWMC,LSH from YX_BDTH where DWMC='" & UCase(Trim(m_dwmc.Text)) & "'AND Cstr(LSH)='" & CDec(t_1) & "'", 4)
                If Not t_rec.BOF Then
                    t_rec.MoveLast
                Else: Exit Do
                End If
                j = j + 1
            Loop
            !lsh = CDec(t_1)
            !lock_no = 0
            .Update
            End With
            MsgBox "本地酒店信息成功添加!", vbOKOnly
            Call first(True)
            Call flex1_ref
            FLEX1.SetFocus
        Case "1"
            Set rec = YX_data.OpenRecordset("SELECT FSRQ,DWMC,ZKRS,WBRS,TDWBRS,TDNBRS,CZL,PJ_FZ,BZ,LSH,LOCK_NO FROM YX_BDTH where DWMC='" & UCase(Trim(m_dwmc.Text)) & "'AND Cstr(LSH)='" & Trim(m_lsh.Text) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                '加锁
                Do
                Select Case Pub_lock("YX", "YX_BDTH", rec)
                Case "1"
                    Exit Do
                Case "2"
                    Call Pub_UNlock("YX_BDTH", rec)
                    Exit Sub
                End Select
                Loop
                With rec
                .Edit
                    !FSRQ = CDate(m_fsrq.Text)
                    !DWMC = IIf(Trim(m_dwmc.Text) = "", "*", UCase(Trim(m_dwmc.Text)))
                    !ZKRS = CDec(Trim(m_zkrs.Text))
                    !WBRS = CDec(Trim(m_wbrs.Text))
                    !TDWBRS = CDec(Trim(m_tdwbrs.Text))
                    !TDNBRS = CDec(Trim(m_tdnbrs.Text))
                    !CZL = CDec(Trim(m_czl.Text))
                    !PJ_FZ = CDec(Trim(m_pj_fj.Text))
                    !BZ = IIf(Trim(m_bz.Text) = "", "*", UCase(Trim(m_bz.Text)))
                .Update
                End With
                Call Pub_UNlock("YX_BDTH", rec)
                MsgBox "本地酒店信息成功修改!", vbOKOnly
            Else
                MsgBox "该记录不存在!", 16
            End If
            Call first(True)
            Call flex1_ref
            FLEX1.SetFocus
        Case "2"
            Set rec = YX_data.OpenRecordset("SELECT FSRQ,DWMC,ZKRS,WBRS,TDWBRS,TDNBRS,CZL,PJ_FZ,BZ,LSH,LOCK_NO FROM YX_BDTH where DWMC='" & UCase(Trim(m_dwmc.Text)) & "'AND Cstr(LSH)='" & Trim(m_lsh.Text) & "'", 2, 0, 2)
            If Not rec.BOF Then
                rec.MoveLast
                '加锁
                Do
                Select Case Pub_lock("YX", "YX_BDTH", rec)
                Case "1"
                    Exit Do
                Case "2"
                    Call Pub_UNlock("YX_BDTH", rec)
                    Exit Sub
                End Select
                Loop
                With rec
                .Delete
                End With
                Call Pub_UNlock("YX_BDTH", rec)
                MsgBox "本地酒店信息成功解除!", vbOKOnly
            Else
                MsgBox "该记录不存在!", 16
            End If
                m_fsrq.Enabled = True
                m_dwmc.Enabled = True
                m_zkrs.Enabled = True
                m_wbrs.Enabled = True
                m_tdwbrs.Enabled = True
                m_tdnbrs.Enabled = True
                m_czl.Enabled = True
                m_pj_fj.Enabled = True
                m_bz.Enabled = True
            Call first(True)
            Call flex1_ref
            FLEX1.SetFocus
        End Select
    Case 1
        m_fsrq.Enabled = True
        m_dwmc.Enabled = True
        m_zkrs.Enabled = True
        m_wbrs.Enabled = True
        m_tdwbrs.Enabled = True
        m_tdnbrs.Enabled = True
        m_czl.Enabled = True
        m_pj_fj.Enabled = True
        m_bz.Enabled = True
        Call first(True)
        Call flex1_ref
        FLEX1.SetFocus
    End Select
End Sub
Private Sub flex1_ref()
    Set rec = YX_data.OpenRecordset("select  FSRQ,DWMC,ZKRS,WBRS,TDWBRS,TDNBRS,CZL,PJ_FZ,BZ,LSH,LOCK_NO from YX_BDTH", 4)
    If Not rec.BOF Then
        rec.MoveLast
        Call pub_memo.Flex_full(FLEX1, t_bt, rec, t_fields, 9, Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0))
    End If
    rec_no.Caption = "当前记录数:" + CStr(FLEX1.Rows - 1)
End Sub

Private Sub Timer1_Timer()
    JZ_DQSJ2 = Time
End Sub