企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Begin VB.Form frm_gssz 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "公式设置"
   ClientHeight    =   1740
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3375
   HelpContextID   =   1014001
   Icon            =   "公式设置.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1740
   ScaleWidth      =   3375
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2160
      TabIndex        =   5
      Top             =   1320
      Width           =   1120
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   300
      Left            =   960
      TabIndex        =   4
      Top             =   1320
      Width           =   1120
   End
   Begin VB.CheckBox Check1 
      Caption         =   "手动计算"
      Height          =   285
      Left            =   120
      TabIndex        =   3
      Top             =   90
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Caption         =   "显示选项"
      Height          =   705
      Left            =   90
      TabIndex        =   0
      Top             =   480
      Width           =   3195
      Begin VB.OptionButton Option2 
         Caption         =   "显示公式正文"
         Height          =   375
         Left            =   1680
         TabIndex        =   2
         Top             =   240
         Width           =   1455
      End
      Begin VB.OptionButton Option1 
         Caption         =   "显示计算结果"
         Height          =   375
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   1695
      End
   End
End
Attribute VB_Name = "frm_gssz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************
'*    模 块 名 称 :公式设置
'*    功 能 描 述 :
'*    程序员姓名  :奚俊峰
'*    最后修改人  :奚俊峰
'*    最后修改时间:2002/01/21
'***********************************************
Option Explicit
Private Sub Command1_Click()
    With MDI_frame.ActiveForm
        If Check1.Value = Checked Then
            .Cell1.CalcManaually = 1
        Else
            .Cell1.CalcManaually = 0
        End If
        If Option1.Value = True Then
            .Cell1.DoSetShowFormulaState 0
        End If
        If Option2.Value = True Then
            .Cell1.DoSetShowFormulaState 1
        End If
        .Cell1.DoRedrawAll
    End With
    Unload Me
    
End Sub
Private Sub command2_Click()
    Unload Me
    
End Sub
Private Sub Form_Load()
    With MDI_frame.ActiveForm
        If .Cell1.CalcManaually = 1 Then
            Check1.Value = Checked
        ElseIf .Cell1.CalcManaually = 0 Then
            Check1.Value = Unchecked
        End If
        If .Cell1.DoGetShowFormulaState = 0 Then
            Option1.Value = True
        Else
            Option2.Value = True
        End If
        
    End With
End Sub

						