——此文章摘自《Delphi 数据库开发经典案例解析》定价¥特价¥购买>> //查询表中的数据并显示 procedure TmaterialsBitBtnClick(Sender: TObject); begin //查询数据 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select * from 物料主文件 where (物料编号 like %+editText+%)and); adoquerySQLAdd((物料名称 like %+editText+%)and(拼音编码 like %+editText+%)); adoqueryOpen; //将查询得到的数据通过clone命令复制到adotable中去 adotableClone(adoqueryltUnspecified); end; //在任何一个文本框上按enter键都能执行查询 procedure TmaterialsEditKeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtnClick; end; procedure TmaterialsEditKeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtnClick; end; procedure TmaterialsEditKeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtnClick; end; //新增一条记录 procedure TmaterialsBitBtnClick(Sender: TObject); begin //在dbgrid中插入一行新的数据并提示用户在右边文本框中修改 datasourceDataSetInsert; showmessage(请在右边的文本框中输入新数据的详细内容); //为数据文本框设置默认值防止用户输入错误数值类型或者对不能为空的列输入空值 dbeditText:=; dbeditText:=在此输入物料名该项不能为空; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbeditText:=; dbcomboboxSelText:=dbcomboboxItemsStrings[]; dbcomboboxSelText:=dbcomboboxItemsStrings[]; //物料主文件中存储的是类别的拼音而不是名称因此插入时需要输入拼音而不是名称 [] [] [] [] [] [] [] [] |