学生信息管理系统之优化问题

一、登录窗体文本框中内容居中显示

代码修改：

text控件的Alignment属性：

text.Alignment=0 左对齐

text.Alignment=1 右对齐

text.Alignment=2 居中对齐

属性设置：



二、设置窗体大小

可通过height和width属性设置窗体的外部高度和宽度，包括边框和标题栏。

Width = Screen.Width * 0.75  ' 设置窗体的宽度。
Height = Screen.Height * 0.75  ' 设置窗体的高度。
Left = (Screen.Width - Width) / 2   ' 在水平方向上居中显示。
Top = (Screen.Height - Height) / 2

三、MDI子窗体

一个MDI子窗体（MDI child属性为true）设计时不能对属性startupPosition进行设置，会显示无效属性值



MDI子窗体的起始位置（startupposition）是由主窗体统一控制的，多个子窗体可以平铺，层叠，排列等，不能由子窗体自己决定，因此，子窗体没有startupposition属性。

四、实时错误3021 EOF 或 BOF错误

Private Sub comboSID_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String

'通过学号查询到学生姓名
txtSQL = "select * from student_Info where student_ID='" & ComboSID.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)

**On Error GoTo 1:

1:

If Err = 3021 Then
MsgBox "无记录！"
Exit Sub
End If
txtName.Text = mrc!student_Name
End Sub**

进行错误处理：

当遇到错误时，可以直接跳过该错误，直接进行下一步，以便于程序顺利进行，在代码中添加错误处理，问题便可迎刃而解～

五、修改myFlexgrid表格底色

选中表格控件右击属性，打开属性页，设置颜色属性为backcolor，调色板为窗口背景，这时表格底色全部就都变为白色了。



六、str2$ 未定义



添加语句：

dim str2$ as string

将str2$ 作为一个变量处理，就运行不会报错了，如果还有其他高见请赐教!

七、修改窗体当点击修改时才可以修改，否则只能查看

txtclassno.Enabled = False
combograde.Enabled = False
txtdirector.Enabled = False
txtclassroom.Enabled = False

目的是使对象不响应用户生成事件。

八、解决list中重复添加数据的问题

在添加课程按钮中添加代码：

Dim i As Integer         '定义两个整型变量
Dim j As Integer
'往 listSelectcourse列表中添加课程
If listAllcourse.ListIndex <> -1 Then
listSelectcourse.AddItem           listAllcourse.List(listAllcourse.ListIndex)
End If
For i = 0 To listSelectcourse.ListCount - 1              '外循环
For j = i + 1 To listSelectcourse.ListCount             '内循环
'判断在list列表中是否有相同的数据
If listSelectcourse.List(i) = listSelectcourse.List(j) Then
listSelectcourse.RemoveItem j     '删除添加的数据
MsgBox "已有添加课程，请先删除在添加！"
Exit Sub
End If
Next j
Next i