frmac_indexselect.frm

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

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmAC_IndexSelect 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "科目索引表：选择范围"
   ClientHeight    =   2925
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "frmAC_IndexSelect.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2925
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.ComboBox cboStyle 
      Height          =   300
      ItemData        =   "frmAC_IndexSelect.frx":0E42
      Left            =   3060
      List            =   "frmAC_IndexSelect.frx":0E4C
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   1020
      Width           =   1575
   End
   Begin VB.TextBox txtLevelTo 
      Height          =   285
      Left            =   1770
      MaxLength       =   1
      TabIndex        =   5
      Top             =   1020
      Width           =   330
   End
   Begin VB.ComboBox cboMonthFrom 
      Height          =   300
      Left            =   600
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   120
      Width           =   1785
   End
   Begin VB.ComboBox cboMonthTo 
      Height          =   300
      Left            =   2880
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   120
      Width           =   1785
   End
   Begin VB.TextBox txtSubjectCodeFrom 
      Height          =   285
      Left            =   600
      MaxLength       =   18
      TabIndex        =   2
      Top             =   570
      Width           =   1485
   End
   Begin VB.CommandButton cmdSubjectHelpOne 
      Height          =   285
      Left            =   2085
      Picture         =   "frmAC_IndexSelect.frx":0E5E
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   570
      Width           =   300
   End
   Begin VB.CommandButton cmdSubjectHelpTwo 
      Height          =   285
      Left            =   4365
      Picture         =   "frmAC_IndexSelect.frx":0F60
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   570
      Width           =   300
   End
   Begin VB.CheckBox chkHave 
      Caption         =   "包括未记账凭证"
      Height          =   285
      Left            =   60
      TabIndex        =   9
      Top             =   1920
      Width           =   1605
   End
   Begin VB.TextBox txtSubjectCodeTo 
      Height          =   285
      Left            =   2910
      MaxLength       =   18
      TabIndex        =   3
      Top             =   570
      Width           =   1485
   End
   Begin VB.CommandButton cmdHelp 
      Caption         =   "帮助(&H)"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   3540
      TabIndex        =   13
      Top             =   2490
      Width           =   1065
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   2400
      TabIndex        =   12
      Top             =   2490
      Width           =   1065
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确认(&O)"
      Height          =   345
      Left            =   1260
      TabIndex        =   11
      Top             =   2490
      Width           =   1065
   End
   Begin VB.ComboBox cboSubjectType 
      Height          =   300
      ItemData        =   "frmAC_IndexSelect.frx":1062
      Left            =   960
      List            =   "frmAC_IndexSelect.frx":1064
      Style           =   2  'Dropdown List
      TabIndex        =   7
      Top             =   1440
      Width           =   1275
   End
   Begin VB.ComboBox cboSort 
      Height          =   300
      ItemData        =   "frmAC_IndexSelect.frx":1066
      Left            =   2880
      List            =   "frmAC_IndexSelect.frx":1068
      Style           =   2  'Dropdown List
      TabIndex        =   8
      Top             =   1440
      Width           =   1755
   End
   Begin VB.TextBox txtLevelFrom 
      Height          =   285
      Left            =   600
      MaxLength       =   1
      TabIndex        =   4
      Top             =   1020
      Width           =   315
   End
   Begin VB.CheckBox ChkBlankKm 
      Caption         =   "包含空白科目"
      Height          =   315
      Left            =   1845
      TabIndex        =   10
      Top             =   1920
      Width           =   1425
   End
   Begin MSComCtl2.UpDown upLevelTo 
      Height          =   285
      Left            =   2100
      TabIndex        =   17
      Top             =   1020
      Width           =   270
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtLevelTo"
      BuddyDispid     =   196610
      OrigLeft        =   2235
      OrigTop         =   1065
      OrigRight       =   2505
      OrigBottom      =   1380
      Max             =   6
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   65547
      Enabled         =   -1  'True
   End
   Begin MSComCtl2.UpDown upLevelFrom 
      Height          =   285
      Left            =   900
      TabIndex        =   16
      Top             =   1020
      Width           =   270
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtLevelFrom"
      BuddyDispid     =   196623
      OrigLeft        =   1080
      OrigTop         =   1065
      OrigRight       =   1350
      OrigBottom      =   1380
      Max             =   6
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   65547
      Enabled         =   -1  'True
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      Caption         =   "格式："
      Height          =   180
      Left            =   2520
      TabIndex        =   26
      Top             =   1065
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "月份："
      Height          =   180
      Left            =   60
      TabIndex        =   25
      Top             =   180
      Width           =   540
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "科目："
      Height          =   180
      Left            =   60
      TabIndex        =   24
      Top             =   615
      Width           =   540
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   4680
      Y1              =   2310
      Y2              =   2310
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   30
      X2              =   4680
      Y1              =   2325
      Y2              =   2325
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "至"
      Height          =   180
      Left            =   2550
      TabIndex        =   23
      Top             =   180
      Width           =   180
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "至"
      Height          =   180
      Left            =   2550
      TabIndex        =   22
      Top             =   615
      Width           =   180
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "至"
      Height          =   180
      Left            =   1410
      TabIndex        =   21
      Top             =   1065
      Width           =   180
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "级次："
      Height          =   180
      Left            =   60
      TabIndex        =   20
      Top             =   1065
      Width           =   540
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "科目类型："
      Height          =   180
      Left            =   60
      TabIndex        =   19
      Top             =   1500
      Width           =   900
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "排序："
      Height          =   180
      Left            =   2280
      TabIndex        =   18
      Top             =   1500
      Width           =   540
   End
