《8.2 表单制作.docx》由会员分享,可在线阅读,更多相关《8.2 表单制作.docx(6页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、一、表单的基本组成一个表单有三个基本组成部分:表单标签:这里面包含了处理表单数据所用CGI程序的URL以及数据提交到服 务器的方法。表单域:包含了文本框、密码框、隐藏域、多行文本框、复选框、单选框、下拉 选择框和文件上传框等。表单按钮:包括提交按钮、复位按钮和一般按钮;用于将数据传送到服务器上的 CGI脚本或者取消输入,还可以用表单按钮来控制其他定义了处理脚本的处理工作。氐二,表单的常见类型登录表单:基于用户字和口令验证的表单。输入表单:用于数据采集的表单修改(或删除)表单:用户对相关数据进行修改、删除等操作的表单。输出(查询)表单:用于数据输出、查询或打印的表单。彰三、不单制作实例1.欢迎表
2、单.文件名:we I co m e.sex在表单的CAPTION为:欢迎使用本系统,PICTURE属性中添加背景图。在表 单ICO的属性中为其选中一个图标。见上图,建立三个标签,和两个计时器Timerl和timer2.画一条直线,添加1个 IMAGEO其中,LABEL1的CAPTION为欢迎使用固定资产管理信息系统FONTSIZE 为20LABEL2 的 CAPTION 为设计者:00 工商成,FONTSIZE 为:16LABEL3的CAPTION为按任意键继续IMAGE1 的图略小,TIMER1 的 INTERVAL 属性值为 100。TIMER2 的 INTERVAL属性值为50。表单的C
3、LICK事件clea eventthisform.releaseDO form D:管理信息系统实习(2006双学位)TJ password.scxTIMERLTIMER 事件if thisform.Iabell.left+180 0thisform.labell.left=thisform.labell.left-10elsethisform.labell.left=320endifif thisform.Iabel2.left stopthisform.timer2.enabled=.t.thisform.imagel.width=43thisform.imagel.left=396thi
4、sform.imagel.top=264 thisform.refreshelsethisformjmagel.width=thisform.imagel.width+speed thisform.imagelJeft=thisform.imagel.left-speed thisform Jmagel.top=thisformJmagel.top-speed endif2登录界面 password.scx见上图,为该表单建立两个标签,两个文本框,两个命令按钮,添加一张图像IMAGE1.其中表单的CAPTION为:登录表单,在ICO属性中更换图标LABEL1的CAPTION为:用户名:LABE
5、L2 的 CAPTION 为:口 令:C0MMAND1 的 CAPTION:确定COMMAND2 的 CAPTION:取消字体大小自行确定.表单的LOAD事件为:PUBlic i i=0COM M AN DI,确定按钮的单击事件。USE D:管理信息系统实习(2000工商成)TJ kLdbfif i3LOCATE FOR ALLTRIM(yfm)二 ALLTRIM(Thisform.textl.Value )IF FOUNDQ .AND. alltrim(kl) = alltrim(thisform.text2.Value)do D:管理信息系统实习(2000工商成)MYSYSTEM.mpr(
6、在验证表单正常运行时,可用二M ESSAG EBOX(正常运行时,可用二M ESSAG EBOX(正常运行时,可用二M ESSAG EBOX(你是合法用户,信息窗口)代替)ELSEyn = messageboxC无此代号或密码错误! 信息窗口) endif else二messageboxf你已超过三次,是非法用户7信息窗口,)close allquitendifThisform.textl.Value = H Th isform.text2.Va I ue =Thisform.textl.SetFocusOthisform.refresh()退出按钮的单击事件COMMAND2.CLICKthi
7、sform.release3.输入表单,文件名:inputl.scx按上图增加相应的标签和文本框,并增加两个命令按钮.增加的click事件USE D:管理信息系统实习(2000工商成)TJZCKPB.dbfLOCA FOR ZCKPBH=ALLTRIM(THISFORM.TEXT1.VALUE)IF FOUNDQ = MESSAGEBOX( 对不起,已有该资产,请重新输入信息窗口)ELSE answer=messagebox( 你确认增加吗?,3+48, 信息窗口”)IF answer=6APPE BLANKREPLACE zckpbh WITH ALLTRIM(THISFORM.TEXTl.
8、VALUE)REPLACE Ibmc WITH ALLTRIM(THISFORM.TEXT2.VALUE)REPLACE bmmc WITH ALLTRIM(THISFORM.TEXT3.VALUE)REPLACE yz WITH VAL(THISFORM.TEXT4.VALUE)REPLACE yzje WITH VAL(THISFORM.TEXT5.VALUE)REPLACE IjzJ WITH VAL(THISFORM.TEXT6.VALUE)REPLACE bdfs WITH ALLTRIM (THISFORM.TEXT7.VALUE)REPLACE bgr WITH ALLTRIM
9、(THISFORM.TEXT8.VALUE)REPLACE ggxh WITH ALLTRIM (THISFORM.TEXT9.VALUE)REPLACE gzrq WITH CTOD ( ALLTRIM ( THISFORM.TEXTIO.VALUE )REPLACE tyrq WITH CTOD ( ALLTRIM ( THISFORM.TEXT11,VALUE )REPLACE syrq WITH CTOD ( ALLTRIM ( THISFORM.TEXT12.VALUE )REPLACE yzjl WITH ALLTRIM (THISFORM.TEXT13.VALUE)REPLACE
10、 jz WITH VAL (THISFORM.TEXT14.VALUE) =MESSAGEBOX(保存成功,信息窗口)THISFORM.TEXT1.VALUE=THISFORM.TEXT2.VALUE=THISFORM.TEXT3.VALUE=THISFORM.TEXT4.VALUE=THISFORM.TEXT5.VALUE=THISFORM.TEXT6.VALUE=THISFORM.TEXT7.VALUE=THISF0RM.TEXT8.VALUE=THISF0RM.TEXT9.VALUE=THISFORM.TEXT10.VALUE=THISFORM.TEXT11.VALUE=THISF0RM.TEXT12.VALUE=THISF0RM.TEXT13.VALUE=THISF0RM.TEXT14.VALUE=THISFORM.REFRESHendifENDIF退出的CLICK事件THISFORM.RELEASE