vfp与表有关.docVIP

用建立临时关系的方式完成表单设计，要求各控件的caption属性（属性窗口）、列表框数据绑定（属性窗口）、表格控件（数据环境拖入）及表间临时关系的建立均不得在代码中进行。 学生和成绩表的临时关联建立如下图所示： Form1.Init: Set talk off List1.Interactivechange: Select 成绩 Average 成绩 to s for alltrim(学号)==alltrim(学生.学号) thisform.text1.value=s select 学生 thisform.refresh 编制一个“学生表信息查询”表单，设计界面及初始运行界面如图所示。要求有关控件的数据源的添加用代码实现，运行初始界面中的其它属性在属性窗口设置。 Form1.Init: thisform.list1.rowsourcetype=6 thisform.list1.rowsource=学生.姓名 List1.Interactivechange: thisform.text1.value=学号 thisform.text2.value=姓名 thisform.text3.value=性别 thisform.text4.value=出生年月 thisform.text5.value=奖学金 编制“学生情况查询”表单，要求各数据属性与只读属性均在属性窗口设置。 Form1.Init: thisform.setall(visible,.f.) thisform.label1.visible=.t. bo1.visible=.t. bo1.style=2 Combo1.Interactivechange: thisform.setall(visible,.t.) thsiform.refresh 编制“课程情况查询”表单，要求用数据绑定的方法实现，初始界面打开时，列表框(List1)中显示课程名，文本框中显示课程号和课程名等信息。 Form1.Init: thisform.caption=课程情况查询 thisform.list1.rowsourcetype=6 thisform.list1.rowsource=课程.课程名 thisform.text1.controlsource=课程号 thisform.text2.controlsource=课程名 thisform.text3.controlsource=学时数 thisform.text4.controlsource=学分数 List1.Interactivechange: Thisform.refresh 编制如下表单，要求各数据控件为从数据环境拖入，计时器属性、控件的只读属性由代码设定。 Form1.Init: erval=1000 thisform.setall(readonly,.t.,textbox) thisform.chk性别.readonly=.f. thisform.edt简历.readonly=.t. Timer1.Timer: skip if eof() go top endif thisform.refresh 编制如下表单，要求各数据控件为从数据环境拖入。 Form1.Init: thisform.setall(readonly,.t.,textbox) thisform.chk性别.readonly=.f. thisform.edt简历.readonly=.t. Command1.Click: go top //单击“首记录”按钮后，“首记录”和“前翻”按钮灰化 mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. this.enabled=.f. thisform.refresh Command2.Click: skip -1 if bof() mand1.enabled=.f. this.enabled=.f. endif mand3.enabled=.t. mand4.enabled=.t. thisform.refresh Command3.Click: skip if eof() mand4.enabled=.f. this.enabled=.f. endif mand1.enabled=.t. mand2.enabled=.t. thisform.refresh Command4.Click: go bottom mand3.enabled=.f. this.enabled=.f. mand1.enabled=.t. mand2.enabl