学生信息管理系统-问题解决

1、获得焦点

gotfocus和setfocus的区别

gotfocus是事件setfocus是方法

cmd获得焦点可以设置default属性为true 应该是设置成默认

tabindex设置焦点

2、清除记录

cls属性

3、限制用户名  密码长度

设置 maxlength属性 

4、下拉菜单信息

    下拉菜单信息设成只读

    comboBox设置为只读，不是用ReadOnly属性，comboBox没有该属性，

而是通过设置DropDownStyle为DropDownList ，

  

                 

5、信息提示   请录入信息  卸载修改窗体弹出添加窗体

6、mdi子窗体和并列的窗体这两种设置窗体的方式不同

7、学号同步变化

ok

8、程序运行慢的原因

电脑的原因，笔记本装的东西太多了

9、查询完毕，点击确定卸载窗体

unload me 

10、设置年级课程

解决“在list重复添加数据”的代码

                 Private Sub cmdAdd_Click()
                    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

           end  sub

11、修改form的名字  窗体大小 （根据属性窗口里的数据写入到form load里）

OK

12、

 

输入的的字符超过10个就会出现这样的错误提醒

解决：更改数据库里varchar字符限制

13、

2021错误

（1)      on error goto 1:

       1:

             if err=3021 then

                  msgbox"没有数据！"

             end  if

(2)    在当前没有记录的情况下，点击修改窗体里的按钮会出现大量3021错误，为了方便，咱们可以在err里加入  frame1.enable=false，如：

 if err=3021 then

                  msgbox"没有数据！"

                  frame1.enable=false

             end  if

这样，modify里的按钮就都不能用了。

14、

     师傅建议我将modify里的里的一些输入框固定一个，不能进行修改，否则添加的信息会修改的面目全非，一开始，我是用的locked属性，让locked=TRUE不能进行编辑，但是在执行代码时出现了错误，与“mrc.delete‘删除当前记录集”冲突！在控件locked=TRUE时delete不能执行！

后来我是这样做的

 Private Sub cmdEdit_Click()
    Dim mrcc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    On Error GoTo dataerr:

    cmdFirst.Enabled = False
    cmdLast.Enabled = False
    cmdPrevious.Enabled = False
    cmdNext.Enabled = False
   
    cmdUpdate.Enabled = True
    cmdCancel.Enabled = True
   
    Comboexamtype.Enabled = True
    comboClassno.Enabled = True
    comboSID.Enabled = False
    comboCourse.Enabled = True
    txtName.Enabled = False
    txtResult.Enabled = True

将comboSID.enabled设置成false.其实很简单，只是当时自己没有想到这样做，却去修改locked，不过也多学了一点知识。