線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1366
推到 Plurk!
推到 Facebook!

DELPHI報表存檔問題

答題得分者是:Fishman
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-11-18 13:46:49 IP:60.248.xxx.xxx 未訂閱
小弟製作報表 也順便加上 可以另存新檔.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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-11-18 14:08:56 IP:210.65.xxx.xxx 未訂閱
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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-11-18 17:04:59 IP:60.248.xxx.xxx 未訂閱
謝謝你喔 已經解決 那我還有兩各問題 已發表 你可以幫我看看媽 也是關於報表
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
系統時間:2024-03-29 18:17:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!