06年秋设计表单.docVIP

四、设计表单（10分） 练习1 下列表单FORMA用来设置用户的权限，根椐下列要求修改表单。 1．将表单的标题设置为“权限设置”。 2．将表格的前二列数据改成只读但能获得焦点，且将表格设置为只显示垂直滚动条。 3．已知A盘根目录下存在用户（USER）表和菜单（MENUTABLE）表，USER表含有用户名 (username) 、用户权限 (userright)等字段；MENUTABLE表含有菜单名 (menuname)、模块名 (modulename)、权限（isright）等字段。假定USER表的username字段值不重复，MENUTABLE表的modulename字段值也不重复。完善“确定”按钮的Click事件代码（提示：在原代码的末尾处添加一行语句），使得选定的模块名存入USER表的userright字段中，每个模块名之间用逗号隔开。 4．添加名为cmdall、标题为“全选”的命令按钮，并为之编写Click事件代码：单击该按钮时选中所有模块的权限（即将所有的复选框选中）。 完成上述修改后，运行表单，界面如下图所示： 【解答】： 1.对象：表单Form1 属性：（1）标题Caption；“权限设置”； 2. 对象：列Column 属性：（1）只读ReadOnly：.T.-真； 对象：表格Grid 属性：（1）滚动条ScrollBars：2-垂直； 3. 对象：命令按钮Command1 Click事件代码： sright = SELECT menutable GO TOP DO WHILE NOT EOF() IF isright sright= sright +,+modulename ENDIF SKIP ENDDO update user set userright=sright 4. 对象：命令按钮cmdall 属性：（1）标题Caption；“全选”； Click事件代码： UPDATE menutable SET isright=.T. 练习2 下列表单FORMB用来设置用户的权限，根椐下列要求修改表单。 1．设置表单运行时自动居中，表单不能最大化和最小化； 2．根据组合框的RowSoureType属性值设置组合框的RowSoure属性值，使它能显示USER表的username字段值； 3．已知A盘根目录下存在用户（USER）表和菜单（MENUTABLE）表，USER表含有用户名 (username)、用户权限 (userright)等字段；MENUTABLE表含有菜单名 (menuname)、模块名 (modulename)、权限（isright）等字段。假定USER表的username字段值不重复，MENUTABLE表的modulename字段值也不重复。USER表的userright字段中存放各用户能够使用的模块名列表，模块之间用逗号隔开。编制组合框的InterActiveChange事件代码，使得当选定一个用户时，调用组合框的Init事件代码，使得表格中显示该用户的权限； 4．添加命令按钮“重置”（如图所示），对象名为CmdReset，并为之编写Click事件代码：单击该按钮时，所有模块的权限都不选中（即所有的复选框均不选中）。 完成上述修改后，运行表单，界面如下图所示： 【解答】： 1.对象：表单Form1 属性：（1）自动居中AutoCenter：.T.-真； （2）最大化按钮MaxButton：.F.-假； （3）最小化按钮MinButton：.F.-假； 2. 对象：组合框CboUserName 属性：（1）RowSourceType数据源类型：6-字段； （2）RowSource数据源：user.username； 3. 对象：组合框CboUserName InteractiveChange事件代码： this.init 4. 对象：命令按钮cmdReset 属性：（1）标题Caption；“重置”； Click事件代码： UPDATE menutable SET isright=.T. 练习3 表单FORMC用来进行信息项的选择。在左边列表框list1中选中一项，然后单击(按钮，则选中的项移入右边的列表框list2中，反之将右边列表框中选中的项移入左边列表框中。根据下列要求修改表单： 1．将表单的标题设置为“项目选择”，表单为模式表单，表单不能最大化和最小化； 2．完善命令按钮(的Click事件代码，使得list1中选定的项加入list2的同时，该项从list1中移去（提示：在原代码的空行处添加一行语句）； 3．为list1编写DblClick事件代码：双击列表框list1中某一项时，同样能实现将list1中该项移到list2中