大学生奖助学金管理信息系统数据库的设计与实现(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 '使各个按钮生效