1.编制“学生”
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
信息查询界面,要求如图1、图2、图3所示。
Form init事件
thisform.SetAll("readonly",.t.,"textbox")
thisform.check1.ReadOnly = .T.
thisform.list1.rowsourcetype=6
thisform.list1.RowSource =0
list1 interactivechange
thisform.SetAll("visible",.t.)
thisform.Refresh
thisform.text1.readonly=.t.
2.编制一个表单完成表文件“学生.dbf”
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
的学生奖学金查询显示功能(界面如图所示)。
要求:①当用户在组合框输入或选择班级(学号的左三位)后,按回车或“确定”按钮时,表单将自动显示对应班级的奖学金总额;②按“退出”按钮时,自动关闭表单。
Form1的 init事件
SET TALK OFF
SET safety OFF
INDEX on LEFT(学生.学号,3)to zgh unique
thisform.combo1.DisplayValue=LEFT(学生.学号,3)
SCAN
thisform.combo1.AddItem (LEFT(学生.学号,3))
ENDSCAN
SET INDEX TO
Combl1 vaild事件
IF EMPTY(this.DisplayValue)
RETURN .t.
ENDIF
LOCATE FOR LEFT(ALLTRIM(学生.学号),3)==LEFT(ALLTRIM(this.displayvalue),3)
IF EOF()
RETURN .f.
ELSE
RETURN .t.
ENDIF
Command click 事件
SUM 奖学金 TO ze FOR LEFT(ALLTRIM(Ö°¹¤.Ö°¹¤ºÅ),3)==LEFT(alltrim(thisform.combo1 .displayvalue),3)
thisform.text1.Value=ze
3.建立一个表单,通过控件的事件代码控制,实现表单顶行的标签信息向下平移。设计界面如图所示:
Form1的init事件
thisform.timer1.Enabled=.f.
thisform.timer1.interval=100
command1 的click事件
thisform.timer1.Enabled =.t.
thisform.label1.Top=0
timer1的timer事件
IF thisform.label1.top<=thisform.Height-thisform.label1.Height
thisform .label1.top=thisform.label1.top +1
ELSE
thisform.label1 .top=0
ENDIF
thisform .refresh
4.运用文本框和计时器对象设计一个数字时钟表单,界面如图1、2所示。要求:文本框文字为隶
书
关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf
、20号字,表单的标题为“数字时钟”,每隔1秒钟刷新一次时间。
Form1 的init事件
thisform.Caption ="数字时钟"
thisform.text1 .value = LEFT(TIME(),2)+"时"+SUBSTR(TIME(),4,2)+"分"+substr(TIME(),7,2)+"秒"
thisform.text1.FontName="隶书"
thisform.text1 .fontsize=30
thisform.timer1.interval=1000
thisform.Refresh
time1 的timer事件
thisform.Init
thisform.timer1.Enabled =.t.
thisform.refresh
5.设计一个圆球跳动表单。要求:球的宽和高为40,球的填充颜色为咖啡色,表单的标题为“圆球跳动”,球每隔0.5秒在表单的上下边之间跳动。按开始按钮球跳动,按停止按钮球停止。设计界面和运行界面见下图所示。
Form1的init事件
thisform.timer1.Enabled =.f.
thisform.timer1.Interval =2000
timer1的timer事件
IF thisform.shape1.Top=0
thisform.shape1.Top=thisform.Height -thisform.shape1 .height
ELSE
thisform.shape1.Top=0
ENDIF
thisform.refresh
6.设计一个完成口令判定功能的表单,界面如图所示。具体要求如下:①用户从键盘输入口令时,表单的显示控件以“*”代替具体内容;②系统的口令存放在表文件“学生.dbf”的姓名字段中,要求完全匹配;③输入口令后,按回车或按“确定”按钮,将自动显示信息框(Messagebox),提示“正确!”或“错误!”;④按“退出”按钮将自动关闭表单。
Form1的init事件
thisform.text1.SetFocus
thisform.text1.SelectOnEntry =.t.
thisform.text1.PasswordChar="*"
thisform.command1.Default =.t.
command1的click事件
LOCATE FOR ALLTRIM(ÐÕÃû)=ALLTRIM(thisform.text1 .value)
IF !EOF()
MESSAGEBOX("ÕýÈ·£¡")
ELSE
MESSAGEBOX("´íÎó£¡")
ENDIF
thisform.text1 .setfocus
thisform.Refresh
7. 编制一个表单完成表文件“学生.dbf”内容的自动只读浏览显示功能,界面如图所示。具体要求如下:①表单初始显示内容为表文件“学生.dbf”的首
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
;②表单内容将以10秒为间隔自动刷新,即自动顺序向后翻记录,当翻至表底时,将自动回到首记录循环翻动。
Form1的init事件
thisform.setall("readonly",.t.,"textbox")
thisform.setall("readonly",.t.,"editbox")
thisform.setall("readonly",.t.,"checkbox")
thisform.timer1 .interval=6000
timer1的timer事件
thisform.timer1.Enabled =.t.
SKIP
IF EOF()
GO top
ENDIF
thisform.refresh
8.编制一个显示时钟和日期的表单,界面如图所示。命令按钮及文本框的字体、颜色和大小设置为自己喜欢的形式。
Form1的init事件
thisform.text1.Value=TIME()
thisform.timer1.Enabled=.f.
thisform.timer1 .interval=1000
command1的click事件
thisform.timer1.Enabled =.t.
thisform.Refresh
command2的click事件
thisform.timer1.Enabled =.f.
y=ALLTRIM(STR(YEAR(DATE())))
m=ALLTRIM(STR(MONTH(DATE())))
d=ALLTRIM(STR(DAY(DATE())))
thisform.text1 .value=y+"Äê"+m+"ÔÂ"+d+"ÈÕ"+CDOW(DATE())
thisform.Refresh
9.借助于文本框和微调框编制一个手工日历表单,界面如图所示。要求日期以中文的方式居中显示,显示的字体为宋体、30号字。
Form1的init事件
thisform.text1.Value=DATE()
thisform.FontSize=30
thisform.text1 .dateformat=14
thisform.spinner1 .setfocus
spinner的upclick事件
thisform.text1 .value=thisform.text1 .value+1
thisform.Refresh
10.用选项按钮组设计九颜色调色板表单,界面如图11-3所示。要求:文字为楷书、18号字,表单的标题为“调色板”,按钮组九个按钮,按三行三列排列,当单击对应的按钮时,按钮组的背景颜色相应改变。
Form1的init事件
thisform.FontSize =18
thisform.FontName ="¿¬Êé"
Optiongroup的interactive事件
DO case
CASE this.Value=1
this.BackColor=RGB(255,0,0)
CASE this.Value=2
this.BackColor =RGB(255,128,0)
CASE this.Value=3
this.BackColor =RGB(255,255,0)
CASE this.Value=4
this.BackColor =RGB(0,255,0)
CASE this.Value=5
this.BackColor =RGB(0,128,128)
CASE this.Value=6
this.BackColor =RGB(0,0,255)
CASE this.Value=7
this.BackColor =RGB(128,0,128)
CASE this.Value=8
this.BackColor=RGB(0,0,0)
CASE this.Value=9
this.BackColor =RGB(255,255,255)
ENDCASE
thisform.Refresh
11.
if THIS.Value=2
MESSAGEBOX("´答对了,真棒!",0+48,"评判结果")
else
MESSAGEBOX("´ò´íÁË£¬ÔÙÊÔ£¡",0+32,"ÆÀÅнá¹û")
ENDIF
12.编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的学生成绩查询显示功能,界面如图11-5所示。具体要求如下:①当用户在组合框输入或选择姓名后,按回车或“确定”按钮时,表单将自动显示对应学生的平均成绩,如果该学生不存在,则显示提示信息。②按“退出”按钮时,自动关闭表单。
Form1的init事件
SET TALK OFF
thisform.combo1.RowSourceType = 6
thisform.combo1.RowSource ="Ö°¹¤.ÐÕÃû"
command1的click事件
SELECT 1
LOCATE ALL FOR ALLTRIM(ÐÕÃû)=ALLTRIM(thisform.combo1.DisplayValue )
IF !FOUND()
MESSAGEBOX("²éÎÞ´ËÈË£¡")
ELSE
SELECT Ö°¹¤
thisform.text1.Value= »ù±¾¹¤×Ê
ENDIF
thisform.Refresh
13. 编制一个表单完成表文件“学生.dbf”内容的触发只读浏览显示功能,界面如图所示。要求如下:①表单初始显示内容为表文件“学生.dbf”的首记录;②当按“前翻”“后翻”“首记录”“末记录”按钮时,表单将自动显示相应记录的内容;③当翻至表头或表底时,将自动设置相应按钮不可访问。④命令按钮采用用命令按钮组对象。
GO top
thisform.commandgroup1.command1.enabled=.f.
thisform.commandgroup1.command2.enabled=.f.
thisform.commandgroup1.command3.enabled=.t.
thisform.commandgroup1.command4.enabled=.t.
thisform.Refresh
SKIP -1
IF bof()
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.t.
ELSE
thisform.commandgroup1.command3.enabled=.f.
thisform.commandgroup1.command4.enabled=.f.
ENDIF
thisform.Refresh
SKIP 1
IF EOF()
thisform.commandgroup1.command3.enabled=.f.
thisform.commandgroup1.command4.enabled=.f.
ELSE
thisform.commandgroup1.command1.enabled=.t.
thisform.commandgroup1.command2.enabled=.t.
ENDIF
thisform.Refresh
14.编制一个表单完成计时器计数显示功能,界面如图10-10所示。具体要求如下:①表单初始显示状态为全零“00:00:00”; ②按“计数”按钮,将自动以秒为单位从零开始计数并在表单上动态显示;③按“停止”按钮将显示最后一刻的计数时间。
Form1的init事件
STORE 0 TO thisform.h ,thisform.m,thisform.s
thisform.timer1.interval=1000
thisform.text1.value="00:00:00"
thisform.timer1.Enabled=.f.
thisform.Refresh
command1的click事件
thisform.timer1.Enabled =.t.
STORE 0 TO thisform.h ,thisform.m,thisform.s
thisform.text1.value="00:00:00"
timer1的timer事件
thisform.s=thisform.s+1
IF thisform.s=60
thisform.s=0
thisform.m=thisform.m+1
IF thisform.m=60
thisform.m=0
thisform.h=thisform.h+1
ENDIF
ENDIF
hh=IIF(thisform.h>9,STR(thisform.h,2),"0"+STR(thisform.h,1))
mm=IIF(thisform.m>9,STR(thisform.m,2),"0"+STR(thisform.m,1))
ss=IIF(thisform.s>9,STR(thisform.s,2),"0"+STR(thisform.s,1))
thisform.text1.value=hh+":"+mm+":"+ss
thisform.Refresh
15.编一页面转换表单,界面如图所示。要求表单上有一个包含三页的页框,每页依次放入一幅图画(FOX.BMP)、一张表格(显示“学生.DBF”的数据)、一个列表框(包含有“学生.DBF”的“姓名”字段),并能每隔2秒钟从左自右自动换页,当翻到第3页后,自动回到第1页,未被激活的页面自动设为不可访问。
图: 页面转换界面
Form1的init事件
thisform.timer1.interval=2000
thisform.timer1.Enabled =.t.
thisform.p=0
thisform.pageframe1.page3.List1.rowsourcetype=6
thisform.pageframe1.page3.List1.rowsource="Ö°¹¤.ÐÕÃû"
timer1的timer事件
thisform.pageframe1.page1.enabled=.f.
thisform.pageframe1.page2.enabled=.f.
thisform.pageframe1.page3.enabled=.f.
thisform.p=thisform.p+1
IF thisform.p>thisform.pageframe1.pagecount
thisform.p=1
ENDIF
thisform.pageframe1.Pages(thisform.p).enabled=.t.
thisform.pageframe1.ActivePage=thisform.p
thisform.Refresh
16.设计一个表单,当用户在文本框中输入矩阵的维数N后,按“显示”按钮则会在编辑框中输出对角线为0的N维矩阵。界面如图所示。
图:设计界面 图:运行界面
Form1的init事件
thisform.command1.Default =.t.
thisform.text1.SelectOnEntry =.t.
thisform.text1.Value=1
text1的valid事件
IF this.Value<1 OR this.Value>9
RETURN .f.
ELSE
RETURN .t.
ENDIF
Command1的click事件
n=thisform.text1.Value
thisform.list1.Clear
FOR i=1 TO n
c=" "
FOR j=1 TO n
IF i+j=n+1 OR i=j
A=0
ELSE
A=1
ENDIF
c=c+STR(A,2)
ENDFOR
thisform.list1.additem(c)
ENDFOR
thisform.Refresh
17.设计一个表单,使表单中的信息行显示系统当前时间,并使该信息行在表单内左右缓慢平移。界面如图所示。
Form1的init事件
thisform.label1.caption=TIME()
thisform.timer1.Enabled=.t.
thisform.timer1.Interval=100
thisform.label1.left=0
thisform.Refresh
timer1的timer事件
thisform.label1.left=thisform.label1.left+1
IF thisform.label1.Left =thisform.Width-thisform.label1.Width
thisform.label1.Left=0
ENDIF
thisform.refresh
18.设计一个表单,实现查询并显示指定学生的平均成绩和成绩档次。要求不及格的平均成绩和成绩档次用红字显示。具体界面如图所示。
图: 查询学生平均成绩和成绩档次表单
19.利用计时器控件设计一个模拟拍球动作的表单。具体界面如图所示。球的起始位置在表单的顶行中部,表单执行后,球自上而下落下并且球体逐渐变大,当球到达表单底部时自动弹回,并且球体又逐渐回缩变小,当球到达顶部时再次自动下落,如此往复弹跳,仿佛有人用手拍打球,直到关闭表单。
图: 球自上而下落下\ 球逐渐变大\到达底部
Form1的init事件
thisform.timer1.Enabled=.t.
thisform.timer1.Interval=10
thisform.shape1.Top=0
thisform.f=0
timer的timer事件
IF thisform.shape1.Top>=thisform.Height-thisform.shape1.Height
thisform.f=0
ENDIF
IF thisform.shape1.Top=0
thisform.f=1
ENDIF
if thisform.f=1
thisform.shape1.Top =thisform.shape1.Top+1
thisform.shape1.width =thisform.shape1.width+1
thisform.shape1.height =thisform.shape1.height+1
ELSE
thisform.shape1.Top =thisform.shape1.Top-1
thisform.shape1.width =thisform.shape1.width-1
thisform.shape1.height =thisform.shape1.height-1
ENDIF
thisform.refresh
20.设计一个三表表单(学生表、成绩表、课程表),成绩表与学生表建立临时关联,成绩表与课程表建立临时关联,查询相关的信息。运行界面如图所示。
在数据环境中建立索引,注意从销售表出发,拉出职工号和商品号分别与职工表和商品表建立临时关联,注意从销售表的字段中去连接,不要从索引中去连接
21.编制一个表单完成表文件"学生.dbf""成绩.dbf""课程.dbf"内容的编辑浏览显示功能(设计界面和运行界面如图所示)。具体要求如下:
1、三个表文件分别显示在三个不同的页面上;
2、表单内容将以3秒为间隔自动换页刷新,即自动自左向右顺序翻页,当翻至第三页时,将自动回到第一页循环翻动。
图:设计界面 图:运行界面
Form1的init事件
thisform.timer1.Interval=3000
timer1的timer事件
IF thisform.pageframe1.activepage<3
thisform.pageframe1.ActivePage =thisform.pageframe1.ActivePage+1
else
thisform.pageframe1.activepage=1
ENDIF
thisform.Refresh
22.编制一个表单完成表文件"学生.dbf"内容的只读浏览显示功能(界面如图所示)。具体要求如下:
1、表单初始显示内容为表文件"学生.dbf"的首记录;
2、当按"前翻""后翻""首记录""末记录"按钮时,表单将自动显示相应记录的内容;
3、当翻至表头或表底时,将自动设置相应按钮不可访问。
图:设计界面 图:运行界面
23.设计表单完成如图所示的界面。具体要求如下:当在文本框输入数字并回车,判断按钮会自动按下,并判断该数是否为素数,同时焦点自动回倒text1,自动选中原文本框中数据,准备接收新的输入。
图:设计界面 图:运行界面
Form1的init事件
thisform.text1.selectonentry=.t.
thisform.text2.ReadOnly=.t.
thisform.text1.Value=3
thisform.command1.Default =.t.
conmand1的click事件
N=thisform.text1.Value
FOR i=2 TO N-1
IF N%i=0
EXIT
ENDIF
ENDFOR
IF i >N-1
thisform.text2.Value="ÊÇËØÊý"
ELSE
thisform.text2.Value="²»ÊÇËØÊý£¡"
ENDIF
thisform.text1.SetFocus
thisform.Refresh
24.设计表单完成如图所示的界面。具体要求如下:当表单运行后,图片自动从右向左移动,当移动到左边界时,又回到右边继续移动。
图:设计界面 图:运行界面
Form1的init事件 注意表单——新建属性
thisform.F=0
thisform.Caption="¶¯»"
thisform.timer1.Enabled =.t.
thisform.timer1.Interval =1000
timer1 的timer事件
IF thisform.F=0
thisform.image1.Left=thisform.image1.Left+1
IF thisform.image1.Left=thisform.Width -thisform.image1.Width
thisform.F=1
ENDIF
ENDIF
IF thisform.F=1
thisform.image1.Left=thisform.image1.Left-1
IF thisform.image1.Left=0
thisform.F=0
ENDIF
ENDIF
25.设计如图所示的表单,根据“学生”、“课程”、“成绩”表,用SQL-SELECT语句实现以下查询:
● 在"查询1"按钮中实现查找1970年之后出生的学生的信息的功能(查询内容显示时包含学号、姓名、出生日期、课程名和成绩五个字段)。
● 2.在"查询2"按钮中实现查找成绩在60分以上的学生的信息的功能(查询内容显示时包含学号、姓名、课程名和成绩四个字段)。
● 3.在"查询3"按钮中实现查找学号的前三位为"951"的学生的信息的功能(查询内容显示时包含学号、姓名、课程名和成绩四个字段)。
● 4.表单的标题是"查询"。