物料主文件维护功能的实现[2]

为确保数据的安全性和完整性面板中的所有数据集控件(主要是指面板中显示数据的文本框)都只有在编辑新增等按钮按下时才能进行修改其他情况下都保持只读状态在编写程序时就将所有的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;

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

上一篇：物料主文件维护功能的实现[3]

下一篇：物料主文件维护功能的实现[7]