frmdkztj.frm

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

VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmdkztj 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   1560
   ClientLeft      =   2055
   ClientTop       =   3705
   ClientWidth     =   4815
   HelpContextID   =   88000068
   Icon            =   "frmdkztj.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1560
   ScaleWidth      =   4815
   Begin VB.Frame Frame1 
      Height          =   1215
      Left            =   135
      TabIndex        =   5
      Top             =   150
      Width           =   3360
      Begin VB.ComboBox Combo2 
         BackColor       =   &H00FFFFFF&
         Height          =   300
         ItemData        =   "frmdkztj.frx":000C
         Left            =   2130
         List            =   "frmdkztj.frx":000E
         Sorted          =   -1  'True
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   270
         Width           =   1110
      End
      Begin VB.CommandButton cmdrq 
         Height          =   270
         Left            =   2015
         Style           =   1  'Graphical
         TabIndex        =   8
         TabStop         =   0   'False
         Top             =   750
         Width           =   270
      End
      Begin VB.ComboBox Combo1 
         BackColor       =   &H00FFFFFF&
         Height          =   300
         ItemData        =   "frmdkztj.frx":0010
         Left            =   915
         List            =   "frmdkztj.frx":0017
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   270
         Width           =   1110
      End
      Begin EDITLib.Edit Editrq 
         Height          =   264
         Left            =   915
         TabIndex        =   2
         Top             =   760
         Width           =   1035
         _Version        =   65536
         _ExtentX        =   1826
         _ExtentY        =   466
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   5
         MaxLength       =   10
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "-"
         Height          =   180
         Left            =   2035
         TabIndex        =   9
         Top             =   312
         Width           =   96
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   1
         Left            =   105
         TabIndex        =   7
         Top             =   810
         Width           =   90
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   0
         Left            =   108
         TabIndex        =   6
         Top             =   312
         Width           =   96
      End
   End
   Begin VB.CommandButton cmdcancel 
      Cancel          =   -1  'True
      Height          =   365
      Left            =   3585
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   750
      Width           =   1080
   End
   Begin VB.CommandButton cmdfind 
      Default         =   -1  'True
      Height          =   365
      Left            =   3600
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   240
      Width           =   1080
   End
End
Attribute VB_Name = "frmdkztj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 查询贷款账条件
'作者: 魏小黎
Option Explicit
Public Quitfs As Boolean
Private isEnt As Boolean, Frtin As Boolean

Private Sub cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdfind_Click()
    If Combo2.Text = "" Then
        Beep
        MsgBox "业务编号不能为空，请检查！", vbCritical, zjGl_Name
        Combo1.SetFocus
        Exit Sub
    End If
    
    If Editrq.Text = "" Then
        Beep
        MsgBox "业务日期不能为空，请检查！", vbCritical, zjGl_Name
        Editrq.SetFocus
        Exit Sub
    Else
        Editrq.Text = ForDate(Editrq.Text)
        If Not IsDate(Editrq.Text) Then
            Beep
            MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq
            Exit Sub
        End If
    End If
    
    Dim ywbh As String, ywrq As String
    Dim bh As String
    bh = IIf(Combo1.Text = Combo1.List(0), "05", IIf(Combo1.Text = Combo1.List(1), "06", "07"))
    bh = bh & Combo2.Text
    ywbh = Combo1.Text
    ywrq = Editrq.Text
    
    Quitfs = False
    
    Unload Me
    
    Dim frm As frmdkzcx
    Dim mfm As Form
    For Each mfm In Forms
        If mfm.Tag = "wdkzcx" Then
            BringWindowToTop mfm.hwnd
            mfm.djbh = bh
            mfm.ywbm = ywbh
            mfm.ywrq = ywrq
            mfm.cmdExcute_Click
            mfm.cmdRefresh_Click
            Exit Sub
        End If
    Next mfm
        
    Set frm = New frmdkzcx
    frm.djbh = bh
    frm.ywbm = ywbh
    frm.ywrq = ywrq
    frm.Tag = "wdkzcx"
    frm.Show
