frmccukd.frm

用友U8财务软件VB源程序, 本版本为2002年版本

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{BA5441C3-11E6-11D2-89E1-000021886118}#8.0#0"; "UFRTPrn.ocx"
Object = "{3733D281-9649-11D2-B757-0080C8883C6B}#1.0#0"; "UFGRIDDB.OCX"
Begin VB.Form frmccukd 
   BackColor       =   &H8000000E&
   ClientHeight    =   5445
   ClientLeft      =   60
   ClientTop       =   315
   ClientWidth     =   9180
   HelpContextID   =   88000051
   Icon            =   "frmccukd.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form3"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   5445
   ScaleWidth      =   9180
   Begin ComctlLib.Toolbar Tlbckd 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   9180
      _ExtentX        =   16193
      _ExtentY        =   1111
      ButtonWidth     =   820
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   11
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "打印"
            Key             =   "Print"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Preview"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Dataout"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Recx"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Lanmuxz"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Lcdj"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Help"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Exit"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin UFGRIDADOLib.UfGridADO UfGridADO1 
      Height          =   2172
      Left            =   480
      TabIndex        =   3
      Top             =   1800
      Width           =   2772
      _Version        =   65536
      _ExtentX        =   4890
      _ExtentY        =   3831
      _StockProps     =   253
   End
   Begin RTPrnLib.RTPrn RTPrn1 
      Left            =   5190
      Top             =   60
      _Version        =   524288
      _ExtentX        =   1244
      _ExtentY        =   556
      _StockProps     =   4
      m_lngrtpFitRows =   30
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   945
      Left            =   0
      ScaleHeight     =   915
      ScaleWidth      =   12030
      TabIndex        =   0
      Top             =   610
      Width           =   12060
      Begin VB.Label Label0 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   285
         Left            =   3960
         TabIndex        =   1
         Top             =   420
         Width           =   180
      End
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   8580
      Top             =   450
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "frmccukd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 查询催款表
'作者: 魏小黎
Option Explicit
Public sDate As String
Public eDate As String
Public ywbh As String
Public cxtj As String

Public Sub cmdExcute_Click()
    Dim rstBind As New UfRecordset

    '重新打开结果集并绑定GRID
    On Error Resume Next: Err = 0
    Set rstBind = dbsZJ.OpenRecordset(cxtj, dbOpenSnapshot)
    If Err <> 0 Then
        MsgBox Err.Description, vbCritical, zjGl_Name
        On Error GoTo 0
        Exit Sub
    End If
    On Error GoTo 0
    
    Dim vt As Variant
    Set vt = rstBind.Recordset
    Me.UfGridADO1.BindRecordSet vt, False, True, True
    
    rstBind.oClose
    Set rstBind = Nothing
End Sub

Public Sub cmdRefresh_Click()
    '刷新已经绑定的结果集及GRID显示
    Me.UfGridADO1.Refresh
End Sub

'Private Sub Form_Activate()
'    If frmcuick Is Nothing Then
'    Else
'        frmcuick.Form_Unload False
'    End If
'End Sub

