第一篇：借款申请单：电子表单实例介绍(四)
【纸质的借款申请单】
纸质借款申请单包括企业向银行借款，企业与企业之间借款，企业内部借款，在这里我们主要指的是企业内部的借款。
在企业内部，职员时常会因为出差、办理展会、购买物品及其他一些情况，向企业临时借入资金，等事情结束后再用报销的方式来冲抵借款。在这时候企业一般都会要求其填写借款申请单，在其上注明借款人姓名、借款日期、借款事由、借款数额、资金性质（现金、支票、转帐）等项目，并经相关领导审核签字，财务会计审核及出纳付款后方才办理完借款手续。
但随着信息技术化的高速发展，很多企业都存在着异地办公的问题，这时如果还是沿用传统的借款方式无疑会降低工作效率，增加企业成本，这时候电子化的办公方式越来越受到企业的青睐，使用电子表单办公已经成为常见的现象。电子表单不仅保留了纸质表单熟悉的外观和感受，同时还具有强大的数据验证、路由指令与商业逻辑功能，在提供必要的数据访问和交互功能的同时，还能进行更有效的交互操作。电子表单的广泛推广，打破了时空限制，改变了办公形态，大大加速了整个企业的快速运转，不但降低了企业成本，提高企业竞争力，而且给办公者提供了更多的选择，更好的便利性。下面我们以常见的10oa借款申请单为例进行进一步的解释说明。
10oa借款申请单完全可由企业根据自身的情况量身定义其字段内容，如将借款单与报销单相结合，清晰明了；在借款单中增加借款人的银行卡名称、银行卡开户行及帐号等字段信息，方便财务人员通过网上银行直接支付；同时10oa系统自动将表单和流程相结合实现全自动的流转，在流程运转时表单会通过淡蓝色背景来提示当前用户哪些字段信息是需要其填写的，对于每个字段来说，还可以设定它的类型（日期、时间、数字、金额、附件等），并自动进行数据验证，避免了填写表单的错误，大幅提高了工作效率。以下图来详细展示10oa借款申请单的特色优势：
① 通过对表单设置优先级，提高办公效率，如上图中的借款申请单，因为需要在特定的时间内收到款项，从而参加会展，可以将该借款申请单的优先级设置为高，以便责任人在第一时间处理该借款申请单； ② 可设置借款申请单的结束时间，提醒责任人在该时间之内抓紧办理该借款申请单，以便事后作为追究责任的依据，从而避免相互推卸责任； ③ 可以通过脚本的方式自动带出当前用户的姓名与部门，提高工作效率； ④ 可以根据情况自身情况，自定义表单字段及字段类型；
⑤ 当前借款申请单需要用到的票据扫描件、文案上传至附件，以便审核，上图中可以将会展场地租用的信息与广告费用设计上传至附件，从而做到借款有据，有效提高审核通过概率；
⑥ 表单实现了全自动流转，当借款人填写完相关信息后，表单会自动找到当前用户的部门经理，提交经理审核，同时表单还可以根据设定的条件判断指标自动进行分支流转；
⑦ 可以关联相关的父子事务，如上图10oa借款申请单中，可以关联父事务“第八届亚洲户外用品展参展申请”，使申请更加合理化；
⑧ 处理过程可以全程跟踪和记录，方便相关人员查看进度与结果；
⑨ 本部门经理加亮加粗显示（可设置强制只查找本部门经理），其余经理并列显示（方便在本部门经理有事不能及时处理时，授予其他部门经理代为处理，提高办公效率），使办公更加人性化。
第二篇：借款申请单
借款申请书
中国农业银行**支行：
本公司坐落于******，主要经营有：标牌、文教体育用品、家居用品、训练健身器材、户外用品、警示管、不锈钢制品制造、销售。2013年1月至12月，实现销售收入…..万元，利润…万元，税金..万元。现因目前扩大生产需要，需从******有限公司采购….，需资金…万元，合同要求银行承兑汇票结算，特向贵行申请签发....银行承兑汇票壹份，金额为*******万元整，期限六个月，到期用销售收入及保证金一次性偿还，望贵行予以批准为盼。
申请人：*********
2014年4月9日
第三篇：电子申请单资料
各位老师好：
最近连续调试了好几个电子申请单，于是对调试过程中的一些细节问题进行了小结，并分享之。不当的地方请各位老师指正。
一、applicationContext.xml。
1.
二、ReadHisPatientInfo.xml。
1.DeviceTypeName一定要求HIS与我们完全匹配，否则刷不出申请单而刷基本信息。2.CheckItemName。HIS没有检查方法字段时，可要求其在视图中写死如写成“常规”。3.PositionName。检查部位不需要进行匹配，只需在高级分诊中“是否自动添加HIS的检查项目到PACS中”勾选上即可。这样HIS传来的检查部位会自动增加到我们的部位明细中。
4.接受或拒绝申请单，用Update语句回写时，需要HIS为我们开放权限去操作HIS表（V_ApplicationInfo视图中IsConfirm对应源数据所在的表）。（曾经Update视图的无知少年掩面路过...）
5.#pDiagID#、#DiagID# 对申请单号进行赋值和读取时要注意视图中申请单号对应的字段名称（鄙视不按文档写视图的码农）。
三、其它
1.刷信息时出现乱码，是由于数据库字符集不匹配造成的。目测部队医院都会出现这种问题。这需要特殊版本的readhis。其中加入了字符集转换的功能，就是对sql语句取得的结果进行转换后输出。
2.体检需要通过reg文件进行注册，指定URL。
3.程序根目录下的ReqFormat.xsl 中建议将“费用”字段去掉，以控制需求。4.珍爱生命，远离发布页。
第四篇：VF电子教案(表单练习)
教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（1）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
一、与表无关的表单设计（与计时器无关）1．要求：(1)编制一个按钮组调色板
(2)当用户按了命令按钮组中的某个按钮后，表单的背景色就会变为按钮指定的对应颜色。
命令按钮组Commandgroup1的Click事件代码：
do case
case this.value=1 thisform.backcolor=rgb(225,0,0)case this.value=2 thisform.backcolor=rgb(0,255,0)case this.value=3 thisform.backcolor=rgb(0,0,255)case this.value=4 thisform.backcolor=rgb(0,0,0)case this.value=5 thisform.backcolor=rgb(225,255,255)endcase thisform.refresh
2．要求：(1)编制一个按钮组调色板
(2)当用户按了命令按钮组中的某个按钮后，命令按钮组的背景色就会变为按钮指定的对应颜色。(注意与上一题比较，14是设置表单的背景色，本题是设置命令按钮组的背景色。
命令按钮组Commandgroup1的Click事件代码：
do case
case this.value=1 this.backcolor=rgb(225,0,0)case this.value=2 this.backcolor=rgb(0,255,0)case this.value=3 this.backcolor=rgb(0,0,255)case this.value=4 this.backcolor=rgb(0,0,0)case this.value=5 this.backcolor=rgb(225,255,255)endcase thisform.refresh
3．要求：(1)编制一个选项按钮组调色板
(2)当用户按了某个选项按钮后，表单的背景颜色就会变为按钮指定的对应颜色。
选项按钮组Optiongroup1的Click事件代码：
do case
case this.value=1
thisform.backcolor=rgb(255,0,0)case this.value=2
thisform.backcolor=rgb(0,255,0)case this.value=3 教学时间约
****年**月**日
总第节
审批签字：
thisform.backcolor=rgb(0,0,255)case this.value=4
thisform.backcolor=rgb(0,0,0)case this.value=5
thisform.backcolor=rgb(255,255,255)endcase 如果是设置选项按钮组的背景色，如下图
则颜色设置语句为：thisform.optiongroup1.backcolor=rgb(255,0,0)4．要求：(1)编制一个“选页调色板”表单
(2)当用户按了某页后，页框的背景色就会变成指定的对应颜色。
选项按钮组Pageframe1的Click事件代码：
do case case this.activepage=1
this.page1.backcolor=rgb(255,0,0)case this.activepage=2
this.page2.backcolor=rgb(0,255,0)case this.activepage=3
this.page3.backcolor=rgb(0,0,255)case this.activepage=4
this.page4.backcolor=rgb(0,0,0)case this.activepage=5
this.page5.backcolor=rgb(255,255,255)endcase thisform.refresh
5.要求：（1）编制一个表单完成口令判定功能；（2）用户从键盘输入口令时，表单的显示控件以“*”代替具体内容；（3）系统的口令存放在表文件“学生.dbf”的姓名字段中，要求完全匹配；（4）输入口令后，按回车，将自动在表单上显示“正确”或“错误”信息。
***text1的Valid事件代码：
loca for alltrim(this.value)=alltrim(姓名)if found()
thisform.label2.caption=”正确！” else
thisform.label2.caption=”错误！” endif select 学生
6．要求：编制一个人工翻动日历牌，界面窗口中显示当前日期，但是可以通过界面提供的微调按钮任意地向前或向后翻动日期。
Text1的dateformat属性设为“14-汉语” 微调Spinner1的Downclick事件代码：
thisform.text1.value=thisform.text1.value-1 thisform.refresh 微调Spnnier1的Upclick事件代码：
thisform.text1.value=thisform.text1.value+1 thisform.refresh
（四）小结 【教学后记】
教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（2）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
7．要求(1)设计一个表单，接受用户输入的数字，生成相应的矩阵
(2)文本框内输入一个小于等于10的数字，生成一个相应的对称矩阵，且这个矩阵的对角线的数字全部为0，其他的数字为1。
“显示”按钮Command1的click事件的代码：
n=val(thisform.text1.value)s=“" for i=1 to n
for j=1 to n
if j=i or j+i=n+1
s=s+”0“+space(2)
else
s=s+”1“+space(2)
endif
endfor
s=s+chr(13)&&每N个字符加一个回车键，所以在内循环结束时执行该语句 endfor thisform.edit1.value=s thisform.refresh
8、要求：按“开始”按钮，在编辑框中显示九九乘法口诀表。
**表单form1的init事件代码： public c,m store “” to c,m **“开始”按钮的click事件 m=”*”
for a=1 to 9
m=m+str(a,4)endfor for I=1 to 9
c=c+str(I,1)for j=1 to I
c=c+str(I*j,4)endfor c=c+chr(13)endfor thisfom.edit1.value=m+c thisform.refresh
9、要求：在文本框中输入一个起始数，在编辑框中显示20个从起始位置开始并且是3的倍数的整数，且这20个数字的个位数都是3，利用标签输出这20个数的和。教学时间约
****年**月**日
总第节
审批签字：
***文本框text1的valid事件代码： public s j=1 I=val(alltrim(thisform.text1.value))S=0 Do while j<=20
If I%3=0 and mod(I,10)=3 J=j+1 S=s+I Thisform.edit1.value=thisform.edit1.value+str(I,10)
Endif
I=I+1 Enddo Thisform.refresh
***command1的click事件代码：
thisform.label2.caption=”这组数字的和=”+str(s,10)thisform.refresh
10、要求：（1）在文本框text1中输入任意一个100以内的正整数；（2）将所有300以内的能被该整数整除的数显示在编辑框中；（3）将所在这些数的和显示在text2中；（4）按“清除”按钮时，将文本框及编辑框清空。
**表单form1的init事件代码： thisform.text1.value=0 thisform.text1.setfocus thisform.text2.value=0 ***文本框text1的valid事件代码： for I=1 to 300
if mod(I,thisform.text1.value)=0 thisform.edit1.value=thisform.edit1.value+str(I,5)+chr(13)thisform.text2.value=thisform.text2.value+i
endif endfor ***“清除”按钮的click事件代码： thisform.text1.value=0 thisform.text2.value=0 thisform.edit1.value=”” thisform.text1.setfocus
（四）小结 【教学后记】
教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（3）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
要求：按“开始”按钮，在编辑框中显示九九乘法口诀表。**表单form1的init事件代码： public c,m store “” to c,m **“开始”按钮的click事件 m=”*” for a=1 to 9
m=m+str(a,4)endfor for I=1 to 9
c=c+str(I,1)for j=1 to I
c=c+str(I*j,4)endfor c=c+chr(13)endfor thisfom.edit1.value=m+c thisform.refresh
（二）目标展示：表单的操作与命令
（三）导学达标：
11、要求：按“开始”按钮，在列表框中显示2000-2100年之间所有的闰年。
**“开始”按钮的click事件代码： thisform.list1.clear for n=2000 to 2100
if n%4=0 if n%100<>0 or n%400=0
y=1 else
y=0 endif else y=0
endif if y=1
thisform.list1.additem(alltrim(str(n)))endif endfor
12．要求：(1)编制一个小型文本编辑器，界面见下图；(2)文字信息从键盘输入至edit框；(3)三个单选按钮分别用于设置“宋体”、“黑体”和“隶书”；(4)三个check按钮用设置字体的“倾斜”、“加粗”和“下划线”；(5)字号用微调控件实现 教学时间约
****年**月**日
总第节
审批签字：
***optiongroup1的click事件代码: do case
case this.value=1 thisform.text1.fontname=”宋体”
case this.value=2 thisform.text1.fontname=”楷体”
case this.value=3
thisform.text1.fontname=”隶书” endcase ***check1的click事件代码: if this.value=1
thisform.text1.fontbold=.t.else
thisform.text1.fontbold=.f.endif ***check2,3的代码类似于check1 ***spinner1的upclick事件代码
thisform.text1.fontsize=thisform.text1.fontsize-1 ***spinner1的downclick事件代码
thisform.text1.fontsize=thisform.text1.fontsize+1 13.要求：(1)在表单中的三个文本框中分别输入3个数，判别是否能形成三角形，如果是三角形，求出此三角形的面积。(2)判断是否是三角形，可利用：a+b>c,且c>0;a+c>b,且b>0;b+c>a,且a>0
***判断计算按钮command1的click事件代码: a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)if(a+b>c and c>0)or(a+c>b and b>0)or(b+c>a and a>0)
s=(a+b+c)/2
area=sqrt(s*(s-a)*(s-b)*(s-c))endif thisform.label2.caption=”能构成三角形,面积等于:” +str(atea)14．建立一个如图所示的表单
选项按钮组Optiongroup1的Click事件代码：
do case
case this.value=1
create
case this.value=2 create form case this.value=3
modify command endcase
（四）小结 【教学后记】 教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（4）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
二、与表无关的表单设计（计时器类表单设计）
15．要求：编制一个信息显示(时钟)的界面，显示当前时间(每秒动态显示跳动一次)(2)并将表单的背景颜色设置为蓝、绿色自动变换(与时间同步切换)
Timer1的Timer事件代码：
s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)mn=val(m)if int(mn/2)=mn/2
thisform.backcolor=rgb(0,0,255)else
thisform.backcolor=rgb(0,255,0)
endif thisform.text1.value=time()16．要求：(1)编制一个表单完成数字时钟显示功能(2)表单将自动以1秒为间隔动态显示系统时间(3)时、分、秒要求用汉字说明
文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。 时钟控件Timer1的Timer事件代码：
s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)thisform.text1.value=s+”时“+f+'分'+m+'秒'
thisform.refresh 17．要求：(1)编制一个表单完成计时器计数显示功能(2)表单初始显示状态为全零“00：00：00”
(3)按“计数”按钮，将自动以秒为单位从零开始计数(设：时的计数属性名为S，分的计数属性名为F，秒的计数属性名为M。)并在表单上动态显示。按“停止”按钮将显示最后一刻的计数时间。
创建1个新建属性，clocknum初值设为0 表单的form1的init事件代码：
thisform.timer1.enabled=.f.thisform.text1.value=”00:00:00“ thisform.refresh “计数”按钮command1的click事件代码： thisform.timer1.enabled=.t. “停止”按钮command2的click事件代码： thisform.timer1.enabled=.f. 时钟控件timer1的timer事件代码：
js=thisform.clocknum s=int(js/3600)f=int(js/60)m=js%60 s1=iif(s<10,'0'+str(s,1),str(s,2))f1=iif(f<10,'0'+str(f,1),str(f,2))
教学时间约
****年**月**日
总第节
审批签字：
m1=iif(m<10,'0'+str(m,1),str(m,2))thisform.text1.value=s1+”:“+f1+”:“+m1 thisform.clocknum=thisform.clocknum+1 thisform.refresh 18．要求：(1)“日期”“星期”“时钟”标签上的文本能自动换行，自动调整大小，背景透明；(2)时钟每1秒种跳一次
时钟控件Timer1的Timer事件代码：
y=str(year(date()),4)m=str(month(date()),2)d=str(day(date()),2)thisform.text1.value=y+”年“+m+”月“+d+”日“ c=”日一二三四五六“ n=dow(date())w=”星期“+substr(c,2*n-1,2)+”(“+cdow(date())+”)“ thisform.text2.value=w thisform.text3.value=time()19．要求：(1)编制一个表单完成文字水平动态移动操纵的表单；(2)文字信息(纵向)初始显示位置在表单的左边，表单执行后，每间隔20毫秒，文字会自动以间隔加1的幅度逐步向表单右边移动，直到文字到达表单最右边缘；(3)然后，每间隔20毫秒文字会自动以间隔加1的幅度逐步向表单左边移动，直到文字回复到初始位置；(4)整个过程不间断地来回移动
新建表单属性：right 表单的Form1的Init事件代码：
thisform.timer1.interval=20 时钟控件Timer1的Timer事件代码：
IF thisform.label1.Left=0
thisform.right=.f.endif if thisform.label1.left+thisform.label1.width=thisform.width
thisform.right=.t.ENDIF IF thisform.right
thisform.label1.Left=thisform.label1.Left-1 ELSE
thisform.label1.Left=thisform.label1.Left+1 ENDIF thisform.refresh 20.编制一个日历时钟表单,界面如图所示.要求:(1)表单中的日历是当前日期，时钟每秒跳动一次；(2)单击微调控件的前翻后翻按钮，日期与星期随之变化。
***表单Form1的init事件代码: thisform.text1.value=date()w=iif(dow(date())>1,dow(date())-1,7)thisform.text2.value=”星期”+substr(“一二三四五六日”,2*w-1,2)+”(“+cdow(date())+”)” thisform.text3.value=time()thisform.spinner1.setfocus ***spinner1的upclick事件代码：
thisform.text1.value=thisform.text1.value+1 w=iif(dow(thisform.text1.value)>1,dow(thisform.text1.value)-1,7)thisform.text2.value=”星期”+substr(“一二三四五日”,2*w-1,2)+”(“+cdow(thisform.text1.value)+”)” ***spinner1的downclick事件代码：
thisform.text1.value=thisform.text1.value-1 w=iif(dow(thisform.text1.value)>1,dow(thisform.text1.value)-1,7)thisform.text2.value=”星期”+substr(“一二三四五日”,2*w-1,2)+”(“+cdow(thisform.text1.value)+”)” ***timer1 的timer事件代码：
thisform.text3.value=time()
（四）小结【教学后记】
六
六教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（5）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
21．要求：(1)编制一个表单完成文字动态缩放操纵的表单；(2)文字信息初始的位置在表单的正中央，表单执行后，第间隔20毫秒，文字自动以字号加1的幅度逐步向周边延伸变大，直到文字充满整个表单；(3)然后每间隔20毫秒，文字会自动以字号加1的幅度逐步向中lkd回缩变小，直到文字复原为初始的状态；(4)整个过程不间断地缩放(最小字号为4，最大学号为52)
.****新建表单属性change ****表单的Form1的Init事件代码： thisform.change=0 ****时钟控件Timer1的Timer事件代码： if thisform.label1.fontsize=52
thisform.change=1 endif if thisform.label1.fontsize=4
thisform.change=0 endif if thisform.change=0 thisform.label1.fontsize=thisform.label1.fontsize+1 else
thisform.label1.fontsize=thisform.label1.fontsize-1 endif thisform.refresh
三、与表相关的表单设计（单表）
1．要求：(1)编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；(如图1)(2)表单初始显示内容为表文件“学生.dbf”内容的首记录；
(3)表单内容将以10秒为间隔自动刷新，即自动向后翻记录，当翻至表底时，瘵自动回到首记录循环翻动。
表单的Form1的Init事件代码：
THIS.SETALL(”READONLY“,.T.,”TEXTBOX“)GO TOP THISFORM.REFRESH 时钟控件Timer1的Timer事件代码： SKIP IF EOF()
GO TOP ENDIF THISFORM.REFRESH
2．要求：(1)编制一个表单完成表文件“学生.dbf“内容的只读浏览显示功能(如图2)(2)表单初始显示内容为表文件“学生.dbf”的首记录(3)当按“前翻”、“后翻”、“首记录”、“末记录”按钮时，表单将自动显示相应记录的内容(4)当翻至表头或表底时，将自动设置相应按钮不可访问。教学时间约
****年**月**日
总第节
审批签字：
表单的Form1的Init事件代码：
THIS.SETALL(”READONLY“,.T.,”TEXTBOX“)Sele 学生 GO TOP THISFORM.REFRESH “首记录”按钮Command1的Click事件代码：
go top thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.command1.enabled=.f.thisform.refresh “前翻”按钮Command2的Click事件代码：
skip-1 if bof()thisform.command1.enabled=.f.this.enabled=.f.endif thisform.command3.enabled=.t.thisform.command4.enabled=.t.thisform.refresh
“后翻”按钮Command3的Click事件代码：
skip if eof()thisform.command3.enabled=.f.thisform.command4.enabled=.f.endif thisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.refresh
“末记录”按钮Command4的Click事件代码： go bottom thisform.command1.enabled=.t.thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.command4.enabled=.f.thisform.refresh 3．要求：(1)编制“学生“表信息查询界面
(2)查询与用户指定的学生姓名相匹配的记录，并显示指定学生的所有信息。
List1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；文本框Text1~Text5的数据源属性分别为学生表中对应字段 所有文本框Text的ReadOnly属性为“.T.”； 表单的Form1的Init事件代码： use 学生
thisform.setall(”visible“,.f.,”textbox“)thisform.setall(”visible“,.f.,”label“)thisform.label1.visible=.t.thisform.refresh 列表框List1的Interactivechange事件代码： thisform.setall(”visible“,.t.)thisform.refresh
（四）小结 【教学后记】
教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（6）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
4．要求：(1)编制“学生表”信息查询界面(2)显示指定学生的所有信息。
Combo1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；文本框Text1~Text5的数据源属性分别为学生表中对应字段 所有文本框Text的ReadOnly属性为“.T.”； 表单的Form1的Init事件代码： use 学生
thisform.setall(”visible“,.f.,”textbox“)thisform.setall(”visible“,.f.,”label“)thisform.label1.visible=.t.thisform.refresh 组合框Combo1的Interactivechange事件代码： thisform.setall(”visible“,.t.)thisform.refresh
5．要求：编制“学生”表信息查询界面，查询与用户输入的学生学号相匹配的记录，并显示指定学生的所有信息。
Label3、Label4、Label5、Label6的Caption属性分别设置为“姓名：”、“性别：”、“出生年月：”、“奖学金：”，并设置所有文本框的数据源属性为学生表中的对应字段 标签Label2的Forecolor属性为“255,255,255”
除学号文本框，所有文本框Text的ReadOnly属性为“.T.”； 表单的Form1的Init事件代码：
use 学生
thisform.setall(”visible“,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t. 文本框Text1的Valid事件代码：
loca for alltrim(学号)=alltrim(this.value)if found()
thisform.label2.caption=”“
thisform.setall(”visible“,.t.)else
thisform.setall(”visible“,.f.)
thisform.label1.visible=.t.thisform.text1.visible=.t.thisform.label2.visible=.t.thisform.label2.caption=”您所指定的学生并不存在！“ endif thisform.refresh
6．要求：(1)编制一个界面程序，实现将用户指定的表文件的字段名列表显示(2)系统自动查询用户指定的表文件是否存在，存在则列表显示指定表文件的所有字段名信息，否则给出信息提示框 教学时间约
****年**月**日
总第节
审批签字：
Form1的Init事件的代码：
Thisform.label2.visible=.f.Thisform.list1.visible=.f. Text1的Valid事件的代码
fn=alltrim(this.value)+ ”.dbf“ if file(fn)thisform.setall(”visible“,.t.)thisform.list1.clear
use(fn)for i=1 to fcount()
thisform.list1.additem(field(i))endfor else Thisform.label2.visible=.f.Thisform.list1.visible=.f.messagebox(”指定的表文件不存在!“,0+64, ”表文件存在判断“)endif thisform.refresh
7.编制一个表单完成学生成绩信息查询显示功能(界面如图所示)。要求(1)当输入学生 9．要求：(1)编制一个表单完成表文件“学生.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择班级(学号的左三位)后，表单将自动显示对应班级的奖学金总额
(3)按“退出”按钮时，自动关闭表单。
表单Form1的Init事件代码：
sele 学生
index on left(学号,3)to xh unique scan thisform.combo1.additem(left(学号,3))endscan 组合框Combo1的Valid事件代码：
set talk off Sum 奖学金 to jxj for left(学号,3)=this.value Thisform.twxt1.value=jsj “退出”按钮Command1的Click事件代码：
thisform.release 10．要求：(1)编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择班级(学号的左三位)后，表单将自动显示对应班级的所有学生的总平均成绩
(3)按“退出”按钮时，自动关闭表单。
表单Form1的Init事件代码：
Set talk off index on left(学号,3)to xh unique scan
thisform.combo1.additem(left(学号,3))endscan set index to 组合框combo1的Valid事件代码：
set talk off average成绩 to cj for left(学号,3)=this.value thisform.text1.value=cj “退出”按钮Command1的Click事件代码： thisform.release
（四）小结 【教学后记】 教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（7）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
11．编制一个表单完成数据转移操作功能
命令按钮“添加一项”command1的click事件代码：
thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)&&“添加一项”将list1内容移到list2，即list1的内容减少一项（removeitem），list2的内容增加一项（additem）。thisform.refresh 命令按钮“全部添加”command2的click事件代码：
thisform.list1.clear thisform.list2.clear scan thisform.list2.additem(姓名)endscan &&“全部添加”将list1内容全部移到list2，即list1全部清空（clear），list2内容为学生表的“姓名”。thisform.refresh 命令按钮“移去一项”command3的click事件： thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)&&“移去一项”将list2的内容移到list1，list2减少一项（removetiem），list1增加一项（additem）。thisform.refresh 命令按钮“全部移去”command4 的click事件： thisform.list2.clear thisform.list1.clear scan thisform.list1.additem(姓名)endscan &&“全部移去”将list2内容全部移到list1，即list2全部清空（clear），list1内容为学生表的“姓名”。
thisform.refresh
12．要求：(1)编制一个列表框数据转移操作表单；(2)当在左边显示学生姓名的窗口选择某个学生后，单击“选择一项”按钮，左边的列表中的所选中的单项信息将自动转移到右边的列表框中；(3)当在右边显示学生姓名的窗口选择某个学生后，单击“退还一项”按钮，右边的列表中选中的单项信息将自动转移到左边的列表框中。
*****表单Form1的init事件代码: 教学时间约
****年**月**日
总第节
审批签字：
this.list2.rowsourcetype=0 this.list2.rowsource=” this.list12.sorted=.t.this.list1.rowsourcetype=0 this.list1.rowsource=”” use 学生 scan
this.list1.additem(姓名)endscan *****命令按钮”选择一项”command1的click事件代码: thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)thisform.refresh *****命令按钮”退还一项”command2的click事件代码: thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)thisform.refresh
13．要求：在文本框中输入一个工资金额数，从数据表文件gzb.dbf（工资表）中查找高于此工资数男女人数，利用标签输出统计结果。
*****统计按钮command1的click事件代码: select gzb count to x for 工资>val(thisfom.text1.value)and 性别=.t.count to y for 工资>val(thisform.text1.value)and 性别=.f.thisform.label2.caption=”工资超过”+thisform.text1.value+”的男职工人数为:”+str(x,4)thisform.label3.caption=”工资超过”+thisform.text1.value+”的女职工人数为:”+str(y,4)14.四、与表相关的表单设计（多表）
15．要求：(1)编制一个表单完成表文件“课程.dbf”“成绩.dbf”内容的查询显示功能
(2)当用户在组合框选择课程名后，表单将自动显示对应课程的所有学生的总平均成绩
(3)按“退出”按钮时，自动关闭表单。
组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“课程.课程名”。 组合框Combo1的Valid事件代码：
set talk off select 课程 kch=课程号 select 成绩
average 成绩 to cj for 课程号=kch thisform.text1.value=cj “退出”按钮Command1的Click事件代码：
thisform.release
（四）小结 【教学后记】
教学时间约
****年**月**日
总第节
审批签字：
【课题】表单练习（8）
本课（章、节）共 2 课时，本课时为第1、2 课时,课的类型：实习课 【教学目标】熟悉表单的操作与命令 【教学重点】表单的操作与命令 【教学难点】表单的操作与命令 【教学方法】讲授法、实验法 【教学过程及板书设计】
（一）前提测评：
（二）目标展示：表单的操作与命令
（三）导学达标：
16．要求：(1)编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择姓名后，表单将自动显示对应学生的平均成绩(3)按“退出”按钮时，自动关闭表单。
组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“学生.姓名”。 组合框Combo1的Interactivepage事件代码：
set talk off select 学生 xh=学号 select 成绩
average 成绩 to cj for 学号=xh thisform.text1.value=cj “退出”按钮Command1的Click事件代码：
thisform.release
17.要求：(1)编制一个表单完成表文件“学生.dbf”、“成绩.dbf”、“课程.dbf”内容的编辑浏览显示功能
(2)三个表文件分别显示在三个不同的页面上(3)未被激活的页面自动设为不可访问
Timer1的Interval属性设置为10000 Timer1的Timer事件的代码：
P=Thisform.PageFrame1.ActivePage P=P+1 IF P>3
P=1 ENDIF
Thisform.PageFrame1.SetAll(”Enabled“,.F.,”Page")Thisform.PageFrame1.Pages(P).Enabled=.T.Thisform.PageFrame1.ActivePage=P
18.要求：（1）编制一个学生成绩查询表单，表单中的显示学生信息的窗口的指针移动时，在另一个窗口可以自动显示出对应那个学生所所有成绩信息。
*****Form1的init事件代码: sele 成绩 教学时间约
****年**月**日
总第节
审批签字：
inde on 学号 to xh sele 学生
set rela to 学号into 成绩
19.要求：（1）编制一个表单完成表文件“学生.dbf”“成绩.dbf”“课程.dbf”内容的编辑浏览显示功能；（2）三个表文件分别显示在三个不同的页面上；（3）当在选项按钮组选择某个表文件时，页框中的页会自动翻页，即自动翻动为与选择的表文件对应的页；（4）未被激活的页面自动设为不可访问
*****Form1的init事件代码: thisform.pageframe1.setall(“enabled”..f.,”page”)thisform.pageframe1.page1.enabled=.t.*****Optiongroup1的click事件代码: thisform.pageframe1.setall(“enabled”,.f.,”page”)do case
case this.value=1
thisform.pageframe1.page1.enabled=.t.thisform.pageframe1.activepage1=1 case this.value=2
thisform.pageframe1.page2.enabled=.t.thisform.pageframe1.activepage=2 case this.value=3 thisform.pageframe1.page3.enabled=.t.thisform.pageframe1.activepage=3 endcase 20．要求：(1)编制一个小型文本编辑器，界面见下图；(2)文字信息从键盘输入至edit框；(3)三个单选按钮分别用于设置“宋体”、“黑体”和“隶书”；(4)三个check按钮用设置字体的“倾斜”、“加粗”和“下划线”；(5)字号用微调控件实现
***optiongroup1的click事件代码: do case case this.value=1 thisform.text1.fontname=”宋体” case this.value=2 thisform.text1.fontname=”楷体” case this.value=3 thisform.text1.fontname=”隶书” endcase ***check1的click事件代码: if this.value=1 thisform.text1.fontbold=.t.else thisform.text1.fontbold=.f.endif ***check2,3的代码类似于check1 ***spinner1的upclick事件代码
thisform.text1.fontsize=thisform.text1.fontsize-1 ***spinner1的downclick事件代码
thisform.text1.fontsize=thisform.text1.fontsize+1
（四）小结 【教学后记】
第五篇：电子申请单需求0428
二、电子申请单打印的的检查项目能否显示完整的检查项目，各类检查注意事项（由医院提供，最好能在前台进行维护）。此外，在医生开单时（尤其是开心电图时），在申请单基本信息里面加上身高（需医生录入）、体重（需医生录入）、床位号。有诸多细节待定（这个只是申请单上多加几个病人基本信息）。
七、病理有些医生填的字段没有传到PACS系统中，比如是否有绝经，是否有环等。把对应的视图和PACS对接好。细节待定(这个问题待定)
八、小手术还未启用，接下去完成小手术的开单。非PACS接口模块不做修改。（这个问题请咨询马建强，关于小手术计费问题）。
九、能否在医技系统里面加个床位项目，然后在右边放个快速减速框（以住院号码为检索字段）。非PACS项目可以不用医技系统计费。PACS模块无需操作。不修改。（这个问题我主要想解决 的是万一病人太多，我可以通过住院号快速检索出来，并执行（针对的是心电图和病理））
十、病人出院证明显示有医嘱未执行的时候，能否将为执行的医嘱显示出来，有时是显示不出来的。程序很多地方都有这个控制，具体是哪里？（这个问题是我有病人出院，在打出院证明的时候，他会提示有医技未执行，一般来说会显示相应的医技或医嘱，但是目前很多情况是没有显示的未处理的医技或医嘱的）。
点击咨询 