procedure Ttcheng.Button1Click(Sender: TObject);
begin
ADOQuery1.Append;
edit1.Enabled :=true;
edit2.Enabled :=true;
edit3.Enabled :=true;
edit4.Enabled :=true;
edit5.Enabled :=true;
button2.Enabled :=true;
button3.Enabled :=true;
if ((trim(edit2.Text)<>'') )then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='insert into 成绩表(学号,课程编号,成绩,学年,学期)values('''+trim(edit1.Text)+''','''+trim(edit2.Text)+''','''+trim(edit3.Text)+''','''+trim(edit4.Text)+''','''+trim(edit5.Text)+''')';
ADOQuery1.ExecSQL;
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('select * from 成绩表');
ADOQuery1.ExecSQL;
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
edit1.Enabled :=false;
edit2.Enabled :=false;
edit3.Enabled :=false;
edit4.Enabled :=false;
edit5.Enabled :=false;
//button3.Enabled :=false;
end
else
begin
showmessage('请输入姓名、班级、课程名称、学年、学号、课程编号、成绩、学期！');
//button3.Enabled :=false;
end;
end;

有人吗

有大神指导吗

select语句用open，不是execsql

我可以私信你吗 我想咨询你一些问题

可以回复我吗

第一句append注释掉试试！还有不用总close。

ADOQuery1.Append;
ADOQuery1 不是開啟的狀態，是不能下append指定的