第一篇：借款申請單：電子表單實例介紹(四)
【紙質(zhì)的借款申請單】
紙質(zhì)借款申請單包括企業(yè)向銀行借款，企業(yè)與企業(yè)之間借款，企業(yè)內(nèi)部借款，在這里我們主要指的是企業(yè)內(nèi)部的借款。
在企業(yè)內(nèi)部，職員時常會因為出差、辦理展會、購買物品及其他一些情況，向企業(yè)臨時借入資金，等事情結(jié)束后再用報銷的方式來沖抵借款。在這時候企業(yè)一般都會要求其填寫借款申請單，在其上注明借款人姓名、借款日期、借款事由、借款數(shù)額、資金性質(zhì)（現(xiàn)金、支票、轉(zhuǎn)帳）等項目，并經(jīng)相關(guān)領(lǐng)導審核簽字，財務會計審核及出納付款后方才辦理完借款手續(xù)。
但隨著信息技術(shù)化的高速發(fā)展，很多企業(yè)都存在著異地辦公的問題，這時如果還是沿用傳統(tǒng)的借款方式無疑會降低工作效率，增加企業(yè)成本，這時候電子化的辦公方式越來越受到企業(yè)的青睞，使用電子表單辦公已經(jīng)成為常見的現(xiàn)象。電子表單不僅保留了紙質(zhì)表單熟悉的外觀和感受，同時還具有強大的數(shù)據(jù)驗證、路由指令與商業(yè)邏輯功能，在提供必要的數(shù)據(jù)訪問和交互功能的同時，還能進行更有效的交互操作。電子表單的廣泛推廣，打破了時空限制，改變了辦公形態(tài)，大大加速了整個企業(yè)的快速運轉(zhuǎn)，不但降低了企業(yè)成本，提高企業(yè)競爭力，而且給辦公者提供了更多的選擇，更好的便利性。下面我們以常見的10oa借款申請單為例進行進一步的解釋說明。
10oa借款申請單完全可由企業(yè)根據(jù)自身的情況量身定義其字段內(nèi)容，如將借款單與報銷單相結(jié)合，清晰明了；在借款單中增加借款人的銀行卡名稱、銀行卡開戶行及帳號等字段信息，方便財務人員通過網(wǎng)上銀行直接支付；同時10oa系統(tǒng)自動將表單和流程相結(jié)合實現(xiàn)全自動的流轉(zhuǎn)，在流程運轉(zhuǎn)時表單會通過淡藍色背景來提示當前用戶哪些字段信息是需要其填寫的，對于每個字段來說，還可以設(shè)定它的類型（日期、時間、數(shù)字、金額、附件等），并自動進行數(shù)據(jù)驗證，避免了填寫表單的錯誤，大幅提高了工作效率。以下圖來詳細展示10oa借款申請單的特色優(yōu)勢：
① 通過對表單設(shè)置優(yōu)先級，提高辦公效率，如上圖中的借款申請單，因為需要在特定的時間內(nèi)收到款項，從而參加會展，可以將該借款申請單的優(yōu)先級設(shè)置為高，以便責任人在第一時間處理該借款申請單； ② 可設(shè)置借款申請單的結(jié)束時間，提醒責任人在該時間之內(nèi)抓緊辦理該借款申請單，以便事后作為追究責任的依據(jù)，從而避免相互推卸責任； ③ 可以通過腳本的方式自動帶出當前用戶的姓名與部門，提高工作效率； ④ 可以根據(jù)情況自身情況，自定義表單字段及字段類型；
⑤ 當前借款申請單需要用到的票據(jù)掃描件、文案上傳至附件，以便審核，上圖中可以將會展場地租用的信息與廣告費用設(shè)計上傳至附件，從而做到借款有據(jù)，有效提高審核通過概率；
⑥ 表單實現(xiàn)了全自動流轉(zhuǎn)，當借款人填寫完相關(guān)信息后，表單會自動找到當前用戶的部門經(jīng)理，提交經(jīng)理審核，同時表單還可以根據(jù)設(shè)定的條件判斷指標自動進行分支流轉(zhuǎn)；
⑦ 可以關(guān)聯(lián)相關(guān)的父子事務，如上圖10oa借款申請單中，可以關(guān)聯(lián)父事務“第八屆亞洲戶外用品展參展申請”，使申請更加合理化；
⑧ 處理過程可以全程跟蹤和記錄，方便相關(guān)人員查看進度與結(jié)果；
⑨ 本部門經(jīng)理加亮加粗顯示（可設(shè)置強制只查找本部門經(jīng)理），其余經(jīng)理并列顯示（方便在本部門經(jīng)理有事不能及時處理時，授予其他部門經(jīng)理代為處理，提高辦公效率），使辦公更加人性化。
第二篇：借款申請單
借款申請書
中國農(nóng)業(yè)銀行**支行：
本公司坐落于******，主要經(jīng)營有：標牌、文教體育用品、家居用品、訓練健身器材、戶外用品、警示管、不銹鋼制品制造、銷售。2013年1月至12月，實現(xiàn)銷售收入…..萬元，利潤…萬元，稅金..萬元。現(xiàn)因目前擴大生產(chǎn)需要，需從******有限公司采購….，需資金…萬元，合同要求銀行承兌匯票結(jié)算，特向貴行申請簽發(fā)....銀行承兌匯票壹份，金額為*******萬元整，期限六個月，到期用銷售收入及保證金一次性償還，望貴行予以批準為盼。
申請人：*********
2014年4月9日
第三篇：電子申請單資料
各位老師好：
最近連續(xù)調(diào)試了好幾個電子申請單，于是對調(diào)試過程中的一些細節(jié)問題進行了小結(jié)，并分享之。不當?shù)牡胤秸埜魑焕蠋熤刚?/p>
一、applicationContext.xml。
1.
二、ReadHisPatientInfo.xml。
1.DeviceTypeName一定要求HIS與我們完全匹配，否則刷不出申請單而刷基本信息。2.CheckItemName。HIS沒有檢查方法字段時，可要求其在視圖中寫死如寫成“常規(guī)”。3.PositionName。檢查部位不需要進行匹配，只需在高級分診中“是否自動添加HIS的檢查項目到PACS中”勾選上即可。這樣HIS傳來的檢查部位會自動增加到我們的部位明細中。
4.接受或拒絕申請單，用Update語句回寫時，需要HIS為我們開放權(quán)限去操作HIS表（V_ApplicationInfo視圖中IsConfirm對應源數(shù)據(jù)所在的表）。（曾經(jīng)Update視圖的無知少年掩面路過...）
5.#pDiagID#、#DiagID# 對申請單號進行賦值和讀取時要注意視圖中申請單號對應的字段名稱（鄙視不按文檔寫視圖的碼農(nóng)）。
三、其它
1.刷信息時出現(xiàn)亂碼，是由于數(shù)據(jù)庫字符集不匹配造成的。目測部隊醫(yī)院都會出現(xiàn)這種問題。這需要特殊版本的readhis。其中加入了字符集轉(zhuǎn)換的功能，就是對sql語句取得的結(jié)果進行轉(zhuǎn)換后輸出。
2.體檢需要通過reg文件進行注冊，指定URL。
3.程序根目錄下的ReqFormat.xsl 中建議將“費用”字段去掉，以控制需求。4.珍愛生命，遠離發(fā)布頁。
第四篇：VF電子教案(表單練習)
教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（1）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
一、與表無關(guān)的表單設(shè)計（與計時器無關(guān)）1．要求：(1)編制一個按鈕組調(diào)色板
(2)當用戶按了命令按鈕組中的某個按鈕后，表單的背景色就會變?yōu)榘粹o指定的對應顏色。
? 命令按鈕組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)編制一個按鈕組調(diào)色板
(2)當用戶按了命令按鈕組中的某個按鈕后，命令按鈕組的背景色就會變?yōu)榘粹o指定的對應顏色。(注意與上一題比較，14是設(shè)置表單的背景色，本題是設(shè)置命令按鈕組的背景色。
? 命令按鈕組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)編制一個選項按鈕組調(diào)色板
(2)當用戶按了某個選項按鈕后，表單的背景顏色就會變?yōu)榘粹o指定的對應顏色。
? 選項按鈕組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 教學時間約
****年**月**日
總第節(jié)
審批簽字：
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 ? 如果是設(shè)置選項按鈕組的背景色，如下圖
則顏色設(shè)置語句為：thisform.optiongroup1.backcolor=rgb(255,0,0)4．要求：(1)編制一個“選頁調(diào)色板”表單
(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）用戶從鍵盤輸入口令時，表單的顯示控件以“*”代替具體內(nèi)容；（3）系統(tǒng)的口令存放在表文件“學生.dbf”的姓名字段中，要求完全匹配；（4）輸入口令后，按回車，將自動在表單上顯示“正確”或“錯誤”信息。
***text1的Valid事件代碼：
loca for alltrim(this.value)=alltrim(姓名)if found()
thisform.label2.caption=”正確！” else
thisform.label2.caption=”錯誤！” endif select 學生
6．要求：編制一個人工翻動日歷牌，界面窗口中顯示當前日期，但是可以通過界面提供的微調(diào)按鈕任意地向前或向后翻動日期。
? Text1的dateformat屬性設(shè)為“14-漢語” ? 微調(diào)Spinner1的Downclick事件代碼：
thisform.text1.value=thisform.text1.value-1 thisform.refresh ? 微調(diào)Spnnier1的Upclick事件代碼：
thisform.text1.value=thisform.text1.value+1 thisform.refresh
（四）小結(jié) 【教學后記】
教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（2）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
7．要求(1)設(shè)計一個表單，接受用戶輸入的數(shù)字，生成相應的矩陣
(2)文本框內(nèi)輸入一個小于等于10的數(shù)字，生成一個相應的對稱矩陣，且這個矩陣的對角線的數(shù)字全部為0，其他的數(shù)字為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個字符加一個回車鍵，所以在內(nèi)循環(huán)結(jié)束時執(zhí)行該語句 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、要求：在文本框中輸入一個起始數(shù)，在編輯框中顯示20個從起始位置開始并且是3的倍數(shù)的整數(shù)，且這20個數(shù)字的個位數(shù)都是3，利用標簽輸出這20個數(shù)的和。教學時間約
****年**月**日
總第節(jié)
審批簽字：
***文本框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=”這組數(shù)字的和=”+str(s,10)thisform.refresh
10、要求：（1）在文本框text1中輸入任意一個100以內(nèi)的正整數(shù)；（2）將所有300以內(nèi)的能被該整數(shù)整除的數(shù)顯示在編輯框中；（3）將所在這些數(shù)的和顯示在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
（四）小結(jié) 【教學后記】
教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（3）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
要求：按“開始”按鈕，在編輯框中顯示九九乘法口訣表。**表單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)三個單選按鈕分別用于設(shè)置“宋體”、“黑體”和“隸書”；(4)三個check按鈕用設(shè)置字體的“傾斜”、“加粗”和“下劃線”；(5)字號用微調(diào)控件實現(xiàn) 教學時間約
****年**月**日
總第節(jié)
審批簽字：
***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個數(shù)，判別是否能形成三角形，如果是三角形，求出此三角形的面積。(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=”能構(gòu)成三角形,面積等于:” +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
（四）小結(jié) 【教學后記】 教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（4）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
二、與表無關(guān)的表單設(shè)計（計時器類表單設(shè)計）
15．要求：編制一個信息顯示(時鐘)的界面，顯示當前時間(每秒動態(tài)顯示跳動一次)(2)并將表單的背景顏色設(shè)置為藍、綠色自動變換(與時間同步切換)
? 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)編制一個表單完成數(shù)字時鐘顯示功能(2)表單將自動以1秒為間隔動態(tài)顯示系統(tǒng)時間(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)編制一個表單完成計時器計數(shù)顯示功能(2)表單初始顯示狀態(tài)為全零“00：00：00”
(3)按“計數(shù)”按鈕，將自動以秒為單位從零開始計數(shù)(設(shè)：時的計數(shù)屬性名為S，分的計數(shù)屬性名為F，秒的計數(shù)屬性名為M。)并在表單上動態(tài)顯示。按“停止”按鈕將顯示最后一刻的計數(shù)時間。
? 創(chuàng)建1個新建屬性，clocknum初值設(shè)為0 ? 表單的form1的init事件代碼：
thisform.timer1.enabled=.f.thisform.text1.value=”00:00:00“ thisform.refresh ? “計數(shù)”按鈕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))
教學時間約
****年**月**日
總第節(jié)
審批簽字：
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)“日期”“星期”“時鐘”標簽上的文本能自動換行，自動調(diào)整大小，背景透明；(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)編制一個表單完成文字水平動態(tài)移動操縱的表單；(2)文字信息(縱向)初始顯示位置在表單的左邊，表單執(zhí)行后，每間隔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)單擊微調(diào)控件的前翻后翻按鈕，日期與星期隨之變化。
***表單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()
（四）小結(jié)【教學后記】
六
六教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（5）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
21．要求：(1)編制一個表單完成文字動態(tài)縮放操縱的表單；(2)文字信息初始的位置在表單的正中央，表單執(zhí)行后，第間隔20毫秒，文字自動以字號加1的幅度逐步向周邊延伸變大，直到文字充滿整個表單；(3)然后每間隔20毫秒，文字會自動以字號加1的幅度逐步向中l(wèi)kd回縮變小，直到文字復原為初始的狀態(tài)；(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
三、與表相關(guān)的表單設(shè)計（單表）
1．要求：(1)編制一個表單完成表文件“學生.dbf”內(nèi)容的只讀瀏覽顯示功能；(如圖1)(2)表單初始顯示內(nèi)容為表文件“學生.dbf”內(nèi)容的首記錄；
(3)表單內(nèi)容將以10秒為間隔自動刷新，即自動向后翻記錄，當翻至表底時，瘵自動回到首記錄循環(huán)翻動。
? 表單的Form1的Init事件代碼：
THIS.SETALL(”READONLY“,.T.,”TEXTBOX“)GO TOP THISFORM.REFRESH ? 時鐘控件Timer1的Timer事件代碼： SKIP IF EOF()
GO TOP ENDIF THISFORM.REFRESH
2．要求：(1)編制一個表單完成表文件“學生.dbf“內(nèi)容的只讀瀏覽顯示功能(如圖2)(2)表單初始顯示內(nèi)容為表文件“學生.dbf”的首記錄(3)當按“前翻”、“后翻”、“首記錄”、“末記錄”按鈕時，表單將自動顯示相應記錄的內(nèi)容(4)當翻至表頭或表底時，將自動設(shè)置相應按鈕不可訪問。教學時間約
****年**月**日
總第節(jié)
審批簽字：
? 表單的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的數(shù)據(jù)源屬性分別為學生表中對應字段 所有文本框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
（四）小結(jié) 【教學后記】
教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（6）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
4．要求：(1)編制“學生表”信息查詢界面(2)顯示指定學生的所有信息。
? ? ?
?
Combo1的Rowsourcetype為“6-字段”，Rowsource為“學生.姓名”；文本框Text1~Text5的數(shù)據(jù)源屬性分別為學生表中對應字段 所有文本框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屬性分別設(shè)置為“姓名：”、“性別：”、“出生年月：”、“獎學金：”，并設(shè)置所有文本框的數(shù)據(jù)源屬性為學生表中的對應字段 ? 標簽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)編制一個界面程序，實現(xiàn)將用戶指定的表文件的字段名列表顯示(2)系統(tǒng)自動查詢用戶指定的表文件是否存在，存在則列表顯示指定表文件的所有字段名信息，否則給出信息提示框 教學時間約
****年**月**日
總第節(jié)
審批簽字：
? 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”內(nèi)容的查詢顯示功能(2)當用戶在組合框(下拉列表)選擇班級(學號的左三位)后，表單將自動顯示對應班級的獎學金總額
(3)按“退出”按鈕時，自動關(guān)閉表單。
? 表單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”內(nèi)容的查詢顯示功能(2)當用戶在組合框(下拉列表)選擇班級(學號的左三位)后，表單將自動顯示對應班級的所有學生的總平均成績
(3)按“退出”按鈕時，自動關(guān)閉表單。
? 表單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
（四）小結(jié) 【教學后記】 教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（7）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
11．編制一個表單完成數(shù)據(jù)轉(zhuǎn)移操作功能
? 命令按鈕“添加一項”command1的click事件代碼：
thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)&&“添加一項”將list1內(nèi)容移到list2，即list1的內(nèi)容減少一項（removeitem），list2的內(nèi)容增加一項（additem）。thisform.refresh ? 命令按鈕“全部添加”command2的click事件代碼：
thisform.list1.clear thisform.list2.clear scan thisform.list2.additem(姓名)endscan &&“全部添加”將list1內(nèi)容全部移到list2，即list1全部清空（clear），list2內(nèi)容為學生表的“姓名”。thisform.refresh ? 命令按鈕“移去一項”command3的click事件： thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)&&“移去一項”將list2的內(nèi)容移到list1，list2減少一項（removetiem），list1增加一項（additem）。thisform.refresh ? 命令按鈕“全部移去”command4 的click事件： thisform.list2.clear thisform.list1.clear scan thisform.list1.additem(姓名)endscan &&“全部移去”將list2內(nèi)容全部移到list1，即list2全部清空（clear），list1內(nèi)容為學生表的“姓名”。
thisform.refresh
12．要求：(1)編制一個列表框數(shù)據(jù)轉(zhuǎn)移操作表單；(2)當在左邊顯示學生姓名的窗口選擇某個學生后，單擊“選擇一項”按鈕，左邊的列表中的所選中的單項信息將自動轉(zhuǎn)移到右邊的列表框中；(3)當在右邊顯示學生姓名的窗口選擇某個學生后，單擊“退還一項”按鈕，右邊的列表中選中的單項信息將自動轉(zhuǎn)移到左邊的列表框中。
*****表單Form1的init事件代碼: 教學時間約
****年**月**日
總第節(jié)
審批簽字：
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．要求：在文本框中輸入一個工資金額數(shù)，從數(shù)據(jù)表文件gzb.dbf（工資表）中查找高于此工資數(shù)男女人數(shù)，利用標簽輸出統(tǒng)計結(jié)果。
*****統(tǒng)計按鈕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+”的男職工人數(shù)為:”+str(x,4)thisform.label3.caption=”工資超過”+thisform.text1.value+”的女職工人數(shù)為:”+str(y,4)14.四、與表相關(guān)的表單設(shè)計（多表）
15．要求：(1)編制一個表單完成表文件“課程.dbf”“成績.dbf”內(nèi)容的查詢顯示功能
(2)當用戶在組合框選擇課程名后，表單將自動顯示對應課程的所有學生的總平均成績
(3)按“退出”按鈕時，自動關(guān)閉表單。
? 組合框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
（四）小結(jié) 【教學后記】
教學時間約
****年**月**日
總第節(jié)
審批簽字：
【課題】表單練習（8）
本課（章、節(jié)）共 2 課時，本課時為第1、2 課時,課的類型：實習課 【教學目標】熟悉表單的操作與命令 【教學重點】表單的操作與命令 【教學難點】表單的操作與命令 【教學方法】講授法、實驗法 【教學過程及板書設(shè)計】
（一）前提測評：
（二）目標展示：表單的操作與命令
（三）導學達標：
16．要求：(1)編制一個表單完成表文件“學生.dbf”“成績.dbf”內(nèi)容的查詢顯示功能(2)當用戶在組合框(下拉列表)選擇姓名后，表單將自動顯示對應學生的平均成績(3)按“退出”按鈕時，自動關(guān)閉表單。
? 組合框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”內(nèi)容的編輯瀏覽顯示功能
(2)三個表文件分別顯示在三個不同的頁面上(3)未被激活的頁面自動設(shè)為不可訪問
? Timer1的Interval屬性設(shè)置為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 成績 教學時間約
****年**月**日
總第節(jié)
審批簽字：
inde on 學號 to xh sele 學生
set rela to 學號into 成績
19.要求：（1）編制一個表單完成表文件“學生.dbf”“成績.dbf”“課程.dbf”內(nèi)容的編輯瀏覽顯示功能；（2）三個表文件分別顯示在三個不同的頁面上；（3）當在選項按鈕組選擇某個表文件時，頁框中的頁會自動翻頁，即自動翻動為與選擇的表文件對應的頁；（4）未被激活的頁面自動設(shè)為不可訪問
*****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)三個單選按鈕分別用于設(shè)置“宋體”、“黑體”和“隸書”；(4)三個check按鈕用設(shè)置字體的“傾斜”、“加粗”和“下劃線”；(5)字號用微調(diào)控件實現(xiàn)
***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
（四）小結(jié) 【教學后記】
第五篇：電子申請單需求0428
二、電子申請單打印的的檢查項目能否顯示完整的檢查項目，各類檢查注意事項（由醫(yī)院提供，最好能在前臺進行維護）。此外，在醫(yī)生開單時（尤其是開心電圖時），在申請單基本信息里面加上身高（需醫(yī)生錄入）、體重（需醫(yī)生錄入）、床位號。有諸多細節(jié)待定（這個只是申請單上多加幾個病人基本信息）。
七、病理有些醫(yī)生填的字段沒有傳到PACS系統(tǒng)中，比如是否有絕經(jīng)，是否有環(huán)等。把對應的視圖和PACS對接好。細節(jié)待定(這個問題待定)
八、小手術(shù)還未啟用，接下去完成小手術(shù)的開單。非PACS接口模塊不做修改。（這個問題請咨詢馬建強，關(guān)于小手術(shù)計費問題）。
九、能否在醫(yī)技系統(tǒng)里面加個床位項目，然后在右邊放個快速減速框（以住院號碼為檢索字段）。非PACS項目可以不用醫(yī)技系統(tǒng)計費。PACS模塊無需操作。不修改。（這個問題我主要想解決 的是萬一病人太多，我可以通過住院號快速檢索出來，并執(zhí)行（針對的是心電圖和病理））
十、病人出院證明顯示有醫(yī)囑未執(zhí)行的時候，能否將為執(zhí)行的醫(yī)囑顯示出來，有時是顯示不出來的。程序很多地方都有這個控制，具體是哪里？（這個問題是我有病人出院，在打出院證明的時候，他會提示有醫(yī)技未執(zhí)行，一般來說會顯示相應的醫(yī)技或醫(yī)囑，但是目前很多情況是沒有顯示的未處理的醫(yī)技或醫(yī)囑的）。
點擊咨詢 