unitpreview.pas

商品房合同套打程序

unit UnitPreview;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ComCtrls, DB, ADODB, LbSpeedButton, StdCtrls,
    Mask, DBCtrls, OleCtnrs, DBCtrlsEh, Gauges,IniFiles,Printers ;

type
    TPreviewForm = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        TabSheet3: TTabSheet;
        TabSheet4: TTabSheet;
        TabSheet5: TTabSheet;
        TabSheet6: TTabSheet;
        TabSheet7: TTabSheet;
        TabSheet8: TTabSheet;
        TabSheet9: TTabSheet;
        LbSpeedButton1: TLbSpeedButton;
        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;
        TabSheet10: TTabSheet;
        LbSpeedButton2: TLbSpeedButton;
        ScrollBox1: TScrollBox;
        OleContainer1: TOleContainer;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit8: TDBEdit;
        DBEdit9: TDBEdit;
        DBEdit10: TDBEdit;
        DBEdit11: TDBEdit;
        DBEdit12: TDBEdit;
        DBEdit13: TDBEdit;
        DBEdit14: TDBEdit;
        DBEdit15: TDBEdit;
        DBEdit16: TDBEdit;
        DBEdit17: TDBEdit;
        DBEdit18: TDBEdit;
        DBEdit19: TDBEdit;
        DBEdit20: TDBEdit;
        DBEdit21: TDBEdit;
        DBEdit22: TDBEdit;
        DBEdit23: TDBEdit;
        DBEdit24: TDBEdit;
        LbSpeedButton3: TLbSpeedButton;
        ScrollBox2: TScrollBox;
        ScrollBox3: TScrollBox;
        ScrollBox4: TScrollBox;
        ScrollBox5: TScrollBox;
        ScrollBox6: TScrollBox;
        ScrollBox7: TScrollBox;
        ScrollBox8: TScrollBox;
        ScrollBox9: TScrollBox;
        ScrollBox10: TScrollBox;
        TabSheet11: TTabSheet;
        TabSheet12: TTabSheet;
        TabSheet13: TTabSheet;
        TabSheet14: TTabSheet;
        ScrollBox11: TScrollBox;
        ScrollBox12: TScrollBox;
        ScrollBox13: TScrollBox;
        ScrollBox14: TScrollBox;
        OleContainer2: TOleContainer;
        DBEdit25: TDBEdit;
        DBEdit26: TDBEdit;
        DBEdit27: TDBEdit;
        DBEdit28: TDBEdit;
        DBEdit29: TDBEdit;
        DBEdit30: TDBEdit;
        DBEdit31: TDBEdit;
        DBEdit32: TDBEdit;
        DBEdit33: TDBEdit;
        DBEdit34: TDBEdit;
        DBEdit35: TDBEdit;
        DBEdit36: TDBEdit;
        DBEdit37: TDBEdit;
        DBEdit38: TDBEdit;
        DBEdit39: TDBEdit;
        DBEdit40: TDBEdit;
        DBEdit41: TDBEdit;
        DBEdit42: TDBEdit;
        DBEdit43: TDBEdit;
        DBEdit44: TDBEdit;
        DBEdit45: TDBEdit;
        DBEdit46: TDBEdit;
        DBEdit47: TDBEdit;
        OleContainer3: TOleContainer;
        DBEditEh1: TDBEditEh;
        DBEdit48: TDBEdit;
        DBEdit49: TDBEdit;
        DBEdit50: TDBEdit;
        DBEdit51: TDBEdit;
        DBEdit52: TDBEdit;
        DBEdit53: TDBEdit;
        DBEdit54: TDBEdit;
        DBEdit55: TDBEdit;
        DBEdit56: TDBEdit;
        DBEdit57: TDBEdit;
        DBEdit58: TDBEdit;
        DBEditEh2: TDBEditEh;
        DBEditEh3: TDBEditEh;
        DBEdit59: TDBEdit;
        DBEdit60: TDBEdit;
        OleContainer4: TOleContainer;
        DBEdit61: TDBEdit;
        DBEdit62: TDBEdit;
        DBEdit63: TDBEdit;
        DBEdit64: TDBEdit;
        DBEdit65: TDBEdit;
        DBEdit66: TDBEdit;
        DBEdit67: TDBEdit;
        DBEdit68: TDBEdit;
        DBEdit69: TDBEdit;
        DBEdit70: TDBEdit;
        DBEdit71: TDBEdit;
        DBEdit72: TDBEdit;
        DBEdit73: TDBEdit;
        DBEdit74: TDBEdit;
        DBEdit75: TDBEdit;
        DBEdit76: TDBEdit;
        DBEdit77: TDBEdit;
        DBEdit78: TDBEdit;
        DBEdit79: TDBEdit;
        DBEdit80: TDBEdit;
        DBEdit81: TDBEdit;
        DBEdit82: TDBEdit;
        DBEdit83: TDBEdit;
        DBEdit84: TDBEdit;
        DBEdit85: TDBEdit;
        DBEdit86: TDBEdit;
        DBEdit87: TDBEdit;
        DBEdit88: TDBEdit;
        DBEdit89: TDBEdit;
        DBEdit90: TDBEdit;
        DBEditEh4: TDBEditEh;
        DBEdit91: TDBEdit;
        DBEditEh5: TDBEditEh;
        DBEditEh6: TDBEditEh;
        OleContainer5: TOleContainer;
        DBEdit93: TDBEdit;
        OleContainer6: TOleContainer;
        DBEditEh9: TDBEditEh;
        DBEditEh10: TDBEditEh;
        DBEditEh11: TDBEditEh;
        DBEdit94: TDBEdit;
        DBEdit95: TDBEdit;
        DBEdit96: TDBEdit;
        DBEdit97: TDBEdit;
        DBEdit98: TDBEdit;
        DBEdit99: TDBEdit;
        OleContainer7: TOleContainer;
        DBEditEh12: TDBEditEh;
        DBEdit100: TDBEdit;
        DBEdit101: TDBEdit;
        DBEdit102: TDBEdit;
        DBEdit103: TDBEdit;
        DBEditEh13: TDBEditEh;
        DBEdit104: TDBEdit;
        DBEditEh14: TDBEditEh;
        DBEditEh15: TDBEditEh;
        OleContainer8: TOleContainer;
        DBEdit105: TDBEdit;
        DBEdit106: TDBEdit;
        DBEdit107: TDBEdit;
        DBEdit108: TDBEdit;
        DBEdit109: TDBEdit;
        DBEdit110: TDBEdit;
        DBEdit111: TDBEdit;
        DBEditEh16: TDBEditEh;
        OleContainer9: TOleContainer;
        DBEditEh17: TDBEditEh;
        DBEditEh18: TDBEditEh;
        DBEditEh19: TDBEditEh;
        DBEditEh20: TDBEditEh;
        DBEditEh21: TDBEditEh;
        DBEditEh22: TDBEditEh;
        DBEdit112: TDBEdit;
        DBEdit113: TDBEdit;
        DBEditEh23: TDBEditEh;
        OleContainer10: TOleContainer;
        DBEditEh24: TDBEditEh;
        DBEditEh25: TDBEditEh;
        DBEdit114: TDBEdit;
        DBEditEh26: TDBEditEh;
        OleContainer11: TOleContainer;
        DBEditEh27: TDBEditEh;
        DBEditEh28: TDBEditEh;
        DBEditEh29: TDBEditEh;
        DBEditEh30: TDBEditEh;
        DBEditEh31: TDBEditEh;
        DBEditEh32: TDBEditEh;
        DBEditEh33: TDBEditEh;
        DBEditEh34: TDBEditEh;
        DBEditEh35: TDBEditEh;
        DBEdit115: TDBEdit;
        DBEdit116: TDBEdit;
        DBEdit117: TDBEdit;
        OleContainer12: TOleContainer;
        OleContainer13: TOleContainer;
        OleContainer14: TOleContainer;
        DBEdit118: TDBEdit;
        DBEdit119: TDBEdit;
        DBEditEh36: TDBEditEh;
        DBEditEh37: TDBEditEh;
        DBEditEh38: TDBEditEh;
        DBEditEh39: TDBEditEh;
        DBEditEh40: TDBEditEh;
        DBEditEh41: TDBEditEh;
        DBEditEh42: TDBEditEh;
        DBEditEh43: TDBEditEh;
        DBEdit120: TDBEdit;
        DBEditEh44: TDBEditEh;
        DBEdit121: TDBEdit;
        DBEdit122: TDBEdit;
        DBEdit123: TDBEdit;
        DBEdit124: TDBEdit;
        DBEdit125: TDBEdit;
        DBEdit126: TDBEdit;
        DBEdit127: TDBEdit;
        DBEdit128: TDBEdit;
        DBEdit129: TDBEdit;
        DBEdit130: TDBEdit;
        DBEdit131: TDBEdit;
        DBEdit132: TDBEdit;
        DBEdit133: TDBEdit;
        DBEdit134: TDBEdit;
        DBEdit135: TDBEdit;
        DBEdit136: TDBEdit;
        DBEdit137: TDBEdit;
    DBEditEh7: TDBEditEh;
    DBEditEh8: TDBEditEh;
    DBEdit92: TDBEdit;
    DBEditEh45: TDBEditEh;
    DBEditEh46: TDBEditEh;
    DBEdit138: TDBEdit;
    DBEdit139: TDBEdit;
    DataSource17: TDataSource;
    ADOQuery17: TADOQuery;
    TabSheet15: TTabSheet;