ureport.pas

制衣管理系统程序+源码,编译通过还不错啊,可以

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.