主题:如何在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嵌套吗?如何设定条件?
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嵌套吗?如何设定条件?