简单问题。字段值为 1到7 报表输出时如何换为 星期一到星期七？(100分)

W

wzpok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-12

• #1

如题，最好给出一段示范代码，小弟基础比较差，有例子好上手！

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-12

• #2

在字段的ONGETTEXT事件中转换
就是case选择嘛不用说了吧：）

 

L

lvxq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-12

• #3

procedure TForm1.ADOQuery1CalcFields(DataSet: TDataSet);
var
i:Integer;
begin
i:=ADOQUERY1.FieldByName('FieldName').AsString;
case i of
1:ADOQUERY1.FieldByName('FieldName').AsString:='Monday'
2:
3:
4:
5:
6:
7:
end;
end;

 

W

wzpok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #4

我的具体情况是这样的：
根据用户选择的需要在报表中显示的字段， 用sql语句查出符合条件的记录。
也就是动态生成报表。 然后用quick report 作出报表。
我是第一次做报表，许多基础不清楚所以向大家请教，如果谁有这方面比较简单
易学的例子给我一个，我自己看看可能快一些！

 

O

oldhua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #5

在QRDBText的onPrint事件中。
procedure TForm1.QRDBText1Print(sender: TObject;
var Value: String);
begin
case Value of
1: Value:='星期一'
2: Value:='星期二'
3:
4:
5:
6:
7:
end;
end;

OK。简单吧。

 

O

obati

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #6

我也想知道。

 

Y

yangh888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #7

up

 

W

wolaixue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #8

function WeekToStr(Week: Integer): string;
const
WeekStr = '一二三四五六七';
begin
Result := '';
if (Week > 0) and (Week < 8) then
Result := '星期' + Copy(WeekStr, Week * 2 - 1, 2);
end;

在DataSet中设置计算字段,在事件中:
计算字段.AsString := WeekStr(星期字段.AsInteger);
报表中就用计算字段好了.

 

L

lovefox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #9

用枚举类型喽。

 

Z

zwma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-20

• #10

select DATEname(weekday,X+1) from tablename

 

W

wzpok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-26

• #11

谢谢！搞定！