otprint.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 70 行

unit otprint;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, Db, ADODB, ppBands, ppCtrls, ppPrnabl, ppClass, ppCache,
  ppComm, ppRelatv, ppProd, ppReport;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    Button1: TButton;
    Button2: TButton;
    ppReport2: TppReport;
    ppHeaderBand2: TppHeaderBand;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLine5: TppLine;
    ppLine6: TppLine;
    ppLabel23: TppLabel;
    ppLine7: TppLine;
    ppLine9: TppLine;
    ppLabel24: TppLabel;
    ppLine10: TppLine;
    ppLabel25: TppLabel;
    ppLine11: TppLine;
    ppLabel26: TppLabel;
    ppLine12: TppLine;
    ppLabel27: TppLabel;
    ppLine13: TppLine;
    ppColumnHeaderBand1: TppColumnHeaderBand;
    ppDetailBand3: TppDetailBand;
    ppLine4: TppLine;
    ppDBText16: TppDBText;
    ppDBText17: TppDBText;
    ppDBText18: TppDBText;
    ppDBText19: TppDBText;
    ppDBText20: TppDBText;
    ppLine8: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppColumnFooterBand1: TppColumnFooterBand;
    ppFooterBand2: TppFooterBand;
    ADODataSet1: TADODataSet;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.DFM}

procedure TForm6.Button2Click(Sender: TObject);
begin
  close;
end;

end.