form5.frm

个人理财的VB代码

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "ACTSKN43.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form5 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "游览"
   ClientHeight    =   6225
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7005
   ControlBox      =   0   'False
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6225
   ScaleWidth      =   7005
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Picture1 
      Height          =   615
      Left            =   240
      ScaleHeight     =   555
      ScaleWidth      =   6435
      TabIndex        =   1
      Top             =   5520
      Width           =   6495
      Begin VB.CommandButton Command1 
         Caption         =   "返回(&X)"
         Height          =   375
         Left            =   2640
         TabIndex        =   2
         Top             =   120
         Width           =   1215
      End
   End
   Begin VB.Frame Frame1 
      Height          =   5295
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   6495
      Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
         Height          =   4935
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   6255
         _ExtentX        =   11033
         _ExtentY        =   8705
         _Version        =   393216
         Appearance      =   0
      End
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   0
      OleObjectBlob   =   "Form5.frx":0000
      Top             =   0
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1!MSFlexGrid1.Clear
    Form1!MSFlexGrid1.Cols = 4
    Form1!MSFlexGrid1.FixedCols = 0
    Form1!MSFlexGrid1.FixedRows = 1
    
    Form1!MSFlexGrid1.ColWidth(0) = Form1!MSFlexGrid1.Width / 6
    Form1!MSFlexGrid1.ColWidth(1) = Form1!MSFlexGrid1.Width / 6
    Form1!MSFlexGrid1.ColWidth(2) = Form1!MSFlexGrid1.Width / 6
    Form1!MSFlexGrid1.ColWidth(3) = Form1!MSFlexGrid1.Width / 1
    Form1!MSFlexGrid1.TextMatrix(0, 0) = "日期"
    Form1!MSFlexGrid1.TextMatrix(0, 1) = "钱额"
    Form1!MSFlexGrid1.TextMatrix(0, 2) = "类型"
    Form1!MSFlexGrid1.TextMatrix(0, 3) = "说明"
    Form1!MSFlexGrid1.Rows = 2
    If Form1!Data1.Recordset.EOF = False Then '如果数据库记录指针不是第一个记录然后
     Form1!Data1.Recordset.MoveFirst ' 指针放到第一上记录
    End If
    Do While Not Form1!Data1.Recordset.EOF ' 从到一个记录逻辑显示
        Form1!MSFlexGrid1.TextMatrix(Form1!MSFlexGrid1.Rows - 1, 0) = Form1!Data1.Recordset.Fields(0).Value ' 对应数据库日期
        Form1!MSFlexGrid1.TextMatrix(Form1!MSFlexGrid1.Rows - 1, 1) = Form1!Data1.Recordset.Fields(1).Value ' 对应数据库钱额
        Form1!MSFlexGrid1.TextMatrix(Form1!MSFlexGrid1.Rows - 1, 2) = Form1!Data1.Recordset.Fields(2).Value ' 对应数据库类型
        Form1!MSFlexGrid1.TextMatrix(Form1!MSFlexGrid1.Rows - 1, 3) = Form1!Data1.Recordset.Fields(3).Value ' 对应数据库说明
        Form1!MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 'MSFlexGrid1表加上一行
        Form1!Data1.Recordset.MoveNext ' 指针放到下一记录
    Loop
'------------------------------------------------------------------------------

If Form1!Data1.Recordset.BOF = False Then
Form1!Data1.Recordset.MoveLast '显示数据库最后一条记录
End If
'-------------------------------------------------------------------------------
Unload Me '关闭游览窗体
End Sub

Private Sub Form_Load()
'-----------------------------------------------------------------------------
'为界面添加皮肤
Skin1.LoadSkin App.Path & "\chizh.skn"
Skin1.ApplySkin Me.hWnd
'-----------------------------------------------------------------------------

End Sub