Private Sub Form_Load()
    Dim rstBind As New UfRecordset
    Dim nFlxMax As Long
    
    Screen.MousePointer = vbHourglass
    Me.WindowState = 2
    Informtlb1 Tlbckd, ImageList1
    Me.Icon = LoadResPicture(109, vbResIcon)
    Me.Caption = "催款单查询"
    Picture1.Width = ZjAccInfo.zjPictWidth
    Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.bmp")
    
    Label0.Caption = "催款单据表"
    
    Set rstBind = dbsZJ.OpenRecordset(cxtj, dbOpenSnapshot)
    
    UfGridADO1.Redraw = False
    
    Me.UfGridADO1.Cols = 9
    Me.UfGridADO1.FixedCols = 0
    Me.UfGridADO1.ColWidth(0) = 830
    Me.UfGridADO1.ColWidth(1) = 1000
    Me.UfGridADO1.ColWidth(2) = 1900
    Me.UfGridADO1.ColWidth(3) = 1600
    Me.UfGridADO1.ColWidth(4) = 1000
    Me.UfGridADO1.ColWidth(5) = 1600
    Me.UfGridADO1.ColWidth(6) = 1600
    Me.UfGridADO1.ColWidth(7) = 1600
    Me.UfGridADO1.ColWidth(8) = 1800
    
    Dim vt As Variant
    Set vt = rstBind.Recordset
    Me.UfGridADO1.Rows = 2
    Me.UfGridADO1.FixedRows = 2
    Me.UfGridADO1.BindRecordSet vt, False, True, True
    
    '初始化表头及对齐方式
    With Me.UfGridADO1
        .TextMatrix(0, 0) = "业务编号"
        .ColAlignment(0) = UG_ALIGNLEFT
        .JoinCells 0, 0, 1, 0, True
        
        .TextMatrix(0, 1) = "日期"
        .ColAlignment(1) = UG_ALIGNLEFT
        .JoinCells 0, 1, 1, 1, True
         
        .TextMatrix(0, 2) = "单位名称"
        .ColAlignment(2) = UG_ALIGNLEFT
        .JoinCells 0, 2, 1, 2, True
           
        .TextMatrix(0, 3) = "合同号"
        .ColAlignment(3) = UG_ALIGNLEFT
        .JoinCells 0, 3, 1, 3, True
        
        .TextMatrix(0, 4) = "币别"
        .ColAlignment(4) = UG_ALIGNLEFT
        .JoinCells 0, 4, 1, 4, True
        
        .TextMatrix(0, 5) = "本金余额"
        .ColAlignment(5) = UG_ALIGNRIGHT
        .JoinCells 0, 5, 1, 5, True
        
        .TextMatrix(0, 6) = "利息合计"
        .ColAlignment(6) = UG_ALIGNRIGHT
        .JoinCells 0, 6, 1, 6, True
        
        .TextMatrix(0, 7) = "本息合计"
        .ColAlignment(7) = UG_ALIGNRIGHT
        .JoinCells 0, 7, 1, 7, True
        
        .TextMatrix(0, 8) = "备注"
        .ColAlignment(8) = UG_ALIGNRIGHT
        .JoinCells 0, 8, 1, 8, True
                
        .HeadForeColor = &H404040
        .HeadBackColor = &H8000000E
        .HeadFont.Name = "宋体"
        .HeadFont.Size = 9
        .HeadFont.Bold = True
        If rstBind.EOF Then
            .Rows = 2
            .FixedRows = 2
        End If
    End With
    UfGridADO1.Top = Tlbckd.Height + Picture1.Height
    UfGridADO1.Left = 0
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
    If Me.WindowState = 1 Then
        Exit Sub
    End If
    If Me.WindowState = 0 Then
        If Me.Width < 3700 Then Me.Width = 3700
        If Me.Height < 3300 Then Me.Height = 3300
    End If
    UfGridADO1.Width = Me.Width - 100
    UfGridADO1.Height = Me.Height - (5820 - 3890)
    Picture1.Left = Me.Width - ZjAccInfo.zjPictWidth
    If Picture1.Left > 0 Then Picture1.Left = 0
    Label0.Left = (Me.Width - Label0.Width) / 2 - Picture1.Left
End Sub

Private Sub Form_Unload(Cancel As Integer)
'    zjGen_arr.FD050427 = False
'    zjLogInfo.TaskExec "FD050427", 0, zjLogInfo.cIYear
'    zjLogInfo.ClearError
End Sub

Private Sub tlbckd_ButtonClick(ByVal Button As ComctlLib.Button)
    Gen_Key Button.key
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF3
            If Shift = 0 Then
                Gen_Key "Lanmuxz"
            End If
        Case vbKeyF4
            If Shift = 2 Then
                Gen_Key "Exit"
            ElseIf Shift = 0 Then
                Gen_Key "Lcdj"
            End If
        Case vbKeyP
            If Shift = 2 Then
                Gen_Key "Print"
                KeyCode = 0
            End If
        Case vbKeyS
            'cuidong 2001.01.15
            'If Shift = 2 Then
            '    Gen_Key "Preview"
            '    KeyCode = 0
            'End If
        Case vbKeyW
            If Shift = 2 Then
                Gen_Key "Dataout"
                KeyCode = 0
            End If
        Case vbKeyF
            If Shift = 2 Then
                Gen_Key "Recx"
                KeyCode = 0
            End If
    End Select
End Sub

Private Sub Gen_Key(TLB_Key As String)
    Select Case TLB_Key
        Case Is = "Print", "Preview", "Dataout"
            zjbPrnViewOut Me, "cxcukb", TLB_Key, False, Label0.Caption
        Case Is = "Lanmuxz"
            Set frmblmxz.ufg1 = Me.UfGridADO1
            frmblmxz.lms = 9
            frmblmxz.fsk = True
            frmblmxz.Show 1
        Case Is = "Lcdj"
            If UfGridADO1.Row > 1 Then
                Dim frm1 As frmcuick
                Set frm1 = New frmcuick
                frm1.ywbh = UfGridADO1.TextMatrix(UfGridADO1.Row, 0)
                frm1.Show 1
            End If
        Case Is = "Recx"
            frmccutj.Quitfs = False
            frmccutj.Show 1
        Case Is = "Help"
            SendKeys "{F1}"
        Case Is = "Exit"
            Unload Me
    End Select
End Sub

Private Sub UfGridado1_DBClick(ByVal nRow As Long, ByVal nCol As Long)
    If nRow > 1 Then
        Dim frm As frmcuick
        Set frm = New frmcuick
        frm.ywbh = UfGridADO1.TextMatrix(nRow, 0)
        frm.Show 1
    End If
End Sub

Private Sub UfGridado1_FormatCellValue(ByVal Row As Long, ByVal Col As Long, cVal As String, ByVal vType As UFGRIDadoLib.enumValueType)
    Select Case Col
        Case Is = 1
            cVal = Format(cVal, "yyyy-mm-dd")
        Case Else
            If vType = dbCurrency Then cVal = Format$(Val(cVal), "##,##0.00")
    End Select
End Sub