zw_zpcx.frm

vb不酒店管理系统

Dim t_bt As String       '存储列表显示的表头
Dim t_fields As Variant  '存储列表显示的字段名
Dim t_fdxs As Variant    '显示列是否有特殊处理    0 无, 1 有
Dim t_fdcounts As Integer   '表示列表所显示的字段的个数

Dim t_czlsh As String

'**************************************************************************************************
Private Sub tPxs_ZPXYK()

    lb_xxxx.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "信息"
    lb_title.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "查询"
    t_fields = Array("FSRQ", "ZDH", "XYK_HM", "YH_HM", "FKDW", "HJ") '设置显示字段
    t_fdxs = Array(0, 0, 0, 0, 0, 2) '设置显示字段
    t_bt = "^发生日期  |<帐  单  号 |<" & IIf(op_zpxyk(1).Value, "支票号码    ", "信用卡号码  ") & "|<所属银行      |<付款单位      |>填写金额      "  '设置显示表头格式
    t_fdcounts = 6
    
    Set flex_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK WHERE ZP_FT='" & IIf(op_zpxyk(1).Value, "1", "0") & "' AND TRIM(JZY)='" & SYS_USER & "'", 4, 0, 2)
    If Not flex_rec.BOF Then
        flex_rec.MoveLast
    End If
    
    Call flex_refresh
    
    Call tPkjEnabledFT(False)

End Sub



'**************************************************************************************************
'*  功    能 : 用来设置各种控件 .edabled 的设置
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.03
'*  修改日期 : 1999.03.03
'*  参数说明 : temp_ft      --  表示控件 .Enabled 的状态   True False
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_ft As Boolean)     '控件.enabled 的设置
    If op_zpxyk(1).Value Then   '支  票
        cm_lb_mc.Visible = False
        cm_sx_mc.Visible = False
        lb_lb.Visible = False
        lb_sx.Visible = False
        lb_sqhm.Visible = False
        m_lb.Visible = False
        m_sx.Visible = False
        m_sqhm.Visible = False
    Else                        '信用卡
        lb_lb.Visible = True
        lb_sx.Visible = True
        lb_sqhm.Visible = True
        m_lb.Visible = True
        cm_lb_mc.Visible = True
        m_sx.Visible = True
        cm_sx_mc.Visible = True
        m_sqhm.Visible = True
    End If
    
    m_xyk_hm.Enabled = temp_ft
    m_yh_hh.Enabled = temp_ft
    cm_yh_hm.Enabled = temp_ft
    m_fkdw.Enabled = temp_ft
    m_lxdh.Enabled = temp_ft
    m_lxr.Enabled = temp_ft
    m_kr_zjhm.Enabled = temp_ft
    m_qfrq.Enabled = temp_ft
    m_bz.Enabled = temp_ft
    m_lb.Enabled = temp_ft
    cm_lb_mc.Enabled = temp_ft
    m_sx.Enabled = temp_ft
    cm_sx_mc.Enabled = temp_ft
    m_sqhm.Enabled = temp_ft
End Sub


