年度选择.frm

一个商场财务系统

VERSION 5.00
Begin VB.Form 年度选择 
   BackColor       =   &H8000000A&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "年度选择"
   ClientHeight    =   2400
   ClientLeft      =   2745
   ClientTop       =   2790
   ClientWidth     =   6255
   ControlBox      =   0   'False
   Icon            =   "年度选择.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   160
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   417
   Begin VB.CommandButton Command1 
      Caption         =   "确     定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2190
      TabIndex        =   3
      Top             =   1830
      Width           =   1605
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3420
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   1050
      Width           =   945
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   435
      Left            =   4380
      Max             =   1900
      Min             =   3000
      TabIndex        =   1
      Top             =   1020
      Value           =   1900
      Width           =   345
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   420
      Picture         =   "年度选择.frx":0442
      Top             =   210
      Width           =   480
   End
   Begin VB.Label Label2 
      Caption         =   "请选择统计年度："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   930
      TabIndex        =   4
      Top             =   1050
      Width           =   2685
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Height          =   525
      Left            =   1260
      Shape           =   4  'Rounded Rectangle
      Top             =   120
      Width           =   3435
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "年 度 选 择"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   1470
      TabIndex        =   0
      Top             =   90
      Width           =   2970
   End
End
Attribute VB_Name = "年度选择"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public YearData As String
Private Sub Form_Load()
Me.Left = (主程序.Width - Me.Width) / 2
Me.Top = (主程序.Height - Me.Height) / 3
 Label1.Left = (Me.ScaleWidth - Label1.Width) / 2
 Shape1.Left = (Me.ScaleWidth - Shape1.Width) / 2
Text1 = Format(Date, "yyyy")
VScroll1.Value = Text1
End Sub
Private Sub VScroll1_Change()
Text1 = VScroll1.Value
End Sub
Private Sub Command1_Click()
Dim Result As Integer
YearData = Text1
If 主程序.Ss = 1 Then
 各部合计.Show
 Else
 分部统计.Show
End If
主程序.Ss = 0
Unload Me
End Sub