usertype.frm

来自「这个是完整的数据库商品管理系统,有完整的源代码,本人测试过了,非常好用.里面还有」· FRM 代码 · 共 98 行

VERSION 5.00
Begin VB.Form frmUserType 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "用户类型"
   ClientHeight    =   2055
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3480
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2055
   ScaleWidth      =   3480
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   2160
      TabIndex        =   5
      Top             =   600
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   2160
      TabIndex        =   4
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Frame fraUserType 
      Caption         =   "请选择用户类型"
      Height          =   1815
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1815
      Begin VB.OptionButton optUserType 
         Caption         =   "销售人员"
         Height          =   495
         Index           =   2
         Left            =   360
         TabIndex        =   3
         Top             =   1200
         Width           =   1095
      End
      Begin VB.OptionButton optUserType 
         Caption         =   "仓管人员"
         Height          =   495
         Index           =   1
         Left            =   360
         TabIndex        =   2
         Top             =   720
         Width           =   1095
      End
      Begin VB.OptionButton optUserType 
         Caption         =   "管理人员"
         Height          =   495
         Index           =   0
         Left            =   360
         TabIndex        =   1
         Top             =   240
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frmUserType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public mnUserType As Integer

Private Sub cmdCancel_Click()
    mnUserType = -1
    
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    Me.Hide
End Sub

Private Sub Form_Load()
    optUserType(0).Value = True
    
    mnUserType = -1
End Sub

Private Sub optUserType_Click(Index As Integer)
    mnUserType = Index
End Sub