——此文章摘自《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} [] [] [] |