Delphi语句纠错

procedure TForm4.Button1Click(Sender: TObject);
var
s1:string;
s2:string;
s3:string;
s4:string;
s5:string;
s6:string;
begin
if edit1.Text='' then
showmessage('请输入学号！');

if edit2.Text='' then
showmessage('请输入姓名！');

if edit3.Text='' then
showmessage('请输入性别！');

if edit4.Text='' then
showmessage('请输入入学成绩！');

if edit5.Text='' then
showmessage('请输入附加分！');

if edit6.Text='' then
showmessage('请输入代码！');
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 学生表 values(s1,s2,s3,s4,s5,s6)');
adoquery1.Open;
adoquery1.Parameters.ParamByName(s1):=edit1.text
adoquery1.Parameters.ParamByName(s2):=edit2.text;
adoquery1.Parameters.ParamByName(s3):=edit3.text;
adoquery1.Parameters.ParamByName(s4):=strtof

第一个：
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into 学生表 values(:s1,:s2,:s3,:s4,:s5,:s6)');
adoquery1.Parameters.ParamByName(s1):=edit1.text
adoquery1.Parameters.ParamByName(s2):=edit2.text;
adoquery1.Parameters.ParamByName(s3):=edit3.text;
adoquery1.Parameters.ParamByName(s4):=strtofloat(edit4.text);
adoquery1.Parameters.ParamByName(s5):=strtofloat(edit5.text);
adoquery1.Parameters.ParamByName(s6):=edit6.text;
adoquery1.ExecSQL;
变量需要加":"；

第二个问题：
你看看你的ADO是否是可以编辑的，
with adoquery1 do
begin
edit;
//置为编辑状态
append;
fieldbyname('学号').AsString:=edit1.Text;
fieldbyname('姓名').AsString:=edit2.Text;
fieldbyname('性别').AsString:=edit3.Text;
fieldbyname('入学成绩').AsFloat:=strtofloat(edit4.Text);
fieldbyname('附加分').AsFloat:=strtofloat(edit5.Text);
fieldbyname('班级代码').AsString:=edit6.Text;