代码如下:
procedure TForm4.Button6Click(Sender: TObject);
var
chr:array[1..100] of string;
begin
with  ADOQuery3 do
begin
Close;
SQL.Clear ;
SQL.Text:='insert into Jichu_Table(Number,Name,Age,Sex,Tel,Addr,Other) values (:chr[1],:chr[2],:chr[3],:chr[4],:chr[5],:chr[6],:chr[7])';
Parameters.ParamByName('chr[1]').Value:=trim(edit20.Text);
Parameters.ParamByName('chr[2]').Value:=trim(edit21.Text);
Parameters.ParamByName('chr[3]').Value:=trim(edit22.Text);
Parameters.ParamByName('chr[4]').Value:=trim(edit23.Text);
Parameters.ParamByName('chr[5]').Value:=trim(edit24.Text);
Parameters.ParamByName('chr[6]').Value:=trim(edit25.Text);
Parameters.ParamByName('chr[7]').Value:=trim(edit26.Text);
ExecSQL;
end;
end;