frmqueryaccinfo.frm

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

            str = str & "fd_accdef.idatasrc=1 and "
        End If
    End If
    If Not (Check1(0).Value = 1 And Check1(1).Value = 1) Then
        If Check1(0).Value = 1 Then
            str = str & "fd_accdef.istate=1 and "
        End If
        If Check1(1).Value = 1 Then
            str = str & "fd_accdef.istate=0 and "
        End If
    End If
    If Not (Check1(2).Value = 1 And Check1(3).Value = 1) Then
        If Check1(2).Value = 1 Then
            str = str & "fd_accdef.bdestroy=0 and "
        End If
        If Check1(3).Value = 1 Then
            str = str & "fd_accdef.bdestroy=1 and "
        End If
    End If
    If Not (Check1(7).Value = 1 And Check1(8).Value = 1) Then
        If Check1(7).Value = 1 Then
            str = str & "fd_accdef.Iio=1 and "
        End If
        If Check1(8).Value = 1 Then
            str = str & "fd_accdef.Iio=0 and "
        End If
    End If
    If Not (Check1(4).Value = 1 And Check1(5).Value = 1 And Check1(6).Value = 1) Then
        If Check1(4).Value = 1 Then
            str = str & "fd_accdef.itype=1 and "
        End If
        If Check1(5).Value = 1 Then
            str = str & "fd_accdef.itype=0 and "
        End If
        If Check1(6).Value = 1 Then
            str = str & "fd_accdef.itype=2 and "
        End If
    End If
    str = str & "1=1"
            
    frmAccInfo.sqlwhere = str
    m_accUpgrade = 0
    Unload Me
End Sub


Private Sub Form_Load()
    loadstatic
    str = ""
End Sub

Private Sub refcaccbank_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
'    sqlstr = "select distinct caccbank as 开户银行,cAccid As 账户号 from FD_AccDef order by cAccid"
'    rfd.SetLogin zjLogInfo
'    rfd.SetReferSQLString sqlstr
'    rfd.SetReferDisplayMode enuGrid
'    Dim rfd As Object
'    Set rfd = CreateObject("UFReferC.UFRederClient")
    
    Call rfd.EnumRefInit(zjLogInfo, 1, False, 24)
    rfd.Show
    If rfd.recmx Is Nothing Then Exit Sub
    Set rs1 = rfd.recmx
    txtCaccbank.Text = rs1(1)
    Set rfd = Nothing
    Set rs1 = Nothing

End Sub

Private Sub refCaccid_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
    sqlstr = "select cAccid As 账户号,cAccname As 账户名称 from FD_AccDef order by cAccid"
    rfd.SetLogin zjLogInfo
    rfd.SetReferSQLString sqlstr
    rfd.SetReferDisplayMode enuGrid
    rfd.Show
    If rfd.recmx Is Nothing Then Exit Sub
    Set rs1 = rfd.recmx
    txtCaccid.Text = rs1(0)
    Set rfd = Nothing
    Set rs1 = Nothing

End Sub

Private Sub refCaccname_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
    sqlstr = "select cAccid As 账户号,cAccname As 账户名称 from FD_AccDef order by cAccid"
    rfd.SetLogin zjLogInfo
    rfd.SetReferSQLString sqlstr
    rfd.SetReferDisplayMode enuGrid
    rfd.Show
    If rfd.recmx Is Nothing Then Exit Sub
    Set rs1 = rfd.recmx
    txtCaccname.Text = rs1(1)
    Set rfd = Nothing
    Set rs1 = Nothing

End Sub

Private Sub refCcadid_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
    sqlstr = "select iid as 序号,cCadid as 结息日编码 from FD_cadset order by iid"
    rfd.SetLogin zjLogInfo
    rfd.SetReferSQLString sqlstr
    rfd.SetReferDisplayMode enuGrid
    rfd.Show
    If rfd.recmx Is Nothing Then Exit Sub
    Set rs1 = rfd.recmx
    txtCcadid.Text = rs1(1)
    Set rfd = Nothing
    Set rs1 = Nothing

End Sub

Private Sub refcexch_name_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
    'sqlstr = "select distinct cexch_name as 币别,cAccid As 账户号 from FD_AccDef order by cAccId"
    sqlstr = "select i_id as 序号,cExch_name As 币别 from foreigncurrency order by i_id"
    rfd.SetLogin zjLogInfo
    rfd.SetReferSQLString sqlstr
    rfd.SetReferDisplayMode enuGrid
    rfd.Show
    If rfd.recmx Is Nothing Then GoTo error0
    Set rs1 = rfd.recmx
    txtcexch_name.Text = rs1(1)
error0:
    Set rfd = Nothing
    Set rs1 = Nothing

End Sub

Private Sub refcUnitName_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
    sqlstr = "select cunitcode As 单位编号,cunitname As 单位名称 from FD_AccUnit order by cunitcode"
    rfd.SetLogin zjLogInfo
    rfd.SetReferSQLString sqlstr
    rfd.SetReferDisplayMode enuGrid
'    rfd.enumrefinit zjloginfo,2,false,
    rfd.Show
    If rfd.recmx Is Nothing Then Exit Sub
    Set rs1 = rfd.recmx
    txtcUnitName.Text = rs1(1)
    Set rfd = Nothing
    Set rs1 = Nothing
End Sub

Private Sub refdopendate1_Click()
    Dim Calendar As New CalendarAPP.ICaleCom
    Calendar.Caption = "开户日期"
    Calendar.DateDivideChar = "-"
    txtDopenDate1.Text = Calendar.Calendar(txtDopenDate1.hWnd)
    Set Calendar = Nothing

