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

Exit Sub

txtClassno.Text = ""

txtClassno.SetFocus

Else

mrc.MoveNext

End If

Wend

mrc.AddNew

mrc.Fields(0) = Trim(txtClassno.Text)

mrc.Fields(1) = Trim(comboGrade.Text)

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

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

mrc.Update

mrc.Close

MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息"

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

comboGrade.AddItem "初中一年级"

comboGrade.AddItem "初中二年级"

comboGrade.AddItem "初中三年级"

comboGrade.AddItem "高中一年级"

comboGrade.AddItem "高中二年级"

comboGrade.AddItem "高中三年级"

End Sub

.........................................................................................................

............................ frmAddcourseinfo 添加课程信息窗口代码 ...............................

Private Sub Command1_Click()

Dim mrc As ADODB.Recordset

Dim MsgText As String

Dim txtSQL As String

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