读者信息. 具体要求:在文本框text1中输入读者, text1中输入读者 具体要求:在文本框text1中输入读者,单击命令按钮
查询可以查找到 该读者的记录信息,把性别显示在文本框text2 text2中 籍贯显示在文本框text3 text3中 该读者的记录信息,把性别显示在文本框text2中,籍贯显示在文本框text3中, 如果找不到记录则弹出一个消息框显示"查无此人 查无此人! 如果找不到记录则弹出一个消息框显示 查无此人!" 在按钮command1(查询)的click过程中编写程序实现上述功能. 在按钮command1(查询) click过程中编写程序实现上述功能. command1 过程中编写
程序实现上述功能 表单运行效果图如下所示: 表单运行效果图如下所示:
伍
(1)将表tk18_dz.dbf添加到数据环境中. 将表tk18_dz.dbf添加到数据环境中. tk18_dz.dbf添加到数据环境中 (2)在Command1的Click事件中写如下程序: Command1的Click事件中写如下程序: xm=ALLTRIM(thisform.text1.Value) =xm LOCATE for =xm IF FOUND() thisform.text2.Value=tk18_dz. thisform.text2.Value=tk18_dz. th
isform.text3.Value=tk18_dz.籍贯 thisform.text3.Value=tk18_dz.籍贯 ELSE MESSAGEBOX("查无此人 查无此人") MESSAGEBOX("查无此人") ENDIF tk09.scx实现的功能是设置文字的颜色 【40】 表单tk09.scx实现的功能是设置文字的颜色,表单运行效果图如下: 】 表单tk09.scx实现的功能是设置文字的颜色,表单运行效果图如下:
编写程序实现以下功能: 编写程序实现以下功能: 单击命令按钮"设置文字颜色 设置文字颜色"时 设置标签的文字颜色为随机产生的颜色 单击命令按钮 设置文字颜色 时,设置标签的文字颜色为随机产生的颜色.
陆
在Command1的Click事件中写如下程序: Command1的Click事件中写如下程序: 事件中写如下程序 r=INT(RAND()*256) g=INT(RAND()*256) b=INT(RAND()*256) thisform.label1.ForeColor=RGB(r,g,b) &;&;说明,rand()函数的返回值是0 之间的数.rand()乘以256再取整就能产生 &;&;说明,rand()函数的返回值是0~1之间的数.rand()乘以256再取整就能产生 说明 函数的返回值是 乘以256 255之间的数 之间的数. 0~255之间的数. tk24.scx, 【40】 本题素材为考生文件夹下的tk24.scx,表单包括1个标签,1个命令按钮 】 本题素材为考生文件夹下的tk24.scx 表单包括1个标签, 和1个计时器控件.表单运行效果如下图所示: 个计时器控件.表单运行效果如下图所示:
该表单的功能是文字从右向左移动,要求:标签Label1每隔1 该表单的功能是文字从右向左移动,要求:标签Label1每隔1秒自动从右向左移 Label1每隔 个像素单位,移到窗口左边界时标签回到窗口右边重新向左移动; 动5个像素单位,移到窗口左边界时标签回到窗口右边重新向左移动;单击命令 按钮"退出 可释放该表单. 退出"可释放该表单 按钮 退出 可释放该表单. 编写程序实现上述功能. 编写程序实现上述功能. 在属性窗口设置Timer1的Interval为100.(2 在属性窗口设置Timer1的Interval为100.(2分) Timer1 .( 在对象Timer1的Timer事件过程中编写以下程序:(10分 在对象Timer1的Timer事件过程中编写以下程序:(10分) Timer1 事件过程中编写以下程序 IF thisform.label1.Left>0 thisform.label1.Left=thisform.label1.Leftthisform.label1.Left=thisform.label1.Left-5 ELSE thisform.label1.Left=thisform.Width thisform.label1.Left=thisform.Width ENDIF 在对象Command1的Click事件过程中编写以下程序:(3分 在对象Command1的Click事件过程中编写以下程序:(3分) Command1 事件