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

📄 frmdatamake.frm

📁 使用vb来编制仓库管理方面的绝佳例子
💻 FRM
📖 第 1 页 / 共 5 页
字号:
                  Top             =   1800
                  Width           =   1575
               End
               Begin VB.TextBox Text1 
                  Appearance      =   0  'Flat
                  BeginProperty Font 
                     Name            =   "宋体"
                     Size            =   10.5
                     Charset         =   134
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   315
                  Index           =   15
                  Left            =   960
                  MaxLength       =   20
                  TabIndex        =   21
                  Text            =   "Text1"
                  Top             =   1800
                  Width           =   2055
               End
               Begin VB.TextBox Text1 
                  Appearance      =   0  'Flat
                  BeginProperty Font 
                     Name            =   "宋体"
                     Size            =   10.5
                     Charset         =   134
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   315
                  Index           =   14
                  Left            =   4080
                  MaxLength       =   20
                  TabIndex        =   20
                  Text            =   "Text1"
                  Top             =   1320
                  Width           =   1575
               End
               Begin VB.Frame Frame7 
                  Height          =   2295
                  Left            =   7560
                  TabIndex        =   62
                  Top             =   0
                  Width           =   3495
                  Begin VB.CommandButton CmdModif 
                     Caption         =   "修改(&M)"
                     Height          =   615
                     Index           =   1
                     Left            =   240
                     TabIndex        =   26
                     Top             =   480
                     Width           =   1455
                  End
                  Begin VB.CommandButton CmdDel 
                     Caption         =   "删除(&D)"
                     Height          =   615
                     Index           =   1
                     Left            =   1920
                     TabIndex        =   27
                     Top             =   480
                     Width           =   1455
                  End
                  Begin VB.CommandButton CmdCanse 
                     Caption         =   "取消(&C)"
                     Height          =   615
                     Index           =   1
                     Left            =   240
                     TabIndex        =   28
                     Top             =   1440
                     Width           =   1455
                  End
                  Begin VB.CommandButton CmdRet 
                     Caption         =   "返回(&R)"
                     Height          =   615
                     Index           =   1
                     Left            =   1920
                     TabIndex        =   29
                     Top             =   1440
                     Width           =   1455
                  End
               End
               Begin VB.TextBox Text1 
                  Appearance      =   0  'Flat
                  BeginProperty Font 
                     Name            =   "宋体"
                     Size            =   10.5
                     Charset         =   134
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   315
                  Index           =   11
                  Left            =   600
                  MaxLength       =   20
                  TabIndex        =   17
                  Text            =   "Text1"
                  Top             =   840
                  Width           =   855
               End
               Begin VB.TextBox Text1 
                  Appearance      =   0  'Flat
                  BeginProperty Font 
                     Name            =   "宋体"
                     Size            =   10.5
                     Charset         =   134
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   315
                  Index           =   10
                  Left            =   3720
                  MaxLength       =   20
                  TabIndex        =   16
                  Text            =   "Text1"
                  Top             =   360
                  Width           =   1935
               End
               Begin VB.TextBox Text1 
                  Appearance      =   0  'Flat
                  BeginProperty Font 
                     Name            =   "宋体"
                     Size            =   10.5
                     Charset         =   134
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   315
                  Index           =   9
                  Left            =   600
                  MaxLength       =   20
                  TabIndex        =   15
                  Text            =   "Text1"
                  Top             =   360
                  Width           =   2415
               End
               Begin VB.CommandButton CmdDelAll 
                  Caption         =   "全部删除(&K)"
                  Height          =   495
                  Index           =   1
                  Left            =   6120
                  TabIndex        =   61
                  Top             =   1560
                  Width           =   1215
               End
               Begin VB.Label Label2 
                  AutoSize        =   -1  'True
                  Caption         =   "毛坯尺寸:"
                  Height          =   180
                  Left            =   120
                  TabIndex        =   82
                  Top             =   1387
                  Width           =   810
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "说明:"
                  Height          =   180
                  Index           =   8
                  Left            =   3240
                  TabIndex        =   81
                  Top             =   960
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "报废:"
                  Height          =   180
                  Index           =   22
                  Left            =   5760
                  TabIndex        =   80
                  Top             =   907
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "余料:"
                  Height          =   180
                  Index           =   17
                  Left            =   5760
                  TabIndex        =   79
                  Top             =   427
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "成品数量:"
                  Height          =   180
                  Index           =   21
                  Left            =   3240
                  TabIndex        =   78
                  Top             =   1867
                  Width           =   810
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "成品尺寸:"
                  Height          =   180
                  Index           =   20
                  Left            =   120
                  TabIndex        =   77
                  Top             =   1867
                  Width           =   810
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "毛坯数量:"
                  Height          =   180
                  Index           =   19
                  Left            =   3240
                  TabIndex        =   76
                  Top             =   1387
                  Width           =   810
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "硬度:"
                  Height          =   180
                  Index           =   13
                  Left            =   3240
                  TabIndex        =   66
                  Top             =   427
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "数量:"
                  Height          =   180
                  Index           =   12
                  Left            =   120
                  TabIndex        =   65
                  Top             =   907
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "单位:"
                  Height          =   180
                  Index           =   11
                  Left            =   1560
                  TabIndex        =   64
                  Top             =   907
                  Width           =   540
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "导电:"
                  Height          =   180
                  Index           =   9
                  Left            =   120
                  TabIndex        =   63
                  Top             =   427
                  Width           =   450
               End
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               Caption         =   "品名*:"
               Height          =   180
               Index           =   15
               Left            =   1440
               TabIndex        =   68
               Top             =   307
               Width           =   540
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               Caption         =   "品名*:"
               Height          =   180
               Index           =   14
               Left            =   4680
               TabIndex        =   67
               Top             =   307
               Width           =   540
            End
         End
         Begin VB.Frame Frame2 
            Height          =   7455
            Left            =   120
            TabIndex        =   45
            Top             =   360
            Width           =   11055
            Begin MSFlexGridLib.MSFlexGrid list2 
               Height          =   4575
               Left            =   0
               TabIndex        =   46
               Top             =   720
               Width           =   11055
               _ExtentX        =   19500
               _ExtentY        =   8070
               _Version        =   393216
               Cols            =   13
               FixedCols       =   0
               BackColor       =   12648447
               AllowUserResizing=   3
            End
            Begin VB.Frame Frame3 
               Height          =   2295
               Left            =   0
               TabIndex        =   49
               Top             =   5160
               Width           =   11055
               Begin VB.TextBox Text1 
                  Appearance      =   0  'Flat
                  BeginProperty Font 
                     Name            =   "宋体"
                     Size            =   10.5
                     Charset         =   134
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   315
                  Index           =   6
                  Left            =   960
                  MaxLength       =   20
                  TabIndex        =   37
                  Text            =   "Text1"
                  Top             =   1200
                  Width           =   6375
               End
               Begin VB.CommandButton command6 
                  Caption         =   "全部删除(&K)"
                  Height          =   495
                  Index           =   0

⌨️ 快捷键说明

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