ex27_frm1.frm

一个很好的教务管理小程序

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form ex27_frm1 
   Caption         =   "VB开发程序实例"
   ClientHeight    =   5400
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6630
   LinkTopic       =   "Form1"
   ScaleHeight     =   5400
   ScaleWidth      =   6630
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text10 
      Height          =   372
      Left            =   5040
      TabIndex        =   23
      Top             =   4440
      Width           =   972
   End
   Begin VB.TextBox Text9 
      DataField       =   "语文"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   5040
      TabIndex        =   21
      Top             =   3840
      Width           =   972
   End
   Begin VB.TextBox Text8 
      DataField       =   "外语"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   5040
      TabIndex        =   20
      Top             =   3120
      Width           =   972
   End
   Begin VB.TextBox Text7 
      DataField       =   "化学"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   5040
      TabIndex        =   19
      Top             =   2280
      Width           =   972
   End
   Begin VB.TextBox Text6 
      DataField       =   "物理"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   5040
      TabIndex        =   18
      Top             =   1560
      Width           =   972
   End
   Begin VB.TextBox Text4 
      DataField       =   "系别"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   1680
      TabIndex        =   17
      Top             =   2760
      Width           =   972
   End
   Begin VB.TextBox Text3 
      DataField       =   "姓名"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   1680
      TabIndex        =   16
      Top             =   2040
      Width           =   972
   End
   Begin VB.TextBox Text2 
      DataField       =   "学号"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   1680
      TabIndex        =   15
      Top             =   1320
      Width           =   972
   End
   Begin VB.TextBox Text1 
      DataField       =   "编号"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   1680
      TabIndex        =   14
      Top             =   720
      Width           =   972
   End
   Begin VB.TextBox Text5 
      DataField       =   "数学"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   5040
      TabIndex        =   13
      Top             =   840
      Width           =   972
   End
   Begin VB.CheckBox Check2 
      Caption         =   "女"
      Height          =   372
      Left            =   1680
      TabIndex        =   12
      Top             =   4080
      Width           =   492
   End
   Begin VB.CheckBox Check1 
      Caption         =   "男"
      DataField       =   "性别"
      DataSource      =   "Data1"
      Height          =   372
      Left            =   1680
      TabIndex        =   11
      Top             =   3480
      Width           =   492
   End
   Begin VB.Data Data1 
      Align           =   2  'Align Bottom
      Caption         =   "教务数据库的Score表格"
      Connect         =   "Access"
      DatabaseName    =   "F:\实用程序\VB相关\数据库\SAMPLES\LAB27\教务.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Score"
      Top             =   5055
      Width           =   6624
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   750
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6630
      _ExtentX        =   11695
      _ExtentY        =   1323
      ButtonWidth     =   1455
      ButtonHeight    =   1217
      Wrappable       =   0   'False
      ImageList       =   "ImageList1"
      DisabledImageList=   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   8
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "第一个"
            Key             =   "First"
            Object.ToolTipText     =   "单击此按钮查看第一个记录"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "前一个"
            Key             =   "previous"
            Object.ToolTipText     =   "单击此按钮查看前一个记录"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "后一个"
            Key             =   "next"
            Object.ToolTipText     =   "单击此按钮查看后一个记录"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "最后"
            Key             =   "last"
            Object.ToolTipText     =   "单击此按钮查看最后一个记录"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加记录"
            Key             =   "add"
            Object.ToolTipText     =   "单击此按钮添加一个记录"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除记录"
            Key             =   "delete"
            Object.ToolTipText     =   "单击此按钮删除一个记录"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "find"
            Object.ToolTipText     =   "单击此按钮查查看某一记录"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭程序"
            Key             =   "exit"
            Object.ToolTipText     =   "单击此按钮查关闭程序"
            ImageIndex      =   8
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   3000
      Top             =   1440
      _ExtentX        =   794
      _ExtentY        =   794
      BackColor       =   -2147483641
      ImageWidth      =   21
      ImageHeight     =   27
      MaskColor       =   -2147483633
      UseMaskColor    =   0   'False
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   8
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ex27_frm1.frx":0000
            Key             =   "First"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ex27_frm1.frx":0714
            Key             =   "previous"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ex27_frm1.frx":0FF0
            Key             =   "Next"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ex27_frm1.frx":1724
            Key             =   "Last"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "ex27_frm1.frx":1D18
            Key             =   "Add"
         EndProperty