以下是引用zjy2016在2016-9-19 12:37:25的发言:
Lc编号=thisform.txt教师编号.value
Lc姓名=thisform.txt教师姓名.value
Lc密码=thisform.txt密码.value
Lc部门=thisform.txt部门.value
Lc身份=thisform.txt身份.value
Lc权限=thisform.txt权限.value
Lc备注=thisform.txt备注.value
SELECT 教师表
DO case
CASE 用户按钮状态=1
INSERT INTO 教师表(教师编号,教师姓名,密码,部门,身份,权限,备注)values(Lc编号,Lc姓名,Lc密码,Lc部门,Lc身份,Lc权限,Lc备注)
CASE 用户按钮状态=2
replace 教师表.编号 with thisform.txtLc编号.value, 教师表.姓名 with thisform.Lc姓名.value,教师表.密码 with thisform.Lc密码.value,教师表.部门 with thisform.Lc部门.value,教师表.身份 with thisform.Lc身份.value,教师表.权限 with thisform.Lc权限.value,教师表.备注 WITH thisform.Lc备注.Value
ENDCASE
用户按钮状态=0
修改后的代码
Lc编号=thisform.txt教师编号.value
Lc姓名=thisform.txt教师姓名.value
Lc密码=thisform.txt密码.value
Lc部门=thisform.txt部门.value
Lc身份=thisform.txt身份.value
Lc权限=thisform.txt权限.value
Lc备注=thisform.txt备注.value
SELECT 教师表
DO case
CASE 用户按钮状态=1
INSERT INTO 教师表(教师编号,教师姓名,密码,部门,身份,权限,备注)values(Lc编号,Lc姓名,Lc密码,Lc部门,Lc身份,Lc权限,Lc备注)
CASE 用户按钮状态=2
replace 教师表.编号 with thisform.txtLc编号.value, 教师表.姓名 with thisform.Lc姓名.value,教师表.密码 with thisform.Lc密码.value,教师表.部门 with thisform.Lc部门.value,教师表.身份 with thisform.Lc身份.value,教师表.权限 with thisform.Lc权限.value,教师表.备注 WITH thisform.Lc备注.Value
ENDCASE
用户按钮状态=0
修改后的代码
“用户按钮状态”也可以定义为全局变量,否则在别的事件中会出现错误信息(变量:用户按钮状态 找不到)
坚守VFP最后的阵地