frmteacherinfo.frm

教学管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmTeacherInfo 
   Caption         =   "教师基本信息"
   ClientHeight    =   6600
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8685
   Icon            =   "frmTeacherInfo.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6600
   ScaleWidth      =   8685
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      Caption         =   "基本信息"
      Height          =   2655
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   8295
      Begin VB.Label Label1 
         Caption         =   "姓名:"
         Height          =   255
         Left            =   480
         TabIndex        =   12
         Top             =   360
         Width           =   495
      End
      Begin VB.Label lblName 
         Caption         =   "姓名:"
         Height          =   255
         Left            =   1080
         TabIndex        =   11
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label2 
         Caption         =   "出生年月:"
         Height          =   255
         Left            =   3720
         TabIndex        =   10
         Top             =   360
         Width           =   975
      End
      Begin VB.Label lblBirth 
         Caption         =   "出生年月:"
         Height          =   255
         Left            =   4800
         TabIndex        =   9
         Top             =   360
         Width           =   1935
      End
      Begin VB.Label Label4 
         Caption         =   "学号:"
         Height          =   255
         Left            =   480
         TabIndex        =   8
         Top             =   840
         Width           =   495
      End
      Begin VB.Label lblNO 
         Caption         =   "学号:"
         Height          =   255
         Left            =   1080
         TabIndex        =   7
         Top             =   840
         Width           =   2295
      End
      Begin VB.Label Label6 
         Caption         =   "性别:"
         Height          =   255
         Left            =   4080
         TabIndex        =   6
         Top             =   840
         Width           =   495
      End
      Begin VB.Label lblSex 
         Caption         =   "性别:"
         Height          =   255
         Left            =   4800
         TabIndex        =   5
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label8 
         Caption         =   "家庭住址:"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   1320
         Width           =   855
      End
      Begin VB.Label lblAdress 
         Caption         =   "家庭住址:"
         Height          =   255
         Left            =   1080
         TabIndex        =   3
         Top             =   1320
         Width           =   6855
      End
      Begin VB.Label Label10 
         Caption         =   "备注:"
         Height          =   255
         Left            =   480
         TabIndex        =   2
         Top             =   1800
         Width           =   495
      End
      Begin VB.Label lblOther 
         Caption         =   "备注:"
         Height          =   615
         Left            =   1080
         TabIndex        =   1
         Top             =   1800
         Width           =   6975
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   7320
      Top             =   5400
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTeacherInfo.frx":0BF2
            Key             =   "Find"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTeacherInfo.frx":17F4
            Key             =   "New"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTeacherInfo.frx":23F6
            Key             =   "Make"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTeacherInfo.frx":36D8
            Key             =   "Delete"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTeacherInfo.frx":486A
            Key             =   "Exit"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   660
      Left            =   0
      TabIndex        =   13
      Top             =   0
      Width           =   8685
      _ExtentX        =   15319
      _ExtentY        =   1164
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      AllowCustomize  =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Find"
            ImageKey        =   "Find"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "New"
            ImageKey        =   "New"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Make"
            ImageKey        =   "Make"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Delete"
            ImageKey        =   "Delete"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Exit"
            ImageKey        =   "Exit"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmTeacherInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsStudent As New ADODB.Recordset
Dim rsDeptment As New ADODB.Recordset
Dim rsTeacher As New ADODB.Recordset
Dim rsCourse As New ADODB.Recordset
Dim sql As String


Private Sub Form_Load()
    'cn.OpenDB
    'UserNO = "001"
'    rsStudent.CursorLocation = adUseClient
'    rsStudent.CursorType = adOpenStatic
'    rsDeptment.CursorLocation = adUseClient
'    rsDeptment.CursorType = adOpenStatic
'    rsTeacher.CursorLocation = adUseClient
'    rsTeacher.CursorType = adOpenStatic
'    rsCourse.CursorLocation = adUseClient
'    rsCourse.CursorType = adOpenStatic
    '向界面添加基本信息
    sql = "select * from teacherinfo where teano = '" + UserNO + "'"
    cn.exeSQL sql, rsStudent, False
    Set lblName.DataSource = rsStudent
    lblName.DataField = "teaname"
    Set lblBirth.DataSource = rsStudent
    lblBirth.DataField = "teabirth"
    Set lblSex.DataSource = rsStudent
    lblSex.DataField = "teasex"
    Set lblOther.DataSource = rsStudent
    lblOther.DataField = "teaother"
    Set lblAdress.DataSource = rsStudent
    lblAdress.DataField = "teaprofessional"
    Set lblNO.DataSource = rsStudent
    lblNO.DataField = "teano"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "Exit"
            Unload Me
    End Select
End Sub