frmsjwh.frm

这是一个个人财务管理系统,它的界面简单朴素,容易操作,但功能强大,是个人财务管理的好助手

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmsjwh 
   Caption         =   "数据维护"
   ClientHeight    =   3810
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6030
   LinkTopic       =   "Form1"
   ScaleHeight     =   3810
   ScaleWidth      =   6030
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "清理内容"
      Height          =   2415
      Index           =   0
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   5175
      Begin VB.CheckBox chkZc 
         Caption         =   "支出帐务"
         Height          =   255
         Left            =   600
         TabIndex        =   4
         Top             =   1800
         WhatsThisHelpID =   15
         Width           =   1095
      End
      Begin VB.CheckBox chkSr 
         Caption         =   "收入帐务"
         Height          =   255
         Left            =   600
         TabIndex        =   3
         Top             =   1440
         WhatsThisHelpID =   15
         Width           =   1095
      End
      Begin VB.CommandButton cmdZx 
         Caption         =   "执行"
         Height          =   360
         Left            =   3360
         TabIndex        =   2
         Top             =   1560
         WhatsThisHelpID =   21
         Width           =   1335
      End
      Begin MSComCtl2.DTPicker dtpTjRq 
         Height          =   300
         Index           =   0
         Left            =   720
         TabIndex        =   5
         Top             =   480
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   529
         _Version        =   393216
         Format          =   25296897
         CurrentDate     =   36526
      End
      Begin MSComCtl2.DTPicker dtpTjRq 
         Height          =   300
         Index           =   1
         Left            =   720
         TabIndex        =   6
         Top             =   840
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   529
         _Version        =   393216
         Format          =   25296897
         CurrentDate     =   36526
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "从:"
         Height          =   180
         Index           =   5
         Left            =   360
         TabIndex        =   8
         Top             =   480
         Width           =   270
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "到:"
         Height          =   180
         Left            =   360
         TabIndex        =   7
         Top             =   840
         Width           =   270
      End
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      Default         =   -1  'True
      Height          =   360
      Left            =   3480
      TabIndex        =   0
      Tag             =   "确定"
      Top             =   3120
      Width           =   1380
   End
End
Attribute VB_Name = "frmsjwh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdZx_Click()
    '该过程用于整理数据
    If chkSr.Value = 1 Then
        DbeJcgl.delSRZW dtpTjRq(0), dtpTjRq(1)
    End If
    
    If chkZc.Value = 1 Then
        DbeJcgl.delZCZW dtpTjRq(0), dtpTjRq(1)
    End If
    
    MsgBox "清理数据完毕!", vbInformation
End Sub

Private Sub Form_Load()
    '初始清理数据日期
    dtpTjRq(0) = DateAdd("yyyy", -2, Date)
    dtpTjRq(1) = DateAdd("yyyy", -1, Date)
End Sub