經典案例 財務管理系統（9）[1]

　     ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>> 　新建一個窗體將窗體的Name屬性設置為SecSettingCaption屬性設置為會計科目設置

　　() 單擊Project | Options菜單命令將SecSetting窗體從自動創建的窗體列表中刪除將窗體保存為SetSettingFormpas為窗體添加如圖所示的控件其中除搜索欄的編輯框屬於Edit控件外其他編輯框都使用DBEdit控件所有數據庫控件的DataSet都設置為DataSource各控件屬性如表所示

　　圖 會計科目設置窗體

　　表 會計科目設置窗體控件清單

　　() 這裡需要說明的是窗體中ImageList和ToolBar中ToolButton的設置方法

　　首先雙擊這個控件彈出如圖所示的對話框單擊Add 按鈕將配書光盤中\Chap\ocons目錄下的圖標一一添加從對話框中的Images框中可以看到添加的圖標然後將ToolBar的Images屬性設為ImageList後在ToolBar上再右擊在彈出的菜單中選擇New Button或New Separator可以在工具欄上添加按鈕或分割符按鈕的圖標就是剛才在ImageList中加入的圖標了

　　圖 設置ImageList

　　() 需要注意的一點是在設置DBRadioGroup的Items屬性時由於數據庫中的項目都是個字符長度因此可能出現無法正常顯示的情況這時只要將Items中每項後面補上足夠的空格即可

　　public

　　{ Public declarations }

　　procedure SetToolBar(isEnable:bool);

　　end;

　　var

　　SecSetting: TSecSetting;

　　implementation

　　{$R *dfm}

[]  []  []  

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