frmbookmessage.frm

实现某班级的图书信息管理

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmBookmessage 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书资料登记"
   ClientHeight    =   4575
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6750
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   6750
   Begin VB.Data DatCount 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   540
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   -360
      Visible         =   0   'False
      Width           =   2055
   End
   Begin VB.Data DatBMessage 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   420
      Left            =   2400
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   -240
      Visible         =   0   'False
      Width           =   1695
   End
   Begin VB.CommandButton CmdEdit 
      Caption         =   "修改"
      Height          =   375
      Left            =   2940
      TabIndex        =   8
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   3840
      TabIndex        =   6
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdRegister 
      Caption         =   "登记"
      Height          =   375
      Left            =   3840
      TabIndex        =   0
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdExit 
      Caption         =   "关闭"
      Height          =   375
      Left            =   5640
      TabIndex        =   7
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdDelete 
      Caption         =   "删除"
      Height          =   375
      Left            =   2040
      TabIndex        =   9
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdNext 
      Caption         =   "下一个"
      Height          =   375
      Left            =   1140
      TabIndex        =   10
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保存"
      Height          =   375
      Left            =   4740
      TabIndex        =   5
      Top             =   3600
      Width           =   855
   End
   Begin VB.CommandButton CmdPrevious 
      Caption         =   "上一个"
      Height          =   375
      Left            =   240
      TabIndex        =   11
      Top             =   3600
      Width           =   855
   End
   Begin VB.TextBox TxtBTimes 
      Height          =   375
      Left            =   4140
      TabIndex        =   12
      Top             =   1680
      Width           =   1215
   End
   Begin VB.ComboBox CmbStatus 
      Height          =   300
      ItemData        =   "FrmBookMessage.frx":0000
      Left            =   1500
      List            =   "FrmBookMessage.frx":000A
      Style           =   2  'Dropdown List
      TabIndex        =   23
      Top             =   2640
      Width           =   1455
   End
   Begin VB.ComboBox CmbType 
      Height          =   300
      ItemData        =   "FrmBookMessage.frx":001A
      Left            =   1500
      List            =   "FrmBookMessage.frx":0024
      Style           =   2  'Dropdown List
      TabIndex        =   4
      Top             =   2160
      Width           =   1455
   End
   Begin VB.TextBox TxtBookName 
      Height          =   375
      Left            =   1500
      MaxLength       =   50
      TabIndex        =   1
      Top             =   720
      Width           =   3855
   End
   Begin VB.TextBox TxtAuthor 
      Height          =   375
      Left            =   1500
      MaxLength       =   10
      TabIndex        =   3
      Top             =   1680
      Width           =   1455
   End
   Begin VB.TextBox TxtPublish 
      Height          =   375
      Left            =   1500
      MaxLength       =   50
      TabIndex        =   2
      Top             =   1200
      Width           =   3855
   End
   Begin VB.TextBox TxtJoinTime 
      Height          =   375
      Left            =   4140
      TabIndex        =   22
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox TxtBookIndex 
      Height          =   375
      Left            =   1500
      TabIndex        =   13
      Top             =   240
      Width           =   1455
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   24
      Top             =   4200
      Width           =   6750
      _ExtentX        =   11906
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Object.Width           =   1764
            MinWidth        =   1764
            TextSave        =   "04-3-30"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3881
            MinWidth        =   3881
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2822
            MinWidth        =   2822
            Text            =   "帮助请按F1"
            TextSave        =   "帮助请按F1"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   0
      X2              =   6720
      Y1              =   3420
      Y2              =   3420
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000006&
      X1              =   0
      X2              =   6720
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Label Label1 
      Caption         =   "借阅次数"
      Height          =   375
      Index           =   8
      Left            =   3180
      TabIndex        =   21
      Top             =   1800
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "出版社"
      Height          =   375
      Index           =   7
      Left            =   660
      TabIndex        =   20
      Top             =   1320
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "入库日期"
      Height          =   495
      Index           =   6
      Left            =   3180
      TabIndex        =   19
      Top             =   2640
      Width           =   855