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

📄 frmbookinformation.frm

📁 很好的学习资料可供参考有实例从图书馆着的希望有帮祝
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmBookInformation 
   Caption         =   "图书信息查询"
   ClientHeight    =   7575
   ClientLeft      =   480
   ClientTop       =   1650
   ClientWidth     =   9555
   HelpContextID   =   7
   Icon            =   "frmBookInformation.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7575
   ScaleWidth      =   9555
   Visible         =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.PictureBox Picture1 
      Align           =   3  'Align Left
      Height          =   7575
      Index           =   0
      Left            =   0
      ScaleHeight     =   7515
      ScaleWidth      =   5505
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   0
      Width           =   5565
      Begin VB.Frame Frame1 
         Caption         =   "图书查询"
         Height          =   2895
         Left            =   240
         TabIndex        =   23
         Top             =   4560
         Width           =   5055
         Begin VB.ComboBox cboModality 
            Height          =   300
            ItemData        =   "frmBookInformation.frx":08CA
            Left            =   1320
            List            =   "frmBookInformation.frx":08CC
            Style           =   2  'Dropdown List
            TabIndex        =   2
            Top             =   720
            Width           =   3495
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   300
            Index           =   0
            Left            =   1320
            TabIndex        =   0
            Top             =   360
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   529
            _Version        =   393216
            Format          =   24576001
            CurrentDate     =   37946
         End
         Begin MSComctlLib.TreeView TreeView1 
            Height          =   1335
            Left            =   240
            TabIndex        =   3
            Top             =   1320
            Width           =   4575
            _ExtentX        =   8070
            _ExtentY        =   2355
            _Version        =   393217
            Indentation     =   471
            LabelEdit       =   1
            LineStyle       =   1
            Sorted          =   -1  'True
            Style           =   7
            HotTracking     =   -1  'True
            Appearance      =   1
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   300
            Index           =   1
            Left            =   3240
            TabIndex        =   1
            Top             =   360
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   529
            _Version        =   393216
            Format          =   24576001
            CurrentDate     =   37946
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "从"
            Height          =   180
            Index           =   13
            Left            =   1080
            TabIndex        =   28
            Top             =   360
            Width           =   180
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "搜索树:"
            Height          =   180
            Index           =   2
            Left            =   240
            TabIndex        =   27
            Top             =   1080
            Width           =   630
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "待查状态:"
            Height          =   180
            Index           =   10
            Left            =   240
            TabIndex        =   26
            Top             =   720
            Width           =   810
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "入册日期:"
            Height          =   180
            Index           =   11
            Left            =   240
            TabIndex        =   25
            Top             =   360
            Width           =   810
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "到"
            Height          =   180
            Index           =   12
            Left            =   3000
            TabIndex        =   24
            Top             =   360
            Width           =   180
         End
      End
      Begin VB.CommandButton cmdPrint 
         Caption         =   "打印查询到记录的图书检索卡片(&P)"
         Enabled         =   0   'False
         Height          =   360
         Left            =   1800
         TabIndex        =   4
         Top             =   4200
         Width           =   3255
      End
      Begin VB.TextBox txtSynopsis 
         BackColor       =   &H80000000&
         Height          =   1455
         Left            =   240
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   6
         Top             =   2640
         Width           =   5055
      End
      Begin VB.Label lblBookConcern 
         BorderStyle     =   1  'Fixed Single
         Height          =   300
         Left            =   1080
         TabIndex        =   22
         Top             =   1920
         Width           =   2415
      End
      Begin VB.Label lblAuthor 
         BorderStyle     =   1  'Fixed Single
         Height          =   300
         Left            =   1080
         TabIndex        =   21
         Top             =   1560
         Width           =   2415
      End
      Begin VB.Label lblPrice 
         BorderStyle     =   1  'Fixed Single
         Height          =   300
         Left            =   1080
         TabIndex        =   20
         Top             =   1200
         Width           =   2415
      End
      Begin VB.Label lblBookName 
         BorderStyle     =   1  'Fixed Single
         Height          =   300
         Left            =   1080
         TabIndex        =   19
         Top             =   840
         Width           =   2415
      End
      Begin VB.Label lblSort 
         BorderStyle     =   1  'Fixed Single
         Height          =   300
         Left            =   1080
         TabIndex        =   18
         Top             =   480
         Width           =   495
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "图书照片:"
         Height          =   180
         Index           =   9
         Left            =   3600
         TabIndex        =   17
         Top             =   120
         Width           =   810
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "出版单位:"
         Height          =   180
         Index           =   7
         Left            =   240
         TabIndex        =   16
         Top             =   1920
         Width           =   810
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "作者:"
         Height          =   180
         Index           =   6
         Left            =   240
         TabIndex        =   15
         Top             =   1560
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "编码:"
         Height          =   180
         Index           =   5
         Left            =   1680
         TabIndex        =   14
         Top             =   480
         Width           =   450
      End
      Begin VB.Label lblID 
         BorderStyle     =   1  'Fixed Single
         Height          =   300
         Left            =   2160
         TabIndex        =   13
         Top             =   480
         Width           =   1335
      End
      Begin VB.Image imgPhoto 
         BorderStyle     =   1  'Fixed Single
         Height          =   2175
         Left            =   3600
         Stretch         =   -1  'True
         Top             =   360
         Width           =   1695
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "书名:"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   840
         Width           =   450
      End
      Begin VB.Label Label1 

⌨️ 快捷键说明

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