【学生信息管理系统】优化篇（三）

No.1只让一个窗体显示

这种方法不推荐使用，比较繁琐，另外还出现了一个Bug，无论第一个窗体显示什么，都会出现“没有记录”，继续点击其他的窗体则无误
No.2文本框禁止粘贴功能
1、直接禁止

2、间接禁止
在文本框获得焦点的时候清空剪切板（有待研究）
No.3 MSFlexGrid显示一行
With myFlexgrid .Rows = 1说明总行数只有一行，而MSFlexGrid1从第0行开，第0行即你看到第一行
故首先设置MSFlexGrid属性行为1，固定行和固定列为0，然后如下图

     With myFlexgrid
        .CellAlignment = 4
        .TextMatrix(0, 0) = "考试编号"
        .TextMatrix(0, 1) = "学号"
        .TextMatrix(0, 2) = "姓名"
        .TextMatrix(0, 3) = "班号"
        .TextMatrix(0, 4) = "课程名称"
        .TextMatrix(0, 5) = "分数"

    End With

No.4修改信息无记录时关闭窗体

    Private Sub modifycinfoMenu_Click()
    Dim txtSQL As String
    Dim MsgText As String
    txtSQL = "select * from class_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF And mrc.BOF Then
    MsgBox "当前没有记录，请添加记录后再修改！", vbOKOnly + vbExclamation, "警告"
    Exit Sub
    End If
    frmModifyclassinfo.Show

End Sub

No.5MSFlexGrid显示全部日期

    With myFlexgrid     '初始化flexgrid控件的行标题
        .CellAlignment = 4  'flexAlignCenter
        .ColWidth(3) = 1130
        .ColWidth(6) = 1130