结尾处添加：endfor。
第44套：下列表单fb用来设置用户的权限，根椐下列要求修改表单。 1.设置表单运行时自动居中，表单不能最大化和最小化。
2.根据组合框的RowSoureType属性值设置组合框的RowSoure属性值，使它能显示user表的username字段值。
3.已知A盘根目录下存在用户(user)表和菜单(menutable)表，user表含有用户名(username)、用户权限(userright)等字段；menutable表含有菜单名(menuname)、模块名(modulename)、权限(isright)等字段。假定user表的username字段值不重复，menutable表的modulename字段值也不重复。user表的userright字段中存放各用户能够使用的模块名列表，模块之间用逗号隔开。编制组合框的InterAetiveChange事件代码，使得当选定一个用户时，调用组合框的Init事件代码，使得表格中显示该用户的权限。
4.添加\重置\命令按钮(如图2所示)，对象名为CmdReset，并为之编写Click事件代码，单击该按钮时，所有模块的权限都不选中(即所有的复选框均不选中)。 完成上述修改后运行表单，屏幕显示如图2所示。 图2
答案：操作步骤：
(1）设置表单的AutoCenter属性为：.T.， MaxButton和MinButton属性均为：.F.。
(2）在表单中选择组合框控件，在\属性\窗口中设置组合框的RowSource属性为：user.usename。
(3）双击组合框对象，在\过程\下拉列表中选择\选项，并添加如下代码：this.init()。 (4）向表单添加一个命令按钮，在\属性\窗口中修改命令按钮的Name属性值为：CmdReset，Caption属性为：重置。双击\重置\命令按钮，在Click事件中添加如下代码：update menutable set isright = .F.。
第45套：表单fa用来设置用户的权限，根椐下列要求修改表单。 1.将表单的标题设置为\权限设置\。
2.将表格的前两列数据改成只读但能获得焦点，且将表格设置为只显示垂直滚动条。
3.已知A盘根目录下存在用户(user)表和菜单(menutable)表，user表含有用户名(username)、用户权限(userright)等字段；menutable表含有菜单名(menuname)、模块名(modulename)、权限(isright)等字段。假定user表的username字段值不重复，menutable表的modulename字段值也不重复。完善\确定\命令按钮的Click事件代码(提示：在源代码的末尾处添加一行语句)，使得选定的模块名存入user表的userright字段中，每个模块名之间用逗号隔开。
4.添加名为cmdall、标题为\全选\的命令按钮，并为之编写Click事件代码，单击该按钮时选中所有模块的权限(即将所有的复选框选中)。 完成上述修改后运行表单，屏幕显示如图2所示。
图2
答案：操作步骤：
(1）设置表单的Caption属性为：权限设置。
(2）在\属性\窗口中选择表格Grid1的Column1，设置其ReadOnly属性为：.T.，以同样的方式设置Column2的ReadOnly属性值为：.T.。调整表格Grid1的ScrollBars属性为：2-垂直。 (3）在控件面板中选择命令按钮控件，在表单中添加一个命令按钮，其Name属性为：cmdall，Caption属性为：全选，在按钮的Click事件中添加如下代码：
update user set userright = sright where username = allt(thisform.CboUserName.Value)
update menutalbe set isright = .T.