插入新的字段(100分)

G

gyq918

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #1

请问在delphi4.0中如何在程序运行时插入新的字段?
在delphi中如何设计表格的打印

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #2

1. 用TQuery写sql最简单, 如:
alter table tablename add column column_name char(30)
2. 最简单的是用QuickReport生成报表.

 

P

pegasus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #3

有的数据库服务器在有数据的时候不允许更改数据表的定义，例如MS SQLServer,
为的是维护数据的完整性（就是正确性)

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #4

sql server允许增加column, 但是不能删除

 

W

wgzhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #5

要在运行中插入新字段并且长期存在,不知DBO怎么设计数据库的,今后怎么对此字段操作,是不是要重写软件.
如果只是临时用的,应该是计算字段.

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #6

直接插入新字段有些数据库好象不太支持的, 我的做法是建立一个新表,把旧表中的
数据倒入.

 

G

gub

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #7

选择tabel.field中的add命令

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-10

• #8

另建一个table,通过Create View建一个view,这样，就可以达到你的要求。
要点是保证统一主键。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #9

eyes is right, pegasus wrong

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #10

用table.field.add怎么加？？能不能贴出来？？？

 

Y

YuanLiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-23

• #11

在Delphi中打印可以用QuickReport,一般应用完全可以满足了.
看看Delphi中的Demo就知道了.

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #12

gyq918到底想干什么？
怎么人影都没了？

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #13

谁有具体的程序段，贴了来瞧瞧。

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-24

• #14

eyes 不是都贴了么！？

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-25

• #15

Table1.FieldDefs.Add(fieldname,fieldtype,fieldsize,true);
Table1.CreateTable;
这样并不会影响其他的字段。

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-27

• #16

if not Table1.Exists then { Don't overwrite an existing table }

begin
with Table1 do
begin
Active := False; { The Table component must not be active }

{ First, describe the type of table and give it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';

{ Next, describe the fields in the table }
with FieldDefs do
begin
Clear;
Add('Field1', ftInteger, 0, True);
Add('Field2', ftString, 30, False);

end;

{ Next, describe any indexes }
with IndexDefs do
begin
Clear;
{ The first index has no name because it is a Paradox primary key }
Add('', 'Field1', [ixPrimary, ixUnique]);
Add('Fld2Indx', 'Field2', [ixCaseInsensitive]);
end;

{ Now that we have specified what we want, create the table }
CreateTable;
end;
end;

 

L

Liu JZX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-27

• #17

if not Table1.Exists then { Don't overwrite an existing table }

begin
with Table1 do
begin
Active := False; { The Table component must not be active }

{ First, describe the type of table and give it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';

{ Next, describe the fields in the table }
with FieldDefs do
begin
Clear;
Add('Field1', ftInteger, 0, True);
Add('Field2', ftString, 30, False);

end;

{ Next, describe any indexes }
with IndexDefs do
begin
Clear;
{ The first index has no name because it is a Paradox primary key }
Add('', 'Field1', [ixPrimary, ixUnique]);
Add('Fld2Indx', 'Field2', [ixCaseInsensitive]);
end;

{ Now that we have specified what we want, create the table }
CreateTable;
end;
end;

 

G

gyq918

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-01

• #18

多人接受答案了。