i-+

VB财务软件系统下载源代码提供自由下载使用学习

                End If
                
                If Len(Trim(Trim(Me.txtAccCode(1).Text))) <> 0 Then
                    sql = sql & " and " & objForm.EO("accdef_name").SourceField & " like '" & Trim(Me.txtAccCode(1).Text) & "%'"
                End If
                
                If Len(Trim(Me.txtIRate.Text)) <> 0 Then
                    sql = sql & " and " & objForm.EO("irate_code").SourceField & " like '" & Trim(Me.txtIRate.Text) & "%'"
                End If
                
                If Len(Trim(Me.txtCad.Text)) <> 0 Then
                    sql = sql & " and " & objForm.EO("cad_code").SourceField & " like '" & Trim(Me.txtCad.Text) & "%'"
                End If
                
                If Me.cboSource.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("datasrc_flag").SourceField & " = '" & Me.cboSource.ListIndex - 1 & "'"
                End If
                
                If Me.cboAccIO.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("io_flag").SourceField & " = '" & Me.cboAccIO.ListIndex - 1 & "'"
                End If
                
                If Me.cboAccType.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("type_flag").SourceField & " = '" & Me.cboAccType.ListIndex - 1 & "'"
                End If
                
                If Me.cboMoneyName.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("money_name").SourceField & " = '" & Me.cboMoneyName.Text & "'"
                End If
                
                If Len(m_FindResult) > 0 Then
                    sql = sql & " and " & objForm.EO.SourceOIDField & " > '" & mID(m_FindResult, 1, 15) & "'"
                End If
                
                FindID = objAccDefBI.FindGrp(g_sDataSourceName, objForm.EO, sql)
                
                If Len(FindID) > 1 Then
                    m_FindResult = FindID
                    If Len(FindID) > 15 Then
                        objForm.treStyle.Nodes("K" & mID(FindID, 17)).Expanded = True
                        objForm.treStyle.Nodes("K" & mID(FindID, 17)).Selected = True
                        objOID.id = mID(FindID, 1, 15)
                    Else
                        objForm.treStyle.Nodes("K").Selected = True
                        objOID.id = FindID
                    End If
                    Set objForm.EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
                    Set objOID = Nothing
                    objForm.SetUI mID(FindID, 1, 15)
                Else
                    m_FindResult = right(String(1, "0") & objForm.EO.BIType & String(13, "0"), 15)
                    MsgBox "没有找到对应记录！"
                End If
            
                Set objAccDefBI = Nothing
                Exit For
            End If
        Next
    Else
        For i = 0 To Forms.count - 1
            If Forms(i).Name = "frmAccDef" Then
                Set objForm = Forms(i)
                
                If m_ShowDestroy = 2 Then '已销户
                    sql = sql & " and " & objForm.EO("destroy_flag").SourceField & " =1"
                ElseIf m_ShowDestroy = 3 Then '未销户
                    sql = sql & " and " & objForm.EO("destroy_flag").SourceField & " =0"
                End If
                
                If Len(Trim(Me.txtUnit.Text)) <> 0 Then
                    sql = sql & " and " & objForm.EO("accunit_code").SourceField & " like '" & Trim(Me.txtUnit.Text) & "%'"
                End If
                
                If Len(Trim(Trim(Me.txtAccCode(0).Text))) <> 0 Then
                    sql = sql & " and " & objForm.EO("accdef_code").SourceField & " like '" & Trim(Me.txtAccCode(0).Text) & "%'"
                End If
                
                If Len(Trim(Trim(Me.txtAccCode(1).Text))) <> 0 Then
                    sql = sql & " and " & objForm.EO("accdef_name").SourceField & " like '" & Trim(Me.txtAccCode(1).Text) & "%'"
                End If
                
                If Len(Trim(Me.txtIRate.Text)) <> 0 Then
                    sql = sql & " and " & objForm.EO("irate_code").SourceField & " like '" & Trim(Me.txtIRate.Text) & "%'"
                End If
                
                If Len(Trim(Me.txtCad.Text)) <> 0 Then
                    sql = sql & " and " & objForm.EO("cad_code").SourceField & " like '" & Trim(Me.txtCad.Text) & "%'"
                End If
                
                If Me.cboSource.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("datasrc_flag").SourceField & " = '" & Me.cboSource.ListIndex - 1 & "'"
                End If
                
                If Me.cboAccIO.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("io_flag").SourceField & " = '" & Me.cboAccIO.ListIndex - 1 & "'"
                End If
                
                If Me.cboAccType.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("type_flag").SourceField & " = '" & Me.cboAccType.ListIndex - 1 & "'"
                End If
                
                If Me.cboMoneyName.ListIndex > 0 Then
                    sql = sql & " and " & objForm.EO("money_name").SourceField & " = '" & Me.cboMoneyName.Text & "'"
                End If
                
                If Len(m_FindResult) > 0 Then
                    sql = sql & " and " & objForm.EO.SourceOIDField & " > '" & m_FindResult & "'"
                End If
                
                FindID = objAccDefBI.Find(g_sDataSourceName, objForm.EO, sql)
                
                If Len(FindID) > 1 Then
                    m_FindResult = FindID
                    objForm.treStyle.Nodes("K" & FindID).Expanded = True
                    objForm.treStyle.Nodes("K" & FindID).Selected = True
                    objOID.id = FindID
                    Set objForm.EO = objAccDefBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, , objOID)
                    Set objOID = Nothing
                    objForm.SetUI
                Else
                    m_FindResult = right(String(1, "0") & objForm.EO.BIType & String(13, "0"), 15)
                    MsgBox "搜索完毕，没有符合条件的账户！"
                End If
            
                Set objAccDefBI = Nothing
                Exit For
            End If
        Next
    End If
