formquery.frm

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

      End
      Begin VB.Label Label9 
         Alignment       =   1  'Right Justify
         Caption         =   "所在班级"
         Height          =   180
         Left            =   3120
         TabIndex        =   10
         Top             =   1080
         Width           =   840
      End
      Begin VB.Label Label10 
         Alignment       =   1  'Right Justify
         Caption         =   "班主任"
         Height          =   180
         Left            =   3120
         TabIndex        =   9
         Top             =   1440
         Width           =   840
      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        =   8
         Top             =   360
         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        =   7
         Top             =   720
         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        =   6
         Top             =   1080
         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            =   4080
         TabIndex        =   5
         Top             =   360
         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            =   4080
         TabIndex        =   4
         Top             =   720
         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            =   4080
         TabIndex        =   3
         Top             =   1080
         Width           =   1800
      End
      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            =   4080
         TabIndex        =   2
         Top             =   1440
         Width           =   1800
      End
   End
   Begin VB.Data dataStudent 
      Caption         =   "基本信息"
      Connect         =   "Access"
      DatabaseName    =   "E:\Book Edit\VisualBasic数据库编程教程\ch12\Student.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   405
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   $"FormQuery.frx":2D26
      Top             =   1440
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.Label Label7 
      Caption         =   "请输入学号"
      Height          =   180
      Left            =   120
      TabIndex        =   19
      Top             =   120
      Width           =   1800
   End
End
Attribute VB_Name = "frmQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdQuit_Click()
  Unload Me
End Sub

Private Sub Form_Load()
  dataStudent.DatabaseName = App.Path & "\Student.mdb"
  dataChange.DatabaseName = App.Path & "\Student.mdb"
  dataReward.DatabaseName = App.Path & "\Student.mdb"
  dataPunish.DatabaseName = App.Path & "\Student.mdb"

  txtStudent.Text = ""
End Sub

Private Sub txtStudent_Change()
  strSQL = "SELECT Student.*, ClassName, DepartName, Master FROM Student, Class, Department "
  strSQL = strSQL & " WHERE Student.ClassID = Class.ClassID"
  strSQL = strSQL & " AND Class.DepartID = Department.DepartID"
  strSQL = strSQL & " AND StudentID='" & txtStudent.Text & "'"
  
  dataStudent.RecordSource = strSQL
  dataChange.RecordSource = "SELECT * FROM Change WHERE StudentID='" & txtStudent.Text & "'"
  dataReward.RecordSource = "SELECT * FROM Reward WHERE StudentID='" & txtStudent.Text & "'"
  dataPunish.RecordSource = "SELECT * FROM Punish WHERE StudentID='" & txtStudent.Text & "'"
  dataStudent.Refresh
  dataChange.Refresh
  dataReward.Refresh
  dataPunish.Refresh
End Sub