给我分吧。
strsql:='insert into MyTips values(:a,:b,:c)';
query1.SQL.Text:=strsql;
query1.ParamByName('a').asstring:=strcode;
query1.ParamByName('b').asstring:=feTitle.Text;
query1.ParamByName('c').asstring:=memo1.Text;
query1.Prepare;
query1.ExecSQL;
query1.Close;
strsql:='insert into MyTips values(:a,:b,:c)';
query1.SQL.Text:=strsql;
query1.ParamByName('a').asstring:=strcode;
query1.ParamByName('b').asstring:=feTitle.Text;
query1.ParamByName('c').asstring:=memo1.Text;
query1.Prepare;
query1.ExecSQL;
query1.Close;
多谢老兄