VFP基礎教程 5.6 命令按鈕和命令按鈕組

    一。命令按鈕（commandbutton）:通常用來完成某些功能，例如確認，撤認，執(zhí)行，完成等操作。

    二。命令按鈕組（commandgroup）:當一個表單需要多個命令按鈕時，可以使用命令按鈕組，這樣可使事件代碼更簡潔，界面更加整潔和美觀。命令按鈕組中各命令按鈕的排列方向和位置可根據(jù)用戶的需要進行調整，操作的步驟如下：

    1.單擊選中表單中的命令按鈕組。
    2.右擊命令按鈕組，在快捷菜單中選擇"編輯"命令。
    3.選中命令按鈕后，根據(jù)需要進行相關操作（也可在"屬性"窗口的對象選擇列表框中直接選擇命令按鈕組中各個命令按鈕）

    三。命令按鈕（組）的常用屬性：見下表：

    四。制作一個表單，添加三個命令按鈕command1～command3,練習設置其屬性，按圖20依次設置其屬性

Visual FoxPro基礎教程完整版 
    1.選中command1,在"屬性"窗口中中選中caption屬性，在上方文本框中輸入"確定",如圖21
    2.選中command2,在"屬性"窗口中中選中caption屬性，在上方文本框中輸入"<c取消",如圖22,
    并將其cancel屬性設為。t.,則在運行時，單擊該按鈕，按C鍵或按ESC鍵，均可執(zhí)行此按鈕的click事件代碼。
    3.選中command3,在"屬性"窗口中中雙擊其picture屬性，在彈出的對話框中選擇"d:vfp98fox.bmp"即可。
    五。例一：將xggz表單（制作方法見本章第二節(jié)）中的各個命令按鈕換成命令按鈕，對比使用方法。
    1.打開xggz.scx,將原來的幾個命令按鈕刪除，在原來的位置添加一個命令按鈕組，如圖23

    2.按下表設置命令按鈕組commandgroup1的屬性：
對象
屬性名
屬性值
commandgroup1
buttoncount
5
commandgroup1
auotsize
.T.
command1
caption
第一個
command2
caption
上一個
command3
caption
下一個
command4
caption
最后一個
command5
caption
退出
    3.編寫代碼：命令按鈕組commandgroup1的click事件代碼如下：
    sel=this.value &&變量sel用于命令按鈕組中被選中的命令按鈕的序號（即運行時被單擊的）
    do case
    case sel=1
    go top
    case sel=2
    if !bof（）
    skip -1
    endif
    case sel=3
    if !eof（）
    skip
    endif
    case sel=4
    go bottom
    case sel=5
    thisform.release
    endcase
    thisform.refresh
    六。例二：按人員編號增刪改"工資情況表的數(shù)據(jù)
    1.設計表單的界面：新建表單→打開數(shù)據(jù)環(huán)境→將"工資情況"表添加到數(shù)據(jù)環(huán)境中→從數(shù)據(jù)環(huán)境中，拖動"工資情況"表的所有字段到表單中，并添加文本框 text1用于輸入定位人員的編號，添加"定位"（command1）,"追加"（command2）和"刪除"（command3）三個命令按鈕，界面如圖24所示，并將文本框text1的inputmark屬性設為99999
    2.編寫代碼：
    *"定位"按鈕的click事件代碼：
    bh=alltrim（thisform.text1.value）
    jlh=recno（）
    locate for 編號=bh
    if eof（）
    go jlh
    =messagebox（"沒有找到該編號！"）
    else
    thisform.refresh
    endif
    *"追加"按鈕的click事件代碼：
    append blank
    thisform.refresh
    *"刪除"按鈕的click事件代碼：
    yn=messagebox（"是否要刪除？",4+32）
    if yn=6
    delete
    if eof（）
    go top
    else
    skip
    endif
    thisform.refresh
    endif
    3.可進一步考慮問題：怎樣實現(xiàn)在文本框text1中輸完編號，回車即進行查找？
    可在text1的valid事件加入如下代碼：
    if !empty（this.value）
    thisform.command1.click &&調用命令按鈕"查找"（即command1）的click事件代碼，進行查找
    else
    return .f.
    endif
Visual FoxPro基礎教程完整版
     

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

 如果您覺得本網(wǎng)站對您的學習有所幫助,可以手機掃描二維碼進行捐贈