main_xszz_xsyjgl_fs.frm

企业营销系统:企业营销管理系统应本着经济、实用、高效的原则

VERSION 5.00
Begin VB.Form main_xszz_xsyjgl_fs 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "考核方式"
   ClientHeight    =   1935
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4545
   Icon            =   "main_xszz_xsyjgl_fs.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1935
   ScaleWidth      =   4545
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   390
      Left            =   450
      TabIndex        =   4
      Top             =   1320
      Width           =   1695
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   390
      Left            =   2295
      TabIndex        =   3
      Top             =   1320
      Width           =   1695
   End
   Begin VB.Frame Frame1 
      Caption         =   "选择考核方式"
      Height          =   1095
      Left            =   30
      TabIndex        =   0
      Top             =   90
      Width           =   4485
      Begin VB.OptionButton Option2 
         Caption         =   "定量考核"
         Height          =   435
         Left            =   1980
         TabIndex        =   2
         Top             =   390
         Width           =   1785
      End
      Begin VB.OptionButton Option1 
         Caption         =   "定性考核"
         Height          =   435
         Left            =   360
         TabIndex        =   1
         Top             =   390
         Value           =   -1  'True
         Width           =   1785
      End
   End
End
Attribute VB_Name = "main_xszz_xsyjgl_fs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：main_xszz_xsyjgl_fs
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-11-12
'**修 改 人：sxm
'**日    期：2007-11-12
'*************************************************************************
Private Sub Command1_Click()
  If Option1.Value = True Then
    xsyjkhtb = "定性考核表"
  Else
    xsyjkhtb = "定性考核表"
  End If
End Sub