b借书.frm

图书管理系统 1.图书管理系统概述图书管理系统用来管理图书借还过程中的静态和动态信息.本系统是一个典型的图书管理系统,系统管理的信息主要包括图书基本信息,图书存储信息,借书和还书信息,图书预约信息以及

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form B借书 
   Caption         =   "借书"
   ClientHeight    =   4485
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7665
   LinkTopic       =   "Form1"
   ScaleHeight     =   4485
   ScaleWidth      =   7665
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame FrameBook 
      Caption         =   "借书信息"
      Height          =   4455
      Left            =   120
      TabIndex        =   7
      Top             =   0
      Width           =   7455
      Begin VB.Frame Frame1 
         BackColor       =   &H00C0C0C0&
         Height          =   2415
         Left            =   3480
         TabIndex        =   16
         Top             =   360
         Width           =   3855
         Begin VB.Label LblNum 
            BackColor       =   &H80000014&
            Caption         =   "0"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   1440
            TabIndex        =   30
            Top             =   2040
            Width           =   2175
         End
         Begin VB.Label Label7 
            Caption         =   "数量："
            Height          =   255
            Index           =   4
            Left            =   360
            TabIndex        =   29
            Top             =   2040
            Width           =   1095
         End
         Begin VB.Label Label7 
            Caption         =   "版次："
            Height          =   255
            Index           =   3
            Left            =   360
            TabIndex        =   28
            Top             =   1680
            Width           =   1095
         End
         Begin VB.Label LblPubNo 
            BackColor       =   &H80000014&
            Caption         =   "无"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   1440
            TabIndex        =   27
            Top             =   1680
            Width           =   2175
         End
         Begin VB.Label Label7 
            Caption         =   "作者："
            Height          =   255
            Index           =   2
            Left            =   360
            TabIndex        =   26
            Top             =   1320
            Width           =   1095
         End
         Begin VB.Label LblAuthor 
            BackColor       =   &H80000014&
            Caption         =   "无"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   1440
            TabIndex        =   25
            Top             =   1320
            Width           =   2175
         End
         Begin VB.Label LblBookName 
            BackColor       =   &H80000014&
            Caption         =   "无"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   1440
            TabIndex        =   24
            Top             =   960
            Width           =   2175
         End
         Begin VB.Label Label7 
            Caption         =   "题名："
            Height          =   255
            Index           =   1
            Left            =   360
            TabIndex        =   23
            Top             =   960
            Width           =   1095
         End
         Begin VB.Label LblNoReturn 
            BackColor       =   &H80000014&
            Caption         =   "无"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   3000
            TabIndex        =   22
            Top             =   240
            Width           =   735
         End
         Begin VB.Label Label9 
            Caption         =   "未还图书："
            Height          =   255
            Left            =   2160
            TabIndex        =   21
            Top             =   240
            Width           =   1095
         End
         Begin VB.Label LblValid 
            BackColor       =   &H80000014&
            Caption         =   "无"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   1440
            TabIndex        =   20
            Top             =   600
            Width           =   735
         End
         Begin VB.Label Label7 
            Caption         =   "超期图书："
            Height          =   255
            Index           =   0
            Left            =   360
            TabIndex        =   19
            Top             =   600
            Width           =   1335
         End
         Begin VB.Label Label3 
            Caption         =   "读者罚款(元)："
            Height          =   255
            Left            =   120
            TabIndex        =   18
            Top             =   240
            Width           =   1215
         End
         Begin VB.Label LblPenalty 
            BackColor       =   &H80000014&
            Caption         =   "无"
            ForeColor       =   &H000000FF&
            Height          =   255
            Left            =   1440
            TabIndex        =   17
            Top             =   240
            Width           =   735
         End
      End
      Begin VB.CommandButton CmdExit 
         BackColor       =   &H00C0C0C0&
         Caption         =   "退出"
         Height          =   360
         Left            =   4800
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   3960
         Width           =   800
      End
      Begin VB.CommandButton CmdCancel 
         BackColor       =   &H00C0C0C0&
         Caption         =   "取消"
         Height          =   360
         Left            =   3960
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   3960
         Width           =   800
      End
      Begin VB.CommandButton CmdSave 
         BackColor       =   &H00C0C0C0&
         Caption         =   "借书"
         Height          =   360
         Left            =   3120
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   3960
         Width           =   800
      End
      Begin VB.TextBox txtNum 
         BackColor       =   &H80000000&
         Enabled         =   0   'False
         Height          =   375
         Left            =   1200
         MaxLength       =   50
         TabIndex        =   8
         Text            =   "0"
         Top             =   2040
         Width           =   2175
      End
      Begin VB.TextBox txtNotes 
         Height          =   975
         Left            =   1200
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   3
         Top             =   2880
         Width           =   4575
      End
      Begin VB.TextBox txtReadNo 
         Height          =   375
         Left            =   1200
         MaxLength       =   10
         TabIndex        =   0
         Top             =   480
         Width           =   1695
      End
      Begin VB.TextBox txtBookNo 
         Height          =   375
         Left            =   1200
         MaxLength       =   12
         TabIndex        =   1
         Top             =   1080
         Width           =   1695
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Left            =   1200
         TabIndex        =   2
         Top             =   1560
         Width           =   1695
         _ExtentX        =   2990
         _ExtentY        =   661
         _Version        =   393216
         Format          =   23920641
         CurrentDate     =   38888
      End
      Begin VB.Label Label8 
         Caption         =   "(12位)"