知识大全物料主文件维护功能的实现[2]

Posted 2022-07-21 主文

篇首语：谨慎和勤奋带来好运。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全物料主文件维护功能的实现[2]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>

为确保数据的安全性和完整性面板中的所有数据集控件(主要是指面板中显示数据的文本框)都只有在编辑新增等按钮按下时才能进行修改其他情况下都保持只读状态在编写程序时就将所有的DBEdit控件和Edit控件以及Memo控件的的ReadOnly属性设置为True 在需要编辑数据时才在代码中将其只读去掉后面的控件属性表格中不再就此一一说明请读者特别注意

( ) 另外为使界面更加美观可以在窗体上放置一个ToolBar控件和两个Pannel控件将BitBtn控件放置在ToolBar上并右击ToolBar控件在弹出的快捷菜单中选择New Separator 添加分隔符并将分割符的Style属性设置为tbsDivider 将DataEdit控件和相应的标签放在Pannel上以上这些操作都不影响程序的功能读者可以参考配书光盘中提供的代码自行设置

( ) 为【物料主文件维护】窗体添加事件处理代码如下 // 窗体显示时设置表中的列宽并初始化下拉列表框 procedure Tmaterials FormShow(Sender: TObject); begin //设置列的宽度 dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] width:= ; //设置计量单位下拉列表框中的内容 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select distinct 计量单位 from 物料主文件 ); adoquery Open; while not adoquery Eof do begin dbbobox Items Add(adoquery fieldbyname( 计量单位 ) AsString); adoquery Next; end; //设置计划类别下拉列表框中的内容 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 类别名称类别代码 from 物料计划类别 ); adoquery Open; while not adoquery Eof do begin dbbobox Items Add(adoquery fieldbyname( 类别名称 ) AsString); dbbobox Items Add(adoquery fieldbyname( 类别代码 ) AsString); adoquery Next; end; end;

cha138/Article/program/Delphi/201311/24990

知识大全 物料主文件维护功能的实现[2]

知识大全物料主文件维护功能的实现[2]