怎样编写BUTTON按钮的代码，实现一个非常简单功能：在EDIT中输入编号（编号是关键字段），然后通过一个BUTTON来控制字段显示(50分)

A

amyda2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #1

在EDIT中输入编号（编号是关键字段），然后通过一个BUTTON来控制其它的EDIT，让它们显示其它
字段的内容。比如：我输入编号00001，然后按“显示”按钮，在其它的EDIT内分别显示编号为00001货品
的入库时间，单价，等相关信息。怎样编写BUTTON按钮的代码？我是初学者，请大家帮忙。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #2

根据编号在数据库中进行搜索，并更新其它编辑框。
可以用带参数的查询。

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #3

if dataset1.locate('编号字段',edit1.text,[]) then
begin
edit入库时间.text:=dataset1.FieldByName('入库时间字段').asString;
edit单价.text:=dataset1.FieldByName('单价字段').asString;
......
end;

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #4

比如，你可以这样
with query1 do
begin
close;
sql.clear;
sql.add('select * from tablename where 编号='''+edit1.text+'''');
open;
if not empty then
begin
edit2.text:=fieldbyname('入库时间').asstring;
edit3.text:=fieldbyname('单价').asstring;
.
.
end;



end;

 

A

amyda2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #5

对不起，我看不懂你写的，我只是个初学者呀。说得具体一点，最好能给出代码。我是想实现
这样一个功能：比如说我的表里有3个字段，分别为编号、货品名称、单价。我输入编号，然后
按显示按钮，就可以在货品名称和单价栏里显示出相应的信息。是不是在显示按钮里加几条语句？
该如何写？　

 

佛

佛法无边

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #6

你照着上面说的作一下就知道了
之需要一个query,button,三个edit
然后再button 的onclick中写就可以了
没有错误的

 

A

amyda2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #7

我按“雪中漫步”写的做了，编译出错：undeclared identifier:'empty'
我把if not empty then
begin删了
编译通过了，但点BUTTON按钮又出错，Debugger Exception Notification
Project Project1.exe raised exception calss EDBEngineError with message
'Invalid use of keyword.
Token:?
Line Number:1'.

 

F

feigepan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #8

把if not empty then
改成 if not eof then
试试

 

A

amyda2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #9

hunterteam的方法也试了，但编译出错:undeclared identifier;'dataset1'
undeclared identifier;'locate'

 

A

amyda2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #10

我刚才按“feigepan”说的，把empty改成了eof，但报的错和先前的一模一样。急呀！！！
我以前以为这一小段代码不是很麻烦的，谁知......，真痛苦，什么时候才能像诸位大侠一样
学得这么好呀，痛苦，55555555

 

弄

弄影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #11

把if not empty then
改成 if bof<>eof then
试试

 

A

amyda2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #12

按弄影说的试过了，在Token:后面的问号改成了我所设的数据表的名in.db,其它错误依旧，痛苦啊

 

莞

莞尔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-10

• #13

可以在显示按钮的onclick事件中写入如下代码：
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from table where bianhao='''+edit编号.text+'''');
open;
end;
end;
if adoquery1.recordcount<>0 then
begin
edit入库时间.text:=adoquery1.fieldbyname('入库时间').value;
edit单价.text:=:=adoquery1.fieldbyname('单价').value;
edit货品名称.text:=:=adoquery1.fieldbyname('货品名称').asstring;
end;