setprint.pas

delphi作得信息业进销存源码.功能全面,运行稳定.

unit SetPrint;

{
procedure TfrmSpcx.LoadPrintForm;
begin
	if ReportName = '盘点表' then
		rpt1 := TrptSpcx.Create(self)
	else if ReportName = '商品报价表' then
		rpt1 := TrptSpcx.Create(self);
	if rpt1 = nil then
	begin
		frmSetPrint := TfrmSetPrint.Create(self);
		with frmSetPrint do
		begin
			RptList.Items.Add('盘点表');
			RptList.Items.Add('商品报价表');
		end;
		inherited;
	end;
	screen.Cursor := crDefault;
	if rpt1 <> nil then exit;
	if ReportName = '盘点表' then
		rpt1 := TrptSpcx.Create(self)
	else if ReportName = '商品报价表' then
		rpt1 := TrptSpcx.Create(self);
end;
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Forms, Dialogs, Controls, StdCtrls,
  Buttons, ExtCtrls, Grids, DBGrids, db, DBClient, CheckLst, ComCtrls, printers,Variants,
  Quickrpt, QRCtrls, QRPrntr, Mask, Spin, Menus, FileCtrl, ImgList, ToolWin, iniFiles;

type
  TfrmSetPrint = class(TForm)
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    pnlColWidth: TPanel;
    Panel7: TPanel;
    btnSaveColWidth: TButton;
    Panel8: TPanel;
    pmnXm: TPopupMenu;
    Notebook1: TNotebook;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    PageControl2: TPageControl;
    TabSheet5: TTabSheet;
    Bevel2: TBevel;
    Label4: TLabel;
    Label5: TLabel;
    TabSheet6: TTabSheet;
    Bevel4: TBevel;
    Label6: TLabel;
    Label7: TLabel;
    TabSheet7: TTabSheet;
    Bevel5: TBevel;
    Label8: TLabel;
    Label9: TLabel;
    TabSheet9: TTabSheet;
    Memo1: TMemo;
    GroupBox4: TGroupBox;
    btnLmFont: TSpeedButton;
    btnLmColor: TSpeedButton;
    Label19: TLabel;
    Label20: TLabel;
    Bevel9: TBevel;
    Bevel8: TBevel;
    Label28: TLabel;
    edtLmXj: TMaskEdit;
    cbLmHx: TComboBox;
    rbLmSx: TRadioButton;
    RadioButton2: TRadioButton;
    mmoLm: TPanel;
    GroupBox5: TGroupBox;
    btnNyFont: TSpeedButton;
    btnNyColor: TSpeedButton;
    Label21: TLabel;
    Label22: TLabel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Label33: TLabel;
    Bevel14: TBevel;
    Label52: TLabel;
    Label53: TLabel;
    btnOdd: TSpeedButton;
    btnEven: TSpeedButton;
    Bevel15: TBevel;
    Bevel16: TBevel;
    Label55: TLabel;
    Label54: TLabel;
    Bevel19: TBevel;
    edtNyXj: TMaskEdit;
    cbNyHx: TComboBox;
    rbNySx: TRadioButton;
    RadioButton3: TRadioButton;
    mmoNy: TPanel;
    pnlEven: TPanel;
    pnlOdd: TPanel;
    cbXh: TCheckBox;
    edtLf: TSpinEdit;
    edtLmsl: TSpinEdit;
    cbHh: TCheckBox;
    TabSheet10: TTabSheet;
    Label59: TLabel;
    Label60: TLabel;
    Image1: TImage;
    Image2: TImage;
    Label61: TLabel;
    Label62: TLabel;
    GroupBox6: TGroupBox;
    btnHjFont: TSpeedButton;
    btnHjColor: TSpeedButton;
    Label18: TLabel;
    Label23: TLabel;
    Bevel12: TBevel;
    Bevel13: TBevel;
    Label34: TLabel;
    edtHjXj: TMaskEdit;
    cbHjHx: TComboBox;
    rbHjSx: TRadioButton;
    RadioButton4: TRadioButton;
    mmoHj: TPanel;
    cbHj: TCheckBox;
    GroupBox11: TGroupBox;
    btnXjFont: TSpeedButton;
    btnXjColor: TSpeedButton;
    Label56: TLabel;
    Label57: TLabel;
    Bevel17: TBevel;
    Bevel18: TBevel;
    Label58: TLabel;
    edtXjXj: TMaskEdit;
    cbXjHx: TComboBox;
    rbXjSx: TRadioButton;
    RadioButton5: TRadioButton;
    mmoXj: TPanel;
    cbXj: TCheckBox;
    TotalList: TCheckListBox;
    TabSheet8: TTabSheet;
    Bevel6: TBevel;
    Label10: TLabel;
    Label11: TLabel;
    TabSheet11: TTabSheet;
    Bevel7: TBevel;
    Label12: TLabel;
    Label13: TLabel;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    SrcLabel: TLabel;
    DstLabel: TLabel;
    btnUp: TSpeedButton;
    btnDown: TSpeedButton;
    btnRight: TSpeedButton;
    btnLeft: TSpeedButton;
    Bevel1: TBevel;
    Bevel3: TBevel;
    btnColWidth: TSpeedButton;
    DstList: TListBox;
    SrcList: TListBox;
    TabSheet4: TTabSheet;
    Panel3: TPanel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    cbPageSize: TComboBox;
    edtPageWidth: TSpinEdit;
    edtPageLength: TSpinEdit;
    GroupBox3: TGroupBox;
    img2: TImage;
    img1: TImage;
    rbPortrait: TRadioButton;
    rbPortrait1: TRadioButton;
    GroupBox8: TGroupBox;
    Label25: TLabel;
    Label24: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label29: TLabel;
    edtPageTop: TSpinEdit;
    edtPageBottom: TSpinEdit;
    edtPageLeft: TSpinEdit;
    edtPageRight: TSpinEdit;
    cbBj: TCheckBox;
    btnSave: TBitBtn;
    btnIni: TBitBtn;
    btnCancelSet: TBitBtn;
    GroupBox7: TGroupBox;
    imgRight: TImage;
    imgLeft: TImage;
    pnlPage: TPanel;
    pnlClient: TPanel;
    pnlYm: TPanel;
    pnlBt: TPanel;
    pnlBgbt: TPanel;
    pnlLm: TPanel;
    pnlNy: TPanel;
    pnlHj: TPanel;
    pnlBw: TPanel;
    pnlYj: TPanel;
    btnPreview: TBitBtn;
    btnPrint: TBitBtn;
    btnNew: TBitBtn;
    btnSet: TBitBtn;
    btnSaveAs: TBitBtn;
    btnDel: TBitBtn;
    btnClose: TBitBtn;
    RptList: TListBox;
    FileListBox1: TFileListBox;
    GroupBox12: TGroupBox;
    Label1: TLabel;
    cbDyj: TComboBox;
    GroupBox10: TGroupBox;
    cbYmfs: TComboBox;
    btnPreivewNotLoad: TBitBtn;
    ToolbarImages: TImageList;
    Panel4: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    Panel6: TPanel;
    Bevel20: TBevel;
    YmRich: TRichEdit;
    ToolBar2: TToolBar;
    YmDy: TCheckBox;
    ToolButton5: TToolButton;
    Label30: TLabel;
    YmColor: TPanel;
    ToolButton6: TToolButton;
    YmLeftAlign: TToolButton;
    YmCenterAlign: TToolButton;
    YmRightAlign: TToolButton;
    ToolButton3: TToolButton;
    Label31: TLabel;
    YmHx: TComboBox;
    StandardToolBar: TToolBar;
    Label2: TLabel;
    YmFontName: TComboBox;
    ToolButton11: TToolButton;
    YmFontSize: TEdit;
    UpDown1: TUpDown;
    ToolButton2: TToolButton;
    YmBoldButton: TToolButton;
    YmItalicButton: TToolButton;
    YmUnderlineButton: TToolButton;
    ToolButton16: TToolButton;
    YmFontColor: TPanel;
    Panel5: TPanel;
    Bevel21: TBevel;
    BtRich: TRichEdit;
    ToolBar3: TToolBar;
    BtDy: TCheckBox;
    ToolButton7: TToolButton;
    Label36: TLabel;
    BtColor: TPanel;
    ToolButton10: TToolButton;
    BtLeftAlign: TToolButton;
    BtCenterAlign: TToolButton;
    BtRightAlign: TToolButton;
    ToolButton15: TToolButton;
    Label37: TLabel;
    BtHx: TComboBox;
    ToolBar4: TToolBar;
    Label38: TLabel;
    BtFontName: TComboBox;
    ToolButton17: TToolButton;
    BtFontSize: TEdit;
    UpDown2: TUpDown;
    ToolButton18: TToolButton;
    BtBoldButton: TToolButton;
    BtItalicButton: TToolButton;
    BtUnderlineButton: TToolButton;
    ToolButton22: TToolButton;
    BtFontColor: TPanel;
    Panel11: TPanel;
    Bevel22: TBevel;
    BgbtRich: TRichEdit;
    ToolBar5: TToolBar;
    BgbtDy: TCheckBox;
    ToolButton23: TToolButton;
    Label40: TLabel;
    BgbtColor: TPanel;
    ToolButton24: TToolButton;
    BgbtLeftAlign: TToolButton;
    BgbtCenterAlign: TToolButton;
    BgbtRightAlign: TToolButton;
    ToolButton28: TToolButton;
    Label41: TLabel;
    BgbtHx: TComboBox;
    ToolBar6: TToolBar;
    Label42: TLabel;
    BgbtFontName: TComboBox;
    ToolButton29: TToolButton;
    BgbtFontSize: TEdit;
    UpDown3: TUpDown;
    ToolButton30: TToolButton;
    BgbtBoldButton: TToolButton;
    BgbtItalicButton: TToolButton;
    BgbtUnderlineButton: TToolButton;
    ToolButton34: TToolButton;
    BgbtFontColor: TPanel;
    Panel14: TPanel;
    Bevel23: TBevel;
    BwRich: TRichEdit;
    ToolBar7: TToolBar;
    BwDy: TCheckBox;
    ToolButton35: TToolButton;
    Label44: TLabel;
    BwColor: TPanel;
    ToolButton36: TToolButton;
    BwLeftAlign: TToolButton;
    BwCenterAlign: TToolButton;
    BwRightAlign: TToolButton;
    ToolButton40: TToolButton;
    Label45: TLabel;
    BwHx: TComboBox;
    ToolBar8: TToolBar;
    Label46: TLabel;
    BwFontName: TComboBox;
    ToolButton41: TToolButton;
    BwFontSize: TEdit;
    UpDown4: TUpDown;
    ToolButton42: TToolButton;
    BwBoldButton: TToolButton;
    BwItalicButton: TToolButton;
    BwUnderlineButton: TToolButton;
    ToolButton46: TToolButton;
    BwFontColor: TPanel;
    Panel17: TPanel;
    Bevel24: TBevel;
    YjRich: TRichEdit;
    ToolBar9: TToolBar;
    YjDy: TCheckBox;
    ToolButton47: TToolButton;
    Label48: TLabel;
    YjColor: TPanel;
    ToolButton48: TToolButton;
    YjLeftAlign: TToolButton;
    YjCenterAlign: TToolButton;
    YjRightAlign: TToolButton;
    ToolButton52: TToolButton;
    Label49: TLabel;
    YjHx: TComboBox;
    ToolBar10: TToolBar;
    Label50: TLabel;
    YjFontName: TComboBox;
    ToolButton53: TToolButton;
    YjFontSize: TEdit;
    UpDown5: TUpDown;
    ToolButton54: TToolButton;
    YjBoldButton: TToolButton;
    YjItalicButton: TToolButton;
    YjUnderlineButton: TToolButton;
    ToolButton58: TToolButton;
    YjFontColor: TPanel;
    ToolBar11: TToolBar;
    YmdyLeftAlign: TToolButton;
    ToolButton21: TToolButton;
    YmdyCenterAlign: TToolButton;
    ToolButton12: TToolButton;
    YmdyRightAlign: TToolButton;
    Label63: TLabel;
    YmdyFont: TPanel;
    Label64: TLabel;
    Label65: TLabel;
    YmdyColor: TPanel;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    YmRich_P: TRichEdit;
    mmoTmp: TMemo;
    BtRich_P: TRichEdit;
    BgbtRich_P: TRichEdit;
    BwRich_P: TRichEdit;
    YjRich_P: TRichEdit;
    pmnAdd: TPopupMenu;
    dbgColWidth: TDBGrid;
    Label66: TLabel;
    Label68: TLabel;
    rbPrintAll: TRadioButton;
    rbPrintSelect: TRadioButton;
    edtFirstPage: TMaskEdit;
    edtLastPage: TMaskEdit;
    Label32: TLabel;
    cbRpt: TComboBox;
    Label35: TLabel;
    edtCopies: TSpinEdit;
    procedure FormShow(Sender: TObject);
    procedure rgBgBtClick(Sender: TObject);
    procedure btnBgBtFontClick(Sender: TObject);
    procedure btnBgBtColorClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnLeftClick(Sender: TObject);
    procedure btnRightClick(Sender: TObject);
    procedure btnUpClick(Sender: TObject);
    procedure btnDownClick(Sender: TObject);
    procedure DstListDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure SrcListDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure SrcListDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure DstListDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure cbDyjChange(Sender: TObject);
    procedure cbPageSizeChange(Sender: TObject);
    procedure rbPortraitClick(Sender: TObject);
    procedure btnPreviewClick(Sender: TObject);
    procedure btnPrintClick(Sender: TObject);
    procedure cbBjClick(Sender: TObject);
    procedure SetPreviewPnl(Sender: TObject);
    procedure pnlYmClick(Sender: TObject);
    procedure pnlBtClick(Sender: TObject);
    procedure pnlBgbtClick(Sender: TObject);
    procedure pnlLmClick(Sender: TObject);
    procedure pnlNyClick(Sender: TObject);
    procedure pnlHjClick(Sender: TObject);
    procedure pnlBwClick(Sender: TObject);
    procedure pnlYjClick(Sender: TObject);
    procedure pnlPageClick(Sender: TObject);
    procedure pnlClientResize(Sender: TObject);
    procedure btnColWidthClick(Sender: TObject);
    procedure btnSaveColWidthClick(Sender: TObject);
    procedure mmoYmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SetImageTop(Sender: TObject);
    procedure btnOddClick(Sender: TObject);
    procedure btnEvenClick(Sender: TObject);
    procedure edtLmslChange(Sender: TObject);
    procedure btnSetClick(Sender: TObject);
    procedure btnCancelSetClick(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure btnSaveAsClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);