frmclass.frm

收藏了太量的商品条形码库

VERSION 5.00
Begin VB.Form FrmClass 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "类别"
   ClientHeight    =   1425
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3915
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1425
   ScaleWidth      =   3915
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Fra_Class 
      Caption         =   "类别"
      Height          =   1300
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   3795
      Begin BarCode.Command CmdClass 
         Default         =   -1  'True
         Height          =   345
         Index           =   0
         Left            =   1920
         TabIndex        =   3
         Top             =   840
         Width           =   795
         _ExtentX        =   1402
         _ExtentY        =   609
         Icon            =   "FrmClass.frx":0000
         Caption         =   "确定(&Y)"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.TextBox Txt_Name 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   990
         TabIndex        =   1
         Top             =   360
         Width           =   2655
      End
      Begin BarCode.Command CmdClass 
         Height          =   345
         Index           =   1
         Left            =   2850
         TabIndex        =   4
         Top             =   840
         Width           =   795
         _ExtentX        =   1402
         _ExtentY        =   609
         Icon            =   "FrmClass.frx":001C
         Caption         =   "取消(&C)"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "类别名称:"
         Height          =   180
         Left            =   120
         TabIndex        =   2
         Top             =   420
         Width           =   810
      End
   End
End
Attribute VB_Name = "FrmClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CmdClass_Click(Index As Integer)
Select Case Index
Case 0
    If Txt_Name.Text = "" Then
        MsgBox "类别名称不能为空,请重新填写！", 16, "错误"
        Txt_Name.SetFocus
        Exit Sub
    End If
    If Me.Caption = "添加类别" Then
        If AddClass(FrmMain.TV1, Txt_Name.Text) = False Then
            MsgBox "记录有重复,请重新输入类别名称！", 16, "错误"
            Txt_Name.SetFocus
            Exit Sub
        Else
            Unload Me
        End If
    ElseIf Me.Caption = "修改类别" Then
        If EditClass(FrmMain.TV1, Txt_Name.Tag, Txt_Name.Text) = False Then
            MsgBox "找不到当前类别！", 16, "错误"
            Txt_Name.SetFocus
            Exit Sub
        Else
            Unload Me
        End If
    End If
Case 1
    Unload Me
End Select
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
Me.Icon = FrmMain.Icon
End Sub