VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Begin VB.Form frmlxmxtj 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   1770
   ClientLeft      =   45
   ClientTop       =   300
   ClientWidth     =   5835
   HelpContextID   =   88000069
   Icon            =   "frmlxmxtj.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1770
   ScaleWidth      =   5835
   Begin VB.CommandButton cmdfind 
      Default         =   -1  'True
      Height          =   365
      Left            =   4620
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   255
      Width           =   1080
   End
   Begin VB.CommandButton cmdcancel 
      Cancel          =   -1  'True
      Height          =   365
      Left            =   4620
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   750
      Width           =   1080
   End
   Begin VB.Frame Frame1 
      Height          =   1410
      Left            =   90
      TabIndex        =   6
      Top             =   150
      Width           =   4395
      Begin UsRefBut.RefCmd Refyhzh 
         Height          =   290
         Left            =   3048
         TabIndex        =   13
         Top             =   984
         Width           =   336
         _ExtentX        =   582
         _ExtentY        =   503
         RefMode         =   1
         RefUnitMode     =   0
         RefAccMode      =   0
         Enabled         =   -1  'True
      End
      Begin UsRefBut.RefCmd Refyhmc 
         Height          =   290
         Left            =   3948
         TabIndex        =   12
         Top             =   615
         Width           =   336
         _ExtentX        =   582
         _ExtentY        =   503
         RefMode         =   0
         RefUnitMode     =   0
         RefAccMode      =   0
         Enabled         =   -1  'True
      End
      Begin VB.CommandButton cmdrq 
         Height          =   270
         Index           =   0
         Left            =   2100
         Style           =   1  'Graphical
         TabIndex        =   10
         TabStop         =   0   'False
         Top             =   240
         Width           =   270
      End
      Begin VB.CommandButton cmdrq 
         Height          =   270
         Index           =   1
         Left            =   3750
         Style           =   1  'Graphical
         TabIndex        =   9
         TabStop         =   0   'False
         Top             =   240
         Width           =   270
      End
      Begin EDITLib.Edit Editrq 
         Height          =   264
         Index           =   0
         Left            =   990
         TabIndex        =   0
         Top             =   240
         Width           =   1035
         _Version        =   65536
         _ExtentX        =   1826
         _ExtentY        =   466
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   5
         MaxLength       =   10
      End
      Begin EDITLib.Edit Editrq 
         Height          =   270
         Index           =   1
         Left            =   2640
         TabIndex        =   1
         Top             =   240
         Width           =   1035
         _Version        =   65536
         _ExtentX        =   1826
         _ExtentY        =   476
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   5
         MaxLength       =   10
      End
      Begin EDITLib.Edit Edityhmc 
         Height          =   264
         Left            =   990
         TabIndex        =   2
         Top             =   615
         Width           =   2900
         _Version        =   65536
         _ExtentX        =   5115
         _ExtentY        =   466
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         MaxLength       =   60
         BadStr          =   "|'"""
      End
      Begin EDITLib.Edit Edityhzh 
         Height          =   264
         Left            =   990
         TabIndex        =   3
         Top             =   990
         Width           =   2000
         _Version        =   65536
         _ExtentX        =   3528
         _ExtentY        =   466
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         MaxLength       =   60
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   2
         Left            =   150
         TabIndex        =   11
         Top             =   270
         Width           =   90
      End
      Begin VB.Line Line1 
         X1              =   2415
         X2              =   2575
         Y1              =   360
         Y2              =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   1
         Left            =   150
         TabIndex        =   8
         Top             =   1005
         Width           =   90
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   0
         Left            =   150
         TabIndex        =   7
         Top             =   630
         Width           =   90
      End
   End
End
Attribute VB_Name = "frmlxmxtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'軟件著作權(quán): 北京用友軟件集團(tuán)有限公司
'系統(tǒng)名稱: 資金管理8.0
'功能說(shuō)明: 賬戶利息明細(xì)表?xiàng)l件
'作者: 魏小黎
Option Explicit
Public isEnt As Boolean, Quitfs As Boolean

Private Sub cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdfind_Click()
    If Contquit Then
        Dim zhh As String, zhm As String, sDate As String, eDate As String
        zhh = Edityhzh.Text
        zhm = Edityhmc.Text
        sDate = Editrq(0).Text
        eDate = Editrq(1).Text
        
        Quitfs = False
        
        Unload Me
        
        Dim frm As frmlxmx, mfm As Form
        For Each mfm In Forms
            If mfm.Tag = "cxlxmxb" Then
                BringWindowToTop mfm.hWnd
                mfm.sDate = sDate
                mfm.eDate = eDate
                mfm.zhbh = zhh
                mfm.zhmc = zhm
                mfm.cmdExcute_Click
                mfm.cmdRefresh_Click
                Exit Sub
            End If
        Next mfm
        
        Set frm = New frmlxmx
        frm.sDate = sDate
        frm.eDate = eDate
        frm.zhbh = zhh
        frm.zhmc = zhm
        frm.Tag = "cxlxmxb"
        frm.Show
    End If
End Sub

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

