frmbookinput.frm

来自「通用书店管理系统」· FRM 代码 · 共 660 行 · 第 1/2 页

FRM
660
字号
VERSION 5.00
Begin VB.Form frmBookInput 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "图书资料录入"
   ClientHeight    =   7185
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   5025
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7185
   ScaleWidth      =   5025
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox cmbType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   5
      Left            =   1170
      TabIndex        =   33
      Top             =   5040
      Width           =   3315
   End
   Begin VB.CommandButton cmdSave 
      Height          =   495
      Left            =   2490
      Picture         =   "frmBookInput.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   6570
      Width           =   975
   End
   Begin VB.CommandButton cmdExit 
      Height          =   495
      Left            =   3765
      Picture         =   "frmBookInput.frx":14E4
      Style           =   1  'Graphical
      TabIndex        =   31
      Top             =   6570
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "…"
      Height          =   315
      Index           =   3
      Left            =   4515
      TabIndex        =   30
      Top             =   5040
      Width           =   375
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "…"
      Height          =   315
      Index           =   2
      Left            =   4515
      TabIndex        =   29
      Top             =   2160
      Width           =   375
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "…"
      Height          =   315
      Index           =   1
      Left            =   4515
      TabIndex        =   28
      Top             =   1305
      Width           =   375
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "…"
      Height          =   315
      Index           =   0
      Left            =   2880
      TabIndex        =   27
      Top             =   900
      Width           =   375
   End
   Begin VB.TextBox txtFields 
      Height          =   1020
      Index           =   7
      Left            =   1170
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   12
      Top             =   5415
      Width           =   3735
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   6
      Left            =   1170
      TabIndex        =   11
      Top             =   4605
      Width           =   1215
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   5
      Left            =   1170
      TabIndex        =   10
      Top             =   4170
      Width           =   1215
   End
   Begin VB.ComboBox cmbType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   4
      ItemData        =   "frmBookInput.frx":29C8
      Left            =   1170
      List            =   "frmBookInput.frx":29D5
      TabIndex        =   9
      Top             =   3780
      Width           =   1215
   End
   Begin VB.ComboBox cmbType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   3
      ItemData        =   "frmBookInput.frx":29E8
      Left            =   1170
      List            =   "frmBookInput.frx":29FB
      TabIndex        =   8
      Top             =   3390
      Width           =   1215
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   4
      Left            =   1170
      TabIndex        =   7
      Top             =   2970
      Width           =   1215
   End
   Begin VB.ComboBox cmbType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   2
      Left            =   1170
      TabIndex        =   5
      Top             =   2145
      Width           =   3315
   End
   Begin VB.ComboBox cmbType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   1
      Left            =   1170
      TabIndex        =   3
      Top             =   1305
      Width           =   3315
   End
   Begin VB.ComboBox cmbType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Index           =   0
      Left            =   1170
      TabIndex        =   2
      Top             =   885
      Width           =   1695
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   3
      Left            =   1170
      TabIndex        =   6
      Top             =   2535
      Width           =   2295
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   2
      Left            =   1170
      TabIndex        =   4
      Top             =   1725
      Width           =   2295
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   1
      Left            =   1170
      TabIndex        =   1
      Top             =   435
      Width           =   3615
   End
   Begin VB.TextBox txtFields 
      Height          =   375
      Index           =   0
      Left            =   1170
      TabIndex        =   0
      Top             =   0
      Width           =   2295
   End
   Begin VB.Image Image1 
      Height          =   855
      Left            =   3390
      Picture         =   "frmBookInput.frx":2A14
      Top             =   3480
      Width           =   645
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "备注"
      Height          =   255
      Index           =   13
      Left            =   90
      TabIndex        =   26
      Top             =   5535
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "供货商"
      Height          =   255
      Index           =   12
      Left            =   90
      TabIndex        =   25
      Top             =   5145
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "单价"
      Height          =   255
      Index           =   11
      Left            =   90
      TabIndex        =   24
      Top             =   4725
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "折扣"
      Height          =   255
      Index           =   10
      Left            =   90
      TabIndex        =   23
      Top             =   4290
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "装订方式"
      Height          =   255
      Index           =   9
      Left            =   90
      TabIndex        =   22
      Top             =   3900
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "开本"
      Height          =   255
      Index           =   8
      Left            =   90
      TabIndex        =   21
      Top             =   3510
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "印次"
      Height          =   255
      Index           =   7
      Left            =   90
      TabIndex        =   20
      Top             =   3090
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent

⌨️ 快捷键说明

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