frmcommodityclassmodify.frm

很好！ 很实用！ 免费！

VERSION 5.00
Begin VB.Form frmCommodityClassModify 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "商品类管理"
   ClientHeight    =   6975
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   9960
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   9739.865
   ScaleMode       =   0  'User
   ScaleWidth      =   9960
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame famTerminally 
      Height          =   975
      Left            =   2040
      TabIndex        =   7
      Top             =   3240
      Width           =   4335
      Begin VB.OptionButton opTerminally0 
         Caption         =   "抽象商品类"
         Height          =   195
         Left            =   2640
         TabIndex        =   9
         Top             =   480
         Width           =   1215
      End
      Begin VB.OptionButton opTerminally1 
         Caption         =   "具体商品类"
         Height          =   195
         Left            =   240
         TabIndex        =   8
         Top             =   480
         Width           =   1215
      End
   End
   Begin VB.TextBox txtName 
      Height          =   495
      Left            =   2040
      TabIndex        =   5
      Top             =   2520
      Width           =   4335
   End
   Begin ClassSystem.InputNumber txtNo 
      Height          =   495
      Left            =   2040
      TabIndex        =   3
      Top             =   1440
      Width           =   4215
      _ExtentX        =   7435
      _ExtentY        =   873
      BorderStyle     =   1
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   5640
      TabIndex        =   1
      Top             =   6120
      Width           =   1095
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   7800
      TabIndex        =   0
      Top             =   6120
      Width           =   1095
   End
   Begin VB.Label lblTerminally 
      AutoSize        =   -1  'True
      Caption         =   "类性质"
      Height          =   195
      Left            =   1200
      TabIndex        =   6
      Top             =   3600
      Width           =   540
   End
   Begin VB.Label lblName 
      AutoSize        =   -1  'True
      Caption         =   "类名称"
      Height          =   195
      Left            =   1200
      TabIndex        =   4
      Top             =   2640
      Width           =   540
   End
   Begin VB.Label lblNo 
      AutoSize        =   -1  'True
      Caption         =   "类编码"
      Height          =   195
      Left            =   1200
      TabIndex        =   2
      Top             =   1560
      Width           =   540
   End
End
Attribute VB_Name = "frmCommodityClassModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public lSaved As Boolean
Public sName As String
Public sNo As String
Public sTerminally As String

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    If CheckSave() Then
        lSaved = True
        sName = txtName.Text
        sNo = txtNo.Text
        If opTerminally0.value = True Then
            sTerminally = opTerminally0.Caption
        Else
            sTerminally = opTerminally1.Caption
        End If
        Unload Me
    End If
End Sub
Private Function CheckSave() As Boolean
    CheckSave = True

    If CDbl(txtNo.Text) <= 0 Then CheckSave = False
    If txtName.Text = "" Then CheckSave = False
    If opTerminally0.value = False And opTerminally1.value = False Then CheckSave = False

End Function

Private Sub Form_Load()
    lSaved = False
End Sub