unit uReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, FR_DSet, FR_DBSet, FR_Class;

type
  TfrmReport = class(TForm)
    frReport1: TfrReport;
    frdbReport: TfrDBDataSet;
    cdReport: TClientDataSet;
  private
     procedure SetRecordNum(cdTem: TclientDataSet; num: integer);
    { Private declarations }
  public
     procedure ReportS(POject,printBS:byte; title: String; v_data:OleVariant);
    { Public declarations }
  end;

{var
  frmReport: TfrmReport; }

implementation

Uses
   uPublic;

{$R *.dfm}

{ TfrmReport }

procedure TfrmReport.ReportS(POject,printBS: byte; title: String; v_data: OleVariant);
begin
   frReport1.Clear;
   frDBReport.DataSet := cdReport;
   cdReport.Close;
   cdReport.FileName := path + 'print\WeiJieRptData.cds';
   cdReport.Open;
   IF NOT cdReport.Locate('ikey',POject,[loCaseInsensitive]) THEN BEGIN
      infoWnd('找不到報表記錄！');
      exit;
   END;
   frVariables['vTitle'] := Title;
   frVariables['vUser'] := User;
   frReport1.LoadFromBlobField(cdReport.FieldByName('aRptData'));
   cdReport.FileName := '';
   cdReport.data := v_Data;
   if (Poject = 10) or (Poject = 28) or (Poject = 29) or
      (Poject = 38) or (Poject = 39) or (Poject = 49) then
      SetRecordNum(cdReport,5);
   IF frReport1.PrepareReport THEN
   IF printBS = 0 Then
      frReport1.ShowPreparedReport
   ELSE
      frReport1.PrintPreparedReport('1',1,true,frALL);
{
   case POject of
      1:begin //原料月統計
           frReport1.LoadFromFile(path+'print\fr_原料月統計.frf');
           if frReport1.PrepareReport then
              frReport1.ShowPreparedReport;
        end;
      2:begin //客戶編碼
           frReport1.LoadFromFile(path+'print\');
           if frReport1.PrepareReport then
              frReport1.ShowPreparedReport;
        end;
      10:begin //原料
            frReport1.LoadFromFile(path+'print\fr_采購計劃單.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      20:begin //原料
            frReport1.LoadFromFile(path+'print\fr_原料編碼.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      21:begin //原料
            frReport1.LoadFromFile(path+'print\fr_原料庫存情況.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      22:begin //原料
            frReport1.LoadFromFile(path+'print\fr_原料月統計.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      30:begin //半成品
            frReport1.LoadFromFile(path+'print\fr_半成品編碼.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      31:begin //半成品
            frReport1.LoadFromFile(path+'print\fr_半成品庫存情況.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      32:begin //半成品
            frReport1.LoadFromFile(path+'print\fr_半成品月統計.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      40:begin //成品
            frReport1.LoadFromFile(path+'print\fr_成品編碼.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      41:begin //成品
            frReport1.LoadFromFile(path+'print\fr_成品庫存情況.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      42:begin //成品
            frReport1.LoadFromFile(path+'print\fr_成品月統計.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      43:begin //成品
            frReport1.LoadFromFile(path+'print\fr_成品日清單.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      71:Begin
            frReport1.LoadFromFile(path+'print\fr_財務帳本打印.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      72:Begin
            frReport1.LoadFromFile(path+'print\fr_成品帳本打印.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      80:Begin
            frReport1.LoadFromFile(path+'print\fr_客戶檔案.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
      82:Begin
            frReport1.LoadFromFile(path+'print\fr_客戶查詢欠款表.frf');
            if frReport1.PrepareReport then
               frReport1.ShowPreparedReport;
         end;
   end;  }
   //frReport1.PrintPreparedReport('1',1,true,frALL);
end;

procedure TfrmReport.SetRecordNum(cdTem: TclientDataSet; num: integer);
var i: integer;
begin
   if cdTem.RecordCount >= num then exit;
   for i:= cdTem.RecordCount to num do BEGIN
      cdTem.Append;
      cdTem.Post;
   END;
end;

end.