frm_printview.~pas

delphi 登录系统小程序

unit Frm_PrintView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls,xpman;

type
  TFrmPreView = class(TForm)
    GBxList: TGroupBox;
    DSView: TDataSource;
    DBGPreView: TDBGrid;
    ADOConn: TADOConnection;
    AQView: TADOQuery;
    BtnPreView: TButton;
    BtnClose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnPreViewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPreView: TFrmPreView;

implementation
uses frm_Print;
{$R *.dfm}

procedure TFrmPreView.FormCreate(Sender: TObject);
begin
  ADoConn.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=goods';
  ADOConn.Open;
end;

procedure TFrmPreView.BtnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmPreView.FormShow(Sender: TObject);
begin
  AQView.Open;
end;

procedure TFrmPreView.BtnPreViewClick(Sender: TObject);
begin
  Frmprint.PrintRep.ReportTitle:='入库详单报表';
  FrmPrint.PrintRep.Preview;
end;

end.