程序表单大集合.docx
- 文档编号:9768346
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:16
- 大小:911.23KB
程序表单大集合.docx
《程序表单大集合.docx》由会员分享,可在线阅读,更多相关《程序表单大集合.docx(16页珍藏版)》请在冰豆网上搜索。
程序表单大集合
表单
1.乘车刷卡记录
首先创建一个表(例:
e:
\xs3\资料)
刷卡(command1)click事件代码
usee:
\xs3\资料
locatefor卡号=alltrim(thisform.text1.value)
iffound()
replace刷卡次数with刷卡次数+1
endif
thisform.text2.value=刷卡次数
use
查询(command2)click事件代码
usee:
\xs3\资料
locatefor卡号=alltrim(thisform.text1.value)
iffound()
replace余额with余额-0.7
endif
thisform.text3.value=余额
use
退出(command3)click事件代码
thisform.release
2.距世博会的天数
计时器(timer1)的timer事件代码
thisform.text2.value=year(date())
thisform.text3.value=month(date())
thisform.text4.value=day(date())
thisform.text5.value=hour(datetime())
thisform.text6.value=minu(datetime())
thisform.text7.value=sec(datetime())
n={^2010/11/28}
thisform.text1.value=n-date()
3.判断三个数中的最大数并显示其奇偶性
判断(command1)的click事件代码
a=val(thisform.text1.value)
b=val(thisform.text2.value)
c=val(thisform.text3.value)
max=a
ifmax
max=b
endif
ifmax max=c endif ifmax%2=0 thisform.optiongroup1.option2.value=1 else thisform.optiongroup1.option1.value=2 endif 退出(command2)的click事件代码 thisform.release 4.判断是否为水仙花数 将text1的value的属性设置为100并将其enabled的属性设置为F 输入(command1)的click事件代码 thisform.text2.value=0 thisform.text3.value=0 thisform.text2.setfocus 判断(command2)的click事件代码 a=(thisform.text1.value) b=(thisform.text2.value) c=(thisform.text3.value) ifc=a+b i=int(c/100) j=int((c-i*100)/10) k=(c-i*100)-j*10 ifc=i^3+j^3+k^3 thisform.label3.caption="是水仙花数" else thisform.label3.caption="不是水仙花数" endif else thisform.label3.caption="计算错误" endif 清除(command3)的click事件代码 thisform.text2.value="" thisform.text3.value="" 5.通话付费 将计时器的interval属性设置为1000 计时器(timer1)的timer事件代码 thisform.label10.caption=time() 开始(command1)的click事件代码 publice a=datetime() thisform.label5.caption=time() b=hour(a) c=minute(a) d=sec(a) e=b*60+c+d/60 计费(command2)的click事件代码 f=datetime() thisform.label6.caption=time() g=hour(f) h=minute(f) i=sec(f) j=g*60+h+i/60 thisform.label7.caption=str(j-e,10,3) thisform.label8.caption=str((j-e)*1.2,10,3) 退出(command3)的click事件代码 thisform.release 6.系统登录 确定(command1)的click事件代码 i=i+1 ifthisform.text1.value="刘梦婷" ifthisform.text2.value="12345" doforme: \xs3\距世博会的天 thisform.release else ifi<4 messagebox("密码错误,请重输") thisform.text2.value="" thisform.text2.setfocus else messagebox("密码输入次数已到") thisform.release endif endif else messagebox("非法用户") thisform.release endif 退出(command2)的click事件代码 thisform.release 7.变背景色 选项按钮组(optiongroup1)的click事件代码 docase casethisform.optiongroup1.value=1 thisform.label1.backcolor=rgb(255,0,0) casethisform.optiongroup1.value=2 thisform.label1.backcolor=rgb(0,255,255) casethisform.optiongroup1.value=3 thisform.label1.backcolor=rgb(255,255,0) endcase 或 命令按钮组(commandgroup1)的click事件代码 docase casemandgroup1.value=1 thisform.label1.backcolor=rgb(255,0,0) casemandgroup1.value=2 thisform.label1.backcolor=rgb(0,255,255) casemandgroup1.value=3 thisform.label1.backcolor=rgb(255,255,0) endcase 8.变形 选项按钮组(optiongroup1)的click事件代码 docase casethisform.optiongroup1.value=1 thisform.label1.fontname="宋体" casethisform.optiongroup1.value=2 thisform.label1.fontname="黑体" casethisform.optiongroup1.value=3 thisform.label1.fontname="隶书" endcase 复选框(check1)的click事件代码 thisform.label1.fontbold=.t. 复选框(check2)的click事件代码 thisform.label1.fontitalic=.t. 复选框(check3)的click事件代码 thisform.label1.fontunderline=.t. 9.专业 首先要建立一个表(例: 专业表其中包括种植、缝纫、计算机、机电) 组合框(combo1)的click事件代码 go1 stor0tok1,k2,k3,k4 dowhilenoteof() docase case专业表.专业="计算机" k1=k1+1 case专业表.专业="机电" k2=k2+1 case专业表.专业="缝纫" k3=k3+1 case专业表.专业="种植" k4=k4+1 endcase skip enddo docase casebo1.value="计算机" thisform.text1.value=k1 casebo1.value="机电" thisform.text1.value=k2 casebo1.value="缝纫" thisform.text1.value=k3 casebo1.value="种植" thisform.text1.value=k4 endcase 10.选表 首先要创建三个表(例: 学生档案、学生成绩、语文) 确定(command1)的click事件代码 ifthisform.check1.value=1 ifthisform.optiongroup1.value=1 usee: \xs3\学生档案 browse endif ifthisform.optiongroup1.value=2 usee: \xs3\学生成绩 browse endif ifthisform.optiongroup1.value=3 usee: \xs3\语文 browse endif else ifthisform.optiongroup1.value=1 usee: \xs3\学生档案 browsenomodifynoappendnodelete endif ifthisform.optiongroup1.value=2 usee: \xs3\学生成绩 browsenomodifynoappendnodelete endif ifthisform.optiongroup1.value=3 usee: \xs3\语文 browsenomodifynoappendnodelete endif endif 退出(command2)的click事件代码 thisform.release 或选项按钮组(optiongroup1)的click事件代码 ifthisform.optiongroup1.value=1 select学生档案 endif ifthisform.optiongroup1.value=2 select学生成绩 endif ifthisform.optiongroup1.value=3 select语文 endif 确定(command1)的click事件代码 ifthisform.check1.value=1 browse else browsenomodifynoappendnodelete endif 退出(command2)的click事件代码 thisform.release 11.查找 首先要创建一个表(例: 表aaa其中包括学号、姓名、性别) 确定(command1)的click事件代码 locateforthisform.text1.value=表aaa.学号 iffound() if表aaa.性别="男" thisform.optiongroup1.value=1 else thisform.optiongroup1.value=2 endif thisform.text2.value=表aaa.姓名 endif 12.统计人数表单 首先要创建一个表(例: 专业表其中包括姓名、学号、专业(计算机、机电、服装、种植)) 统计(command1)的click事件代码 stor0tok1,k2,k3,k4 ifthisform.check1.value=1 countfor专业表.专业="计算机"tok1 endif ifthisform.check2.value=1 countfor专业表.专业="机电"tok2 endif ifthisform.check3.value=1 countfor专业表.专业="缝纫"tok3 endif ifthisform.check4.value=1 countfor专业表.专业="种植"tok4 endif thisform.label2.caption=str(k1+k2+k3+k4) 13.连接交换表单 运行(command1)的click事件代码 a=alltrim(thisform.text1.value) b=alltrim(thisform.text2.value) docase casethisform.optiongroup1.value=1 thisform.text3.value=a+b casethisform.optiongroup1.value=2 thisform.text1.value=b thisform.text2.value=a thisform.text3.value="交换成功" endcase 退出(command2)的click事件代码 thisform.release 14求ASSCII码 文本框(text1)的click的事件代码 a=thisform.text1.value thisform.label3.caption=str(asc(a)) thisform.refresh
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序 表单 集合