End Sub

Private Sub mRefCtlUI_RefControlEvent(ByVal sOID As String, ByVal sID As String, ByVal sName As String, ByVal RefTypeName As String)
    Dim Control As Control
    Dim ExitFor As Byte
    ExitFor = 0
    If RefTypeName = "txtAccCode" Then
        For Each Control In Me.Controls
            If Control.Name = RefTypeName Then
                If Control.Index = 0 Then
                    ExitFor = ExitFor + 1
                    Control.Text = sID
                ElseIf Control.Index = 1 Then
                    ExitFor = ExitFor + 1
                    Control.Text = sName
                End If
                If ExitFor = 2 Then Exit For
            End If
        Next Control
    Else
        For Each Control In Me.Controls
            If Control.Name = RefTypeName Then
                Control.Text = sID
            End If
        Next Control
    End If
    Set Control = Nothing
    Set mRefCtlUI = Nothing
End Sub

Private Sub cboAccType_Click()
    If Me.cboSource.ListIndex = 1 Then '资金
        If Me.cboAccType.ListIndex = 1 Then '定期
            Me.txtCad.Text = ""
            Me.txtCad.Enabled = False
            Me.cmdCadRef.Enabled = False
        ElseIf Me.cboAccType.ListIndex = 2 Then '活期
            Me.txtCad.Enabled = True
            Me.cmdCadRef.Enabled = True
        End If
    Else '总帐
        If Me.cboAccType.ListIndex = 1 Then '活期
            Me.txtCad.Enabled = True
            Me.cmdCadRef.Enabled = True
        End If
    End If
End Sub

Private Sub cboSource_Click()
    If Me.cboSource.ListIndex = 1 Then
        Me.cboAccType.clear
        Me.cboAccType.AddItem ""
        Me.cboAccType.AddItem "定期"
        Me.cboAccType.AddItem "活期"
        'Me.cboAccType.AddItem "定额"
        Me.cboAccType.ListIndex = 2
    ElseIf Me.cboSource.ListIndex = 2 Then
        Me.cboAccType.clear
        Me.cboAccType.AddItem ""
        Me.cboAccType.AddItem "活期"
        'Me.cboAccType.AddItem "定额"
        Me.cboAccType.ListIndex = 1
    End If
