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

Posted 2022-07-21 主文

篇首语：我认为人生最美好的主旨和人类生活最幸福的结果，无过于学习了。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全物料主文件维护功能的实现[4]相关的知识，希望对你有一定的参考价值。

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

// 查询表中的数据并显示 procedure Tmaterials BitBtn Click(Sender: TObject); begin //查询数据 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select * from 物料主文件 where (物料编号 like % +edit Text+ % )and ); adoquery SQL Add( (物料名称 like % +edit Text+ % )and(拼音编码 like % +edit Text+ % ) ); adoquery Open; //将查询得到的数据通过clone命令复制到adotable中去 adotable Clone(adoquery ltUnspecified); end; // 在任何一个文本框上按enter键都能执行查询 procedure Tmaterials Edit KeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtn Click; end; procedure Tmaterials Edit KeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtn Click; end; procedure Tmaterials Edit KeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtn Click; end; // 新增一条记录 procedure Tmaterials BitBtn Click(Sender: TObject); begin //在dbgrid中插入一行新的数据并提示用户在右边文本框中修改 datasource DataSet Insert; showmessage( 请在右边的文本框中输入新数据的详细内容 ); //为数据文本框设置默认值防止用户输入错误数值类型或者对不能为空的列输入空值 dbedit Text:= ; dbedit Text:= 在此输入物料名该项不能为空 ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbedit Text:= ; dbbobox SelText:=dbbobox Items Strings[ ]; dbbobox SelText:=dbbobox Items Strings[ ]; //物料主文件中存储的是类别的拼音而不是名称因此插入时需要输入拼音而不是名称

cha138/Article/program/Delphi/201311/24986

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

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