请大师们再帮我看个程序(增加操作),指点指点我,先谢谢各位!!!

                            
procedure   Tw_dwlr.Button1Click(Sender:   TObject);   
  begin  
  with   adoquery1   do  
  begin  
      close;  
      sql.Clear   ;  
      sql.Add('select   *   from   danwei');  
      sql.Add('where   单位编号='''+edit1.text+'''');  
      open;  
      if   not   eof   then  
      begin  
          showmessage('该单位编号已存在,请重新输入!');  
          edit1.Text   :='';  
          edit1.SetFocus   ;  
          exit;  
      end;  
      begin  
          close;  
          sql.Clear   ;  
          sql.Add('insert   into   danwei(单位编号,单位名称,所属系统,部门,编制人数,配枪标准,枪专管人,负责人,审查单位,审核单位,审批单位,审查人,审核人,审批人,发证时间,有效期限,填表时间,填表人,备注)');  
          sql.Add('values(:bh,:mc,:xt,:bm,:rs,:bz,:qg,:fz,:scd,:shd,:spd,:scr,:shr,:spr,:fzr,:qx,:tbrq,:tbr,:bzz)');  
          Parameters.ParamByName('bh').Value   :=edit1.Text;  
          Parameters.ParamByName('mc').Value   :=edit2.Text;  
          Parameters.ParamByName('xt').Value   :=combobox1.Text;  
          Parameters.ParamByName('bm').Value   :=combobox2.Text;  
          Parameters.ParamByName('rs').Value   :=edit3.Text;  
          Parameters.ParamByName('bz').Value   :=edit4.Text;  
          Parameters.ParamByName('qg').Value   :=edit5.Text;  
          Parameters.ParamByName('fz').Value   :=edit6.Text;  
          Parameters.ParamByName('scd').Value   :=edit7.Text;  
          Parameters.ParamByName('shd').Value   :=edit8.Text;  
          Parameters.ParamByName('spd').Value   :=edit9.Text;  
          Parameters.ParamByName('scr').Value   :=edit10.Text;  
          Parameters.ParamByName('shr').Value   :=edit11.Text;  
          Parameters.ParamByName('spr').Value   :=edit12.Text;  
          Parameters.ParamByName('fzr').Value   :=datetostr(dtp1.Date);  
          Parameters.ParamByName('qx').Value   :=edit13.Text;  
          Parameters.ParamByName('tbrq').Value   :=datetostr(dtp2.Date);  
          Parameters.ParamByName('tbr').Value   :=edit14.Text;  
          Parameters.ParamByName('bzz').Value   :=memo1.Text;  
          execsql;  
      end;  
  end;  
  end;  
   
  end.  
  运行成功后,提示出现新的问题了:“字符串数据,右截位”这是咋回事啊,有没有哪位大师知道啊,指点指点我吧!!

查看回复

最新教程