回 帖 发 新 帖 刷新版面

主题:如何在FormShow中对2个表的字段进行指定?

procedure TForm1.FormShow(Sender: TObject);
begin
  datamodule2.A.Close;
  datamodule2.A.SQL.Clear;
  if j<>0 then
  begin
    datamodule2.A.SQL.Add('select * from customer where custId=:j');
    datamodule2.A.Parameters.ParamValues['j']:=j;
    datamodule2.A.Open;
    dbedit1.DataField:='cust';
    .
    .
    dbedit10.DataField:='address';
  end
  else
  begin
    datamodule2.A.SQL.Add('select * from customer');
    datamodule2.A.Open;
    dbedit1.DataField:='cust';
    .
    .
    dbedit10.DataField:='address';
    datamodule2.midc.Append;
  end;
end;

以上是将dbedit1~10数据框内的数据指定给表A,如果我想把dbedit11~20数据框内的数据指定给表B该如何做?用if嵌套吗?如何设定条件?

回复列表 (共1个回复)

沙发

不懂楼主的意思

我来回复

您尚未登录,请登录后再回复。点此登录或注册