End Sub

Private Sub cmdrq_Click()
    View_Calendar Me, Editrq, 0
End Sub

Private Sub Combo1_Click()
    If Frtin Then
        Exit Sub
    End If
    Dim rsTemp As New UfRecordset, bh As String
    bh = IIf(Combo1.Text = Combo1.List(0), "05", IIf(Combo1.Text = Combo1.List(1), "06", "07"))
    If bh = "07" Then
        Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Unwdeb where not (cBookcode is null) And [cUnwID] like '" & bh & "%' order by [cUnwID]", dbOpenSnapshot)
    Else
        Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Cred where not (cBookcode is null) And [cCreID] like '" & bh & "%' order by [cCreID]", dbOpenSnapshot)
    End If
    Combo2.clear
    With rsTemp
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                If bh = "07" Then
                    Combo2.AddItem right(![cUnwID], 10)
                Else
                    Combo2.AddItem right(![cCreID], 10)
                End If
                .MoveNext
            Loop
            Combo2.Text = Combo2.List(0)
        End If
        .oClose
    End With
End Sub

Private Sub Editrq_Keyup(KeyCode As Integer, Shift As Integer)
    If KeyCode = 113 Then    'F2
        View_Calendar Me, Editrq, 0
    End If
    isEnt = True
End Sub

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

Private Sub Editbh_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Form_Load()
    Dim rsTemp As New UfRecordset
    Screen.MousePointer = vbHourglass
    CenterForm Me
    Me.Icon = LoadResPicture(109, vbResIcon)
    Me.Caption = "贷款账"
    cmdrq.Picture = LoadResPicture(1108, vbResBitmap)
    Frame1.Caption = "请输入查询条件"
    cmdfind.Picture = LoadResPicture(103, vbResBitmap)
    cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
    Label1(0).Caption = "业务编号"
    Label1(1).Caption = "日    期"
    Combo1.clear
    Combo1.AddItem Ywbhtoname("05")
    Combo1.AddItem Ywbhtoname("06")
    Combo1.AddItem Ywbhtoname("07")
    
    Frtin = True
    Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Cred where not (cBookcode is null) And [cCreID] like '05%' order by [cCreID]", dbOpenSnapshot)
    With rsTemp
        If Not .EOF Then
            Combo1.Text = Combo1.List(0)
            .MoveFirst
            Do While Not .EOF
                Combo2.AddItem right(![cCreID], 10)
                .MoveNext
            Loop
            Frtin = False
        End If
        .oClose
    End With
    
    If Frtin Then
        Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Cred where not (cBookcode is null) And [cCreID] like '06%' order by [cCreID]", dbOpenSnapshot)
        With rsTemp
            If Not .EOF Then
                Combo1.Text = Combo1.List(1)
                .MoveFirst
                Do While Not .EOF
                    Combo2.AddItem right(![cCreID], 10)
                    .MoveNext
                Loop
                Frtin = False
            End If
            .oClose
        End With
    End If
    
    If Frtin Then
'        Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Unwdeb where not (cBookcode is null) And [cUnwID] like '07' order by [cUnwID]", dbOpenSnapshot) 'cuidong % 2001.11.05
        Set rsTemp = dbsZJ.OpenRecordset("Select * from FD_Unwdeb where not (cBookcode is null) And [cUnwID] like '07%' order by [cUnwID]", dbOpenSnapshot) 'cuidong % 2001.11.05
        With rsTemp
            If Not .EOF Then
                Combo1.Text = Combo1.List(2)
                .MoveFirst
                Do While Not .EOF
                    Combo2.AddItem right(![cUnwID], 10)
                    .MoveNext
                Loop
                Frtin = False
            End If
            .oClose
        End With
    End If
    
    If Frtin Then
        Combo1.Text = Combo1.List(0)
    Else
        Combo2.Text = Combo2.List(0)
    End If
    
    Frtin = False
    Editrq.Text = Format(zjLogInfo.curDate, "yyyy-mm-dd")
    isEnt = True
    Screen.MousePointer = vbDefault
End Sub

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