edit1.readonly:=true;edit1.color:=clmenu; edit6.text:=fieldvalues[''bookname'']; file://显示图书名edit6.readonly:=true;edit6.color:=clmenu; file://设置显示框不可更改属性 edit7.text:=fieldvalues[''author'']; edit7.readonly:=true;edit7.color:=clmenu; edit8.text:=fieldvalues[''publisher'']; edit8.readonly:=true;edit8.color:=clmenu; edit9.text:=fieldvalues[''pubdate'']; edit9.readonly:=true;edit9.color:=clmenu; edit10.text:=fieldvalues[''price'']; edit10.readonly:=true;edit10.color:=clmenu; edit11.text:=fieldvalues[''booktype'']; edit11.readonly:=true;edit11.color:=clmenu; edit12.text:=fieldvalues[''number1'']; edit12.readonly:=true;edit12.color:=clmenu; if fieldvalues[''addation'']<>null then edit25.text:=fieldvalues[''addation''] else edit25.text:=''''; edit25.readonly:=true;edit25.color:=clmenu; end else begin file://在没有查找到的情况下，清空所有显示框 edit1.readonly:=false;edit1.text:='''';edit1.color:=clmenu; edit6.readonly:=false;edit6.text:='''';edit6.color:=clmenu; edit7.readonly:=false;edit7.text:='''';edit7.color:=clmenu; edit8.readonly:=false;edit8.text:='''';edit8.color:=clmenu; edit9.readonly:=false;edit9.text:='''';edit9.color:=clmenu;
edit10.readonly:=false;edit10.text:='''';edit10.color:=clmenu; edit11.readonly:=false;edit11.text:='''';edit11.color:=clmenu; edit12.readonly:=false;edit12.text:='''';edit12.color:=clmenu; edit25.readonly:=false;edit25.text:='''';edit25.color:=clmenu; messagedlg(''没有找到你所需要的记录！'',mtinformation,[mbok],0); edit13.text:='''';edit13.setfocus; end; end;with datamoduleform.inquery do file://自动入库编号的获取 begin close; sql.clear; sql.add(''select * from inrecord where inid>=all(select inid from inrecord)''); open; file://找到入库编号中最大的一个 edit26.readonly:=false; edit26.text:=fieldvalues[''inid'']+1; file://最大的入库编号加1形成新的入库编号
