1、获得焦点
Private Sub cmdAdd_Click()
If listAllcourse.ListIndex <> -1 Then
'判断在list列表中是否有相同的数据
end sub
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:
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
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,不过也多学了一点知识。