frmac_generalselect.frm

一个用VB写的财务软件源码

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmAC_GeneralSelect 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "总账：选择范围"
   ClientHeight    =   2235
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4560
   HelpContextID   =   1051
   Icon            =   "frmAC_GeneralSelect.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2235
   ScaleWidth      =   4560
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton CmdOk 
      Cancel          =   -1  'True
      Caption         =   "确定(&O)"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   420
      TabIndex        =   5
      Top             =   1680
      Width           =   1065
   End
   Begin VB.CommandButton cmdSubjectEnd 
      CausesValidation=   0   'False
      Height          =   285
      Left            =   3960
      Picture         =   "frmAC_GeneralSelect.frx":000C
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   480
      Width           =   315
   End
   Begin VB.TextBox txtSubjectEnd 
      Height          =   285
      Left            =   1260
      MaxLength       =   18
      TabIndex        =   1
      Top             =   480
      Width           =   2700
   End
   Begin VB.TextBox txtSubjectStart 
      Height          =   285
      Left            =   1260
      MaxLength       =   18
      TabIndex        =   0
      Top             =   90
      Width           =   2700
   End
   Begin VB.CommandButton cmdSubjectStart 
      CausesValidation=   0   'False
      Height          =   285
      Left            =   3930
      Picture         =   "frmAC_GeneralSelect.frx":010E
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   90
      Width           =   345
   End
   Begin VB.Frame Frame1 
      Height          =   585
      Left            =   240
      TabIndex        =   8
      Top             =   855
      Width           =   4155
      Begin VB.CheckBox ChkIncludeNotRecord 
         Caption         =   "包含未记账凭证"
         Height          =   285
         Left            =   225
         TabIndex        =   2
         Top             =   180
         Width           =   1695
      End
      Begin VB.TextBox txtLevelFrom 
         Enabled         =   0   'False
         Height          =   270
         Left            =   690
         MaxLength       =   1
         TabIndex        =   10
         Top             =   690
         Width           =   300
      End
      Begin VB.TextBox txtLevelTo 
         Height          =   270
         Left            =   1770
         MaxLength       =   1
         TabIndex        =   3
         Top             =   690
         Width           =   300
      End
      Begin VB.CheckBox chkEndLevelSubject 
         Caption         =   "末级科目"
         Height          =   240
         Left            =   2610
         TabIndex        =   4
         Top             =   690
         Visible         =   0   'False
         Width           =   1035
      End
      Begin MSComCtl2.UpDown UplevelFrom 
         Height          =   240
         Left            =   930
         TabIndex        =   9
         Top             =   690
         Width           =   240
         _ExtentX        =   423
         _ExtentY        =   423
         _Version        =   393216
         Value           =   1
         BuddyControl    =   "txtLevelFrom"
         BuddyDispid     =   196616
         OrigLeft        =   1320
         OrigTop         =   720
         OrigRight       =   1560
         OrigBottom      =   1035
         Max             =   5
         Min             =   1
         SyncBuddy       =   -1  'True
         BuddyProperty   =   65547
         Enabled         =   -1  'True
      End
      Begin MSComCtl2.UpDown upLevelTo 
         Height          =   240
         Left            =   2130
         TabIndex        =   11
         Top             =   690
         Width           =   240
         _ExtentX        =   423
         _ExtentY        =   423
         _Version        =   393216
         Value           =   1
         BuddyControl    =   "txtLevelTo"
         BuddyDispid     =   196617
         OrigLeft        =   2160
         OrigTop         =   720
         OrigRight       =   2430
         OrigBottom      =   1035
         Max             =   5
         Min             =   1
         SyncBuddy       =   -1  'True
         BuddyProperty   =   65547
         Enabled         =   -1  'True
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "至"
         Height          =   135
         Index           =   0
         Left            =   1410
         TabIndex        =   13
         Top             =   735
         Width           =   180
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "级次:"
         Height          =   135
         Left            =   210
         TabIndex        =   12
         Top             =   735
         Width           =   450
      End
   End
   Begin VB.CommandButton cmdHelp 
      Caption         =   "帮助(&H)"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   3000
      TabIndex        =   7
      Top             =   1680
      Width           =   1065
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      CausesValidation=   0   'False
      Height          =   375
      Left            =   1710
      TabIndex        =   6
      Top             =   1680
      Width           =   1065
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "终止科目："
      Height          =   180
      Index           =   1
      Left            =   240
      TabIndex        =   17
      Top             =   555
      Width           =   900
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "起始科目："
      Height          =   180
      Left            =   240
      TabIndex        =   16
      Top             =   180
      Width           =   900
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   90
      X2              =   4470
      Y1              =   1545
      Y2              =   1545
   End
   Begin VB.Line Line1 
      X1              =   90
      X2              =   4470
      Y1              =   1530
      Y2              =   1530
   End
End
Attribute VB_Name = "frmAC_GeneralSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Dim CSubject As clsSubject
 '起始科目代码，名称
Private m_sSubjectCodeStart As String
Private m_sSubjectNameStart As String
'终止科目代码，名称
Private m_sSubjectCodeEnd As String
Private m_sSubjectNameEnd As String
'科目级次
Private m_iSubjectJcStart As Integer
Private m_iSubjectJcEnd As Integer
''科目末级次
Private m_bSubjectJcFlag As Boolean
Private m_bNotRecordFlag As Boolean

Public OK As Boolean

Public Property Get usSubjectCodeStart() As String
    usSubjectCodeStart = m_sSubjectCodeStart
End Property

Public Property Get usSubjectNameStart() As String
    usSubjectNameStart = m_sSubjectNameStart
End Property

Public Property Get usSubjectCodeEnd() As String
    usSubjectCodeEnd = m_sSubjectCodeEnd
End Property

Public Property Get usSubjectNameEnd() As String
    usSubjectNameEnd = m_sSubjectNameEnd
End Property

Public Property Get usSubjectJcStart() As Integer
    usSubjectJcStart = m_iSubjectJcStart
End Property
Public Property Get usSubjectJcEnd() As Integer
    usSubjectJcEnd = m_iSubjectJcEnd
End Property

Public Property Get usSubjectJcFlag() As Boolean
    usSubjectJcFlag = m_bSubjectJcFlag
End Property

Public Property Get usNotRecordFlag() As Boolean
    usNotRecordFlag = m_bNotRecordFlag
End Property

Private Sub chkEndLevelSubject_Click()
     If chkEndLevelSubject.Value = 1 Then