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

Posted 2022-07-21 主文

篇首语：勤勉是幸运的右手，世俭是幸运的左手。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全物料主文件维护功能的实现[3]相关的知识，希望对你有一定的参考价值。

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

// 显示物料主文件中的物料类别的名称 // 该事件在datasource 的events属性中添加 procedure Tmaterials DataSource DataChange(Sender: TObject; Field: TField); var num temp:string; begin //showmessage(dbgrid Fields[ ] AsString); //根据选取的数据记录查询出它的详细数据 num:=dbgrid Fields[ ] AsString; adoquery Close; adoquery SQL Clear; adoquery SQL Add( select * from 物料主文件 where 物料编号= +num+ ); adoquery Open; //显示计划类别的名称(物料主文件中存储的是其拼音编码) temp:=adoquery fieldbyname( 计划类别 ) AsString; adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 类别名称 from 物料计划类别 where 类别代码= +temp+ ); adoquery Open; dbbobox Text:=adoquery fieldbyname( 类别名称 ) AsString; end; // 下一条记录 procedure Tmaterials BitBtn Click(Sender: TObject); begin datasource DataSet Next; end; // 上一条记录 procedure Tmaterials BitBtn Click(Sender: TObject); begin datasource DataSet Prior; end; // 首条记录 procedure Tmaterials BitBtn Click(Sender: TObject); begin datasource DataSet First; end; // 末条记录 procedure Tmaterials BitBtn Click(Sender: TObject); begin datasource DataSet Last; end; // 点击窗体的X形图标时关闭窗体而不是最小化 procedure Tmaterials FormClose(Sender: TObject; var Action: TCloseAction); begin //当点击子窗体的关闭按钮时释放关闭窗体如果不设置这条代码将是最小化窗体而不是关闭 action:=cafree; end;

cha138/Article/program/Delphi/201311/24991

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

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