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

📄 a图书维护.frm

📁 原码和使用说明都有,用VB和SQL2000综合、设计的
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form A图书维护 
   Caption         =   "添加图书"
   ClientHeight    =   5325
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7035
   LinkTopic       =   "Form1"
   ScaleHeight     =   5325
   ScaleWidth      =   7035
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CmdSave 
      BackColor       =   &H00C0C0C0&
      Caption         =   "保存"
      Height          =   360
      Left            =   3600
      Style           =   1  'Graphical
      TabIndex        =   12
      Top             =   4920
      Width           =   800
   End
   Begin VB.CommandButton CmdCancel 
      BackColor       =   &H00C0C0C0&
      Caption         =   "取消"
      Height          =   360
      Left            =   4560
      Style           =   1  'Graphical
      TabIndex        =   13
      Top             =   4920
      Width           =   800
   End
   Begin VB.CommandButton CmdExit 
      BackColor       =   &H00C0C0C0&
      Caption         =   "退出"
      Height          =   360
      Left            =   5520
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   4920
      Width           =   800
   End
   Begin VB.CommandButton CmdAdd 
      BackColor       =   &H00C0C0C0&
      Caption         =   "添加"
      Height          =   360
      Left            =   2640
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   4920
      Width           =   800
   End
   Begin VB.Frame FrameBook 
      Caption         =   "图书信息"
      Height          =   4815
      Left            =   0
      TabIndex        =   15
      Top             =   0
      Width           =   6975
      Begin VB.TextBox txtISBN 
         Height          =   375
         Left            =   4560
         TabIndex        =   2
         Top             =   840
         Width           =   2175
      End
      Begin VB.ComboBox CboSelect 
         Height          =   315
         Left            =   1080
         TabIndex        =   0
         Top             =   360
         Width           =   2175
      End
      Begin VB.TextBox txtSummary 
         Height          =   855
         Left            =   1080
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   9
         Top             =   2760
         Width           =   5655
      End
      Begin VB.TextBox txtAuthor 
         Height          =   375
         Left            =   4560
         MaxLength       =   18
         TabIndex        =   4
         Top             =   1320
         Width           =   2175
      End
      Begin VB.TextBox txtName 
         Height          =   375
         Left            =   1080
         MaxLength       =   18
         TabIndex        =   3
         Top             =   1320
         Width           =   2175
      End
      Begin VB.TextBox txtBookNo 
         Height          =   375
         Left            =   1080
         MaxLength       =   12
         TabIndex        =   1
         Top             =   840
         Width           =   1935
      End
      Begin VB.TextBox txtPublisher 
         Height          =   375
         Left            =   1080
         MaxLength       =   18
         TabIndex        =   5
         Top             =   1800
         Width           =   2175
      End
      Begin VB.TextBox txtNotes 
         Height          =   975
         Left            =   1080
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   10
         Top             =   3720
         Width           =   5655
      End
      Begin VB.TextBox txtPubNo 
         Height          =   375
         Left            =   4560
         MaxLength       =   18
         TabIndex        =   6
         Top             =   1800
         Width           =   2175
      End
      Begin VB.TextBox txtNum 
         Height          =   375
         Left            =   4560
         MaxLength       =   50
         TabIndex        =   8
         Text            =   "0"
         Top             =   2280
         Width           =   2175
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Left            =   1080
         TabIndex        =   7
         Top             =   2280
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   661
         _Version        =   393216
         Format          =   73465857
         CurrentDate     =   39753
      End
      Begin VB.Label Label4 
         Caption         =   "ISBN号:"
         Height          =   255
         Left            =   3750
         TabIndex        =   27
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "分类号:"
         Height          =   255
         Left            =   240
         TabIndex        =   26
         Top             =   480
         Width           =   855
      End
      Begin VB.Label Label6 
         Caption         =   "主题词:"
         Height          =   375
         Index           =   0
         Left            =   360
         TabIndex        =   25
         Top             =   2760
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "图书号:"
         Height          =   255
         Left            =   240
         TabIndex        =   24
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label8 
         Caption         =   "(6位)"
         Enabled         =   0   'False
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   3120
         TabIndex        =   23
         Top             =   960
         Width           =   855
      End
      Begin VB.Label Label7 
         Caption         =   "作者:"
         Height          =   255
         Index           =   0
         Left            =   3960
         TabIndex        =   22
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label Label5 
         Caption         =   "题名:"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   21
         Top             =   1320
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   $"A图书维护.frx":0000
         Height          =   495
         Index           =   1
         Left            =   360
         TabIndex        =   20
         Top             =   3600
         Width           =   735
      End
      Begin VB.Label Label5 
         Caption         =   "出版社:"
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   19
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label6 
         Caption         =   "存储日期:"

⌨️ 快捷键说明

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