如何动态将字段变成永久字段?(100分)

J

jinrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #1

1.如何动态将字段变成永久字段?(及动态实现字段编辑器add all fields功能)
2.如何动态实现生成dbgrid的columns属性(及动态实现dbgrid中columns editer
的add all功能)
其实我想实现用query1.sql.add动态生成临时表后如何将字段名改为中文.
我想1与2能实现,但我不会,望高手指教!

 

M

mataijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #2

SELECT COL1 AS 字段1 from table1看看

 

J

jinrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #3

to matajin :
? table1
我是query1.sql.add('select a.name b.score from a,b') 这个临时表的名字是什么呢？
col1 是什么？
谢谢

 

J

jiangone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #4

你可以这样：
query1.sql.add('select a.name 姓名, b.score 得分 from a,b')
这样显示出来的字段即变成了汉字。

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #5

query1.sql.add('select a.name as 姓名, b.score as 得分 from a,b')？

 

J

jinrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #6

我试过这个方法，
query.sql.add('select a.name nnnn,b.score ssss from a,b')
及将字段名改成英文行，但当我用中文时出现##,甚至连informix报错，我的机子是
delphi5英文版，麻烦jiangone,mataijin,张剑波帮我试试，我把分分给你们吧

 

J

Jackwinner

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #7

是Dataase的問題, 換成Oracle應該可行.

 

D

dear_yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-26

• #8

其实最终目的不需要前面的基础
你所想要得我以前也干过，设置dataset.Fields.DisplayLabel 即可！！


i := 0;
while i< NewQuery.Fields.Count do
begin
if LowerCase(NewQuery.Fields.FieldName)= 'xh'then
NewQuery.Fields.DisplayLabel := '序号';

if LowerCase(NewQuery.Fields.FieldName)= 'cszh'then
NewQuery.Fields.DisplayLabel := '参数值';

if SXCSQuery.Locate('ZDYWM',LowerCase(NewQuery.Fields.FieldName),[]) then
NewQuery.Fields.DisplayLabel := SXCSQuery.FieldByName('ZDZWM').AsString
else begin
Prefix := Copy(LowerCase(NewQuery.Fields.FieldName), 1, 4);
FieldName := Copy(LowerCase(NewQuery.Fields.FieldName), 5, Length(NewQuery.Fields.FieldName));
if SXCSQuery.Locate('ZDYWM',LowerCase(FieldName),[]) then
begin
if Prefix = 'pre_' then
NewQuery.Fields.DisplayLabel := SXCSQuery.FieldByName('ZDZWM').AsString + '(前)'
else if Prefix = 'suf_' then
NewQuery.Fields.DisplayLabel := SXCSQuery.FieldByName('ZDZWM').AsString + '(后)';
end;
end;
i := i+1;
end;

 

J

jinrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-27

• #9

我随便是了一下
query1.sql.add('select *from orders');
query1.Fields[0].DisplayLabel:='姓名';
query1.open;
为何提示我project project1.exe raised exception class elisterrorwith
message 'list index out of bounds(0)' process stopped. use step or
run to continue.
该用英文都不行了。希望你们帮我是一下，是不是我的delphi5有问题?

 

J

jinrui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-30

• #10

我用dbgrid1.columns.add 与dbgrid1.columns.fieldname:=xxxx 实现了
我把分分给你们吧！