⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmset.frm

📁 本程序源码是由vb编写的
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{29743316-0803-11D5-AD8E-0050BAA9AC14}#8.0#0"; "MoveFocusText.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmSet 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "POS配置系统"
   ClientHeight    =   4110
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6990
   Icon            =   "frmSet.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4110
   ScaleWidth      =   6990
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Picture3 
      BorderStyle     =   0  'None
      Height          =   2745
      Left            =   270
      ScaleHeight     =   2745
      ScaleWidth      =   6435
      TabIndex        =   30
      Top             =   585
      Visible         =   0   'False
      Width           =   6435
      Begin Threed.SSCommand cmdType 
         Height          =   480
         Left            =   330
         TabIndex        =   31
         Top             =   645
         Width           =   1680
         _Version        =   65536
         _ExtentX        =   2963
         _ExtentY        =   847
         _StockProps     =   78
         Caption         =   "产品类别管理"
         BevelWidth      =   1
      End
      Begin Threed.SSCommand SSCommand2 
         Height          =   480
         Left            =   2355
         TabIndex        =   32
         Top             =   645
         Width           =   1680
         _Version        =   65536
         _ExtentX        =   2963
         _ExtentY        =   847
         _StockProps     =   78
         Caption         =   "供应商地区管理"
         BevelWidth      =   1
      End
      Begin Threed.SSCommand SSCommand3 
         Height          =   480
         Left            =   2355
         TabIndex        =   33
         Top             =   1290
         Width           =   1680
         _Version        =   65536
         _ExtentX        =   2963
         _ExtentY        =   847
         _StockProps     =   78
         Caption         =   "产品管理"
         BevelWidth      =   1
      End
      Begin Threed.SSCommand SSCommand4 
         Height          =   480
         Left            =   330
         TabIndex        =   34
         Top             =   1290
         Width           =   1680
         _Version        =   65536
         _ExtentX        =   2963
         _ExtentY        =   847
         _StockProps     =   78
         Caption         =   "供应商管理"
         BevelWidth      =   1
      End
      Begin Threed.SSCommand SSCommand5 
         Height          =   480
         Left            =   4260
         TabIndex        =   35
         Top             =   645
         Width           =   1680
         _Version        =   65536
         _ExtentX        =   2963
         _ExtentY        =   847
         _StockProps     =   78
         Caption         =   "客户地区管理"
         BevelWidth      =   1
      End
   End
   Begin VB.PictureBox Picture2 
      BorderStyle     =   0  'None
      Height          =   2520
      Left            =   285
      ScaleHeight     =   2520
      ScaleWidth      =   6420
      TabIndex        =   19
      Top             =   585
      Visible         =   0   'False
      Width           =   6420
      Begin 给出焦点文本框.FocusText txtCodeName 
         Height          =   300
         Left            =   450
         TabIndex        =   27
         Top             =   1560
         Width           =   2940
         _ExtentX        =   5186
         _ExtentY        =   529
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BorderStyle     =   0
      End
      Begin MSComCtl2.UpDown UpDown1 
         Height          =   300
         Left            =   2491
         TabIndex        =   24
         Top             =   600
         Width           =   270
         _ExtentX        =   476
         _ExtentY        =   529
         _Version        =   393216
         Value           =   1
         AutoBuddy       =   -1  'True
         BuddyControl    =   "txtCodeQua"
         BuddyDispid     =   196632
         OrigLeft        =   2730
         OrigTop         =   615
         OrigRight       =   3000
         OrigBottom      =   885
         Max             =   9
         Min             =   1
         SyncBuddy       =   -1  'True
         BuddyProperty   =   0
         Enabled         =   -1  'True
      End
      Begin 给出焦点文本框.FocusText txtCodeQua 
         Height          =   300
         Left            =   2160
         TabIndex        =   23
         Top             =   600
         Width           =   330
         _ExtentX        =   582
         _ExtentY        =   529
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BorderStyle     =   0
         MaxLength       =   1
         TextType        =   1
         Text            =   "1"
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "注意:使用""/""将各代码分开。"
         ForeColor       =   &H00004080&
         Height          =   180
         Left            =   450
         TabIndex        =   28
         Top             =   2025
         Width           =   2430
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "1-9之间数字"
         Height          =   180
         Left            =   3825
         TabIndex        =   26
         Top             =   645
         Width           =   990
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "2、代码的名称:"
         Height          =   180
         Index           =   1
         Left            =   240
         TabIndex        =   25
         Top             =   1230
         Width           =   1350
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "服装的 S/M/XL/XXL"
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   4365
         TabIndex        =   22
         Top             =   1740
         Width           =   1530
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "例如:鞋业的 38/39/40/41/42"
         ForeColor       =   &H00000000&
         Height          =   330
         Left            =   3825
         TabIndex        =   21
         Top             =   1485
         Width           =   2430
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "1、所需要的配码个数:"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   20
         Top             =   645
         Width           =   1890
      End
      Begin VB.Shape Shape1 
         FillColor       =   &H00C0E0FF&
         FillStyle       =   0  'Solid
         Height          =   675
         Left            =   3675
         Shape           =   4  'Rounded Rectangle
         Top             =   1350
         Width           =   2700
      End
      Begin VB.Shape Shape2 
         FillColor       =   &H00C0E0FF&
         FillStyle       =   0  'Solid
         Height          =   480
         Left            =   3675
         Shape           =   4  'Rounded Rectangle
         Top             =   495
         Width           =   1320
      End
   End
   Begin VB.PictureBox Picture1 
      BorderStyle     =   0  'None
      Height          =   2745
      Left            =   195
      ScaleHeight     =   2745
      ScaleWidth      =   6600
      TabIndex        =   3
      Top             =   525
      Width           =   6600
      Begin MSComDlg.CommonDialog ColorDialog 
         Left            =   870
         Top             =   240
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin Threed.SSCommand SSCommand1 
         Height          =   300
         Left            =   5880
         TabIndex        =   9
         Top             =   900
         Width           =   360
         _Version        =   65536
         _ExtentX        =   635
         _ExtentY        =   529
         _StockProps     =   78
         BevelWidth      =   1
         RoundedCorners  =   0   'False
         Outline         =   0   'False
         Picture         =   "frmSet.frx":030A
      End
      Begin VB.OptionButton optEffect 
         Caption         =   "使用"
         ForeColor       =   &H000000C0&
         Height          =   345
         Index           =   1
         Left            =   4140
         TabIndex        =   6
         Top             =   390
         Width           =   1335
      End
      Begin VB.OptionButton optEffect 
         BackColor       =   &H8000000B&
         Caption         =   "无"
         Height          =   345
         Index           =   0
         Left            =   3240
         TabIndex        =   5
         Top             =   390
         Value           =   -1  'True
         Width           =   540
      End
      Begin Threed.SSCommand cmdSelect1 
         Height          =   195
         Left            =   2565
         TabIndex        =   15
         Top             =   1455
         Width           =   180
         _Version        =   65536
         _ExtentX        =   317
         _ExtentY        =   344
         _StockProps     =   78
         Caption         =   ".."
         BevelWidth      =   1
         RoundedCorners  =   0   'False
         Outline         =   0   'False
         Picture         =   "frmSet.frx":0624
      End
      Begin Threed.SSCommand cmdSelect2 
         Height          =   195
         Left            =   4800
         TabIndex        =   16
         Top             =   1455
         Width           =   180
         _Version        =   65536
         _ExtentX        =   317
         _ExtentY        =   344
         _StockProps     =   78
         Caption         =   ".."
         BevelWidth      =   1
         RoundedCorners  =   0   'False
         Outline         =   0   'False
         Picture         =   "frmSet.frx":0640
      End
      Begin Threed.SSCommand cmdSelect3 
         Height          =   195
         Left            =   3000
         TabIndex        =   17
         Top             =   1965
         Width           =   180
         _Version        =   65536
         _ExtentX        =   317
         _ExtentY        =   344
         _StockProps     =   78
         Caption         =   ".."
         BevelWidth      =   1
         RoundedCorners  =   0   'False
         Outline         =   0   'False
         Picture         =   "frmSet.frx":065C
      End
      Begin Threed.SSCommand cmdSelect4 
         Height          =   195
         Left            =   4815
         TabIndex        =   18
         Top             =   1965
         Width           =   180
         _Version        =   65536
         _ExtentX        =   317
         _ExtentY        =   344
         _StockProps     =   78
         Caption         =   ".."
         BevelWidth      =   1
         RoundedCorners  =   0   'False
         Outline         =   0   'False
         Picture         =   "frmSet.frx":0678
      End
      Begin 给出焦点文本框.FocusText txtDataPath 
         Height          =   330
         Left            =   2280
         TabIndex        =   8
         Top             =   885
         Width           =   3615
         _ExtentX        =   6376
         _ExtentY        =   582
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BorderStyle     =   0
         LineOut         =   1
      End
      Begin VB.Shape speBackColor 
         FillColor       =   &H0000FFFF&
         FillStyle       =   0  'Solid
         Height          =   195
         Left            =   3885
         Top             =   1958
         Width           =   945
      End
      Begin VB.Shape speForeColor 
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   195
         Left            =   2130
         Top             =   1958
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "背景"
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   5
         Left            =   3405
         TabIndex        =   13
         Top             =   1965
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "4、表格选定项前景"
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   4
         Left            =   495

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -