grid控件.pptVIP

面向对象程序设计 RecordSourceType属性说明： 0-表 在表格中显示.dbf表文件的数据 （通过设置RecordSource属性或通过表单的init事件或命令按钮的click事件导入数据源） 1-别名在表格中显示.dbf表文件的所有字段 （添加数据环境时默认为1,通过表单的init事件或命令按钮的click事件导入数据源） 2-提示 通过”打开”对话框,选择表格的数据源 3-查询 使用查询文件将查询结果放入表格 4-SQL 使用SQL语句将查询结果放入表格 RecordSource属性说明： RecordSource属性为字符型（代码中要用引号）： 例1：在表格中显示学生表的记录(表类型) thisform.grid1. RecordSourceType=0 thisform.grid1. RecordSource=“student.dbf” 例2：在表格中显示学生表的记录(别名类型) 先将studen表添加到数据环境中,再写form.init事件代码: thisform.grid1.recordsource=student“ 注意:别名类型一般通过数据环境设置,除非表已打开. RecordSource属性说明： RecordSource属性为字符型（代码中要用引号）： 例: thisform.grid1. RecordSource=“查询1.qpr” thisform.grid1. RecordSource=“SQL--- 语句” 建立一个表单，表单文件名和表单控件名均为myform_c，表单标题为“职工订单信息”，表单界面如图所示，共有三个文本为职工号(Label1)、姓名(Label2)和性别(Label3)的标签，还有三个对应的文本框Text1、Text2和Text3，和一个表格控件Grdorders。其它功能如下： 1. 程序运行时，在文本框Text1中输入一个职工号的 值，并单击DO(Command1)按钮，然后在Text2文本 框中显示职工的姓名，在Text3文本框中显示职工 的性别，在表格控件(Grdorders)中显示该职工的 订单(orders表)的信息。 2. 单击Close命令按钮(Command2)关闭表单。 注意：在表单设计器中将表格控件Grdorders的数据源 类型设置为SQL语句。 Thisform.Caption= “职工订单信息” Thisform.Name=“myform_c” Thisform.Label1.Caption=“职工号” Thisform.Label2.Caption=“姓名” Thisform.Label3.Caption=“性别 ” Thisform.Grid1.Name = Grdorders Thisform. Grdorders.RecordSourceType =“4－SQL说明” Thisform.Command2.Caption=“DO” Thisform.Command2.Caption=“Close” Command1_Click Close all zgh=ALLTRIM(ThisForm.Text1.Value) use employee locate for 职工号=zgh 查找定位(P25) IF !EOF() thisform.text2.value=姓名 thisform.text3.value=性别 thisform.Grdorders.Recordsource=; select * from orders ; where alltrim(职工号)==zgh ; into cursor lsb“ ELSE WAIT “没找到!” window time 3 等待3秒 endif Command2_Click Thisform.Release 在考生文件夹下，打开SELLDB数据库，完成如下综合应用： 创建一个标题名为部门销售查询、表单名为Form1，文件名为XS的表单，如下图所示。 表单要求如下：在该表单中设计两个标签、两个文本框、一个表格和两个命令按钮。 1. 两个标签对象标题文本分别为部门号(Label1)和年度(Label2)；两个文本框分别用于输入部门号(Text1)和年度(Text2)；表格控件用于显示查询结果(Grid1)。 2. 两个命令按钮的功能如下： ⑴ “查询”按钮(Command1)：在该按钮的Click事件中编写程序，根据输入的部门号和年度，在表格控件中显示：该部门销售的“商品号”、“商品名”、“一季度利润”、“二季度利润”、“三季度利润”和“四季度利润”，将查询结果存储到以“xs+部门号”为名称