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

mrc.Fields(2) = Trim(comboSex.Text)

mrc.Fields(3) = Trim(txtBorndate.Text)

mrc.Fields(4) = Trim(comboClassNo.Text)

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.Update

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 添加班级信息窗口代码 ..............................

 << 上一页  [31] [32] [33] [34] [35] [36] [37] [38] [39] [40]  ... 下一页  >>