main.pas

条形码控件 支持 qrreport

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCGrids, Db, DBTables, StdCtrls, Mask, DBCtrls, 
  Grids, DBGrids, DBBarcode, Printers;

type
  TFormMain = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    DBCtrlGrid1: TDBCtrlGrid;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBDuckBarCode: TDBDuckBarCode;
    Preview: TButton;
    Print: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PreviewClick(Sender: TObject);
    procedure PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation
Uses DataM, FQuick;
{$R *.DFM}
procedure TFormMain.FormCreate(Sender: TObject);
Var
	St:			String;
  StDB:			String;
begin
{	St		:= 'DEMOS\DEMODB';
	StDB	:= Application.ExeName;
	StDB	:= ExtractFileDir (StDB);
	Delete (StDB, Length (StDB) - Length (St) + 1, Length (St));
	StDB	:= UpperCase (StDB) + 'DATA';
	Table.DatabaseName	:= StDB;
  Table.Active			:= TRUE;}
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
//	Table.Active	:= FALSE;
end;
procedure TFormMain.PreviewClick(Sender: TObject);
begin
	QRListForm.Preview;
end;

procedure TFormMain.PrintClick(Sender: TObject);
begin
	QRListForm.Print;
end;

end.