DELPHI報表存檔問題 |
答題得分者是:Fishman
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
小弟製作報表 也順便加上
可以另存新檔.CSV
但是發現 存檔之後 的資料
沒有欄位
以下是程式碼 我該怎麼加
可以讓存檔的文件 多了欄位 方面使用者 清楚看 ============================================
F : TextFile;
S : String;
iRow , iCol : Integer;
begin
IF not csTemp2.Active Then
EXIT; savedialog1.InitialDir := ('C:\');
savedialog1.filter := '*.csv (*.csv)';
savedialog1.DefaultExt := 'csv';
IF savedialog1.Execute then
begin
Assignfile (F,savedialog1.filename);
rewrite (F);
csTemp2.first;
while not csTemp2.Eof do
begin
S := csTemp2.Fieldbyname ('SERIAL_NUMBER').AsString ','
csTemp2.Fieldbyname ('WORK_ORDER').AsString ','
csTemp2.Fieldbyname ('PART_NO').AsString ','
csTemp2.Fieldbyname ('EMP_NAME').AsString ','
csTemp2.Fieldbyname ('REPAIR_TIME').AsString ','
csTemp2.Fieldbyname ('WO_SCHEDULE_DATE').AsString;
Writeln(F, S);
csTemp2.Next; ================================================
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet |
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi lovemari, 更改如下試試:
procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; S : String; begin IF not csTemp2.Active Then EXIT; savedialog1.InitialDir := ('C:\'); savedialog1.filter := '*.csv (*.csv)'; savedialog1.DefaultExt := 'csv'; IF savedialog1.Execute then begin Assignfile (F,savedialog1.filename); rewrite (F); S := csTemp2.Fieldbyname ('SERIAL_NUMBER').DisplayLabel ',' csTemp2.Fieldbyname ('WORK_ORDER').DisplayLabel ',' csTemp2.Fieldbyname ('PART_NO').DisplayLabel ',' csTemp2.Fieldbyname ('EMP_NAME').DisplayLabel ',' csTemp2.Fieldbyname ('REPAIR_TIME').DisplayLabel ',' csTemp2.Fieldbyname ('WO_SCHEDULE_DATE').DisplayLabel; Writeln(F, S); csTemp2.first; while not csTemp2.Eof do begin S := csTemp2.Fieldbyname ('SERIAL_NUMBER').AsString ',' csTemp2.Fieldbyname ('WORK_ORDER').AsString ',' csTemp2.Fieldbyname ('PART_NO').AsString ',' csTemp2.Fieldbyname ('EMP_NAME').AsString ',' csTemp2.Fieldbyname ('REPAIR_TIME').AsString ',' csTemp2.Fieldbyname ('WO_SCHEDULE_DATE').AsString; Writeln(F, S); csTemp2.Next; end; end; end;發表人 -
------
Fishman |
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |