大学生奖助学金管理信息系统数据库的设计与实现(11)

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboGender.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassno.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtPolitical.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtLife.Text) mrc.Update

MsgBox "添加学籍信息成功！", vbOKOnly + vbExclamation, "警告" mrc.Close Me.Hide End If End If End Sub

Private Sub Form_Load() Dim mrc As ADODB.Recordset Dim txtSQL, MsgText As String Dim i As Integer '为下拉列表框添加内容 comboGender.AddItem "男" comboGender.AddItem "女" txtSQL = "select * from student_Info" Set mrc = ExecuteSQL(txtSQL, MsgText) '添加内容到列表框

For i = 1 To mrc.RecordCount comboClassno.AddItem mrc.Fields(4) mrc.MoveNext Next i mrc.Close End Sub

Private Sub txtBormdate_Change() End Sub

修改学生信息

Dim mrc As ADODB.Recordset: Dim myBookmark As Variant: Dim mcclean As Boolean '判断是否修改记录

Private Sub cmdCancel_Click() If mcclean = False Then Frame2.Enabled = True '使各个按钮生效

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库大学生奖助学金管理信息系统数据库的设计与实现(11)在线全文阅读。