begin
if key=#13 then
txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
else
showMessage('没有'+txtcode1.text+'的数据');
end;
if key=#13 then
txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
else
showMessage('没有'+txtcode1.text+'的数据');
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+'的数据');
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;
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;
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
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;
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;
*号处的分号不是必须的,但最好家加上
if key=#13 then
begin
txtname1.Text:=ADOQuery1.FieldByName('customs_name').AsString;
txtcode1.Text:=ADOQuery1.FieldByName('customs_code').AsString
else
showMessage('没有'+txtcode1.text+'的数据');
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+'的数据');
end;哎~跟我开始转到delphi一样
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
后面不一定要加分号;
if then
begin'
end
else
begin
end;
还有数据库必须open
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
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;