umain.pas

DELPHI的报表控件

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, DBGridColor, DBGridPrn, StdCtrls, Buttons, ShapeEx, Db,
  DBTables, Mask, ComCtrls, ScrollCustomControl;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    DBGridPrn1: TDBGridPrn;
    BitBtn2: TBitBtn;
    UpDown1: TUpDown;
    MaskEdit1: TMaskEdit;
    Label1: TLabel;
    procedure MaskEdit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure FillValue; 
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FillValue;
begin
  with DBGridPrn1.ColumnsArea do
  begin
    Items[2,0] := '主机板';
    Items[2,1] := '块';
    Items[2,2] := '20';
    Items[2,3] := '890';
    Items[2,4] := '17800.00';
    Items[3,0] := '电源';
    Items[3,1] := '块';
    Items[3,2] := '10';
    Items[3,3] := '250';
    Items[3,4] := '2500.00';
    Items[5,1] := '贰万零叁佰元整';
    Items[6,2] := '周伟国';
  end;
end;

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  DBGridPrn1.AdjustyTop := StrToIntDef(MaskEdit1.Text,0);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  DBGridPrn1.LoadFromFile(ExtractFilePath(Paramstr(0))+'DBR\FPEmpty.DBR');
  FillValue;
  DBGridPrn1.PrnTitle.Clear;
  DBGridPrn1.ColumnsArea.Items[0,0] := '          江苏大家发有限公司';
  DBGridPrn1.ColumnsArea.Items[0,3] := FormatDateTime('yyyy"  "mm"  "dd"  "',date);
  DBGridPrn1.Preview;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  DBGridPrn1.LoadFromFile(ExtractFilePath(Paramstr(0))+'DBR\FP.DBR');
  FillValue;
  DBGridPrn1.PrnTitle.Clear;
  DBGridPrn1.PrnTitle.Add('XX票据');
  DBGridPrn1.ColumnsArea.Items[0,0] := '客户名称：江苏大家发有限公司';
  DBGridPrn1.ColumnsArea.Items[0,3] := FormatDateTime('"开票日期"yyyy"年"mm"月"dd"日"',date);
  DBGridPrn1.Preview;
end;

end.