初学者的两个小问题

Question

小弟初学，大虾不要见笑。
1.怎样实现DBEdit1.Text读取DBEdit2.Text的内容（DBEdit1、DBEdit2对应不同表中的字段）。
  我用DBEdit6.Field.Value := Trim(DBEdit5.Text);
  或DBEdit6.FText := Trim(DBEdit5.Text);试过都不对。
2.怎样用SQL语句删除表中的对应数据项
  我是这样写的：
     with DM.Query6fsd do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 装备发送单 where 发送单号 = :FSDH');
    ParamByName('FSDH').AsString := Trim('DBEdit5.Text');
    ExecSQL;
  end;
  程序正常运行，但就是不能删除对应的数据。
  请大家帮忙我已经郁闷了一天了:(

Answer 1

1、DBEdit6.DataSet.Edit;
   DBEdit6.Field.Value:=Trim(DBEdit5.Text);2、ParamByName('FSDH').AsString := Trim(DBEdit5.Text);

Answer 2

with DM.Query6fsd do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 装备发送单 where 发送单号 = :FSDH');
    ParamByName('FSDH').AsString := Trim(DBEdit5.Text);
    ExecSQL;
  end;

Answer 3

第二个这样改看看可以吗？
ParamByName('FSDH').value:= Trim('DBEdit5.Text');

Answer 4

2,ParamByName('FSDH').AsString := Trim('DBEdit5.Text');
============================================
改成:
ParamByName('FSDH').AsString := Trim(DBEdit5.Text);或改成:
sqk,add('delete from 装备发送单 where 发送单号 = '+DBEdit5.Text)试试

Answer 5

第二个这样改看看可以吗？
ParamByName('FSDH').value:= Trim(DBEdit5.Text);//原来多了个引号

Answer 6

我要实现的是一次操作完成两个表的删除：
  procedure TFSDForm.BitBtn5Click(Sender: TObject);
begin
  inherited;
  if MessageBox(0,'您确定删除该条记录','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then
    DM.fsdxx.Delete;
  with DM.Query6fsd do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 装备发送单 where 发送单号 = :FSDH);
    ParamByName('FSDH').AsString := Trim(DBEdit5.Text);
    ExecSQL;
    end;end;

Answer 7

你另一个表名在哪呀？？？？？
with DM.Query6fsd do
  begin
    Close;
    SQL.Clear;
    SQL.Add('delete from 装备发送单 where 发送单号 = :FSDH);
    ParamByName('FSDH').AsString := Trim(DBEdit5.Text);
    ExecSQL;
    close;
    sql.clear;
    sql.add( delete from 另一表......');
    execsql;end;
再用个事务保持同步更新

Answer 8

回复楼上：
    DM.fsdxx.Delete;就是删除对应的一个表中的数据项。它的删除运行时是正常的，主要是对装备发送单操作不执行。