新Visual FoxPro程序设计项目教程 教学课件 李林孖 第10章.pptVIP

1.前期准备 应用“临时表”的设计思想，复制yxzy.dbf表结构，其文件名为yxzy_temp.dbf。 2.创建表单、数据环境及添加控件 ①创建空白表单，并将yxzy_temp.dbf添加到数据环境中，分别设置其Exclusive属性值为.T.。 ②在表单上添加2个标签Label1、Label2，2个文本框Text1、Text2，1个表格控件Grid1和1个命令按钮组Commandgroup1。 3.表单及控件属性设置 任务实施 项目9——设计系统辅助功能模块设计 任务3——创建数据字典维护模块 控件名称 属性名 属性值 控件名称 属性名 属性值 Form1 AutoCenter .T. Grid1 Rowsource yxzy_temp Form1 BorderStyle 0 Grid1 RowsourceType 1 Form1 MinButton .F. Text1 默认 默认 Form1 Closable .F. Text2 默认 默认 Form1 MaxButton .F. Commandgroup1/Command1 Caption 添加 Form1 Caption 院系专业字典维护 Commandgroup1/Command2 Caption 确定 Form1 Icon 自定 Commandgroup1/Command3 Caption 恢复 Label1 Caption 院系名称 Commandgroup1/Command4 Caption 归档 Label2 Caption 专业名称 Commandgroup1/Command5 Caption 退出 4.编写代码 （1）设置表单初始环境 设置Form1的Activate事件代码： Thisform.Text1.Setfocus Thisform.Commandgroup1.Command1.Enabled=.F. 设置Form1的Init事件代码： dd=SYS(5)+SYS(2003)+\data\yxzy.dbf SELECT yxzy_temp IF RECC()0 ZAP ENDIF APPEND FROM dd 设置Form1的Load事件代码： SET DELE OFF PUBLIC dd 任务实施 项目9——设计系统辅助功能模块设计 任务3——创建数据字典维护模块 （2）设置Grid1.AfterRowColChange的事件代码： IF This.Activerow=RECN() Thisform.Commandgroup1.Command3.Caption=删除 ELSE Thisform.Commandgroup1.Command3.Caption=恢复 ENDIF IF This.Activerow=RECN() and DELE() Thisform.Commandgroup1.Command3.Caption=恢复 ELSE Thisform.Commandgroup1.Command3.Caption=删除 ENDIF （3）命令按钮组Commandgroup1中各命令按钮的Click事件代码 设置【添加】Commandgroup1.Command1.Click事件代码： Thisform.Text1.Value= Thisform.Text2.Value= Thisform.Text1.Setfocus Thisform.grid1.refresh Thisform.Commandgroup1.Command1.Enabled=.f. Thisform.Commandgroup1.Command2.Enabled=.t. 任务实施 项目9——设计系统辅助功能模块设计 任务3——创建数据字典维护模块 设置【确定】Commandgroup1.Command2.Click事件代码： a=ALLT(Thisform.Text1.Value) b=ALLT(Thisform.Text2.Value) IF !EMPTY(a) AND !EMPTY(b) SELECT yxzy_temp LOCATE FOR ALLT(院系名称)==a AND allt(专业名称)==b IF FOUND() MESSAGEBOX(院系+a+b+专业已经存在，请重新输入！,64+0,提示信息) Thisform.Text1.Value= Thisform.Text2.Value= Thisform.Text1.Setfocus ELSE APPEND BLANK REPLACE 院系名称 WITH a REPLA