End
Attribute VB_Name = "frmAC_IndexSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim CSubject As clsSubject

Private m_sMonthFrom As String, m_sMonthTo As String                        '查询起始月份、截止月份
Private m_iMinStartMonth As Integer, m_iMaxEndMonth As Integer              '查询最小月份、查询最大月份
            
Private m_sSubjectCodeFrom As String, m_sSubjectNameFrom As String          '查询起始科目代码、科目名称
Private m_sSubjectCodeTo As String, m_sSubjectNameTo As String              '查询截止科目代码、科目名称
Private m_iSubjectLevelFrom As Integer, m_iSubjectLevelTo As Integer        '科目起始级次、截止级次
Private m_bIsEndLevelSubject As Boolean                                     '是否末级科目
Private m_sBalanceFrom As String, m_sBalanceTo As String                    '余额最小金额、最大金额
Private m_sSubjectType As String                                            '科目类型
Private m_sSort As String                                                   '排序方式
Private m_bIncludeNotRecordVoucher As Boolean                                                '是否包含未记账凭证
Private m_bIncludeBlankKm As Boolean
Private m_IsFullKm As Boolean
Private m_sStyle As String

Public Ok As Boolean

Public Property Get usStyle() As String
usStyle = m_sStyle
End Property

Public Property Get ubFullKm() As Boolean
ubFullKm = m_IsFullKm
End Property

Public Property Get usMonthFrom() As String
    usMonthFrom = m_sMonthFrom
End Property

Public Property Get usMonthTo() As String
    usMonthTo = m_sMonthTo
End Property

Public Property Get usMaxEndMonth() As String
    usMaxEndMonth = CStr(m_iMaxEndMonth)
End Property

Public Property Get usSubjectCodeFrom() As String
    usSubjectCodeFrom = m_sSubjectCodeFrom
End Property

Public Property Get usSubjectNameFrom() As String
    usSubjectNameFrom = m_sSubjectNameFrom
End Property

Public Property Get usSubjectCodeTo() As String
    usSubjectCodeTo = m_sSubjectCodeTo
End Property

Public Property Get usSubjectNameTo() As String
    usSubjectNameTo = m_sSubjectNameTo
End Property

Public Property Get uiSubjectLevelFrom() As Integer
    uiSubjectLevelFrom = m_iSubjectLevelFrom
End Property

Public Property Get uiSubjectLevelTo() As Integer
    uiSubjectLevelTo = m_iSubjectLevelTo
End Property

Public Property Get ubIsEndSubject() As Boolean
    ubIsEndSubject = m_bIsEndLevelSubject
End Property

Public Property Get usBalanceFrom() As String
    usBalanceFrom = m_sBalanceFrom
End Property

Public Property Get usBalanceTo() As String
    usBalanceTo = m_sBalanceTo
End Property

Public Property Get usSubjectType() As String
    usSubjectType = m_sSubjectType
End Property

Public Property Get usSort() As String
    usSort = m_sSort
End Property

Public Property Get ubIncludeNotRecordVoucher() As Boolean
    ubIncludeNotRecordVoucher = m_bIncludeNotRecordVoucher
End Property

Public Property Get ubIncludeBlankKm() As Boolean
     ubIncludeBlankKm = m_bIncludeBlankKm
End Property


Private Sub cboMonthFrom_Click()
    Dim i As Integer
    Dim sTxt As String
    
    '查询起始月改变时, 先保存查询截止月的内容, 然后重新填充截止月列表框;
    sTxt = IIf(cboMonthTo.text = "", 0, cboMonthTo.text)
    cboMonthTo.Clear
    For i = cboMonthFrom.ListIndex + m_iMinStartMonth + 1 To 12
        cboMonthTo.AddItem glo.sOperateYear & "." & i
    Next i
    If CInt(Mid(sTxt, InStr(1, sTxt, ".") + 1)) < CInt(Mid(cboMonthFrom.text, InStr(1, cboMonthFrom.text, ".") + 1)) Then
        cboMonthTo.text = cboMonthFrom.List(cboMonthFrom.ListIndex)
    Else
        For i = 0 To cboMonthTo.ListCount - 1
            If cboMonthTo.List(i) = sTxt Then
                cboMonthTo.ListIndex = i
                Exit For
            End If
        Next i
    End If
End Sub

Private Sub cboMonthFrom_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub


Private Sub cboMonthTo_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub

Private Sub cboSort_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If