盒子论坛 v2.1

with adotable1 do
  begin
  label1.Caption:=';
  indexfieldnames:='邮编';
  setkey;                  //这里错了，这个是什么意思，书上没写
  if edit1.Text=' then;
  showmessage('请输入邮编')
  else
  fieldbyame('邮编').asstring:=edit1.Text;
     if gotokey then    //这里错了，说gotokey为知的标识符
     label1.Caption:='查找成功';
     edit2.Text:=fieldbyname('姓名').AsString;
     memo1.Lines[0]:='姓名'+fieldbyname('姓名');
     memo1.Lines[1]:='邮编'+fieldbyname('邮编');
     end;
     else
      begin
      edit2.Text:='此人不在';
      label1.Caption:='查找失败';
      memo1.Lines[0]:='此人不存在';
      memo1.Lines[1]:=';
      end;

如果我一行写代码写满了，，又要下一行和上行代码连着用什么符号，谢谢
----------------------------------------------
—————————
本人初学什么都不懂，请帮帮我，万分感谢

作者：

gf3ok (GF3)	★☆☆☆☆	-
	普通会员

2003/10/14 12:55:16

1楼：

我等很长时间了有人回答我下吗，，，谢谢
----------------------------------------------
—————————
本人初学什么都不懂，请帮帮我，万分感谢

作者：

xianyu (咸鱼)	★☆☆☆☆	-
	普通会员

2003/10/14 13:12:24

2楼：

我这里正好有一段，不知道有没有用得上的。
procedure TForm1.Button1Click(Sender: TObject);
begin
  table1.Open;
  label3.Caption:=';
  label4.Caption:=';
  label6.Caption:=';
  table1.SetKey;
  table1.FieldByName('tbh').AsString:=trim(edit1.Text);
  if table1.GotoKey then
  begin
    label3.Caption:=table1.fieldbyname('tkm').AsString;
    label6.Caption:=table1.fieldbyname('txm').AsString;
    label4.Caption:='successfully find!';
  end
  else
  begin
    label4.Caption:='The Command Falled!';
  end;
end;

没有加入判断为空的条件。你自己先试试吧。
----------------------------------------------
还是咸的有味

作者：

xianyu (咸鱼)	★☆☆☆☆	-
	普通会员

2003/10/14 13:17:00

3楼：

哦，对了，忘了告诉你，用Goto和Find方法，都要求查找的字段有索引，否则将不能使用这二种方法。要不就得用locate 方法啦·~~~~

我想应该是没有设定索引吧，你设设看。。。
----------------------------------------------
还是咸的有味

作者：

gf3ok (GF3)	★☆☆☆☆	-
	普通会员

2003/10/14 13:19:43

4楼：

是是，我看看，谢谢指导
----------------------------------------------
—————————
本人初学什么都不懂，请帮帮我，万分感谢

信息

登陆以后才能回复