,设置 commandgroup1 的 button count=3,command1 的 caption=”粗体“,其他两个为斜体和下划线→ 分别编写粗体的 click 代码为 thisform..text1.fontbold=.t., 斜体的 click 代码为 thisform..text1.fontitalic=.t., 下划线的 click 代码为 thisform..text1.fontunderline=.t.,→添加命令按钮设置 caption=”关闭 “,forecolor=0,0,255;click 事件代码为 thisform.release→运行表单。 4.新建表单以 jlyzp 为名保存,将 caption=”简历与照片“→单击表单设计器 中的数据环境按钮,选择 xsdj.dbf 数据表,确定→单击页框控件工具,在表单 上拖出页框→设置 pageframe1 的 activepage=1→在 pageframe1 上右击\编辑→ 单击 page1 页面设 caption=”查看简历“→单击 page2 页面设 caption=”查看 照片“→在页框编辑状态, 在查看简历页面上添加标签控件, caption=”“, forecolor=0,0,255→在查看简历页面上添加一个文本框控件,设置 backcolor=0,255,0;controlsource=”.xsdj “→在查看简历页面上添 加一个编辑框控件,设置 backcolor=0,255,0;controlsource=”.xsdj 简历 “→在查看简历页面上添加四个命令按钮控件,command1.caption=”表头“; 其他三个分别为上一个,下一个,表尾→分别编写 click 代码 表头代码 go top thisform.refresh 上一个代码 skip –1 if bof() go top endif thisform.refresh 下一个代码 skip
if eof() go bottom endif thisform.refresh 表尾代码 go bottom thisform.refresh 运行表单 5.在查看照片页面上添加图像控件,设置 stretch=”2-变比填充“;picture= 某图片 6.创建一个表单以 bjycx.scx 文件名保存,将
caption 属性设为”编辑与查 询”→单击表单设计器中的数据环境工具,选 xsdj.dbf 表,确定→右击数据环境 设计器的窗口\添加表.cxjg.dbf→单击页框工具,在表单上拖动出页框,设置 pageframe1 的 activepage=1;在 pageframe1 上右击\编辑;单击 page1 页面,设置 caption=编辑;单击 page2 设 caption=查询→单击列表框控件按钮在表单上拖出
列表框→右击列表框\生成器.选 xsdj 表中的字段,确定→双击列表框,在过 程下拉列表框编写 click 事件代码 n=thisform.pageframel.page1.list1.listindex go n thisform.refresh →单击标签工具在表单上创建标签并复制出另外两个,设置 label1.caption=’ ’;label1.forcolor=0,0,255;另两个分别为和性别→单击文本框工具, 拖出一个文本框,设 text1vbackcolor=0,255,0;text1.controlsource=”xsdj. ”; . text2vbackcolor=0,255,0;text2.controlsource=”xsdj.”; text3vbackcolor=0,255,0;text3.controlsource=”xsdj.性别”;→单击选项 工具在表单上拖出选项组,设置 bottoncount=2;value=1;option1.caption=” 男”; option2.caption=”女”→定义选项控件的 click 事件,判断按钮选中的 值,并将选项按钮组的 value 值赋给 text3.value,代码如下 do case case this.value=1 thisform.pageframe1.page1.text3.value=”男” case this.value=2 thisform.pageframe1.page1.text3.value=”女” end case →单击命令按钮组工具拖出控件,设置属性 commandgroup1.buttoncount=2 commandgroup1mand1.caption=”添加” commandgroup1mand2.caption=”删除”→定义添加按钮的 click 事件代码 append blank thisform.refresh →定义删除按钮的事件代码 delete
thisform.refresh→运行表单观察运行结果→在查询页面上添加,性别,学 号三个标签→在
查询页面上添加,性别,三个文本框→在查询页面上添 加表格控件,右击表格\生成器,选定全部字段,确定.→在查询页面上添加命令按 钮,设 command1.caption=”查询”定义 click 事件代码 x=”.t..” if not empty(thisform.pageframe1.page2.text1.value) x=