评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

学生信息管理系统(一)毕业论文(3)

2013-07-12 01:31 ext)
mrc.Fields(5) = Trim(txtTel.Text)
mrc.Fields(6) = Trim(txtRudate.Text)
mrc.Fields(7) = Trim(txtAddress.Text)
mrc.Fields(8) = Trim(txtComment.Text)
mrc.U
pdate
MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告"
mrc.Close
Me.Hide
End If
End If
End If

End Sub
Private Sub Command2_Click()

Unload Me
End Sub

Private Sub Form_Load()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim i As Integer

comboSex.AddItem "男"
comboSex.AddItem "女"
txtSQL = "select * from class_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)

For i = 1 To mrc.RecordCount
comboClassNo.AddItem mrc.Fields(0)
mrc.MoveNext
Next i

mrc.Close
End Sub
.........................................................................................................
 
............................... frmAddassinfo 添加班级信息窗口代码 ..............................

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
Dim MsgText As String