学生信息管理系统优化

因为这个系统可以优化的地方太多了。而且师兄师姐们也总结了很多，所以我在这里就写一些比较麻烦的吧。。大神请略过，轻虐。 一、VB 自动调整MSHFlexGrid各列列宽为最合适的宽度。 Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)    '--------------------------------------------------------------------    '功能:    '       自动调整Grid各列列宽为最合适的宽度    '参数:    '       [frmCur].........................................当前工作窗体    '       [gridCur]........................................当前要调整的Grid    '--------------------------------------------------------------------    Dim i, j As Integer  Dim dblWidth As Double      With gridCur            For i = 0 To .Cols - 1                dblWidth = 0                If .ColWidth(i) <> 0 Then                  For j = 0 To .Rows - 1                        If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then                          dblWidth = frmCur.TextWidth(.TextMatrix(j, i))                        End If                  Next                  .ColWidth(i) = dblWidth + dblIncWidth + 100                End If          Next      End With  End Sub 说明:以上模块实现MSHFlexGrid的单元格根据内容自动调整宽度. 调用方式 call AdjustColWidth(Form_Name,MSHFlexGrid_Name) 放在公共模块中,第一个自动调整宽度的过程在调用的时候需要注意窗体名称和窗体中的MSHFlexGrid控件的名称.别在A窗体调用出B窗体的控件… 二、删除模块通用代码 （部分控件代码请自行修改） Private Sub deleteCommand_Click()      mrc.MoveNext    '删除后显示下一条记录             If mrc.EOF Then                  mrc.MoveFirst                 mybookmark = mrc.Bookmark                 mrc.MoveLast                 mrc.Delete                 If mrc.EOF = mrc.BOF Then                     MsgBox "没有记录了，请关闭本窗口"                     ComboExamtype.Text = ""   '清空窗口                     ComboClassno.Text = ""                     ComboSID.Text = ""                     ComboCourse.Text = ""                     txtName.Text = ""                     txtResult.Text = ""                     cancelCommand.Enabled = False                     editCommand.Enabled = False                     deleteCommand.Enabled = False                     firstCommand.Enabled = False                     lastCommand.Enabled = False                     nextCommand.Enabled = False                     previousCommand.Enabled = False                     updateCommand.Enabled = False                     Exit Sub                 End If                 mrc.Bookmark = mybookmark                 Call viewData             Else                 mybookmark = mrc.Bookmark '做标记                 mrc.MovePrevious                 mrc.Delete                 mrc.Bookmark = mybookmark '取消标记                 Call viewData             End If End Sub 三、关于设置年级课程两个列表中内容的问题 Private Sub cmdAdd_Click()        If ListAllcourse.ListIndex >= 0 Then '将左边列表中所选元素移动到右边列表中         ListSelectcourse.AddItem ListAllcourse.Text '在右边列表中增加新元素         ListAllcourse.RemoveItem ListAllcourse.ListIndex '删除左边列表中的所选元素      End If                    With ListSelectcourse '去重         For intIndex1 = 0 To .ListCount - 1             For intIndex2 = .ListCount - 1 To intIndex1 + 1 Step -1                 If .List(intIndex2) = .List(intIndex1) Then                     .RemoveItem intIndex2                 End If             Next intIndex2         Next intIndex1      End With      cmdModify.Enabled = True End Sub