unitpreview.pas

这是为工商所开发的工商收费簿套打软件,借初学者学习

unit UnitPreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, OleCtnrs, ComCtrls, Mask, DBCtrls,Printers,
  ExtCtrls, AAFont, AACtrls, LbSpeedButton, sncCurrency{,sncCurrency};

type
  TPreviewForm = class(TForm)
    LbSpeedButton2: TLbSpeedButton;
    Splitter1: TSplitter;
    LbSpeedButton7: TLbSpeedButton;
    AALabel9: TAALabel;
    Image3: TImage;
    Panel1: TPanel;
    LbSpeedButton1: TLbSpeedButton;
    LbSpeedButton3: TLbSpeedButton;
    LbSpeedButton4: TLbSpeedButton;
    ProgressBar1: TProgressBar;
    GroupBox1: TGroupBox;
    LbSpeedButton5: TLbSpeedButton;
    LbSpeedButton6: TLbSpeedButton;
    ComboBox1: TComboBox;
    StaticText1: TStaticText;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    ADOQuery7: TADOQuery;
    ADOQuery8: TADOQuery;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    ADOQuery9: TADOQuery;
    ADOQuery10: TADOQuery;
    DataSource9: TDataSource;
    DataSource10: TDataSource;
    ADOQuery11: TADOQuery;
    ADOQuery12: TADOQuery;
    DataSource11: TDataSource;
    DataSource12: TDataSource;
    ADOQuery13: TADOQuery;
    ADOQuery14: TADOQuery;
    DataSource13: TDataSource;
    DataSource14: TDataSource;
    ADOQuery15: TADOQuery;
    ADOQuery16: TADOQuery;
    DataSource15: TDataSource;
    DataSource16: TDataSource;
    PrinterSetupDialog1: TPrinterSetupDialog;
    PageControl1: TPageControl;
    TabSheet4: TTabSheet;
    AALabel4: TAALabel;
    Image5: TImage;
    ScrollBox4: TScrollBox;
    OleContainer4: TOleContainer;
    Edit103: TEdit;
    Edit104: TEdit;
    Edit105: TEdit;
    Edit106: TEdit;
    Edit107: TEdit;
    Edit108: TEdit;
    Edit109: TEdit;
    Edit110: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit30: TEdit;
    TabSheet5: TTabSheet;
    AALabel5: TAALabel;
    Image6: TImage;
    ScrollBox5: TScrollBox;
    OleContainer5: TOleContainer;
    Memo9: TMemo;
    TabSheet1: TTabSheet;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    AALabel1: TAALabel;
    OleContainer1: TOleContainer;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Edit34: TEdit;
    Edit35: TEdit;
    Edit36: TEdit;
    Edit37: TEdit;
    Edit38: TEdit;
    Edit39: TEdit;
    Edit40: TEdit;
    Edit41: TEdit;
    Edit42: TEdit;
    Edit43: TEdit;
    Edit44: TEdit;
    Edit45: TEdit;
    Edit46: TEdit;
    Edit47: TEdit;
    Edit48: TEdit;
    Edit49: TEdit;
    Edit50: TEdit;
    Edit51: TEdit;
    Edit52: TEdit;
    Edit53: TEdit;
    Edit54: TEdit;
    Edit55: TEdit;
    Edit56: TEdit;
    Edit57: TEdit;
    Edit58: TEdit;
    Edit59: TEdit;
    Edit60: TEdit;
    Edit61: TEdit;
    Edit62: TEdit;
    Edit63: TEdit;
    Edit64: TEdit;
    Edit65: TEdit;
    Edit66: TEdit;
    Edit67: TEdit;
    Edit68: TEdit;
    Edit69: TEdit;
    Edit70: TEdit;
    Edit71: TEdit;
    Edit72: TEdit;
    Edit73: TEdit;
    Edit74: TEdit;
    Edit75: TEdit;
    Edit76: TEdit;
    Edit77: TEdit;
    Edit78: TEdit;
    Edit79: TEdit;
    Edit80: TEdit;
    Edit81: TEdit;
    Edit82: TEdit;
    Edit83: TEdit;
    Edit84: TEdit;
    Edit85: TEdit;
    Edit86: TEdit;
    Edit87: TEdit;
    Edit88: TEdit;
    Edit89: TEdit;
    Edit90: TEdit;
    Edit91: TEdit;
    Edit92: TEdit;
    Edit93: TEdit;
    Edit94: TEdit;
    Edit95: TEdit;
    Edit96: TEdit;
    Edit97: TEdit;
    Edit98: TEdit;
    Edit99: TEdit;
    Edit100: TEdit;
    Edit101: TEdit;
    Edit102: TEdit;
    Edit111: TEdit;
    Edit112: TEdit;
    Edit113: TEdit;
    Edit114: TEdit;
    Edit115: TEdit;
    Edit116: TEdit;
    Edit117: TEdit;
    Edit118: TEdit;
    Edit119: TEdit;
    Edit120: TEdit;
    Edit121: TEdit;
    TabSheet2: TTabSheet;
    ScrollBox2: TScrollBox;
    OleContainer2: TOleContainer;
    Image2: TImage;
    AALabel2: TAALabel;
    Edit122: TEdit;
    Edit123: TEdit;
    Edit124: TEdit;
    Edit125: TEdit;
    Edit126: TEdit;
    Edit127: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit128: TEdit;
    Edit129: TEdit;
    Edit130: TEdit;
    Edit131: TEdit;
    Edit132: TEdit;
    Edit133: TEdit;
    Edit134: TEdit;
    Edit135: TEdit;
    Edit136: TEdit;
    Edit137: TEdit;
    Edit138: TEdit;
    Edit139: TEdit;
    Edit140: TEdit;
    Edit141: TEdit;
    Edit142: TEdit;
    Edit143: TEdit;
    Edit144: TEdit;
    Edit145: TEdit;
    Edit146: TEdit;
    Edit147: TEdit;
    Edit148: TEdit;
    Edit149: TEdit;
    Edit150: TEdit;
    Edit151: TEdit;
    Edit152: TEdit;
    Edit153: TEdit;
    Edit154: TEdit;
    Edit155: TEdit;
    Edit156: TEdit;
    Edit157: TEdit;
    Edit158: TEdit;
    Edit159: TEdit;
    Edit160: TEdit;
    Edit161: TEdit;
    Edit162: TEdit;
    Edit163: TEdit;
    Edit164: TEdit;
    Edit165: TEdit;
    Edit166: TEdit;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBEditX: TDBEdit;
    Label2: TLabel;
    DBEditY: TDBEdit;
    LbSpeedButton8: TLbSpeedButton;
    LbSpeedButton9: TLbSpeedButton;
    Label3: TLabel;
    sncCurrencyEdit1: TsncCurrencyEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure LbSpeedButton1Click(Sender: TObject);
    procedure LbSpeedButton5Click(Sender: TObject);
    procedure LbSpeedButton6Click(Sender: TObject);
    procedure LbSpeedButton3Click(Sender: TObject);
    procedure LbSpeedButton4Click(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure ComboBox3Select(Sender: TObject);
    procedure Edit130Change(Sender: TObject);
    procedure Edit131Change(Sender: TObject);
    procedure Edit132Change(Sender: TObject);
    procedure Edit133Change(Sender: TObject);
    procedure Edit134Change(Sender: TObject);
    procedure Edit135Change(Sender: TObject);
    procedure Edit136Change(Sender: TObject);
    procedure Edit137Change(Sender: TObject);
    procedure Edit138Change(Sender: TObject);
    procedure Edit139Change(Sender: TObject);
    procedure Edit128Change(Sender: TObject);
    procedure Edit129Change(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet5Show(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure LbSpeedButton8Click(Sender: TObject);
    procedure LbSpeedButton9Click(Sender: TObject);
    procedure sncCurrencyEdit1Change(Sender: TObject);
    private
    { Private declarations }
        procedure printado(tabNo:Integer);
    public
    { Public declarations }
    end;

var
  PreviewForm: TPreviewForm;
   aa:string;
implementation
uses dm, mainunit,PrintAdoUnit ,StrUtils;

{$R *.dfm}




procedure TPreviewForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ADOQUERY1.Close; ADOQUERY2.Close;
    ADOQuery3.Close; ADOQuery4.Close;
    ADOQuery5.Close; ADOQuery6.Close;
    ADOQuery7.Close; ADOQuery8.Close;
    ADOQuery9.Close; ADOQuery10.Close;
    ADOQuery11.Close; ADOQuery12.Close;
    ADOQuery13.Close; ADOQuery14.Close;
    ADOQUERY15.Close; ADOQuery16.Close;
    action := caFree;
    PreviewForm := nil;
end;

procedure TPreviewForm.FormShow(Sender: TObject);
begin
    ADOQuery1.sql.Text := 'select * from T0 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery1.Open;

    ADOQuery2.sql.Text := 'select * from T1 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery2.Open;

    ADOQuery3.sql.Text := 'select * from T2 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery3.Open;

    ADOQuery4.sql.Text := 'select * from T3 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery4.Open;

    ADOQuery5.sql.Text := 'select * from T4 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery5.Open;

    ADOQuery6.sql.Text := 'select * from T5 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery6.Open;

    ADOQuery7.sql.Text := 'select * from T6 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery7.Open;

    ADOQuery8.sql.Text := 'select * from T7 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery8.Open;

    ADOQuery9.sql.Text := 'select * from T8 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery9.Open;

    ADOQuery10.sql.Text := 'select * from T9 WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery10.Open;

    ADOQuery11.sql.Text := 'select * from T10 WHERE 合同编号=''' +