print_unit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit Print_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, TFlatComboBoxUnit;

type
  TPrint_Form = class(TForm)
    Label1: TLabel;
    FlatComboBox1: TFlatComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Print_Form: TPrint_Form;

implementation

uses DMUnit, U_ReportPrint,pptypes,ppRegion;

{$R *.dfm}

procedure TPrint_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TPrint_Form.FormDestroy(Sender: TObject);
begin
Print_Form:=nil;
end;

procedure TPrint_Form.BitBtn1Click(Sender: TObject);
begin
 ReportPrint(Print_Form,[DM.GY_DS],DM.PRINT_DS,FlatCombobox1.Items.Strings[FlatCombobox1.itemIndex],
    rbCurrentRecord ,reCurrentRecord,'');


end;

procedure TPrint_Form.FormCreate(Sender: TObject);
begin
  with DM.PRINT_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TEMPLATE ');
    Open;
  end;
  while not DM.PRINT_ADOQ.Eof do
  begin
    FlatCombobox1.Items.Add(DM.PRINT_ADOQ.Fields[0].asstring);
    DM.PRINT_ADOQ.Next;
  end;
end;

procedure TPrint_Form.BitBtn2Click(Sender: TObject);
begin
 ReportPrint(Print_Form,[DM.GY_DS],DM.PRINT_DS,FlatCombobox1.Items.Strings[FlatCombobox1.itemIndex],
    rbCurrentRecord ,reCurrentRecord,'',false);
end;

end.