help!我犯了什么错??????

Question

下面是程序,编译是提示what变量的赋值语句Missing operator or semicolin
我不知道哪错了,望高手赐教,thankyou!还有就是delphi有外部变量吗?怎么用?
procedure TForm1.C1Click(Sender: TObject);
 var
what:string;
beginadoquery1.Close;
adoquery1.SQL.Clear;
if(sender=c1) thenadoquery1.SQL.Add('select 产品ID,产品名称,库存量,单价  from 产品资料')
  what:='产品资料'
else if(sender=f2) then
 adoquery1.SQL.Add('select *from 厂商资料')
 what:='厂商资料'
else if(sender=k1) then
 adoquery1.SQL.Add('select *from 客户资料')
   what:='客户资料'
else if(sender=n8) then
 adoquery1.SQL.Add('select 用户编号,用户名,用户类型 from 用户资料')
    what:='用户资料'
else if(sender=n9) then
 adoquery1.SQL.Add('select *from 入库单据')
    what:='入库单据'
else if(sender=n10) then
 adoquery1.SQL.Add('select *from 出库单据')
     what:='出库单据'
else if(sender=n11) then
 adoquery1.SQL.Add('select *from 库存查询');
 adoquery1.Open;
      what:='库存查询'
end;

Answer 1

你犯大错误了!你的帖子怎么跑到"Palm OS"论坛来了!:)))

Answer 2

if(sender=c1) then
begin
  adoquery1.SQL.Add('select 产品ID,产品名称,库存量,单价  from 产品资料');
  what:='产品资料';
end else if
begin
 ……
end else if
begin
 ……
end;

Answer 3

else if(sender=f2) then
 adoquery1.SQL.Add('select *from 厂商资料')
 what:='厂商资料'
应写为
else if(sender=f2) then
begin
 adoquery1.SQL.Add('select *from 厂商资料');
 what:='厂商资料';
end

Answer 4

小生同志就差一步了,哈哈
那样是不行的,不过谢谢了
w_zigang()兄谢了,分,不多,收好了.