下面的代码怎样才能通过

Question

begin
if key=#13 then
txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
else
showMessage('没有'+txtcode1.text+'的数据');
end;
  
 
 

Answer 1

缺少begin end
if key=#13 then
begin
txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
end
else
showMessage('没有'+txtcode1.text+'的数据');
  

Answer 2

begin
if key=#13 then
   begin
   txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
   txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
   end  else
    showMessage('没有'+txtcode1.text+'的数据');
end;

Answer 3

begin
if key=#13 then
   begin
   txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
   txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString;//这里要;
   end  else
    showMessage('没有'+txtcode1.text+'的数据');
end;

Answer 4

begin
  if key=#13 then
  begin
    txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
    txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString;
  end
  else
    showMessage('没有'+txtcode1.text+'的数据');
end;

Answer 5

同意！
begin
  if key=#13 then
  begin
    txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
    txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString;
  end
  else
    showMessage('没有'+txtcode1.text+'的数据');
end;

Answer 6

同意！ zjting(理所当然)  Taken(铁拳) shanxia(山峡) begin
  if key=#13 then
  begin
    txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
    txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString; *
  end
  else
    showMessage('没有'+txtcode1.text+'的数据');
end;
*号处的分号不是必须的，但最好家加上

Answer 7

begin
if key=#13 then
begin 
  txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
  txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
else
  showMessage('没有'+txtcode1.text+'的数据');
end;
  呵呵！

Answer 8

begin
if key=#13 then
begin
txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString
txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
end
else
showMessage('没有'+txtcode1.text+'的数据');
end;哎~跟我开始转到delphi一样

Answer 9

begin
if key=#13 then
begin 
  txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
  txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString 
end
else
  showMessage('没有'+txtcode1.text+'的数据');
end;少语句括号（begin......end),txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString 
后面不一定要加分号；

Answer 10

应该为下列模式
if then
  begin'
  end
else
  begin
  end;
还有数据库必须open

Answer 11

begin
if key=#13 then
   begin
   txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
   txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
   end  else
    showMessage('没有'+txtcode1.text+'的数据');
end;

Answer 12

关键是编程风格不好，代码书写不规范，导致程序错误难以发现，应以如下方式书写：
begin
  if key = #13 then
  begin
    txtname1.Text := ADOQuery1.FieldByName('customs_name').AsString;
    txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString;
  end
  else
    ShowMessage('没有'+txtcode1.text+'的数据');
end;