1.click event:
原代码:
sort1=""
DO CASE
CASE Thisform.opt1.Value=1
sort1="cjxh"
CASE Thisform.opt1.Value=2
sort1="cjkcdh"
OTHERWISE
sort1="cjcj" &;&; 后来加
ENDCASE
set order to &;sort1 &;&; 后来加
ThisForm.Refresh()
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p44,06秋VFP05
1.list1.rowsourceType=1-值
2.(1) form1.borderstyle=2-固定对话框 (2) form1.maxbutton=.F. (3) form1.minbutton=.F.
3.list1.init event:
ThisForm.list1.ListIndex=1
4mand1.click event:
thisform.list1.dblclick
5mand1.click event的原代码:
FOR i=1 TO ThisForm.list2.ListCount
ThisForm.list2.ListIndex=1 &;&;后来加
ThisForm.list1.AddItem(ThisForm.list2.Value)
ThisForm.list2.RemoveItem(ThisForm.list2.ListIndex)
ENDFOR
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p45,2007春01卷 四 表单
1.edit1.readonly=.t.
2.edit1.controlsource=xs.jl
3bo1.style=2_下拉
列表框
4.dataenvironment.cursor3.order=xsxh
5.Grid1.afterRowColChange event:
thisform.refresh &;&;孙玫做
&;&; 或 ThisForm.Edit1.Value=xs.jl &;&;翁连做
6bo1.Interactive event:
thisform.setall("fontname",this.value)
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p47,2007春02卷四表单
1.(1)spny1.value==year(date()) (2) spnm1.value=1 (3) spnd1.value=1
2.(1)spny2.value= =year(date()) (2)spnm2.value= =month(date()) (3)spnd2.value= =day(date())
注意:在函数调用时输入“=”
3.略
4mand1.default=.t.
5mand1.click event:原代码
if drq1>drq2
messagebox("不合法!") &;&;后来加
thisform.spny1.setfocus &;&;后来加
else
messagebox("合法的日期区间!")
endif
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p50,2007春03卷四表单
1.(1)form1.autocenter=.t. (2)form1.borderstyle=2-固定对话框
2.cbo1.RowSourceType=8-结构
3.cbo2.style=0-下拉组合框
4mand1.default=.t.
5.cbo1.InteractiveChange event:
最后一行加
thisform.cbo3.rowsource="select distinct &;xfield from xs into cursor xstemp"
6mand1.click event:完善locate
一句
locate for &;ctj
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p52,2007春04卷四表单
1.form1.WindowType=1-模式
2.(1)form1.caption="过滤条件"
(2)form1.icon="...\NET.ico" 省略号部分
NET.ico文件所在的路径
3.cbo1.RowSource=xs
4mand1.caption="确定\
5.cbo1.InteractiveChange event:
thisform.cbo3.rowsource="select distinct &;xfield from xs into cursor xstemp"
6mand1.click event:
加空行处
set filter to &;ctj