数据库电子教案第18讲.pptVIP

第18讲 表单设计（4） 18.1 编辑框、图像、ActiveX控件和ActiveX绑定控件 18.1.1 编辑框(EditBox) 其属性很多与文本框相同，比较重要的有： (1) ReadOnly属性 (2) ScrollBars属性 指定编辑框是否具有滚动条。默认值为2，包含垂直滚动条，设为0,则无滚动条。 (3) SelStart属性 返回用户在编辑框中所(要)选文本的起始点或插入点位置。请注意，编辑框起始位置的SelStart值为0，而不是1。 (4) SelLength属性 返回用户在控件的文本输入区中所(要)选定字符的数目。 (5) SelText属性 返回用户编辑区内选定的文本，若未选定，则返回空串。以上三属性常配合使用。 (6) HideSelection属性 指定当编辑框失去焦点(没得到焦点)时，选定文本的显示状态。默认值为.T.。 *【例18.1】根据关键词的查询和修改。学生表(xsb)的简况字段，记录有奖惩评语等情况，文字可能很多，查找更为困难，需要删除、插入、替换的情况也经常发生。为此，建立一个根据关键词进行查询和修改的表单，表单如图18.1所示，存储文件名为gjccx。具体步骤如下： (1)新建表单form1，设置其caption数型为： “关键词查询”，其init代码为： public st,s st= s=0 (2)添加标签、文本框label1、label2、 text1、text2，两个标签标题为“查找” 和“替换为”； Text1的lostfocus代码为： st=trim(thisform.text1.value) 说明：本例题可作为自学 (3)右击表单空白处，进入数据环境，加入xsb。将其姓名、照片、简况字段拖入表单，将自动形成的“照片”、“简况”标签删除。将姓名设置为＂只读＂，即　readonly=.T. “照片”设置为不可用，即： 　　enabled=.F. (4)添加命令按钮command1- command7， 其标题依次是：“查找”、“替换”、 “首记录”、“上一条”、“下一条”、 “尾记录”、“退出”。 (5)添加各命令按钮的click代码： “查找”的click代码： s=s+1 wz=at(st,thisform.edt简况.value,s) if wz0 thisform.edt简况.selstart=wz-1 thisform.edt简况.sellength=len(st) endif “替换”的 click代码： thisform.edt简况.seltext=thisform.text2.value “首记录”的click代码： go top thisform.refresh “上一条” 的 click代码： if not bof() skip -1 thisform.refresh endif “下一条” 的 click代码： if not eof() skip thisform.refresh else skip -1 messagebox(“已到文件尾！”,64,‘提示’) endif “尾记录”的click代码： go bott thisform.refresh “退出”的click代码： thisform.release 18.1.2 图像(Image) 图像可以向表单添加照片、图画等。其主要属性是： 透明性(backstyle),取1，默认，不透明；0，透明。边框样式(borderstyle)，取0，默认，无边框；1固定单线。尺寸调整(stretch)。取0，默认，剪裁；1，等比填充；2，变比填充。图像文件名(picture)。 向表单添加图像控件的方法与在报表中相同，不再赘述。 18.1.3 ActiveX控件(ActiveX Control) ActiveX控件(ActiveXControl)：其功能是向表单添加OLE对象。OLE是英文“对象连接与嵌入”的缩写。即把一个对象以连接或嵌入的方式包含在其他应用程序中。可以通过ActiveX控件在自己的程序中使用其他Windows的应用程序，如：Word，Excel等。 操作方法：单击ActiveX控件，在表单上用鼠标拖出一个矩形(带交叉线)，放开鼠标，便出现一个插入对象对话框。可以从中选择要插入的对象。 (做演示) 18.1.4 ActiveX绑定控件(ActiveX Bound Control) ActiveX绑定控件(ActiveXBoundControl)：与ActiveX控件基本相同。本控件绑定在一个通用字段上(如照片)。绑定控件是表单或报表中的一个控件，其中的内容与