3.向表單添加5個(gè)命令按鈕:command1,command2,command3,command4和command5,將它們的caption屬性依次設(shè)為"第一個(gè)","上一個(gè)","下一個(gè)","最后一個(gè)","退出",并調(diào)整它們的位置,如圖13.
再次說(shuō)明一下修改控件屬性的方法:以command1為例,在"表單設(shè)計(jì)器"中選中command1,其四周出現(xiàn)黑色方塊,表明已被選取。然后在"屬性"窗口中選"全部"選項(xiàng)卡,拖動(dòng)滾動(dòng)條,選中caption屬性,在上方的文本框中輸入屬性值:第一個(gè),如圖14
4.將表單的caption屬性(即標(biāo)題欄顯示的內(nèi)容)設(shè)為"修改工資",autocenter屬性設(shè)為。T.(此屬性設(shè)為真,運(yùn)行時(shí)表單自動(dòng)居中).
5.編寫代碼:
* "第一個(gè)"按鈕(command1)的click事件代碼:
go top
thisform.refresh &&刷新顯示
*"上一個(gè)"按鈕(command2)的click事件代碼:
if !bof()
skip -1 &&如果當(dāng)前記錄不是首記錄,則向上移動(dòng)一位記錄指針
endif
thisform.refresh
*"下一個(gè)"按鈕(command3)的click事件代碼:
if !eof()
skip &&如果當(dāng)前記錄不是最后一條記錄,向下移動(dòng)一位記錄指針
endif
thisform.refresh
*"最后一個(gè)"按鈕(command4)的click事件代碼:
go bottom
thisform.refresh
*"退出"按鈕(command5)的click事件代碼:
tui=messagebox("您確實(shí)要退出嗎?",4+64,"提示信息")
if tui=6 &&如果此條件為真,說(shuō)明運(yùn)行時(shí)用戶點(diǎn)了消息框中的"是",執(zhí)行thisform.release釋放表單
thisform.release
clear events
endif
6.保存表單到e:\myvfp,名為"xggz"
7.運(yùn)行表單,
相關(guān)推薦:計(jì)算機(jī)等級(jí)考試二級(jí)VF三套全真預(yù)測(cè)試題及答案全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VF輔導(dǎo)筆記匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |