学生信息系统优化（二）

五、修改学籍窗体

1.修改日期控件

2.学号框、电话号码框限制。

3.为性别控件加入内容，为从班级表中加载班级信息，判断无记录情况。

Private Sub Form_Load()    comboSex.AddItem "男"    comboSex.AddItem "女"    Me.Height = 8500    Me.Width = 10000    Dim txtSQL As String    Dim MsgText As String    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    txtSQL = "select * from student_Info"    '执行查询操作    Set mrc = ExecuteSQL(txtSQL, MsgText) '得到临时表    If mrc.BOF Or mrc.EOF Then        x = MsgBox("无记录，是否先添加记录？", vbYesNo, "温馨提示")        If x = 6 Then            frmAddsinfo.Show            Unload Me        Else            Unload Me        End If    Else        mrc.MoveFirst        '显示数据        Call viewData        '记下当前记录的位置        myBookmark = mrc.Bookmark        '给标志赋初值        mcclean = True    End IfEnd Sub

4.性别、班号框不能被输入

Private Sub comboClassno_KeyPress(KeyAscii As Integer)    KeyAscii = 0End SubPrivate Sub comboSex_KeyPress(KeyAscii As Integer)    KeyAscii = 0End Sub

5.删除记录后无记录处理

Private Sub cmdDelete_Click()    '记下当前位置记录    myBookmark = mrc.Bookmark    '提示是否删除    Dim str2$    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")    '判断按钮类型    If str2$ = vbOK Then        '移动到数据集一条记录        mrc.MoveNext        '判断数据集对象是否为空        If mrc.EOF Then            '移动到数据集的第一条记录            mrc.MoveFirst            '记录当前记录的位置            myBookmark = mrc.Bookmark            '移动到最后一条记录            mrc.MoveLast             '删除记录            mrc.Delete            mrc.Bookmark = myBookmark            'Call viewData            If mrc.EOF Or mrc.BOF Then                x = MsgBox("无记录，是否添加新的记录？", vbYesNo, "温馨提示")                If x = 6 Then                    frmAddsinfo.Show                    Unload Me                Else                    Unload Me                End If            End If        Else            '记载当前位置             myBookmark = mrc.Bookmark                '移动到前一条记录                mrc.MovePrevious                '删除记录                mrc.Delete                '回到原来位置                mrc.Bookmark = myBookmark                '调用函数显示数据                'Call viewData              If mrc.EOF Or mrc.BOF Then                  x = MsgBox("无记录，是否添加新的记录？", vbYesNo, "温馨提示")                  If x = 6 Then                      frmAddsinfo.Show                      Unload Me                  Else                      Unload Me                  End If              End If       End If    Else            mrc.Bookmark = myBookmark            Call viewData    End IfEnd Sub

六、查询学籍窗体

判断有无记录

     Dim txtSQL As String    Dim MsgText As String    Dim mrc As ADODB.Recordset    'SQL语句    txtSQL = "select * from student_Info"    '执行查询操作    Set mrc = ExecuteSQL(txtSQL, MsgText) '得到临时表    If mrc.BOF Or mrc.EOF Then        x = MsgBox("无记录，是否先添加记录？", vbYesNo, "温馨提示")        If x = 6 Then            frmAddsinfo.Show            Unload Me        Else            Unload Me        Exit Sub        End If    End If

七、添加班级窗体

1.年级从表中获取

Private Sub Form_Load() Me.Height = 5000 Me.Width = 8000Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringDim i As IntegertxtSQL = "select * from gradecourse_Info"    Set mrc = ExecuteSQL(txtSQL, MsgText)For i = 1 To mrc.RecordCount        comboGrade.AddItem mrc.Fields(0)        mrc.MoveNext     Next iEnd Sub

2.年级框不能被编辑只能被选择

Private Sub comboGrade_KeyPress(KeyAscii As Integer)    KeyAscii = 0End Sub

总结：优化是一个漫长的过程需要我们倾注耐心与细心，最重要的是我们要站在不同的角度看问题。