回复 12楼 隔壁的土豆
修改下红色部份
IF NOT USED('系统管理员数据表')
USE 系统管理员数据表 IN 0 &&修改这句
ENDIF
select 系统管理员数据表
* 用户管理.grid1.recordsource = NULL &&删除这句
if empty(thisform.text1.value)
messagebox("新用户名",48,"警告")
else
if empty(thisform.text2.value)
messagebox("密码不能为空",48,"警告")
else
if empty(thisform.text3.value)
messagebox("确认密码不能为空",48,"警告")
else
if alltrim(thisform.text2.value) <> alltrim(thisform.text3.value)
messagebox("输入的密码不一致!请重新输入",48,"警告")
thisform.text2.value = ""
thisform.text3= value = ""
thisform.text2.setfocus
else
append blank
replace 账号 with alltrim(thisform.text1.value)
replace 密码 with alltrim(thisform.text2.value)
replace 管理员 with thisform.optiongroup1.value = 1
replace 只读用户 with thisform.optiongroup1.value = 2
replace 普通用户 with thisform.optiongroup1.value = 3
replace 班级与学生档案管理 with thisform.check1.value
replace 学生缴费管理 with thisform.check2.value
replace 课程与成绩管理 with thisform.check3.value
messagebox("添加成功",48,"恭喜")
thisform.text1.value = ""
thisform.text2.value = ""
thisform.text3.value = ""
endif
endif
endif
endif
select 系统管理员数据表 &&修改这句
go top
用户管理.Refresh
[
本帖最后由 bccn0906 于 2013-11-30 10:43 编辑 ]