数据库中添加对象的问题！(100分)

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #1

我想在数据库中加一个对象以后，另一个表中对应的某一属性（如：数量）加1，
同样删除一个对象的话，要减1，说穿了，就像学生选课系统里有人选择这一课的时候
课程表里可选择的人数就减1，学生表里学生选的课程数量就加1！

 

T

Tense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #2

不是有集合字段？

 

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #3

用触发器

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #4

集合字段？？我不懂能说清楚一点吗？我很菜，！对数据库我几乎是一点都不懂！

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #5

如　xuyingfeng　所言

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #6

Update 不行吗？

 

Z

zhuifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #7

可以用触发器

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #8

触发器(我是说DELPHI中的)是什么东西??哪位大虾跟解释一下啊?

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #9

有人能给我详细解释一下吗???

 

S

snake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #10

除了一些文本型的数据库如dbase,paradox等其他的数据库都支持触发器(trigger)，作用
就是象delphi里面的事件一样。各种数据库的触发器语法都不太一样，要看你用哪种数据库。
详细的可以上网找些资料，很多。

 

N

nsj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #11

是呀，用触发器很简单的，
就是，对拥有触发器的表进行某种操作的时候（插入、删除、修改），会自动的执行一段SQL语句。触发器
触发器是一种特殊类型的存储过程，当使用下面的一种或多种数据修改操作在指定表中对数据进行修改时，触发器会生效：UPDATE、INSERT 或 DELETE。触发器可以查询其它表，而且可以包含复杂的 SQL 语句。它们主要用于强制复杂的业务规则或要求。例如，可以控制是否允许基于顾客的当前帐户状态插入定单。
触发器还有助于强制引用完整性，以便在添加、更新或删除表中的行时保留表之间已定义的关系。然而，强制引用完整性的最好方法是在相关表中定义主键和外键约束。如果使用数据库关系图，则可以在表之间创建关系以自动创建外键约束。有关详细信息，请参见表关系。
触发器的优点如下：
触发器是自动的：它们在对表的数据作了任何修改（比如手工输入或者应用程序采取的操作）之后立即被激活。
触发器可以通过数据库中的相关表进行层叠更改。例如，可以在 titles 表的 title_id 列上写入一个删除触发器，以使其它表中的各匹配行采取删除操作。该触发器用 title_id 列作为唯一键，在 titleauthor、sales 及 roysched 表中对各匹配行进行定位。
触发器可以强制限制，这些限制比用 CHECK 约束所定义的更复杂。与 CHECK 约束不同的是，触发器可以引用其它表中的列。例如，触发器可以回滚试图对价格低于 10 美元的书（存储在 titles 表中）应用折扣（存储在 discounts 表中）的更新。

再具体的你看SQL SERVER的帮助吧。

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #12

对不起，本人用的paradox啊，有其他的办法吗？
大家看看我的代码，问题在哪儿？

begin
Form1.Table1.edit;//学生表
Form2.Table1.edit;//课程表
if
Form2.Table1.FieldByName('可选择人数').asinteger>0 then
begin
Form1.Table1.FieldByName('所选课程').asstring:=Form2.Table1.FieldByName('课程名称').asstring;
Form1.Table1.FieldByName('选课数量').asinteger:=Form1.Table1.FieldByName('选课数量').asinteger+1;
Form2.Table1.FieldByName('选课数量').asinteger:=Form2.Table1.FieldByName('选课数量').asinteger-1;
showmessage('选课成功！');
end
else
showmessage('人数已满');
end;
可这样不行啊！
有人指点一下吗？谢谢

 

T

Tense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #13

最后加上
Form1.Table1.post;
Form2.Table1.post;
如果是这的话，表示你没有保存；

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #14

关闭以后怎么让他释放内存啊??
像FORM有FREE函数,TABLE有没有专门的函数啊?

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #15

to tense
加了你给的代码还是不行啊!能给我写段原代码吗??
分数好说!!!

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #16

如果是c/s的数据库，用触发器实现很简单
而你用的是文件数据库， 那只好自己写点代码了， 自己在加入对象发生时写代码吧

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #17

2 htw
能详细的给我写点原代码吗?
我很急的,现在就想用!

 

B

blue_morning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #18

设定你的表如下：
A表
　字段：姓名,费用，科目ID(语文1，数学2)
B表
　字段：语文人数，　数学人数

代码如下：（A表的AfterInsert事件）
procedure TDataForm.TableAAfterInsert(DataSet: TDataSet);
begin
　if not TableB.Active then
TableB.Active := True;
TableB.Edit;
Case DataSet.FieldByName('科目ID').AsInteger of
1: TableB.FieldByName('语文人数').AsInteger := TableB.FieldByName('语文人数').AsInteger + 1;
2: TableB.FieldByName('语文人数').AsInteger := TableB.FieldByName('语文人数').AsInteger + 1;
end;
TableB.post;
end;

（A表的AfterDelete事件）
procedure TDataForm.Table1AfterDelete(DataSet: TDataSet);
begin
　if not TableB.Active then
TableB.Active := True;
TableB.Edit;
Case DataSet.FieldByName('科目ID').AsInteger of
1: TableB.FieldByName('语文人数').AsInteger := TableB.FieldByName('语文人数').AsInteger - 1;
2: TableB.FieldByName('语文人数').AsInteger := TableB.FieldByName('语文人数').AsInteger - 1;
end;
TableB.post;
end;

这两个事件实际上和触发器的原理是一样的，只是如果你用SQL服务器的话当然是写在服务器端好。

 

D

delphi_lsl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #19

设定你的表如下：
A表
　字段：姓名,费用，科目ID(语文1，数学2)
B表
　字段：语文人数，　数学人数

代码如下：（A表的AfterInsert事件）

procedure TDataForm.TableAAfterInsert(DataSet: TDataSet);
begin
　if not TableB.Active then
TableB.Active := True;
TableB.Edit;
Case DataSet.FieldByName('科目ID').AsInteger of
1: TableB.FieldByName('语文人数').AsInteger := TableB.FieldByName('语文人数').AsInteger + 1;
2: TableB.FieldByName('数学人数').AsInteger := TableB.FieldByName('数学人数').AsInteger + 1;
end;
TableB.post;
end;

（A表的AfterDelete事件）
procedure TDataForm.Table1AfterDelete(DataSet: TDataSet);
begin
　if not TableB.Active then
TableB.Active := True;
TableB.Edit;
Case DataSet.FieldByName('科目ID').AsInteger of
1: TableB.FieldByName('语文人数').AsInteger := TableB.FieldByName('语文人数').AsInteger - 1;
2: TableB.FieldByName('数学人数').AsInteger := TableB.FieldByName('数学人数').AsInteger - 1;
end;
TableB.post;
end;
讨了一个便宜，改了两处笔误，相信楼上的不会计较吧？

 

流

流浪者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-01

• #20

多人接受答案了。