End Sub

Private Sub cmdAccRef_Click()
'    Dim objfrmRefCtl As New frmRefCtl
'    Dim objEO        As U8FDEso.EntityObject
'    Dim objAccDefBI  As New U8FDBso.clsAccDefBI
'
'    Set objEO = objAccDefBI.Init(g_sDataSourceName)
'    Load objfrmRefCtl
'    objfrmRefCtl.FormName = "frmAccFind"
'    objfrmRefCtl.ControlName = "txtAccCode"
'    objfrmRefCtl.FDRefCtrl.ReferenceType = enmAccount
'    Set objfrmRefCtl.FDRefCtrl.EO = objEO
'    objfrmRefCtl.FDRefCtrl.Refresh
'    objfrmRefCtl.Show vbModal
'    Set objAccDefBI = Nothing
'    Set objEO = Nothing
'    Set objfrmRefCtl = Nothing
    Refyhzh.InitSys 0, dbsZJ
    Refyhzh.InitSys 1, txtAccCode(0).Text
    Refyhzh.InitSys 2, txtUnit.Text
    Refyhzh.RefAccMode = IIf(djnwb = 1, RefOutsideAcc, RefInsideAcc)
End Sub

Private Sub cmdCadRef_Click()
    Dim objfrmRefCtl As New frmRefCtl
    Dim objEO        As U8FDEso.EntityObject
    Dim objCadBI     As New U8FDBso.clsCadBI
    
    Set objEO = objCadBI.Init(g_sDataSourceName)
    Load objfrmRefCtl
    objfrmRefCtl.FormName = "frmAccFind"
    objfrmRefCtl.ControlName = "txtCad"
    objfrmRefCtl.FDRefCtrl.ReferenceType = enmCad
    Set objfrmRefCtl.FDRefCtrl.EO = objEO
    objfrmRefCtl.FDRefCtrl.Refresh
    objfrmRefCtl.Show
    Set objCadBI = Nothing
    Set objEO = Nothing
    Set objfrmRefCtl = Nothing
End Sub

Private Sub CmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdIrateRef_Click()
    Dim objfrmRefCtl As New frmRefCtl
    Dim objEO        As U8FDEso.EntityObject
    Dim objIRateBI   As New U8FDBso.clsIRateBI
    
    Set objEO = objIRateBI.Init(g_sDataSourceName)
    Load objfrmRefCtl
    objfrmRefCtl.Show
    'Dim i   As Long
    'For i = 0 To Forms.Count - 1
    '    If Forms(i).Name = "frmRefCtl" Then
    '        Set objfrmRefCtl = Forms(i)
    '        Exit For
    '    End If
    'Next
    objfrmRefCtl.FormName = "frmAccFind"
    objfrmRefCtl.ControlName = "txtIRate"
    objfrmRefCtl.FDRefCtrl.ReferenceType = enmInterestRate
    Set objfrmRefCtl.FDRefCtrl.EO = objEO
    objfrmRefCtl.FDRefCtrl.Refresh
    'objfrmRefCtl.Show
    Set objIRateBI = Nothing
    Set objEO = Nothing
    Set objfrmRefCtl = Nothing
End Sub

Private Sub cmdUnitRef_Click()
'    Dim objfrmRefCtl As New frmRefCtl
'    Dim objEO        As U8FDEso.EntityObject
'    Dim objAccUnitBI As New U8FDBso.clsAccUnitBI
'
'    Set objEO = objAccUnitBI.Init(g_sDataSourceName)
'    Load objfrmRefCtl
'    objfrmRefCtl.FormName = "frmAccFind"
'    objfrmRefCtl.ControlName = "txtUnit"
'    objfrmRefCtl.FDRefCtrl.ReferenceType = enmUnit
'    Set objfrmRefCtl.FDRefCtrl.EO = objEO
'    objfrmRefCtl.FDRefCtrl.Refresh
'    objfrmRefCtl.Show
'    Set objAccUnitBI = Nothing
'    Set objEO = Nothing
'    Set objfrmRefCtl = Nothing
    Refyhmc.InitSys 0, dbsZJ
    Refyhmc.InitSys 1, Edityhmc.Text
    Refyhmc.RefUnitMode = IIf(djnwb = 1, RefBank, RefNotBank)