Private Sub Form_Unload(Cancel As Integer)
    If Quitfs Then
        zjLogInfo.TaskExec "FD0709", 0, zjLogInfo.cIYear
        zjLogInfo.ClearError
        zjGen_arr.FD0709 = False
    End If
End Sub

Private Sub Refyhmc_Initialize()
    Refyhmc.InitSys 0, dbsZJ
    Refyhmc.InitSys 1, Edityhmc.Text
    Refyhmc.RefUnitMode = RefAll
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 = RefAllAcc
End Sub

Private Sub Refyhzh_RefCancel()
    Edityhzh.SetFocus
End Sub

Private Sub Refyhzh_RefOK(Code As String)
    Edityhzh.Text = Code
    Edityhzh.SetFocus
End Sub
' 業(yè)務(wù)日期按鍵
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 "日期非法，請(qǐng)檢查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq(Index)
            isEnt = False
        End If
    End If
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
' 銀行賬號(hào)按鍵
Private Sub Edityhzh_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then   'F2
        Refyhzh.RunReference
    End If
End Sub

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CenterForm Me
    Me.Icon = LoadResPicture(109, vbResIcon)
    Me.Caption = "賬戶利息明細(xì)表"
    cmdrq(0).Picture = LoadResPicture(1108, vbResBitmap)
    cmdrq(1).Picture = LoadResPicture(1108, vbResBitmap)
    Frame1.Caption = "請(qǐng)輸入查詢條件"
    cmdfind.Picture = LoadResPicture(103, vbResBitmap)
    cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
    Label1(0).Caption = "單位名稱"
    Label1(1).Caption = "賬戶號(hào)"
    Label1(2).Caption = "起始時(shí)間"
    isEnt = True
    Screen.MousePointer = vbDefault
End Sub

Private Function Contquit() As Boolean
    Dim i As Integer, tmprst As New UfRecordset
    Contquit = True
    
    If Editrq(0).Text <> "" Then
        Editrq(0).Text = ForDate(Editrq(0).Text)
        If Not IsDate(Editrq(0).Text) Then
            Beep
            MsgBox "日期非法，請(qǐng)檢查！", vbCritical, zjGl_Name
            Contquit = False
            SetTxtFocus Editrq(0)
            Exit Function
        End If
        If Not Pd_CurNddate(Editrq(0).Text) Then
            Contquit = False
            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 "日期范圍錯(cuò)誤，請(qǐng)檢查！", vbCritical, zjGl_Name
                    Contquit = False
                    SetTxtFocus Editrq(1)
                    Exit Function
                End If
            End If
        Else
            Beep
            MsgBox "日期非法，請(qǐng)檢查！", vbCritical, zjGl_Name
            Contquit = False
            SetTxtFocus Editrq(1)
            Exit Function
        End If
        If Not Pd_CurNddate(Editrq(1).Text) Then
            Contquit = False
            SetTxtFocus Editrq(1)
            Exit Function
        End If
    End If
          
    If Hqzh_err(Edityhmc, Edityhzh) Then
        Contquit = False
        SetTxtFocus Edityhzh
        Contquit = False
        Exit Function
    End If
    
    Set tmprst = dbsZJ.OpenRecordset("Select * from FD_AccSum where cAccID = '" & Edityhzh.Text & "'", dbOpenSnapshot)
    If tmprst.EOF Then
        tmprst.oClose
        Beep
        MsgBox "賬戶還未記賬，請(qǐng)檢查！", vbCritical, zjGl_Name
        SetTxtFocus Edityhzh
        Contquit = False
        Exit Function
    End If
    tmprst.oClose
    
    For i = 0 To 1
        If Editrq(i).Text <> "" Then
           If CDate(Editrq(i).Text) >= ZjAccInfo.zjStartdate Then
              Set tmprst = dbsZJ.OpenRecordset("Select * from FD_AccSum where cAccID = '" & Edityhzh.Text & "' And [dbill_date] = '" & Editrq(i).Text & "'", dbOpenSnapshot)
              If tmprst.EOF Then
                  tmprst.oClose
                  Beep
                  MsgBox "本日未記賬，請(qǐng)檢查！", vbCritical, zjGl_Name
                  SetTxtFocus Editrq(i)
                  Contquit = False
                  Exit Function
              End If
              tmprst.oClose
           Else
              Beep
              MsgBox "查詢時(shí)間不能小于帳戶的啟用日期" & Format(ZjAccInfo.zjStartdate, "Long Date") & "   ", vbCritical, zjGl_Name
              SetTxtFocus Editrq(i)
              Contquit = False
              Exit Function
           End If
        End If
    Next i
    
    If Editrq(0).Text = "" Or Editrq(1).Text = "" Then
        Set tmprst = dbsZJ.OpenRecordset("Select * from FD_AccSum where cAccID = '" & Edityhzh.Text & "' order by [dbill_date]", dbOpenSnapshot)
        With tmprst
            If Editrq(0).Text = "" Then
                .MoveFirst
                Editrq(0).Text = ![dbill_date]
            End If
            If Editrq(1).Text = "" Then
                .MoveLast
                Editrq(1).Text = ![dbill_date]
            End If
            .oClose
        End With
    End If
    
End Function