学生管理系统Bug修改--Combo.AddItem 的运用

软件名称：学生管理系统

目标：发现其中的bug并且改正

时间：2010-8-1

修改者：姚双双

 

Bug一：（frmAddSInfo）添加学籍信息时，班号comboClassNo不可直接输入，应首先判断是否有班级信息。

 

Bug描述：

A．添加学籍信息的时候，班号comboClassNo的AddItem内容为空。此时，我已添加3条学籍信息，班级信息未添加。

---

修改：把”comboClassNo.AddItem mrc!class_No”改为“comboClassNo.AddItem mrc!student_No”

---

B．问题貌似解决，comboClassNo中自动添加了班号，可是，问题又出来了。我有两个1班的学生，一个2班的学生，comboClassNo中显示了两个1，一个2。

---

分析：然后知道，原来学籍信息和班级信息是有关联的，frmAddSInfo.Show的时候应先判断是否存在班级信息，然后在决定是否加载窗体。

---

修改a：我首先在frmAddSInfo的Form_Load中修改。

txtSQL = "Select * From class_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.RecordCount > 0 Then For i = 1 To mrc.RecordCount comboClassNo.AddItem mrc!class_No mrc.MoveNext Next i Else MsgBox "请先添加班级信息！", vbOKOnly + vbExclamation, "警告" frmAddClassInfo.Show frmAddSInfo.Hide End If

运行结果：班级信息无信息，单击菜单“添加学籍信息”， MsgBox "请先添加班级信息！"，同时显示“添加学籍”与“添加班级”2个窗口，可我想要的结果是只显示“添加班级”。

---

分析：frmMain中mnuAddSInfo_Click()，即frmAddSInfo.Show，然后运行frmAddSInfo的Form_Load。因已触动mnuAddSInfo的Click事件，frmAddSInfo必定会加载，而且是在Form_Load运行完之后加载，因此frmAddSInfo.Hide无效。

---

修改b：绕过Form_Load，在frmAddSInfo.Show之前判断。

（frmMain：）

Private Sub mnuAddSInfo_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As ADODB.Recordset txtSQL = "Select * From class_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.RecordCount = 0 Then MsgBox "请先添加班级信息！", vbOKOnly + vbExclamation, "警告" frmAddClassInfo.Show frmAddSInfo.Visible = False Else frmAddSInfo.Show End If End Sub

运行结果：班级信息无信息，单击菜单“添加学籍信息”， MsgBox "请先添加班级信息！"，显示添加班级信息。添加成绩时，也应先判断是否存在课程信息。同理。