frmcktj.frm

财务信息管理系统,适合做毕业论文的人使用

Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 查询存取款表条件
'作者: 魏小黎
Option Explicit
Public isEnt As Boolean, Quitfs As Boolean
Public djnwb As Byte, djcqk As Byte
Private tjzh As String, tjzh1 As String

Private Sub cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdfind_Click()
    If Contquit Then
        Cond_zh
        
        Quitfs = False
        
        Unload Me
        
        Dim mfm As Form, dqct As String
        dqct = "yhckb" & Trim(str(djnwb)) & Trim(str(djcqk))
        For Each mfm In Forms
            If mfm.Tag = dqct Then
'                BringWindowToTop mfm.hWnd
                mfm.sqlst = tjzh1
                mfm.sqlst1 = tjzh
                mfm.cmdExcute_Click
                mfm.cmdRefresh_Click
                BringWindowToTop mfm.hWnd

                Exit Sub
            End If
        Next mfm
        
        Dim frm As frmyhckb
        Set frm = New frmyhckb
        frm.djnwb = djnwb
        frm.djcqk = djcqk
        frm.sqlst = tjzh1
        frm.sqlst1 = tjzh
        frm.Tag = dqct
        frm.Show
    End If
End Sub

Private Sub cmdrq_Click(Index As Integer)
    View_Calendar Me, Editrq(Index), 0
End Sub

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CenterForm Me
    Me.Icon = LoadResPicture(109, vbResIcon)
    Me.Caption = IIf(djnwb + djcqk = 2, "银行存款", IIf(djnwb + djcqk = 0, "内部取款", IIf(djnwb = 1, "银行取款", "内部存款"))) & "单查询"
    If djcqk = 1 And djnwb = 1 Then
        Me.HelpContextID = 88000019
    ElseIf djcqk = 0 And djnwb = 1 Then
        Me.HelpContextID = 88000021
    ElseIf djcqk = 1 And djnwb = 0 Then
        Me.HelpContextID = 88000023
    Else
        Me.HelpContextID = 88000025
    End If
    cmdrq(0).Picture = LoadResPicture(1108, vbResBitmap)
    cmdrq(1).Picture = LoadResPicture(1108, vbResBitmap)
    Frame1.Caption = "请输入查询条件"
    cmdfind.Picture = LoadResPicture(103, vbResBitmap)
    cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
    Label1(0).Caption = "业务日期"
    Label1(1).Caption = "业务编号"
    Label1(2).Caption = IIf(djnwb = 1, "银行名称", "内部单位")
    Label1(3).Caption = IIf(djnwb = 1, "银行账户", "账户号")
    Label1(4).Caption = "金额"
    Label1(5).Caption = "本位币金额"
    Label1(6).Caption = "定期"
    Label1(7).Caption = "活期"
    Label1(8).Caption = "是否包含未记账"
    isEnt = True
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Quitfs Then
        If djnwb = 1 And djcqk = 1 Then
            zjLogInfo.TaskExec "FD020102", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020102 = False
        ElseIf djnwb = 1 And djcqk = 0 Then
            zjLogInfo.TaskExec "FD020202", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020202 = False
        ElseIf djnwb = 0 And djcqk = 1 Then
            zjLogInfo.TaskExec "FD020302", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020302 = False
        Else
            zjLogInfo.TaskExec "FD020402", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020402 = False
        End If
        zjLogInfo.ClearError
        
    End If
End Sub

Private Sub label1_Click(Index As Integer)
    If Index = 6 Or Index = 7 Or Index = 8 Then
        Check1(Index - 6).Value = 1 - Check1(Index - 6).Value
    End If
End Sub

Private Sub Refyhmc_CodeSelected(Code As String)
    Edityhmc.Text = Code
    Edityhmc.SetFocus
End Sub

Private Sub Editbh_LostFocus(Index As Integer)
    If Len(Editbh(Index).Text) > 0 Then
        Editbh(Index).Text = Right("00000000" & Editbh(Index).Text, 8)
    End If
