帮我看看这对不对呀，dbedit输不进数据？？？？

procedure Tcbyslr.BitBtn1Click(Sender: TObject);
var
s1,str:integer;
command:string;
begin
     s1:=1;
      //如果为空，是第一次新增，要生成制单编号
         begin
             query_zp1.Close;
             query_zp1.sql.clear;
             Command:='select MAX(编号) from 印刷计划表头';
             query_zp1.sql.add(Command);
             query_zp1.Open;
             if query_zp1.RecordCount=0 then  //如果第一条的记录为空，是第一条记录
                begin
                     str:=s1;
                end
             else                                         //如果该条的记录不为空  循环找出编码最大
                begin
                    str:=(query_zp1.Fields[0].AsInteger+1);
                end;
    // cbys_lr.DBEdit4.Text:=inttostr(str);//记录生成的编码
     query_cbtyt.Open;
     query_cbtyt.Insert;
     cbyslr.DBEdit4.Text:=inttostr(str);//记录生成的编码
     end;
      cbyslr.DBEdit1.SetFocus;
      cbyslr.DBEdit1.Color:=clinfoBK;
      cbyslr.BitBtn2.Enabled:=true;
end;
DBEdit1就是输不进数据