VFP基礎(chǔ)教程 5.2 表單(二)

    八。為表單創(chuàng)建新屬性：

    1.打開(kāi)表單，單擊"表單"菜單，選"新建屬性"菜單項(xiàng)，系統(tǒng)彈出"新建屬性"對(duì)話框
    2.在該對(duì)話框的"名稱"框中輸入屬性名，同時(shí)可在說(shuō)明框中加上該屬性的注釋，單擊"添加"即可，如圖8

    3.選access項(xiàng)和assign項(xiàng)，則在新建表單屬性的同時(shí)創(chuàng)建該屬性對(duì)應(yīng)的方法程序，其中access方法在查詢?cè)搶傩詴r(shí)被執(zhí)行，assign方法程序在修改該屬性時(shí)被執(zhí)行。
    4.單擊對(duì)話框中的"關(guān)閉"按鈕，該屬性即被添加到"屬性"窗口中，選中表單，在"屬性"窗口中可選中并檢查該屬性，如圖9

Visual FoxPro基礎(chǔ)教程完整版
    九。為表單創(chuàng)建新方法程序：
    1.打開(kāi)表單，單擊"表單"菜單，選"新建方法程序"菜單，系統(tǒng)顯示"新建方法程序"對(duì)話框
    2.輸入方法程序的名稱后，單擊"添加"按鈕即可，如圖10.
    方法程序代碼應(yīng)在"屬性"窗口的"方法程序"選項(xiàng)卡中選擇該方法程序名雙擊，在彈出的編輯器中輸入方法程序。新建的方法程序的執(zhí)行方法與系統(tǒng)提供的方法程序相同。
    十。例一：制作表單xggz.scx,修改人員工資數(shù)據(jù)。
    1.新建一個(gè)表單，右擊表單空白處，將"工資情況"表添加到數(shù)據(jù)環(huán)境中
    2.在"數(shù)據(jù)環(huán)境設(shè)計(jì)器"中，將"工資情況"表的各個(gè)字段，依次拖到表單上，如圖11,
    并調(diào)整它們的位置，全部字段拖到表單上后，如圖12
    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)行表單，
    十一。例二：表單調(diào)用舉例：建立一個(gè)名為diaoyong的程序文件，用程序代碼調(diào)用例一中建立的xggz.scx表單
    1.在命令窗口輸入命令：modify command diaoyong,在彈出的代碼窗口中輸入如下代碼：
    set default to e:myvfp
    do form xggz
    read events
    2.在命令窗口如下命令執(zhí)行程序：
    do diaoyong
    十二。例三：表單內(nèi)部控件的事件發(fā)生順序
    1.新建一個(gè)表單，添加三個(gè)命令按鈕，如圖16

    2.添加事件代碼：
    *表單的load事件：messagebox（"form1.load"）
    *表單的inint事件：messagebox（"form1.init"）
    *表單的click事件：messagebox（"form1.click"）
    *表單的destroy事件：messagebox（"form1.destroy"）
    *command1的init事件：messagebox（"command1.init"）
    *command2的init事件：messagebox（"command2.init"）
    *command3的init事件：messagebox（"command3.init"）
    *commadn1的click事件：messagebox（"command1.click"）
    3.保存表單文件為li3.scx,目錄為e:myvfp.運(yùn)行l(wèi)i3.scx,觀察事件發(fā)生的先后順序。
    十三。例四：修改表單li3.scx:
    1.在命令窗口依次輸入下面兩條命令，打開(kāi)表單li3.scx
    set default to e:myvfp
    modify form li3.scx
    2.向表單中添加一個(gè)文本框text1,為text1編寫下列事件代碼：
    *text1的when事件：messagebox（"text1.when"）
    *text1的gotfocus事件：messagebox（"text1.gotfocus"）
    *text1的valid事件：
    messagebox（"text1.valid"）
    return .t.
    *text1的lostfocus事件：messagebox（"text1.lostfocus"）
    3.運(yùn)行表單，單擊text1文本框，觀察文本框?qū)ο笫录l(fā)生的先后順序
    4.將text1的valid事件的返回值改為。F.（即return .F.）,運(yùn)行表單，單擊text1文本框，觀察有何不同。
     

 生活不易，碼農(nóng)辛苦

 如果您覺(jué)得本網(wǎng)站對(duì)您的學(xué)習(xí)有所幫助,可以手機(jī)掃描二維碼進(jìn)行捐贈(zèng)