'**************************************************************************************************
'*  功    能 : 用来设置各种控件赋值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.05
'*  修改日期 : 1999.03.05
'*  参数说明 : temp_rec  --  显示的记录集名称
'*             trmp_bszt --  表示字段按何方式显示  0 - 把字段清空  1 - 按记录集显示字段  2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As Recordset, temp_bszt As String)

    Select Case temp_bszt
    Case 0            '把字段清空
    
        lb_fsrq.Caption = "____-__-__"
        lb_zdh.Caption = ""
        lb_zh.Caption = ""
        lb_hj.Caption = ""
        lb_jzy.Caption = ""
        m_xyk_hm.Text = ""
        m_yh_hh.Text = ""
        cm_yh_hm.Text = ""
        m_fkdw.Text = ""
        m_lxdh.Text = ""
        m_lxr.Text = ""
        m_kr_zjhm.Text = ""
        m_qfrq.Text = "____-__-__"
        m_bz.Text = ""
        
        If op_zpxyk(0).Value Then
            m_lb.Text = ""
            cm_lb_mc.Text = ""
            m_sx.Text = ""
            cm_sx_mc.Text = ""
            m_sqhm.Text = ""
        End If
        
    Case 1       '按记录集给字段赋值
        With temp_rec
            lb_fsrq.Caption = Format(.Fields("FSRQ"), "YYYY-MM-DD")
            lb_zdh.Caption = Trim(.Fields("ZDH"))
            lb_zh.Caption = Trim(.Fields("ZH"))
            lb_hj.Caption = Format(.Fields("HJ"), "#,##0.00")
            lb_jzy.Caption = Trim(.Fields("JZY"))
            m_xyk_hm.Text = Trim(.Fields("XYK_HM"))
            m_yh_hh.Text = Trim(.Fields("YH_HH"))
            If PUB_GetCMName(m_yh_hh, cm_yh_hm) Then
            Else
                cm_yh_hm.Text = "*"
            End If
            m_fkdw.Text = Trim(.Fields("FKDW"))
            m_lxdh.Text = Trim(.Fields("LXDH"))
            m_lxr.Text = Trim(.Fields("LXR"))
            m_kr_zjhm.Text = Trim(.Fields("KR_ZJHM"))
            m_qfrq.Text = IIf(IsNull(.Fields("QFRQ")), "____-__-__", Format(.Fields("QFRQ"), "YYYY-MM-DD"))
            m_bz.Text = Trim(.Fields("BZ"))
            m_lb.Text = Trim(.Fields("XYK_DM"))
            If PUB_GetCMName(m_lb, cm_lb_mc) Then
            Else
                cm_lb_mc.Text = "*"
            End If
            m_sx.Text = Trim(.Fields("XYK_SX"))
            If PUB_GetCMName(m_sx, cm_sx_mc) Then
            Else
                cm_sx_mc.Text = "*"
            End If
            m_sqhm.Text = Trim(.Fields("SQHM"))
            
        End With
    End Select
End Sub


'**************************************************************************************************
'*  功    能 : 用来给字段赋值
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.05
'*  修改日期 : 1999.03.05
'*  参数说明 : temp_rec  --  显示的记录集名称
'*             trmp_funcNo --  表示编辑状态        '0' - 增加    '1' - 修改
'**************************************************************************************************
Private Sub tPkjFieldGet(temp_rec As Recordset, temp_funcNo As String)
    Dim GJ_rec As Recordset   'DT_KRGJK
    Dim MaxXH_rec As Recordset  'ZW_ZPXYK 中的最大序号
    Dim temp_xbdm As Integer
    
    With temp_rec
        .Fields("XYK_HM") = IIf(Trim(m_xyk_hm.Text) = "", "*", Trim(m_xyk_hm.Text))
        .Fields("YH_HH") = IIf(Trim(m_yh_hh.Text) = "", "*", Trim(m_yh_hh.Text))
        .Fields("YH_HM") = IIf(Trim(cm_yh_hm.Text) = "", "*", Trim(cm_yh_hm.Text))
        .Fields("FKDW") = IIf(Trim(m_fkdw.Text) = "", "*", Trim(m_fkdw.Text))
        .Fields("LXDH") = IIf(Trim(m_lxdh.Text) = "", "*", Trim(m_lxdh.Text))
        .Fields("LXR") = IIf(Trim(m_lxr.Text) = "", "*", Trim(m_lxr.Text))
        .Fields("KR_ZJHM") = IIf(Trim(m_kr_zjhm.Text) = "", "*", Trim(m_kr_zjhm.Text))
        If Trim(m_qfrq.Text) = "____-__-__" Then
            .Fields("QFRQ") = Null
        Else
            .Fields("QFRQ") = CDate(m_qfrq.Text)
        End If
        .Fields("BZ") = IIf(Trim(m_bz.Text) = "", "*", Trim(m_bz.Text))
        .Fields("XYK_DM") = IIf(Trim(m_lb.Text) = "", "*", Trim(m_lb.Text))
        .Fields("XYK_SX") = IIf(Trim(m_sx.Text) = "", "*", Trim(m_sx.Text))
        .Fields("SQHM") = IIf(Trim(m_sqhm.Text) = "", "*", Trim(m_sqhm.Text))
        
    End With

End Sub








