formchange.frm

来自「vb数据库编程资料」· FRM 代码 · 共 519 行 · 第 1/2 页

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmChange 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "学籍变更情况"
   ClientHeight    =   6285
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8010
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6285
   ScaleWidth      =   8010
   StartUpPosition =   1  '所有者中心
   Begin VB.Data dataStudent 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "E:\Book Edit\VisualBasic数据库编程教程\ch12\Student.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   405
      Left            =   3360
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   $"FormChange.frx":0000
      Top             =   5640
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.ListBox lstChange 
      DataField       =   "Change"
      DataSource      =   "dataChange"
      Height          =   2940
      ItemData        =   "FormChange.frx":00B4
      Left            =   6360
      List            =   "FormChange.frx":00CA
      TabIndex        =   2
      Top             =   3240
      Width           =   1575
   End
   Begin VB.TextBox txtDesc 
      DataField       =   "Description"
      DataSource      =   "dataChange"
      Height          =   1935
      Left            =   4200
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   4200
      Width           =   2055
   End
   Begin MSComCtl2.DTPicker dtpDate 
      DataField       =   "RecDate"
      DataSource      =   "dataChange"
      Height          =   255
      Left            =   4200
      TabIndex        =   1
      Top             =   3720
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   450
      _Version        =   393216
      Format          =   23789569
      CurrentDate     =   38012
   End
   Begin VB.TextBox txtStudent 
      DataField       =   "StudentID"
      DataSource      =   "dataChange"
      Height          =   270
      Left            =   4200
      MaxLength       =   8
      TabIndex        =   0
      Top             =   3240
      Width           =   2055
   End
   Begin VB.Frame Frame1 
      Caption         =   "学生个人情况"
      Height          =   3015
      Left            =   120
      TabIndex        =   11
      Top             =   3120
      Width           =   3135
      Begin VB.Label lblMaster 
         BackColor       =   &H80000009&
         Caption         =   "班主任"
         DataField       =   "Master"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   28
         Top             =   2520
         Width           =   1800
      End
      Begin VB.Label lblClass 
         BackColor       =   &H80000009&
         Caption         =   "所在班级"
         DataField       =   "ClassName"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   27
         Top             =   2160
         Width           =   1800
      End
      Begin VB.Label lblDepart 
         BackColor       =   &H80000009&
         Caption         =   "所属院系"
         DataField       =   "DepartName"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   26
         Top             =   1800
         Width           =   1800
      End
      Begin VB.Label lblBirthday 
         BackColor       =   &H80000009&
         Caption         =   "出生日期"
         DataField       =   "Birthday"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   25
         Top             =   1440
         Width           =   1800
      End
      Begin VB.Label lblSex 
         BackColor       =   &H80000009&
         Caption         =   "性别"
         DataField       =   "Sex"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   24
         Top             =   1080
         Width           =   1800
      End
      Begin VB.Label lblName 
         BackColor       =   &H80000009&
         Caption         =   "姓名"
         DataField       =   "Name"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   23
         Top             =   720
         Width           =   1800
      End
      Begin VB.Label lblStudentID 
         BackColor       =   &H80000009&
         Caption         =   "学号"
         DataField       =   "StudentID"
         DataSource      =   "dataStudent"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   180
         Left            =   1080
         TabIndex        =   22
         Top             =   360
         Width           =   1800
      End
      Begin VB.Label Label10 
         Alignment       =   1  'Right Justify
         Caption         =   "班主任"
         Height          =   180
         Left            =   120
         TabIndex        =   21
         Top             =   2520
         Width           =   840
      End
      Begin VB.Label Label9 
         Alignment       =   1  'Right Justify
         Caption         =   "所在班级"
         Height          =   180
         Left            =   120
         TabIndex        =   20
         Top             =   2160
         Width           =   840
      End
      Begin VB.Label Label8 
         Alignment       =   1  'Right Justify
         Caption         =   "所属院系"
         Height          =   180
         Left            =   120
         TabIndex        =   19
         Top             =   1800
         Width           =   840
      End
      Begin VB.Label Label4