学生信息管理系统毕业论文和原代码 第41页

End Sub

Private Sub comboSID_Click()

Dim mrc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

txtSQL = "select * from student_Info where student_ID = '" & comboSID.Text & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

txtName.Text = mrc!student_Name

mrc.Close

End Sub

Private Sub Form_Load()

Dim mrc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

Flagselect = False

txtSQL = "select * from class_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

While (mrc.EOF = False)

comboClassno.AddItem mrc!class_No

mrc.MoveNext

Wend

mrc.Close

comboExamtype.AddItem "2000期中"

comboExamtype.AddItem "2000期末"

comboExamtype.AddItem "2001期中"

comboExamtype.AddItem "2001期末"

End Sub

.........................................................................................................

.......................... frmModifyuserinfo 修改用户信息窗口代码 ................................

Private Sub cmdCancel_Click()

Unload Me

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>