'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
    cmd_ok(0).Enabled = Not t_ft
    cmd_ok(1).Enabled = Not t_ft
    cmd_func(5).Enabled = t_ft
    
    If flex_rec.RecordCount <> 0 Then
        cmd_func(1).Enabled = t_ft
        cmd_func(3).Enabled = t_ft
    Else
        cmd_func(1).Enabled = False
        cmd_func(3).Enabled = False
    End If
    
    zw_zpcx.KeyPreview = t_ft
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub flex_refresh()
    Call Flex_full(gd1, t_bt, flex_rec, t_fields, t_fdcounts - 1, t_fdxs)
    gd1.Refresh
    lb_jls.Caption = gd1.Rows - 1
    Call button_refresh(True)
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Sub MAIN(t_gnmc As String)
   Label1.Caption = t_gnmc
   JZ_USER = SYS_USER + Space(1) + SYS_NAME
   JZ_JRSJ2 = Time()
   JZ_DQSJ2 = Time()
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
    flex_rec.Close
    Unload Me
End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_ok_Click(Index As Integer)
    Dim temp_ft As Boolean
    Dim zpxyk_rec As Recordset
    
    Dim temp_lock As Integer

    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    Select Case Index
    Case 0    '按"确定"键
            
            '补记时校验字段合法性
    
            Set zpxyk_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK  WHERE FSRQ=#" & CDate(lb_fsrq.Caption) & "# AND TRIM(ZDH)='" & Trim(lb_zdh.Caption) & "' AND TRIM(JZY)='" & SYS_USER & "'", 2, 0, 2)
            If Not zpxyk_rec.BOF Then
                zpxyk_rec.MoveLast
    
                temp_lock = Pub_lock("PUBLIC", "ZW_ZPXYK", zpxyk_rec)
                Select Case temp_lock
                Case 0
                    frm_msg.Visible = True
                    frm_msg.Caption = "该" & IIf(op_zpxyk(1).Value, "支票", "信用卡") & "正被其他人占用, 请稍候再修改"
                    Call button_refresh(True)
                Case 2
                    Call Pub_UNlock("ZW_ZPXYK", zpxyk_rec)
                    frm_msg.Visible = True
                    frm_msg.Caption = "该" & IIf(op_zpxyk(1).Value, "支票", "信用卡") & "记录已被删除"
                    Call flex_refresh
                Case 1
                    t_czlsh = Pub_czls(PUB_data, "ZW_ZPCX", Time(), pub_code)
                    zpxyk_rec.Edit
                        tPkjFieldGet zpxyk_rec, "1"
                    zpxyk_rec.Update
                    
                    Call Pub_czle(PUB_data, t_czlsh, IIf(op_zpxyk(1).Value, "支票", "信用卡") & Format(lb_fsrq.Caption, "yyyy-mm-dd") & ",帐单号:" & Trim(lb_zdh.Caption) & " 补记成功", Time(), pub_code)
                    Call Pub_UNlock("ZW_ZPXYK", zpxyk_rec)
                    
                    frm_msg.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "补记成功"
                    frm_msg.Visible = True
                    
                    Call flex_refresh
                End Select
            Else
                Call button_refresh(True)
            End If

            zpxyk_rec.Close
    
    Case 1  '按"退出"键
            Call button_refresh(True)
    End Select
    
    tPkjEnabledFT False
    
    lb_xxxx.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "信息"

    gd1.Enabled = True
    gd1.SetFocus

End Sub

'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.02.25
'*  修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
    Dim zpxyk_rec As Recordset
    
    frm_msg.Visible = False
    frm_msg.Caption = ""
    
    Select Case Index
    Case 1   '补记
            If gd1.Rows - 1 <> 0 Then
                Set zpxyk_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK WHERE FSRQ=#" & gd1.TextArray(gd1.Row * t_fdcounts) & "# AND TRIM(ZDH)='" & Trim(gd1.TextArray(gd1.Row * t_fdcounts + 1)) & "' AND TRIM(JZY)='" & SYS_USER & "'", 4, 0, 2)
                If Not zpxyk_rec.BOF Then
                    zpxyk_rec.MoveLast

                    lb_xxxx.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "信息(修改)"