End Sub
' 业务日期按键
Private Sub Editrq_Keyup(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 And isEnt Then
        SendKeys "{Tab}"
    End If
    If KeyCode = 113 Then    'F2
        View_Calendar Me, Editrq(Index), 0
    End If
    isEnt = True
End Sub

Private Sub Editrq_LostFocus(Index As Integer)
    If Editrq(Index).Text <> "" And isEnt Then
        Editrq(Index).Text = ForDate(Editrq(Index).Text)
        If IsDate(Editrq(Index).Text) Then
            Editrq(Index).Text = Format(Editrq(Index).Text, "yyyy-mm-dd")
        Else
            Beep
            MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq(Index)
            isEnt = False
        End If
    End If
End Sub

Private Sub Refyhmc_Initialize()
    Refyhmc.InitSys 0, dbsZJ
    Refyhmc.InitSys 1, Edityhmc.Text
    Refyhmc.RefUnitMode = IIf(djnwb = 1, RefBank, RefNotBank)
End Sub

Private Sub Refyhmc_RefCancel()
    Edityhmc.SetFocus
End Sub

Private Sub Refyhmc_RefOK(Code As String)
    Edityhmc.Text = Code
    Edityhmc.SetFocus
End Sub

Private Sub Refyhzh_Initialize()
    Refyhzh.InitSys 0, dbsZJ
    Refyhzh.InitSys 1, Edityhzh.Text
    Refyhzh.InitSys 2, Edityhmc.Text
    Refyhzh.RefAccMode = IIf(djnwb = 1, RefOutsideAcc, RefInsideAcc)
End Sub

Private Sub Refyhzh_RefCancel()
    Edityhzh.SetFocus
End Sub

Private Sub Refyhzh_RefOK(Code As String)
    Edityhzh.Text = Code
    Edityhzh.SetFocus
End Sub
' 银行名称按键
Private Sub Edityhmc_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
    If KeyCode = 113 Then    'F2
        Refyhmc.RunReference
    End If
End Sub

Private Sub Edityhmc_LostFocus()
    Edityhmc.Text = Trim(Edityhmc.Text)
    If Edityhmc.Text <> "" Then
        Dim aa As String
        aa = Dwbmtodwmc(Edityhmc.Text)
        If aa <> "" Then
            Edityhmc.Text = aa
        End If
    End If
End Sub

Private Sub Edityhmc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Edityhmc.ToolTipText = Edityhmc.Text
End Sub
' 银行账号按键
Private Sub Edityhzh_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
    If KeyCode = 113 Then   'F2
        Refyhzh.RunReference
    End If
End Sub
' 条件合法性检查
Private Function Contquit() As Boolean
    Contquit = False
    If Editrq(0).Text <> "" Then
        Editrq(0).Text = ForDate(Editrq(0).Text)
        If Not IsDate(Editrq(0).Text) Then
            Beep
            MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq(0)
            Exit Function
        End If
    End If
    
    If Editrq(1).Text <> "" Then
        Editrq(1).Text = ForDate(Editrq(1).Text)
        If IsDate(Editrq(1).Text) Then
            If Editrq(0).Text <> "" Then
                If CDate(Editrq(1).Text) < CDate(Editrq(0).Text) Then
                    Beep
                    MsgBox "日期范围错误，请检查！", vbCritical, zjGl_Name
                    SetTxtFocus Editrq(1)
                    Exit Function
                End If
            End If
        Else
            Beep
            MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq(1)
            Exit Function
        End If
    End If
    
     If Editbh(0).Text <> "" Then
        Editbh(0).Text = Right("00000000" & Editbh(0).Text, 8)
    End If
    
    If Editbh(1).Text <> "" Then
        Editbh(1).Text = Right("00000000" & Editbh(1).Text, 8)
        If Editbh(0).Text <> "" Then
            If Editbh(1).Text < Editbh(0).Text Then
                Beep
                MsgBox "业务编号范围错误，请检查！", vbCritical, zjGl_Name
                SetTxtFocus Editbh(1)
                Exit Function
            End If
        End If
    End If
    
    If Editje(1).Text <> "" And Editje(0).Text <> "" Then
        If CDbl(Editje(1).Text) < CDbl(Editje(0).Text) Then
            Beep
            MsgBox "金额范围错误，请检查！", vbCritical, zjGl_Name
            Editje(1).SetFocus
            Exit Function
        End If
    End If
    
    If Editje(3).Text <> "" And Editje(2).Text <> "" Then
        If CDbl(Editje(3).Text) < CDbl(Editje(2).Text) Then
            Beep
            MsgBox "金额范围错误，请检查！", vbCritical, zjGl_Name
            Editje(3).SetFocus
            Exit Function
        End If
    End If
    
    Contquit = True

End Function

Private Sub Cond_zh()
    Dim dwbm As String, sdqs As String, shqs As String
    Dim sSum As String 'cuidong 2001.09.10
    
    sdqs = "定期"
    shqs = "活期"
    dwbm = Ywbhtoname(Right(str(104 - djnwb * 2 - djcqk), 2))
    
    If djcqk = 1 Then
        tjzh = "Select [isc], [dbill_date], [cSavid], [cAccID] As dwm1, [cAccID] , [mmoney],[cAccID] As dwm2, [nfrat], [mmoney_f],[cAccID] As dwm3, [imonth], [ctran_name], [cdigest], [cCheckCode], [cBookcode], [cBillCode] from FD_Sav"
''''        tjzh1 = "Select iif([isc]=0,'" + sdqs + "','" + shqs + "') as zd1, [dbill_date], '" + dwbm + "-' + right([cSavid],8) as zd2,FD_Sav.cAccID As dwm1,FD_Sav.cAccID,[mmoney],FD_AccDef.cexch_name,[nfrat],[mmoney_f],FD_AccDef.cIntrID,[imonth],[ctran_name],[cdigest],[cCheckCode],[cBookcode],[cBillCode] from FD_Sav INNER JOIN FD_AccDef ON FD_Sav.cAccID = FD_AccDef.cAccID"
        tjzh1 = "Select (case when [isc]=0 then '" + sdqs + "'  else '" + shqs + "' end ) as zd1, [dbill_date], '" + dwbm + "-' + right([cSavid],8) as zd2,FD_Sav.cAccID As dwm1,FD_Sav.cAccID,[mmoney],FD_AccDef.cexch_name,[nfrat],[mmoney_f],FD_AccDef.cIntrID,[imonth],[ctran_name],[cdigest],[cCheckCode],[cBookcode],[cBillCode] from FD_Sav INNER JOIN FD_AccDef ON FD_Sav.cAccID = FD_AccDef.cAccID"
'        sSum = "Select '" & CX_SumTEXT & "' as zd1, NULL As [dbill_date], " & CX_SumCHARSQL & " as zd2," & CX_SumCHARSQL & " As dwm1," & CX_SumCHARSQL & " As cAccID, Sum(mmoney) As mmoney,FD_AccDef.cexch_name,[nfrat],Sum(mmoney_f) As mmoney_f, " & CX_SumCHARSQL & " As cIntrID," & CX_SumCHARSQL & " As [imonth], " & CX_SumCHARSQL & " As [ctran_name], " & CX_SumCHARSQL & " As [cdigest], " & CX_SumCHARSQL & " As [cCheckCode], " & CX_SumCHARSQL & " As [cBookcode], " & CX_SumCHARSQL & " As [cBillCode] from FD_Sav INNER JOIN FD_AccDef ON FD_Sav.cAccID = FD_AccDef.cAccID"                         'cuidong S.B 2001.09.13  'cuidong S.A 2001.09.10
        sSum = "Select '" & CX_SumTEXT & "' as zd1, NULL As [dbill_date], " & CX_SumCHARSQL & " as zd2," & CX_SumCHARSQL & " As dwm1," & CX_SumCHARSQL & " As cAccID, Sum(mmoney) As mmoney,FD_AccDef.cexch_name, " & CX_SumCHARSQL & " As nfrat, Sum(mmoney_f) As mmoney_f, " & CX_SumCHARSQL & " As cIntrID," & CX_SumCHARSQL & " As [imonth], " & CX_SumCHARSQL & " As [ctran_name], " & CX_SumCHARSQL & " As [cdigest], " & CX_SumCHARSQL & " As [cCheckCode], " & CX_SumCHARSQL & " As [cBookcode], " & CX_SumCHARSQL & " As [cBillCode] from FD_Sav INNER JOIN FD_AccDef ON FD_Sav.cAccID = FD_AccDef.cAccID" 'cuidong S.B 2001.09.13  'cuidong S.A 2001.09.10
    Else
        tjzh = "Select [isc], [dbill_date], [cFetid], [cAccID] As dwm1, [cAccID] , [mmoney],[cAccID] As dwm2, [nfrat], [mmoney_f],[cAccID] As dwm3, [imonth], [ctran_name], [cdigest], [cCheckCode], [cBookcode], [cBillCode] from FD_Fetch"
'''        tjzh1 = "Select iif([isc]=0,'" + sdqs + "','" + shqs + "') as zd1, [dbill_date], '" + dwbm + "-' + right([cFetid],8) as zd2,FD_Fetch.cAccID As dwm1,FD_Fetch.cAccID,[mmoney],FD_AccDef.cexch_name,[nfrat],[mmoney_f],FD_AccDef.cIntrID,[imonth],[ctran_name],[cdigest], [cCheckCode],[cBookcode],[cBillCode] from FD_Fetch INNER JOIN FD_AccDef ON FD_Fetch.cAccID = FD_AccDef.cAccID"
        tjzh1 = "Select (case when [isc]=0 then '" + sdqs + "' else '" + shqs + "' end ) as zd1, [dbill_date], '" + dwbm + "-' + right([cFetid],8) as zd2,FD_Fetch.cAccID As dwm1,FD_Fetch.cAccID,[mmoney],FD_AccDef.cexch_name,[nfrat],[mmoney_f],FD_AccDef.cIntrID,[imonth],[ctran_name],[cdigest], [cCheckCode],[cBookcode],[cBillCode] from FD_Fetch INNER JOIN FD_AccDef ON FD_Fetch.cAccID = FD_AccDef.cAccID"
'        sSum = "Select '" & CX_SumTEXT & "' as zd1, NULL As [dbill_date], " & CX_SumCHARSQL & " as zd2," & CX_SumCHARSQL & " As dwm1," & CX_SumCHARSQL & " As cAccID, Sum(mmoney) As mmoney,FD_AccDef.cexch_name,[nfrat],Sum(mmoney_f) as mmoney_f, " & CX_SumCHARSQL & " As cIntrID," & CX_SumCHARSQL & " As [imonth], " & CX_SumCHARSQL & " As [ctran_name], " & CX_SumCHARSQL & " As [cdigest], " & CX_SumCHARSQL & " As [cCheckCode], " & CX_SumCHARSQL & " As [cBookcode], " & CX_SumCHARSQL & " As [cBillCode] from FD_Fetch INNER JOIN FD_AccDef ON FD_Fetch.cAccID = FD_AccDef.cAccID"                         'cuidong S.B 2001.09.13 'cuidong S.A 2001.09.10
        sSum = "Select '" & CX_SumTEXT & "' as zd1, NULL As [dbill_date], " & CX_SumCHARSQL & " as zd2," & CX_SumCHARSQL & " As dwm1," & CX_SumCHARSQL & " As cAccID, Sum(mmoney) As mmoney,FD_AccDef.cexch_name, " & CX_SumCHARSQL & " As nfrat, Sum(mmoney_f) as mmoney_f, " & CX_SumCHARSQL & " As cIntrID," & CX_SumCHARSQL & " As [imonth], " & CX_SumCHARSQL & " As [ctran_name], " & CX_SumCHARSQL & " As [cdigest], " & CX_SumCHARSQL & " As [cCheckCode], " & CX_SumCHARSQL & " As [cBookcode], " & CX_SumCHARSQL & " As [cBillCode] from FD_Fetch INNER JOIN FD_AccDef ON FD_Fetch.cAccID = FD_AccDef.cAccID" 'cuidong S.B 2001.09.13'cuidong S.A 2001.09.10

    End If
    
    shqs = " where " + IIf(djcqk = 1, "[cSavid]", "[cFetid]") + " like '0" + Trim(str(4 - 2 * djnwb - djcqk)) + "%'"
    
    If Editbh(0).Text <> "" Then
        If djcqk = 1 Then
            If djnwb = 1 Then
                shqs = shqs + " And [cSavid] >= '01" + Editbh(0).Text + "'"
            Else
                shqs = shqs + " And [cSavid] >= '03" + Editbh(0).Text + "'"
            End If
        Else
            If djnwb = 1 Then
                shqs = shqs + " And [cFetid] >= '02" + Editbh(0).Text + "'"
            Else
                shqs = shqs + " And [cFetid] >= '04" + Editbh(0).Text + "'"
            End If
        End If
    End If
    If Editbh(1).Text <> "" Then
        If djcqk = 1 Then
            If djnwb = 1 Then
                shqs = shqs + " And [cSavid] <= '01" + Editbh(1).Text + "'"
            Else
                shqs = shqs + " And [cSavid] <= '03" + Editbh(1).Text + "'"
            End If
        Else
            If djnwb = 1 Then
                shqs = shqs + " And [cFetid] <= '02" + Editbh(1).Text + "'"
            Else
                shqs = shqs + " And [cFetid] <= '04" + Editbh(1).Text + "'"
            End If
        End If
    End If
    If Editrq(0).Text <> "" Then
        shqs = shqs + " And [dbill_date] >= '" + Editrq(0).Text + "'"
    End If
    If Editrq(1).Text <> "" Then
        shqs = shqs + " And [dbill_date] <= '" + Editrq(1).Text + "'"
    End If
   
    If Edityhmc.Text <> "" Then
        dwbm = Dwmctodwbm(Edityhmc.Text)
        If dwbm = "" Then
            dwbm = Dwbmtodwmc(Edityhmc.Text)
            If dwbm <> "" Then
                dwbm = Edityhmc.Text
            End If
        End If
        If dwbm = "" Then
            dwbm = Edityhmc.Text
        End If
        'If dwbm <> "" Then
            shqs = shqs + " And " + IIf(djcqk = 1, "FD_Sav", "FD_Fetch") + ".cAccid in (Select cAccid from FD_accdef where cUnitCode = '" + dwbm + "')"
        'End If
    End If
    
    If Edityhzh.Text <> "" Then
        shqs = shqs + " And " + IIf(djcqk = 1, "FD_Sav", "FD_Fetch") + ".cAccid = '" + Edityhzh.Text + "'"
    End If
    
    If Editje(0).Text <> "" Then
        shqs = shqs + " And [mmoney] >= " + Editje(0).Text
    End If
    If Editje(1).Text <> "" Then
        shqs = shqs + " And [mmoney] <= " + Editje(1).Text
    End If
    
    If Editje(2).Text <> "" Then
        shqs = shqs + " And [mmoney_f] >= " + Editje(2).Text
    End If
    If Editje(3).Text <> "" Then
        shqs = shqs + " And [mmoney_f] <= " + Editje(3).Text
    End If
        
    If Check1(0).Value <> Check1(1).Value Then
        shqs = shqs + " And [isc] = " + IIf(Check1(0).Value = 1, "0", "1")
    End If
    
    If Check1(2).Value = 0 Then
        shqs = shqs + " And (not ([cBookCode] is null))"
    End If
    
    'cuidong S.A 2001.09.10
    '----------------------
    tjzh1 = tjzh1 & shqs
    tjzh1 = tjzh1 & vbCrLf
    tjzh1 = tjzh1 & " UNION ALL "
    tjzh1 = tjzh1 & vbCrLf
    tjzh1 = tjzh1 & sSum
    tjzh1 = tjzh1 & shqs
'    tjzh1 = tjzh1 & "  Group By FD_AccDef.cexch_name, nfrat"             'cuidong S.B 2001.09.13
    tjzh1 = tjzh1 & "  Group By FD_AccDef.cexch_name"                     'cuidong S.B 2001.09.13
    tjzh1 = tjzh1 & vbCrLf
'    tjzh1 = tjzh1 & " order by zd1 desc, cexch_name,nfrat, [dbill_date]" 'cuidong S.B 2001.09.13
    tjzh1 = tjzh1 & " order by zd1 desc, cexch_name, [dbill_date]"        'cuidong S.B 2001.09.13
    '----------------------
    
    If djcqk = 1 Then
        shqs = shqs + " order by [dbill_date], cSavid"
    Else
        shqs = shqs + " order by [dbill_date], cFetid"
    End If
    tjzh = tjzh + shqs
'    tjzh1 = tjzh1 + shqs  'cuidong S.A 2001.09.10
End Sub