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

📄 frmastu.frm

📁 第一次用VB编写的图书管理系统,仅供大家参考,呵呵,不足之处多多包含
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FrmAstu 
   Caption         =   "学生资料管理"
   ClientHeight    =   4980
   ClientLeft      =   60
   ClientTop       =   360
   ClientWidth     =   8580
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   4980
   ScaleWidth      =   8580
   Begin VB.CommandButton cmdpay 
      Caption         =   "交罚款"
      Height          =   255
      Left            =   4320
      TabIndex        =   38
      Top             =   2520
      Width           =   1215
   End
   Begin VB.TextBox txtPublish 
      ForeColor       =   &H000000FF&
      Height          =   270
      Left            =   3000
      TabIndex        =   35
      Text            =   "00.00"
      Top             =   2480
      Width           =   735
   End
   Begin VB.TextBox txtBcount 
      Height          =   270
      Left            =   840
      TabIndex        =   33
      Text            =   "0"
      Top             =   2480
      Width           =   495
   End
   Begin VB.CommandButton CmdBorr 
      Caption         =   "借书情况"
      Height          =   255
      Left            =   4320
      TabIndex        =   32
      Top             =   2160
      Width           =   1215
   End
   Begin VB.ComboBox cmbSex 
      Height          =   300
      ItemData        =   "FrmAstu.frx":0000
      Left            =   960
      List            =   "FrmAstu.frx":000A
      TabIndex        =   31
      Top             =   560
      Width           =   1815
   End
   Begin VB.CommandButton cmdCha 
      Caption         =   "|<"
      Enabled         =   0   'False
      Height          =   255
      Index           =   0
      Left            =   6360
      TabIndex        =   30
      Top             =   2160
      Width           =   495
   End
   Begin VB.CommandButton cmdCha 
      Caption         =   ">|"
      Enabled         =   0   'False
      Height          =   255
      Index           =   3
      Left            =   7665
      TabIndex        =   29
      Top             =   2160
      Width           =   495
   End
   Begin VB.CommandButton cmdCha 
      Caption         =   ">"
      Enabled         =   0   'False
      Height          =   255
      Index           =   2
      Left            =   7305
      TabIndex        =   28
      Top             =   2160
      Width           =   375
   End
   Begin VB.CommandButton cmdCha 
      Caption         =   "<"
      Enabled         =   0   'False
      Height          =   255
      Index           =   1
      Left            =   6840
      TabIndex        =   27
      Top             =   2160
      Width           =   375
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "关闭"
      Height          =   375
      Left            =   7320
      TabIndex        =   26
      Top             =   1200
      Width           =   975
   End
   Begin VB.CommandButton cmdFind 
      Caption         =   "查找"
      Height          =   375
      Left            =   6000
      TabIndex        =   25
      Top             =   1200
      Width           =   975
   End
   Begin VB.CommandButton CmdModify 
      Caption         =   "修改"
      Height          =   375
      Left            =   7320
      TabIndex        =   24
      Top             =   720
      Width           =   975
   End
   Begin VB.CommandButton cmdRef 
      Caption         =   "清空"
      Height          =   375
      Left            =   6000
      TabIndex        =   23
      Top             =   720
      Width           =   975
   End
   Begin VB.CommandButton CmdDel 
      Caption         =   "删除"
      Height          =   375
      Left            =   7320
      TabIndex        =   22
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "增加"
      Height          =   375
      Left            =   6000
      TabIndex        =   21
      Top             =   240
      Width           =   975
   End
   Begin VB.TextBox txtAddress 
      Height          =   270
      Left            =   960
      TabIndex        =   20
      Top             =   1760
      Width           =   7455
   End
   Begin VB.OptionButton Opt2 
      Caption         =   "所有借过的书"
      Height          =   300
      Left            =   2760
      TabIndex        =   18
      Top             =   2160
      Width           =   1455
   End
   Begin VB.OptionButton Opt1 
      Caption         =   "现在借着的书"
      Height          =   255
      Left            =   1200
      TabIndex        =   17
      Top             =   2160
      Value           =   -1  'True
      Width           =   1575
   End
   Begin VB.TextBox txtJoin 
      Height          =   270
      Left            =   3840
      TabIndex        =   16
      Top             =   1300
      Width           =   1815
   End
   Begin VB.TextBox txtBirth 
      Height          =   270
      Left            =   960
      TabIndex        =   15
      Top             =   1300
      Width           =   1815
   End
   Begin VB.TextBox txtCla 
      Height          =   270
      Left            =   3840
      TabIndex        =   14
      Top             =   920
      Width           =   1815
   End
   Begin VB.TextBox txtGre 
      Height          =   270
      Left            =   960
      TabIndex        =   13
      Top             =   920
      Width           =   1815
   End
   Begin VB.TextBox txtG 
      Height          =   270
      Left            =   3840
      TabIndex        =   12
      Top             =   560
      Width           =   1815
   End
   Begin VB.TextBox txtName 
      Height          =   270
      Left            =   3840
      TabIndex        =   11
      Top             =   200
      Width           =   1815
   End
   Begin VB.TextBox txtNum 
      Height          =   270
      Left            =   960
      MaxLength       =   8
      TabIndex        =   10
      Top             =   200
      Width           =   1815
   End
   Begin MSFlexGridLib.MSFlexGrid flx 
      Height          =   2055
      Left            =   0
      TabIndex        =   8
      Top             =   2880
      Width           =   8535
      _ExtentX        =   15055
      _ExtentY        =   3625
      _Version        =   393216
      Cols            =   7
      FocusRect       =   2
      MergeCells      =   1
      AllowUserResizing=   1
   End
   Begin VB.Label Label13 
      AutoSize        =   -1  'True
      Caption         =   "罚款"
      Height          =   180
      Left            =   2520
      TabIndex        =   37
      Top             =   2520
      Width           =   360
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      Caption         =   "本"
      Height          =   180
      Left            =   1440
      TabIndex        =   36
      Top             =   2520
      Width           =   180
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      Caption         =   "借书"
      Height          =   180
      Left            =   360
      TabIndex        =   34
      Top             =   2520
      Width           =   360
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "住 址"
      Height          =   180
      Left            =   120
      TabIndex        =   19
      Top             =   1800
      Width           =   540
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "借书情况"
      Height          =   180
      Left            =   120
      TabIndex        =   9
      Top             =   2160
      Width           =   720
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "入学日期"
      Height          =   180
      Left            =   2880
      TabIndex        =   7
      Top             =   1320
      Width           =   720
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      Caption         =   "籍 贯"
      Height          =   180
      Left            =   2880

⌨️ 快捷键说明

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