//////////////////////////发现本答案有错时,相信自己的判断///////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p32,06春 VFP01
四 设计表单
1.(1)form1.bolderstyle=2-fixed dialogue (2) form1.AlwaysOnTop=.T.
2.(1)text1.borderstyle=0-无边框 (2) text1.fontUnderline=.T.
3. 先加 label1,在改(1)label1.name=lblright (2)lblright.caption="0"
4. command1.click event:
thisform.text1.setfocus
5. text1.lostfocus event:
thisform.lblright.caption=alltrim(str(val(thisform.lblright.caption)+1))
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p34,06年春 VFP02
四
设计表单
1.(1)timer1.enabled=.F. (2) timer1.interval=100
2.表单/新建属性 /名称 count
form1.count=1
3.因为cmdcj.fontsize=16,所以设置list1.fontsize=16
因为cmdcj.width=192,所以设置list1.width=192
4 cmdcj.init event:
this.caption='抽第'+alltrim(str(thisform.count))+'个人'
5 cmdcj.click event:
thisform.list1.additem(this.caption)
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p36,06年秋 VFP01
四 设计表单
1.form1.caption='权限设置'
2.(1)column1.readonly=.T.(2) column2.readonly=.T.(3) grid1.scrollbars=2-垂直
3. Command1.click event:
update user set userright=sright where username=thisform.cbousername.value
4.先添加命令按钮command2,再修改其属性(1)command2.name="cmdall" (2)cmdall.caption="全选"
(3) cmdall.click event:
update menutable set isright=.t.
thisform.refresh
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p38,06年秋
vfp02
1.(1)form1.Autocenter=.T. (2)form1.maxbutton=.F. (3)form1.minbutton=.F.
2. CboUsername.RowSource=user.username
3. CboUsername.interactivechange event:
this.init
4 command4.name=CmdReset
先添加命令按钮command4,再修改其属性(1)command4.caption="重置"
(2)cmdreset.click event:
update menutable set isright=.F.
thisform.refresh
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p40,06秋 VFP03
1.(1)form1.caption="项目选择" (2)form1.WindowType=1-模式
(3)form1.maxbutton=.F. (4)form1.minbutton=.F.
2. command1.click event:
加一句:thisform.list1.RemoveItem(ThisForm.list1.ListIndex)
3. list1.dblclick event:
ThisFormmand1.click
4. command3.click event:
原代码为:
ThisForm.list1.ListIndex=1
ThisForm.list2.AddItem(ThisForm.list1.Value)
ThisForm.list1.RemoveItem(ThisForm.list1.ListIndex)
改为:
do while ThisForm.list1.ListCount>0
ThisForm.list1.ListIndex=1
ThisForm.list2.AddItem(ThisForm.list1.Value)
ThisForm.list1.Remove
Item(ThisForm.list1.ListIndex)
enddo
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p42,06秋 VFP04
1.grid1.readonly=.T.
2.右击选项按纽组/生成器/按纽/标题/依次输入:
课程代号,成绩
3.grid1.scrollbar=2-垂直
4mand1.caption="确定(\
5. dataenvironment.cursor1.order=cjxh
6mand