凭证查询.frm

不处的管理软件包

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{3733D281-9649-11D2-B757-0080C8883C6B}#1.0#0"; "UFGRIDDB.OCX"
Begin VB.Form frmVouchf 
   Caption         =   "凭证查询"
   ClientHeight    =   3705
   ClientLeft      =   1935
   ClientTop       =   2490
   ClientWidth     =   7410
   HelpContextID   =   88000053
   Icon            =   "凭证查询.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   3705
   ScaleWidth      =   7410
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar tlbAction 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7410
      _ExtentX        =   13070
      _ExtentY        =   1111
      ButtonWidth     =   820
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   10
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "查询"
            Key             =   "Find"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "修改"
            Key             =   "Modify"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "删除"
            Key             =   "Delete"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "冲销"
            Key             =   "ChongXiao"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "单据"
            Key             =   "UnionFind"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "凭证"
            Key             =   "PingZheng"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "帮助"
            Key             =   "Help"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退出"
            Key             =   "Exit"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin UFGRIDADOLib.UfGridADO UfGridADO1 
      Height          =   1332
      Left            =   120
      TabIndex        =   7
      Top             =   1920
      Width           =   3012
      _Version        =   65536
      _ExtentX        =   5313
      _ExtentY        =   2350
      _StockProps     =   253
   End
   Begin VB.ComboBox Combo1 
      Height          =   276
      ItemData        =   "凭证查询.frx":000C
      Left            =   600
      List            =   "凭证查询.frx":000E
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   1128
      Width           =   735
   End
   Begin VB.ComboBox Combo2 
      Height          =   276
      ItemData        =   "凭证查询.frx":0010
      Left            =   1500
      List            =   "凭证查询.frx":0012
      Style           =   2  'Dropdown List
      TabIndex        =   5
      Top             =   1128
      Width           =   735
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      ForeColor       =   &H80000008&
      Height          =   945
      Left            =   0
      ScaleHeight     =   945
      ScaleWidth      =   7410
      TabIndex        =   1
      Top             =   630
      Width           =   7410
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "-"
         Height          =   180
         Left            =   1350
         TabIndex        =   4
         Top             =   630
         Width           =   90
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "期间:"
         Height          =   180
         Left            =   150
         TabIndex        =   3
         Top             =   630
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "凭证查询"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   285
         Left            =   3150
         TabIndex        =   2
         Top             =   300
         Width           =   1215
      End
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   3420
      Top             =   1560
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "frmVouchf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:凭证查询
'作者: 赵春立

'CuiDong Efficiency-A 2000/06/19 效率优化A

Option Explicit

Private rsVouchs     As New UfRecordset
Private sqlVouchs    As String

Private nFixRows     As Long
Private nRows        As Long
Private nListIndex   As Long
Private strID()      As String

Private dFrom        As Date
Private dTo          As Date

Private blnChongXiao As Boolean           '---- 冲销成功标志 ----

Private WithEvents aClsPz  As clsPZ        '---- 凭证对象 ----
Attribute aClsPz.VB_VarHelpID = -1

Private Sub aClsPz_Save(rstCurrentVouch As UfRecordset, IsSuccess As Boolean)
   Dim sqlGlVouch As String
   Dim sqlFdVouch As String
   
   On Error GoTo ErrL
'   If CheckChX Then
   sqlFdVouch = "DELETE  FROM FD_Vouch WHERE [cBus_id]='" & strID(UfGridADO1.Row - 2) & "'"
   dbsZJ.Execute sqlFdVouch, dbFailOnError
   sqlGlVouch = "UPDATE GL_accvouch SET [coutno_id]='" & GetDelID & "' WHERE [coutsysname]='FD' AND " & _
      "[coutno_id]='" & strID(UfGridADO1.Row - 2) & "' AND [iflag] IS NULL"
   dbsZJ.Execute sqlGlVouch, dbFailOnError
'   End If
   IsSuccess = True
   blnChongXiao = IsSuccess
   On Error GoTo 0
   Exit Sub
ErrL:
   IsSuccess = False
   blnChongXiao = IsSuccess
End Sub

Private Sub Combo1_Click()
   Dim i As Byte
   Dim oIndex As Byte
   Dim oText As String
   Dim cTemp As String
      
   If nListIndex = Combo1.ListIndex Then Exit Sub
   nListIndex = Combo1.ListIndex
   oIndex = 0
   oText = Combo2.List(Combo2.ListIndex)
   Combo2.clear
   For i = Combo1.ListIndex + 1 + (12 - Combo1.ListCount) To 12
      cTemp = right(" " & i, 2) & "月"
      Combo2.AddItem cTemp
      If oText = cTemp Then oIndex = i - Combo1.ListIndex - (12 - Combo1.ListCount) - 1   'Cuidong 2000/08/07
   Next i
   
   On Error Resume Next
   Combo2.ListIndex = oIndex   'Cuidong 2000/08/07
   
End Sub

Private Sub Combo2_Click()
   fillgrid
   
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   Shift = Shift And 7
   Select Case KeyCode
      Case vbKeyF8
          If tlbAction.Buttons("Modify").Enabled Then
              Gen_Key "Modify"
          End If
'      Case vbKeyF4
'          If Shift = vbCtrlMask Then
'            Gen_Key "Exit"
'          ElseIf Shift = 0 And tlbAction.Buttons("UnionFind").Enabled Then
'              Gen_Key "UnionFind"
'          End If
      Case vbKeyF3
          If tlbAction.Buttons("Find").Enabled Then
              Gen_Key "Find"
          End If
'      Case vbKeyF7
'          If Shift = vbAltMask And tlbAction.Buttons("PingZheng").Enabled Then
'              Gen_Key "PingZheng"
'          End If
      Case vbKeyDelete
          If tlbAction.Buttons("Delete").Enabled Then
              Gen_Key "Delete"
          End If
          KeyCode = 0
      Case vbKeyX
          If Shift = vbCtrlMask And tlbAction.Buttons("ChongXiao").Enabled Then
              Gen_Key "ChongXiao"
          End If
          KeyCode = 0
   End Select

End Sub

Private Sub Form_Load()
   Screen.MousePointer = vbHourglass
   Me.Icon = LoadResPicture(109, vbResIcon)
   loadstatic
   nListIndex = -1
   InitCombo1
   fillgrid
   blnChongXiao = False
   UfGridADO1.top = tlbAction.Height + Picture1.Height
   Screen.MousePointer = vbDefault
End Sub