End Sub

Private Sub Form_Load()
    Dim arrCurr As Variant
    Dim i       As Integer
    
    Me.cboMoneyName.clear
    Me.cboMoneyName.AddItem ""
    arrCurr = GetAllCurrencyNames
    For i = 0 To UBound(arrCurr) - 1
        Me.cboMoneyName.AddItem arrCurr(i)
    Next
    Me.cboMoneyName.ListIndex = 0
    Me.cboAccIO.ListIndex = 0
    Me.cboAccType.ListIndex = 0
    Me.cboSource.ListIndex = 0
    m_FindResult = ""
    
    If m_FromAccOrGrp = 1 Then
        Me.Caption = "账户管理---查找"
    Else
        Me.Caption = "账户定义---查找"
    End If
    
    CenterForm Me
End Sub

Private Sub Refyhmc_Initialize()
    Refyhmc.InitSys 0, dbsZJ
    Refyhmc.InitSys 1, txtUnit.Text
    Refyhmc.RefUnitMode = RefAll
End Sub

Private Sub Refyhmc_RefCancel()
    txtUnit.SetFocus
End Sub

Private Sub Refyhmc_RefOK(code As String)
    txtUnit.Text = code
    txtUnit.SetFocus
End Sub

Private Sub Refyhzh_Initialize()
    Refyhzh.InitSys 0, dbsZJ
    Refyhzh.InitSys 1, txtAccCode(0).Text
    Refyhzh.InitSys 2, txtUnit.Text
    Refyhzh.RefAccMode = RefAllAcc
End Sub

Private Sub Refyhzh_RefCancel()
    txtAccCode(0).SetFocus
End Sub

Private Sub Refyhzh_RefOK(code As String)
    txtAccCode(0).Text = code
    txtAccCode(0).SetFocus
End Sub

Private Sub RefCmd1_Initialize()
    RefCmd1.InitSys RefWksDB, dbsZJ
    RefCmd1.InitSys RefPara1, Me.txtIRate
End Sub

Private Sub RefCmd1_RefCancel()
    Me.txtIRate.SetFocus
End Sub

Private Sub RefCmd1_RefOK(code As String)
    Me.txtIRate = code
    Me.txtIRate.SetFocus
End Sub

Private Sub RefCmd2_Initialize()
    RefCmd2.InitSys RefWksDB, dbsZJ
    RefCmd2.InitSys RefPara1, Me.txtCad
End Sub

Private Sub RefCmd2_RefCancel()
    Me.txtCad.SetFocus
End Sub

Private Sub RefCmd2_RefOK(code As String)
    Me.txtCad = code
    Me.txtCad.SetFocus
End Sub

Private Sub RefCmd4_Initialize()
    RefCmd4.InitSys zjLogInfo.UfDbName, txtIRate.Text
End Sub

Private Sub RefCmd4_RefCancel()
    If Me.txtIRate.Enabled Then Me.txtIRate.SetFocus
End Sub

Private Sub RefCmd4_RefOK(code As String)
    If Me.txtIRate.Enabled Then
        Me.txtIRate = code
        Me.txtIRate.SetFocus
    End If
End Sub

Private Sub txtAccCode_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then 'F2
        Refyhzh.RunReference
    End If
End Sub

Private Sub txtCad_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then 'F2
        RefCmd2.RunReference
    End If
End Sub

Private Sub txtIRate_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then 'F2
        RefCmd1.RunReference
    End If
End Sub

Private Sub txtUnit_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then 'F2
        Refyhmc.RunReference
    End If
End Sub