物料主文件維護功能的實現[2]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>

    為確保數據的安全性和完整性面板中的所有數據集控件(主要是指面板中顯示數據的文本框)都只有在編輯新增等按鈕按下時才能進行修改其他情況下都保持只讀狀態在編寫程序時就將所有的DBEdit控件和Edit控件以及Memo控件的的ReadOnly屬性設置為True在需要編輯數據時才在代碼中將其只讀去掉後面的控件屬性表格中不再就此一一說明請讀者特別注意

    () 另外為使界面更加美觀可以在窗體上放置一個ToolBar控件和兩個Pannel控件將BitBtn控件放置在ToolBar上並右擊ToolBar控件在彈出的快捷菜單中選擇New Separator添加分隔符並將分割符的Style屬性設置為tbsDivider將DataEdit控件和相應的標簽放在Pannel上以上這些操作都不影響程序的功能讀者可以參考配書光盤中提供的代碼自行設置

    () 為【物料主文件維護】窗體添加事件處理代碼如下
    //窗體顯示時設置表中的列寬並初始化下拉列表框
    procedure TmaterialsFormShow(Sender: TObject);
    begin
     
    //設置列的寬度
    dbgridColumns[]Width:=;
    dbgridColumns[]width:=;
    //設置計量單位下拉列表框中的內容
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select distinct 計量單位 from 物料主文件);
    adoqueryOpen;
    while not adoqueryEof do
    begin
    dbcomboboxItemsAdd(adoqueryfieldbyname(計量單位)AsString);
    adoqueryNext;
    end;
    //設置計劃類別下拉列表框中的內容
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select 類別名稱類別代碼 from 物料計劃類別);
    adoqueryOpen;
    while not adoqueryEof do
    begin
    dbcomboboxItemsAdd(adoqueryfieldbyname(類別名稱)AsString);
    dbcomboboxItemsAdd(adoqueryfieldbyname(類別代碼)AsString);
    adoqueryNext;
    end;
    end;

[]  []  []  []  []  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24990.html