format.frm

金算盘软件代码

VERSION 5.00
Begin VB.Form frmFormat 
   Caption         =   "数字格式设置"
   ClientHeight    =   4035
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6465
   LinkTopic       =   "Form1"
   ScaleHeight     =   4035
   ScaleWidth      =   6465
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdCancel 
      Height          =   315
      Left            =   4620
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   3540
      Width           =   1215
   End
   Begin VB.CommandButton cmdAffirm 
      Default         =   -1  'True
      Height          =   315
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   3540
      Width           =   1215
   End
   Begin VB.Frame FraNegative 
      Caption         =   "负数显示格式"
      Height          =   2895
      Left            =   3300
      TabIndex        =   4
      Top             =   420
      Width           =   2535
      Begin VB.OptionButton optNegative 
         Caption         =   "负号加括号"
         Height          =   255
         Index           =   3
         Left            =   420
         TabIndex        =   8
         Top             =   2220
         Width           =   1755
      End
      Begin VB.OptionButton optNegative 
         Caption         =   "加括号"
         Height          =   255
         Index           =   2
         Left            =   420
         TabIndex        =   7
         Top             =   1620
         Width           =   1755
      End
      Begin VB.OptionButton optNegative 
         Caption         =   "红字"
         Height          =   255
         Index           =   1
         Left            =   420
         TabIndex        =   6
         Top             =   1020
         Width           =   1755
      End
      Begin VB.OptionButton optNegative 
         Caption         =   "通用"
         Height          =   255
         Index           =   0
         Left            =   420
         TabIndex        =   5
         Top             =   420
         Value           =   -1  'True
         Width           =   1755
      End
   End
   Begin VB.Frame FraNumic 
      Caption         =   "数字通用格式"
      Height          =   2895
      Left            =   300
      TabIndex        =   0
      Top             =   420
      Width           =   2535
      Begin VB.CheckBox chkShowZero 
         Caption         =   "显示零"
         Height          =   375
         Left            =   360
         TabIndex        =   3
         Top             =   2100
         Width           =   1875
      End
      Begin VB.CheckBox chkShowDecimal 
         Caption         =   "显示小数"
         Height          =   495
         Left            =   360
         TabIndex        =   2
         Top             =   1200
         Width           =   1815
      End
      Begin VB.CheckBox chkDivide 
         Caption         =   "除以1000"
         Height          =   315
         Left            =   360
         TabIndex        =   1
         Top             =   480
         Width           =   1935
      End
   End
End
Attribute VB_Name = "frmFormat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  报表数据格式设置窗体
'  作者：邓强
'  日期：1998.05.26
'
'  用于用户设置报表的数据格式
'  SetFormat  先得到报表的数据格式,用户修改并选中'完成'按钮后，返回给报表
'             (交叉表报表,标准表报表,列表报表调用)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mclsFormat As Object
Private mblnOK As Boolean

Private Sub cmdAffirm_Click()
Dim intCount As Integer
    mblnOK = True
    If mblnOK Then
      For intCount = 0 To 3
      If optNegative(intCount).Value = True Then
       mclsFormat.ShowNegivate = intCount
       Exit For
      End If
    Next intCount
        mclsFormat.Divide = chkDivide.Value
        mclsFormat.ShowZero = chkShowZero.Value
        mclsFormat.ShowCent = chkShowDecimal.Value
   End If
   Utility.RemoveFormResPicture (1001)
   Utility.RemoveFormResPicture (1002)
   Unload Me
End Sub

Private Sub cmdCancel_Click()
    mblnOK = False
    Utility.RemoveFormResPicture (1001)
    Utility.RemoveFormResPicture (1002)
    Unload Me
End Sub
Public Function SetFormat(cls As Object) As Boolean
   mblnOK = False
   cmdAffirm.Picture = Utility.GetFormResPicture(1001, 0)
   cmdCancel.Picture = Utility.GetFormResPicture(1002, 0)
   Set mclsFormat = cls
   optNegative(mclsFormat.ShowNegivate).Value = True
   chkShowZero.Value = IIf(mclsFormat.ShowZero, 1, 0)
   chkShowDecimal.Value = IIf(mclsFormat.ShowCent, 1, 0)
   chkDivide.Value = IIf(mclsFormat.Divide, 1, 0)
   Me.Show vbModal
   If mblnOK Then Set cls = mclsFormat
   SetFormat = mblnOK
End Function