如何COPY 字段的值(0分)

M

m&m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #1

往数据库中录入一条信息后，在录入下一条时，将该条记录的

某些字段的值带入到下一条。

 

蚯

蚯蚓

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #2

var
OldValue:Variant;

DataSet.BeforeInsert:
begin
with Sender do
if not eof then
OldValue:=FieldByName('xxx').Value;
end;

DataSet.AfterInsert:
begin
with Sender do
FieldByName('xxx').Value:=OldValue;
end;

 

M

m&m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #3

诸位高手：

能否可以考虑给现有的控件加入这种复制属性呢 ？？？

不知道 DELPHI 能否实现 ？望大虾们赐教 ！！！！

 

B

bethouvnlue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #4

当然能
继承一个控件就可以了
为什么要问这个问题

 

M

m&m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #5

TO bethouvnlue：

如何继承 ？

为了方便录入人员操作，减少重复性的劳动。

 

B

bethouvnlue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-29

• #6

会作控件吗?
先做个小控件,就会明白的.
(现在没时间给出例子,看HELP吧)

 

M

m&m

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-06

• #7

接受答案了.