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

📄 frmdatamake.frm

📁 使用vb来编制仓库管理方面的绝佳例子
💻 FRM
📖 第 1 页 / 共 5 页
字号:
                  Height          =   315
                  Index           =   22
                  Left            =   1080
                  MaxLength       =   20
                  TabIndex        =   3
                  Text            =   "Text1"
                  Top             =   480
                  Width           =   2535
               End
               Begin VB.Frame Frame10 
                  Height          =   2295
                  Left            =   7560
                  TabIndex        =   72
                  Top             =   0
                  Width           =   3495
                  Begin VB.CommandButton CmdModif3 
                     Caption         =   "修改(&M)"
                     Height          =   615
                     Index           =   2
                     Left            =   240
                     TabIndex        =   7
                     Top             =   480
                     Width           =   1455
                  End
                  Begin VB.CommandButton CmdDel3 
                     Caption         =   "删除(&D)"
                     Height          =   615
                     Index           =   2
                     Left            =   1920
                     TabIndex        =   8
                     Top             =   480
                     Width           =   1455
                  End
                  Begin VB.CommandButton CmdCanse3 
                     Caption         =   "取消(&C)"
                     Height          =   615
                     Index           =   2
                     Left            =   240
                     TabIndex        =   9
                     Top             =   1440
                     Width           =   1455
                  End
                  Begin VB.CommandButton CmdRet3 
                     Caption         =   "返回(&R)"
                     Height          =   615
                     Index           =   2
                     Left            =   1920
                     TabIndex        =   10
                     Top             =   1440
                     Width           =   1455
                  End
               End
               Begin VB.CommandButton CmdDelAll3 
                  Caption         =   "全部删除(&K)"
                  Height          =   495
                  Index           =   2
                  Left            =   6120
                  TabIndex        =   11
                  Top             =   1560
                  Width           =   1215
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "单位:"
                  Height          =   180
                  Index           =   26
                  Left            =   3840
                  TabIndex        =   87
                  Top             =   1050
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "数量:"
                  Height          =   180
                  Index           =   25
                  Left            =   480
                  TabIndex        =   86
                  Top             =   1050
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "硬度:"
                  Height          =   180
                  Index           =   24
                  Left            =   3840
                  TabIndex        =   85
                  Top             =   570
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "导电:"
                  Height          =   180
                  Index           =   16
                  Left            =   480
                  TabIndex        =   84
                  Top             =   570
                  Width           =   450
               End
               Begin VB.Label Label3 
                  AutoSize        =   -1  'True
                  Caption         =   "操作说明:请在上面表格单击你要修改或删除的数据,然后输入数据"
                  ForeColor       =   &H000000FF&
                  Height          =   180
                  Index           =   18
                  Left            =   420
                  TabIndex        =   74
                  Top             =   1680
                  Width           =   5400
               End
               Begin VB.Label Label4 
                  AutoSize        =   -1  'True
                  Caption         =   "若全部删除表格中的数据请单击这"
                  ForeColor       =   &H000000FF&
                  Height          =   180
                  Left            =   1320
                  TabIndex        =   73
                  Top             =   1920
                  Width           =   2700
               End
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               Caption         =   "规格*:"
               Height          =   180
               Index           =   10
               Left            =   4200
               TabIndex        =   83
               Top             =   337
               Width           =   540
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               Caption         =   "品名*:"
               Height          =   180
               Index           =   23
               Left            =   840
               TabIndex        =   75
               Top             =   337
               Width           =   540
            End
         End
         Begin VB.Frame Frame5 
            Height          =   7455
            Left            =   -74880
            TabIndex        =   58
            Top             =   360
            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           =   8
               Left            =   5280
               MaxLength       =   20
               TabIndex        =   13
               Text            =   "Text1"
               Top             =   240
               Width           =   2775
            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           =   7
               Left            =   2040
               MaxLength       =   20
               TabIndex        =   12
               Text            =   "Text1"
               Top             =   240
               Width           =   2535
            End
            Begin MSFlexGridLib.MSFlexGrid list1 
               Height          =   4575
               Left            =   0
               TabIndex        =   59
               Top             =   720
               Width           =   11055
               _ExtentX        =   19500
               _ExtentY        =   8070
               _Version        =   393216
               Cols            =   19
               FixedCols       =   0
               BackColor       =   12648447
               AllowUserResizing=   3
            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           =   12
               Left            =   2160
               MaxLength       =   20
               TabIndex        =   18
               Text            =   "Text1"
               Top             =   6000
               Width           =   855
            End
            Begin VB.CommandButton CmdFind 
               Caption         =   "查找(&F)"
               Height          =   375
               Index           =   1
               Left            =   8160
               TabIndex        =   14
               Top             =   240
               Width           =   1215
            End
            Begin VB.Frame Frame6 
               Height          =   2295
               Left            =   0
               TabIndex        =   60
               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           =   13
                  Left            =   960
                  MaxLength       =   20
                  TabIndex        =   19
                  Text            =   "Text1"
                  Top             =   1320
                  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           =   19
                  Left            =   3720
                  MaxLength       =   20
                  TabIndex        =   25
                  Text            =   "Text1"
                  Top             =   840
                  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           =   18
                  Left            =   6360
                  MaxLength       =   20
                  TabIndex        =   24
                  Text            =   "Text1"
                  Top             =   840
                  Width           =   1095
               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           =   17
                  Left            =   6360
                  MaxLength       =   20
                  TabIndex        =   23
                  Text            =   "Text1"
                  Top             =   360
                  Width           =   1095
               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           =   16
                  Left            =   4080
                  MaxLength       =   20
                  TabIndex        =   22
                  Text            =   "Text1"

⌨️ 快捷键说明

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