End Sub

Private Sub refdopendate2_Click()
    Dim Calendar As New CalendarAPP.ICaleCom
    Calendar.Caption = "开户日期"
    Calendar.DateDivideChar = "-"
    txtdopendate2.Text = Calendar.Calendar(txtdopendate2.hWnd)
    Set Calendar = Nothing

End Sub

Private Sub refIntrid_Click()
    Dim sqlstr As String
    Dim rs1 As New ADODB.Recordset
    Dim rfd As New UFReferC.UFReferClient
    'sqlstr = "select distinct CIntrid as 利率代码,caccid As 单位代码 from FD_AccDef order by caccid"
    sqlstr = "select iid As 序号,cintrid as 利率代码 from fd_intra order by iid"
'    sqlstr = "select * from fd_intras order by iid"
    rfd.SetLogin zjLogInfo
    rfd.SetReferSQLString sqlstr
    rfd.SetReferDisplayMode enuGrid
'    rfd.EnumRefInit zjLogInfo, 1, False, "fd_intras"
    rfd.Show
    If rfd.recmx Is Nothing Then Exit Sub
    Set rs1 = rfd.recmx
    txtCintrid.Text = rs1(1)
    Set rfd = Nothing
    Set rs1 = Nothing

End Sub

Private Sub refUpgDate1_Click()
    Dim Calendar As New CalendarAPP.ICaleCom
    Calendar.Caption = "调整日期"
    Calendar.DateDivideChar = "-"
    txtUpgDate1.Text = Calendar.Calendar(txtUpgDate1.hWnd)
    Set Calendar = Nothing

End Sub

Private Sub refupgDate2_Click()
    Dim Calendar As New CalendarAPP.ICaleCom
    Calendar.Caption = "调整日期"
    Calendar.DateDivideChar = "-"
    txtUpgDate2.Text = Calendar.Calendar(txtUpgDate2.hWnd)
    Set Calendar = Nothing

End Sub

Private Sub txtCaccbank_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtmb1.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtCcadid.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        '        refcaccbank_Click
    End If
End Sub

Private Sub txtCaccid_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtcexch_name.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtCaccname.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refCaccid_Click
    End If
End Sub

Private Sub txtCaccname_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtCaccid.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtcUnitName.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refCaccname_Click
    End If
End Sub

Private Sub txtCcadid_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtCaccbank.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtCintrid.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refCcadid_Click
    End If
End Sub


Private Sub txtcexch_name_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtDopenDate1.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtCaccid.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refcexch_name_Click
    End If
End Sub


Private Sub txtCintrid_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtCcadid.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtdopendate2.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refIntrid_Click
    End If
End Sub

Private Sub txtcUnitName_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtCaccname.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtUpgDate2.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refcUnitName_Click
    End If
End Sub


Private Sub txtDopenDate1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtdopendate2.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtcexch_name.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refdopendate1_Click
    End If
End Sub

Private Sub txtdopendate2_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtCintrid.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtDopenDate1.SetFocus
    End If
    If KeyCode = vbKeyF2 Then
        refdopendate2_Click
    End If
End Sub

Private Sub txtmb1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtmb2.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtCaccbank.SetFocus
    End If
End Sub


Private Sub txtmb2_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtqcye_natural_mny1.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtmb1.SetFocus
    End If
End Sub

Private Sub txtmh1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtmh2.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtqcye_natural_mny2.SetFocus
    End If
End Sub

Private Sub txtmh2_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtqcjs_natural_mny1.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtmh1.SetFocus
    End If
End Sub

Private Sub txtqcjs_natural_mny1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtqcjs_natural_mny2.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtmh2.SetFocus
    End If
End Sub


Private Sub txtqcjs_natural_mny2_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        optidatasrc(0).SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtqcjs_natural_mny1.SetFocus
    End If
End Sub

Private Sub txtqcye_natural_mny1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtqcye_natural_mny2.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtmb2.SetFocus
    End If
End Sub

Private Sub txtqcye_natural_mny2_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtmh1.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtqcye_natural_mny1.SetFocus
    End If
End Sub

Private Sub txtUpgDate1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF2 Then
        refUpgDate1_Click
    ElseIf KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        txtUpgDate2.SetFocus
    End If

End Sub

Private Sub loadstatic()
    Me.Icon = LoadResPicture(109, vbResIcon)
    'refcaccbank.Picture = LoadResPicture(129, vbResBitmap)
    refCaccid.Picture = LoadResPicture(129, vbResBitmap)
    refCaccname.Picture = LoadResPicture(129, vbResBitmap)
    refCcadid.Picture = LoadResPicture(129, vbResBitmap)
    refcexch_name.Picture = LoadResPicture(129, vbResBitmap)
    refcUnitName.Picture = LoadResPicture(129, vbResBitmap)
    refdopendate1.Picture = LoadResPicture(1108, vbResBitmap)
    refdopendate2.Picture = LoadResPicture(1108, vbResBitmap)
    refIntrid.Picture = LoadResPicture(129, vbResBitmap)
    refUpgDate1.Picture = LoadResPicture(1108, vbResBitmap)
    refupgDate2.Picture = LoadResPicture(1108, vbResBitmap)
End Sub

Private Sub txtUpgDate2_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF2 Then
        refupgDate2_Click
    ElseIf KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
        refcUnitName.SetFocus
    ElseIf KeyCode = vbKeyUp Then
        txtUpgDate1.SetFocus
    End If

End Sub