frmfields.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Begin VB.Form frmFields 
   Caption         =   "栏目选择"
   ClientHeight    =   4170
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7005
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4170
   ScaleWidth      =   7005
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdUnSel 
      Caption         =   "全消"
      Height          =   495
      Left            =   6120
      TabIndex        =   4
      Top             =   2640
      Width           =   855
   End
   Begin VB.CommandButton cmdSelAll 
      Caption         =   "全选"
      Height          =   495
      Left            =   6120
      TabIndex        =   3
      Top             =   1920
      Width           =   855
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   495
      Left            =   6120
      TabIndex        =   2
      Top             =   1200
      Width           =   855
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   495
      Left            =   6120
      TabIndex        =   1
      Top             =   480
      Width           =   855
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFC0&
      Height          =   3615
      Left            =   0
      ScaleHeight     =   3555
      ScaleWidth      =   5835
      TabIndex        =   0
      Top             =   480
      Width           =   5895
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "利息支出科目"
         Height          =   255
         Index           =   14
         Left            =   4080
         TabIndex        =   19
         Top             =   3120
         Width           =   1455
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "利息收入科目"
         Height          =   255
         Index           =   13
         Left            =   2160
         TabIndex        =   18
         Top             =   3120
         Width           =   1455
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "应付利息科目"
         Height          =   255
         Index           =   12
         Left            =   240
         TabIndex        =   17
         Top             =   3120
         Width           =   1455
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "应收利息科目"
         Height          =   255
         Index           =   11
         Left            =   4080
         TabIndex        =   16
         Top             =   2370
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "本金科目"
         Height          =   255
         Index           =   10
         Left            =   2160
         TabIndex        =   15
         Top             =   2370
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "预提日代码"
         Height          =   255
         Index           =   9
         Left            =   240
         TabIndex        =   14
         Top             =   2370
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "赤字金额"
         Height          =   255
         Index           =   8
         Left            =   4080
         TabIndex        =   13
         Top             =   1620
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "备注"
         Height          =   255
         Index           =   7
         Left            =   2160
         TabIndex        =   12
         Top             =   1620
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "结息日代码"
         Height          =   255
         Index           =   6
         Left            =   240
         TabIndex        =   11
         Top             =   1620
         Width           =   1335
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "利率代码"
         Height          =   255
         Index           =   5
         Left            =   4080
         TabIndex        =   10
         Top             =   870
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "开户银行"
         Height          =   255
         Index           =   4
         Left            =   2160
         TabIndex        =   9
         Top             =   870
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "账户名称"
         Height          =   255
         Index           =   3
         Left            =   240
         TabIndex        =   8
         Top             =   870
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "账户号"
         Height          =   255
         Index           =   2
         Left            =   4080
         TabIndex        =   7
         Top             =   120
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "原始账户号"
         Height          =   255
         Index           =   1
         Left            =   2160
         TabIndex        =   6
         Top             =   120
         Width           =   1215
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00FFFFC0&
         Caption         =   "调整日期"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   5
         Top             =   120
         Width           =   1095
      End
   End
   Begin VB.Label Label1 
      Caption         =   "请选择要显示的栏目"
      Height          =   255
      Left            =   120
      TabIndex        =   20
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "frmFields"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim i As Integer
    Dim j As Integer
    j = 0
    For i = 0 To 14
        If Check1(i).Value Then
            m_fields(i).fshow = True
            j = j + 1
        Else
            m_fields(i).fshow = False
        End If
    Next
    If j = 0 Then
        MsgBox "您没有选择要显示的栏目！", vbInformation, "栏目选择"
        Exit Sub
    End If
    show_count = j
    Unload Me
End Sub

Private Sub cmdSelAll_Click()
    Dim i As Integer
    For i = 0 To 14
        Check1(i).Value = 1
    Next
End Sub

Private Sub cmdUnSel_Click()
    Dim i As Integer
    For i = 0 To 14
        Check1(i).Value = 0
    Next
End Sub

Private Sub Form_Load()
    Me.Icon = LoadResPicture(109, vbResIcon)
    Dim i As Integer
    For i = 0 To 14
        If m_fields(i).fshow Then
            Check1(i).Value = 1
        Else
            Check1(i).Value = 0
        End If
        Check1(i).Caption = m_fields(i).fcaption
    Next
End Sub