可视化表单设计.ppt

【例8-6】设计一个简单表单，含一个显示“欢迎使用档案管理系统”文字的标签以及“进入”、“退出”两个命令按钮控件属性事件属性值（代码）标签控件Label1Caption欢迎使用档案管理系统Command1Caption进入Command2Caption退出\QCommand1Click事件thisform.releasedoform身分验证Command1Click事件thisform.release文本框(TextBox)和编辑框(EditBox)的区别相同之处：都可以由用户直接输入数据与编辑数据，输入的数据保存在Value属性中。不同之处：文本框只能输入一行文本，编辑框可以输入多行文本（有滚动条）；文本框可以输入字符型（默认类型）、数值型、日期型和逻辑型数据，而编辑框只能输入字符型数据。要使得文本框中输入的数据为某一确定的类型，必须先设置其Value属性值为该类型的数据或通过文本框生成器设置其属性。32148.5.2文本框和编辑框添加文本框和编辑框后的主要操作：设置框中的默认值：在Value属性中设置，设置后的值要运行时才能看见。右击文本框控件或编辑框控件，从快捷菜单中选择“生成器”，然后在生成器对话框中设置其格式及与其对应的字段等。【例8-7】设计一个如图8-21所示的“日期与时间”表单，只含一个文本框，逐次单击之，即可轮流显示系统当前的日期或时间。日期格式为年月日，日期分隔符为“.”通过“文件/新建”命令建立一个空表单向表单中添加一个文本框控件设置属性：设置Form1的Caption属性为“日期与时间”123添加代码：双击表单空白处，添加Form1的Load事件代码如下：publicii=.t.4操作步骤4.修改文本框Text1的属性：FontSize为28BackStyle为15.编写文本框Text1的Click事件代码如下：ifi=.t.thisform.text1.value=date()取得当前日期thisform.text1.dateformat=12日期格式为年月日thisform.text1.datemark=.i=.f.elsethisform.text1.value=time()i=.t.endif【例8-7】设计一个如图8-22所示的表单,在职工档案表中查询指定姓氏的职工姓名，并将结果显示在编辑框中。操作要点：1.向数据环境中添加表2.创建表单，并添加2个标签控件、1个文本框控件、1个编辑框控件、2个命令按钮并修改其标题属性3.添加命令按钮的Click事件代码。其中查找按钮的代码主要功能是在表中查找与文本框中输入的姓氏相符的姓名，并将其累加到编辑框的value属性中。Form1的Activate事件代码setexactoff作用：设置字符串的非严格匹配并将光标定位到文本框中。执行时间：当表单激活时执行010302查询命令按钮代码thisform.edit1.value=xs=alltrim(thisform.text1.value)gotopk=0scanforzgda.姓名=xsthisform.edit1.value=thisform.edit1.value+zgda.姓名+chr(13)k=1endscanifk=0messagebox(职工表中无此姓氏,0,查找失败)endifthisform.text1.value=return退出命令按钮代码releasethisform共同之处：列表框(ListBox)和组合框(ComboBox)都有一个供用户选择的列表。不同之处：列表框中内容只能选择不能输入，当其内容不能完全显示时在其右边有一个滚动条。而组合框则可进行输入操作（Style属性必须为0），也可通过其右边的下拉按钮进行选择。1.列表框和组合框的区别8.5.3列表框和组合框2.列表框生成器与组合框生成器列表框与组合框控件的主要操作是添加列表内容，添加的方法可以通过各自的生成器进行。3.列表框与组合框的数据源通过修改其RowSourseType(列表内容的来源类型）和RowSourse（列表内容）属性使其与表中的字段建立关联。【例8-9】设计一个表单，将职工档案表zgda.dbf中所有记录的姓名显示在一个列表框中，当选择某一姓名后，将选择的姓名显示在一个文本框中。操作要点：1.建立一个空表单，然后添加一个标签控件、一个文本框控件和一个列表框控件2.向数据环境中添加表zgda3.修改控件的属性标签控件的Caption为“姓名”将列表框控件的Row