frmyh_djwhselect.frm

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

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmYH_DjwhSelect 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "银行单据号维护：选择范围"
   ClientHeight    =   1980
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4635
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1980
   ScaleWidth      =   4635
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdHelp 
      Caption         =   "帮助(&H)"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   3375
      TabIndex        =   5
      Top             =   1455
      Width           =   1065
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   2265
      TabIndex        =   4
      Top             =   1455
      Width           =   1065
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确认(&O)"
      Height          =   345
      Left            =   1155
      TabIndex        =   3
      Top             =   1455
      Width           =   1065
   End
   Begin VB.TextBox txtDayTo 
      Enabled         =   0   'False
      Height          =   285
      Left            =   3345
      MaxLength       =   2
      TabIndex        =   10
      Top             =   450
      WhatsThisHelpID =   1054
      Width           =   400
   End
   Begin VB.TextBox txtDayFrom 
      Enabled         =   0   'False
      Height          =   285
      Left            =   3345
      MaxLength       =   2
      TabIndex        =   7
      Top             =   90
      WhatsThisHelpID =   1054
      Width           =   400
   End
   Begin VB.TextBox txtMonthFrom 
      Enabled         =   0   'False
      Height          =   285
      Left            =   2475
      MaxLength       =   2
      TabIndex        =   6
      Top             =   90
      WhatsThisHelpID =   1054
      Width           =   400
   End
   Begin VB.TextBox txtYear 
      Height          =   285
      Left            =   1395
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   90
      WhatsThisHelpID =   1054
      Width           =   795
   End
   Begin VB.TextBox txtMonthTo 
      Enabled         =   0   'False
      Height          =   285
      Left            =   2475
      MaxLength       =   2
      TabIndex        =   8
      Top             =   450
      WhatsThisHelpID =   1054
      Width           =   400
   End
   Begin VB.ComboBox cboSubject 
      Height          =   300
      Left            =   1395
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   885
      WhatsThisHelpID =   1054
      Width           =   2805
   End
   Begin MSComCtl2.UpDown updMonthTo 
      Height          =   285
      Left            =   2865
      TabIndex        =   0
      Top             =   450
      Width           =   270
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtMonthTo"
      BuddyDispid     =   196616
      OrigLeft        =   2820
      OrigTop         =   570
      OrigRight       =   3015
      OrigBottom      =   855
      Max             =   12
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   65547
      Enabled         =   -1  'True
   End
   Begin MSComCtl2.UpDown updDayTo 
      Height          =   285
      Left            =   3750
      TabIndex        =   9
      Top             =   450
      Width           =   270
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtDayTo"
      BuddyDispid     =   196612
      OrigLeft        =   5250
      OrigTop         =   270
      OrigRight       =   5445
      OrigBottom      =   555
      Max             =   31
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   65547
      Enabled         =   -1  'True
   End
   Begin MSComCtl2.UpDown updDayFrom 
      Height          =   285
      Left            =   3750
      TabIndex        =   11
      Top             =   90
      Width           =   270
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtDayFrom"
      BuddyDispid     =   196613
      OrigLeft        =   3690
      OrigTop         =   270
      OrigRight       =   3885
      OrigBottom      =   555
      Max             =   31
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   65547
      Enabled         =   -1  'True
   End
   Begin MSComCtl2.UpDown updMonthFrom 
      Height          =   285
      Left            =   2865
      TabIndex        =   12
      Top             =   90
      Width           =   270
      _ExtentX        =   423
      _ExtentY        =   503
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtMonthFrom"
      BuddyDispid     =   196614
      OrigLeft        =   2760
      OrigTop         =   240
      OrigRight       =   2955
      OrigBottom      =   525
      Max             =   12
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   0
      Enabled         =   -1  'True
   End
   Begin VB.Line Line1 
      X1              =   45
      X2              =   4425
      Y1              =   1305
      Y2              =   1305
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   45
      X2              =   4425
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      Caption         =   "查询科目："
      Height          =   180
      Left            =   405
      TabIndex        =   20
      Top             =   945
      Width           =   900
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "日"
      Height          =   180
      Left            =   4065
      TabIndex        =   19
      Top             =   495
      Width           =   180
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "日"
      Height          =   180
      Left            =   4065
      TabIndex        =   18
      Top             =   135
      Width           =   180
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "月"
      Height          =   180
      Left            =   3135
      TabIndex        =   17
      Top             =   135
      Width           =   180
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "年"
      Height          =   180
      Left            =   2235
      TabIndex        =   16
      Top             =   135
      Width           =   180
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "查询日期："
      Height          =   180
      Left            =   405
      TabIndex        =   15
      Top             =   135
      Width           =   900
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "月"
      Height          =   180
      Left            =   3135
      TabIndex        =   14
      Top             =   480
      Width           =   180
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True