学生信息管理系统

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

首页上一页 1 2 3 下一页尾页 3/3/3

学生信息管理系统(三)