frmteaperupdate.frm

这是一个选课系统

         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   3000
      TabIndex        =   3
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "教师编号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   240
      TabIndex        =   2
      Top             =   840
      Width           =   1095
   End
   Begin VB.Image imgTitleMinimize 
      Height          =   210
      Left            =   5280
      Picture         =   "frmteaperupdate.frx":0515
      Stretch         =   -1  'True
      Top             =   120
      Width           =   210
   End
   Begin VB.Image imgTitleHelp 
      Height          =   210
      Left            =   5040
      Picture         =   "frmteaperupdate.frx":075F
      Stretch         =   -1  'True
      Top             =   120
      Width           =   210
   End
   Begin VB.Image imgTitleclose 
      Height          =   195
      Left            =   5520
      Picture         =   "frmteaperupdate.frx":09A9
      ToolTipText     =   "Close"
      Top             =   120
      Width           =   195
   End
   Begin VB.Image imgTitleMaximize 
      Height          =   195
      Left            =   4800
      Picture         =   "frmteaperupdate.frx":0BF3
      ToolTipText     =   "Maximize (Disabled)"
      Top             =   120
      Visible         =   0   'False
      Width           =   195
   End
   Begin VB.Image Imageicon 
      Height          =   315
      Left            =   1440
      Picture         =   "frmteaperupdate.frx":0E3D
      Stretch         =   -1  'True
      Top             =   480
      Width           =   315
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "修改教师个人信息"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   1800
      TabIndex        =   1
      Top             =   360
      Width           =   2040
   End
   Begin VB.Image imgWindowBottomRight 
      Height          =   450
      Left            =   1080
      Picture         =   "frmteaperupdate.frx":1707
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgWindowBottomLeft 
      Height          =   450
      Left            =   720
      Picture         =   "frmteaperupdate.frx":1E51
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgTitleMain 
      Height          =   450
      Left            =   0
      Picture         =   "frmteaperupdate.frx":259B
      Stretch         =   -1  'True
      Top             =   450
      Width           =   285
   End
   Begin VB.Image imgWindowBottom 
      Height          =   450
      Left            =   360
      Picture         =   "frmteaperupdate.frx":2CE5
      Stretch         =   -1  'True
      Top             =   480
      Width           =   285
   End
   Begin VB.Image imgTitleRight 
      Height          =   450
      Left            =   360
      Picture         =   "frmteaperupdate.frx":342F
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgTitleLeft 
      Height          =   450
      Left            =   0
      Picture         =   "frmteaperupdate.frx":3B79
      Top             =   0
      Width           =   285
   End
   Begin VB.Image imgWindowRight 
      Height          =   450
      Left            =   720
      Picture         =   "frmteaperupdate.frx":42C3
      Stretch         =   -1  'True
      Top             =   480
      Width           =   285
   End
   Begin VB.Image imgWindowLeft 
      Height          =   450
      Left            =   1080
      Picture         =   "frmteaperupdate.frx":4A0D
      Stretch         =   -1  'True
      Top             =   480
      Width           =   285
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "教师个人信息表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   120
      Width           =   1935
   End
End
Attribute VB_Name = "frmteaperupdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Dim strsql As String
  Dim rs As ADODB.Recordset
  Dim MsgText As String
Private Sub Form_Load()
  MakeWindow Me
 
  strsql = "select * from teacher  where Tno='" & user_name & "'"
  Set rs = MyDB.ExecuteSQL(strsql, MsgText)
If Not rs.EOF Then
 Label9.Caption = rs.Fields(0)
 Label11.Caption = rs.Fields(1)
 Label10.Caption = rs.Fields(2)
 Label12.Caption = rs.Fields(3)
 Text1.Text = rs.Fields(5)
 Text2.Text = rs.Fields(6)
 Text3.Text = rs.Fields(4)
 End If
rs.Close
End Sub

Private Sub imgTitleclose_Click()
    intNumField = -2
    Unload Me
End Sub

Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub SmartNetXpButton1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  strsql = "select * from teacher  where Tno='" & Label9.Caption & "'"
  Set rs = MyDB.ExecuteSQL(strsql, MsgText)
 On Error Resume Next
If Not rs.EOF Then
  rs.Update
  rs.Fields(0) = Label9.Caption
  rs.Fields(1) = Label11.Caption
  rs.Fields(2) = Label10.Caption
  rs.Fields(3) = Label12.Caption
  rs.Fields(5) = Text1.Text
  rs.Fields(6) = Text2.Text
  rs.Fields(4) = Text3.Text
   rs.Update
   MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "提示"
   Unload Me
Else
   MsgBox "你不属于教师", vbInformation + vbOKOnly, "提示"
End If
End Sub

Private Sub SmartNetXpButton2_Click()
 Unload Me
End Sub