下面的程序为什么达不到预期效果!
procedure TForm1.Button1Click(Sender: TObject);
var subject:string;
begin
subject:=inputbox('请输入','科目 ','数学');
if subject='数学'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 数学');
adoquery1.Open;
label1.Caption:='数学成绩 '
end;
if subject='化学'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 化学');
adoquery1.Open;
label1.Caption:='化学成绩 '
end;
if subject='物理'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 物理');
adoquery1.Open;
label1.Caption:='物理成绩 '
end;
if subject='生物'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 生物');
adoquery1.Open;
label1.Caption:='生物成绩 '
end;
if subject='英语'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 英语');
adoquery1.Open;
label1.Caption:='英语成绩 '
end;
if subject='语文'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 语文');
adoquery1.Open;
label1.Caption:='语文成绩 '
end;
if subject='政治'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 政治');
adoquery1.Open;
label1.Caption:='政治成绩 '
end;
if subject='地理'
then
begin
adoquery1.close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 地理');
adoquery1.Open;
label1.Caption:='地理成绩 '
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var na:string;
begin
na:=inputbox('请输入','姓名','张柏芝');
adoquery1.open;
adoquery1.edit;
adoquery1.FieldByName('name').AsString:=na;
adoquery1.Active;
adoquery1.close;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.Insert;
dbedit1.SetFocus;
adoquery1.ExecSQL;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
adoquery1.Edit;
dbedit1.SetFocus;
adoquery1.ExecSQL;
end;
输入姓名时为什么打不开表,不能找到相关记录?
[解决办法]
调试啊,看看sql对不对,是否修改成功
[解决办法]
name 是关键字吧 用[name]试试
[解决办法]
你加入一个 [] 试试看
[解决办法]
adoquery1.open;
adoquery1.edit;
adoquery1.FieldByName('name').AsString:=na;
adoquery1.Active;
adoquery1.close;
上面的句子可能错了。
[解决办法]
是不是循环错了
[解决办法]
应该先执行adoquery1.close,这样可以清掉原来里面可能存在的SQL语句。
[解决办法]
这样写有点乱呀,建议你还是写一个完整的SQL语句
在MSSQL数据库运行一下试试吧
[解决办法]
看看是不是参数传递有问题