新建 文本文档 (2).txt

实现短信的收发应用非常的方便,系统很小直接使用不需安装

var
 teststr:string;
begin
  if edit1.text='' then
  begin
  application.messagebox('物品代码不能为空!','提示', mb_ok+MB_iconwarning);
  exit;
  end;
  try
  dmsheltonman.dbSheltonMan.StartTransaction;
  goodsquery.requestlive:=false;
  openquery(Qdel,'select * from goodscode where goods_goodscode ='''+edit1.text+'''');
  if Qdel.RecordCount =0 then
  begin
  application.messagebox('数据库中没有这条记录!','提示', mb_ok+MB_iconwarning);
  dmsheltonman.dbSheltonMan.Commit;
  exit;
  end;
  if Qdel.RecordCount <>0 then
  if application.messagebox('你真的想删除吗?','确认', mb_okcancel) = IDok  then
  begin
  try
  with goodsquery do
  begin
  close;
  sql.clear;
  sql.add('delete from goodscode where goods_goodscode='''+edit1.text+'''');
  execsql;
  end
  except
  application.messagebox('数据库中没有这条记录!','提示', mb_ok+MB_iconwarning);
  dmsheltonman.dbSheltonMan.Commit;
  exit;
  end ;
  end
  else
  begin
  dmsheltonman.dbSheltonMan.Commit;
  exit;
  end;
  dmsheltonman.dbSheltonMan.Commit;
  application.messagebox('数据删除完毕!','提示', mb_ok);
  except
  application.messagebox('数据删除出错请与系统管理员联系!','提示', mb_ok+MB_iconwarning);
  dmsheltonman.dbSheltonMan.Rollback;
  end;
     //刷新的代码
     try
      openquery(goodsquery, 'select * from goodscode' );
      count.Caption     :=inttostr(goodsquery.RecordCount);
      Edit1.Text        :=goodsquery.FieldByName('goods_goodscode').asString;
     // Edit2.Text        :=goodsquery.FieldByName('goods_sign').asString;
      edit3.text        :=goodsquery.FieldByName('goods_name').asString;
      Edit4.Text        :=goodsquery.FieldByName('goods_gg').asString;
      Edit5.Text        :=goodsquery.FieldByName('goods_jldw').asString;
      edit6.text        :=goodsquery.FieldByName('goods_plan').asString;
      Edit7.Text        :=goodsquery.FieldByName('goods_overage').asString;
      Edit8.Text        :=goodsquery.FieldByName('goods_addoverage').asString;
      edit9.text        :=goodsquery.FieldByName('goods_upperlimit').asString;
      Edit10.Text       :=goodsquery.FieldByName('goods_lowerlimit').asString;
      Edit11.Text       :=goodsquery.FieldByName('goods_re0').asString;
      edit12.text       :=goodsquery.FieldByName('goods_re1').asString;
      except
      application.messagebox('数据库中没有数据!','提示', mb_ok+MB_iconwarning);
      end;
      readonly();
  end;