在DBGrid中怎样实现自动填充?(100分)

W

wangrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #1

例如要输入下面的表格:
学号 性别 ...
1 女 ...
2 男 ...
3 男 ...

在输入完一条纪录后,下一条纪录的学号字段自动加1后填入,
性别字段自动填入上一条纪录该子段的内容.
例如输入第二条纪录(2,男,...)后,按Tab键,自动填入(3,男,...).

 

G

gxg8816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #2

处理 TDataSet.AfterInsert 事件

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #3

如果再第二，第三条记录中间插入一个值，是不是还要
把第四，五。。。。条记录的学号字段依次加一？
感觉还是不要自动填充的好。

 

英

英国病人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #4

索引为“学号”，设一变量Max1为当前最大学号

procedure TDataModule1.Table1NewRecord(DataSet: TDataSet);
begin
Table1.Fields[0].Value:=Max1+1;
end;

procedure TDataModule1.Table1BeforeInsert(DataSet: TDataSet);
begin
Table1.Last;
Max1:=Table1.FieldByName('学号').AsInteger;
end;

 

W

wangrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #5

大富翁们真是武艺高强,佩服佩服,150大洋奉上!

 

W

wangrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-19

• #6

多人接受答案了。