frmxb.frm

个人收支管理软件。基于Visual Basic6.0和Microsoft Access2003开发

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmxb 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "小小收支薄-每日收支详情登记"
   ClientHeight    =   6705
   ClientLeft      =   1095
   ClientTop       =   615
   ClientWidth     =   9645
   FillColor       =   &H8000000F&
   FillStyle       =   0  'Solid
   ForeColor       =   &H8000000A&
   Icon            =   "frmxb.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6705
   ScaleWidth      =   9645
   StartUpPosition =   2  '屏幕中心
   WhatsThisHelp   =   -1  'True
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   9
      Top             =   0
      Width           =   9645
      _ExtentX        =   17013
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   20
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "add"
            Object.ToolTipText     =   "新增收支记录"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "pre"
            Object.ToolTipText     =   "前一个记录"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "next"
            Object.ToolTipText     =   "后一个记录"
            Object.Tag             =   ""
            ImageIndex      =   3
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "edit"
            Object.ToolTipText     =   "修改收支情况"
            Object.Tag             =   ""
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "ok"
            Object.ToolTipText     =   "保存"
            Object.Tag             =   ""
            ImageIndex      =   5
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "cancel"
            Object.ToolTipText     =   "放弃"
            Object.Tag             =   ""
            ImageIndex      =   6
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "del"
            Object.ToolTipText     =   "删除当前收支"
            Object.Tag             =   ""
            ImageIndex      =   7
         EndProperty
         BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "js"
            Object.ToolTipText     =   "月结算"
            Object.Tag             =   ""
            ImageIndex      =   10
         EndProperty
         BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "index"
            Object.ToolTipText     =   "强制按时间重排"
            Object.Tag             =   ""
            ImageIndex      =   8
         EndProperty
         BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "find"
            Object.ToolTipText     =   "查询"
            Object.Tag             =   ""
            ImageIndex      =   9
         EndProperty
         BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "ctrl"
            Object.ToolTipText     =   "初始化设置"
            Object.Tag             =   ""
            ImageIndex      =   12
         EndProperty
         BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "table"
            Object.ToolTipText     =   "作折线图"
            Object.Tag             =   ""
            ImageIndex      =   13
         EndProperty
         BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "help"
            Object.ToolTipText     =   "帮助"
            Object.Tag             =   ""
            ImageIndex      =   15
         EndProperty
         BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "about"
            Object.ToolTipText     =   "关于作者"
            Object.Tag             =   ""
            ImageIndex      =   14
         EndProperty
         BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "exit"
            Object.ToolTipText     =   "退出程序"
            Object.Tag             =   ""
            ImageIndex      =   11
         EndProperty
      EndProperty
   End
   Begin ComctlLib.Slider Slirecon 
      Height          =   375
      Left            =   -120
      TabIndex        =   12
      TabStop         =   0   'False
      ToolTipText     =   "拖动滑块可移动记录"
      Top             =   3840
      Width           =   9855
      _ExtentX        =   17383
      _ExtentY        =   661
      _Version        =   327682
      LargeChange     =   10
   End
   Begin VB.TextBox textfind 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1200
      TabIndex        =   10
      Top             =   1275
      Width           =   1695
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   600
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "yzj"
      Top             =   4920
      Visible         =   0   'False
      Width           =   1185
   End
   Begin VB.Data Data1 
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   3600
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "xb"
      Top             =   4800
      Visible         =   0   'False
      Width           =   2040
   End
   Begin VB.ComboBox Combo1 
      DataField       =   "类别"
      DataSource      =   "Data1"
      Height          =   300
      ItemData        =   "frmxb.frx":0442
      Left            =   4350
      List            =   "frmxb.frx":0444
      Locked          =   -1  'True
      TabIndex        =   2
      Top             =   2520
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      DataField       =   "备注"
      DataSource      =   "Data1"
      Height          =   1515
      Index           =   2
      Left            =   6195
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   3
      Top             =   1305
      Width           =   2295
   End
   Begin VB.TextBox Text1 
      DataField       =   "收支金额"
      DataSource      =   "Data1"
      Height          =   375
      Index           =   1
      Left            =   4350
      Locked          =   -1  'True
      TabIndex        =   1
      Top             =   1920
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      DataField       =   "收支日期"
      DataSource      =   "Data1"
      Height          =   375
      Index           =   0
      Left            =   4350
      Locked          =   -1  'True
      TabIndex        =   0
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label Label10 
      Caption         =   "9999"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   1800
      TabIndex        =   18
      Top             =   2400
      Width           =   375
   End
   Begin VB.Label Label9 
      Caption         =   "9999"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2160
      TabIndex        =   17
      Top             =   2040
      Width           =   375
   End
   Begin VB.Label Label8 
      Caption         =   "条记录"
      Height          =   255
      Left            =   2160
      TabIndex        =   16
      Top             =   2400
      Width           =   615
   End
   Begin VB.Label Label7 
      Caption         =   "条"
      Height          =   255
      Left            =   2520
      TabIndex        =   15
      Top             =   2040
      Width           =   255
   End
   Begin VB.Label Label4 
      Caption         =   "现在浏览的是第"
      Height          =   255
      Left            =   480
      TabIndex        =   14
      Top             =   2400
      Width           =   1335
   End
   Begin VB.Label Label3 
      Caption         =   "小小收支薄共有记录"
      Height          =   255
      Left            =   480
      TabIndex        =   13
      Top             =   2040
      Width           =   1695
   End
   Begin VB.Label Label6 
      Caption         =   "查询日期:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   150
      TabIndex        =   11
      Top             =   1320
      Width           =   1035
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   3120
      Top             =   960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   15
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":0446
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":0760
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":0A7A
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":0D94
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":10AE
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":13C8
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":16E2
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":19FC
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":1D16
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmxb.frx":2030
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}