代码如下 table1.TableName:='d:\data.db'; table1.Open; begin if edit1.text<>'' then begin edit2.Text:=table1.Lookup('id',edit1.text,'name'); edit3.Text:=table1.Lookup('id',edit1.text,'intime'); edit4.Text:=table1.lookup('id',edit1.text,'outtime'); edit5.Text:=table1.lookup('id',edit1.text,'money'); end else showmessage('welcome'); name intime 都是alpha类型
读取的时候要注意类型转换
edit上显示的都是字符串
table1.TableName:='d:\data.db';
table1.Open;
begin
if edit1.text<>'' then
begin
edit2.Text:=table1.Lookup('id',edit1.text,'name');
edit3.Text:=table1.Lookup('id',edit1.text,'intime');
edit4.Text:=table1.lookup('id',edit1.text,'outtime');
edit5.Text:=table1.lookup('id',edit1.text,'money');
end
else showmessage('welcome');
name intime 都是alpha类型
; const ResultFields: String): Variant;照你上面给的代码看,好像没问题啊。
可以判断一下lookup的返回值