unit3.pas

用delphi编写的针对商品房销售合同格式

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    LbSpeedButton1: TLbSpeedButton;
    LbSpeedButton2: TLbSpeedButton;
    LbSpeedButton3: TLbSpeedButton;
    LbSpeedButton4: TLbSpeedButton;
    LbSpeedButton5: TLbSpeedButton;
    LbSpeedButton6: TLbSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    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;
    TabSheet2: TTabSheet;
    ScrollBox2: 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;
    DBEditEh46: TDBEditEh;
    DBEdit138: TDBEdit;
    DBEdit139: TDBEdit;
    TabSheet3: TTabSheet;
    ScrollBox3: TScrollBox;
    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;
    DBEditEh45: TDBEditEh;
    TabSheet4: TTabSheet;
    ScrollBox4: TScrollBox;
    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;
    TabSheet5: TTabSheet;
    ScrollBox5: TScrollBox;
    OleContainer5: TOleContainer;
    DBEdit93: TDBEdit;
    DBEditEh7: TDBEditEh;
    DBEditEh8: TDBEditEh;
    DBEdit92: TDBEdit;
    TabSheet6: TTabSheet;
    ScrollBox6: TScrollBox;
    OleContainer6: TOleContainer;
    DBEditEh9: TDBEditEh;
    DBEditEh10: TDBEditEh;
    DBEditEh11: TDBEditEh;
    DBEdit94: TDBEdit;
    DBEdit95: TDBEdit;
    DBEdit96: TDBEdit;
    DBEdit97: TDBEdit;
    DBEdit98: TDBEdit;
    DBEdit99: TDBEdit;
    TabSheet7: TTabSheet;
    TabSheet15: TTabSheet;
    OleContainer15: TOleContainer;
    DBEditEh47: TDBEditEh;
    DBEditEh48: TDBEditEh;
    DBEditEh49: TDBEditEh;
    DBEditEh50: TDBEditEh;
    DBEditEh51: TDBEditEh;
    DBEditEh52: TDBEditEh;
    DBEditEh53: TDBEditEh;
    DBEditEh54: TDBEditEh;
    DBEditEh55: TDBEditEh;
    DBEditEh56: TDBEditEh;
    ProgressBar1: TProgressBar;
    ComboBox1: TComboBox;
    StaticText1: TStaticText;
    ScrollBox14: TScrollBox;
    OleContainer14: TOleContainer;
    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;
    ScrollBox12: TScrollBox;
    OleContainer12: TOleContainer;
    DBEdit118: TDBEdit;
    DBEdit119: TDBEdit;
    DBEditEh36: TDBEditEh;
    DBEditEh37: TDBEditEh;
    DBEditEh38: TDBEditEh;
    DBEditEh39: TDBEditEh;
    DBEditEh40: TDBEditEh;
    ScrollBox13: TScrollBox;
    OleContainer13: TOleContainer;
    DBEditEh41: TDBEditEh;
    DBEditEh42: TDBEditEh;
    DBEditEh43: TDBEditEh;
    DBEdit120: TDBEdit;
    DBEditEh44: TDBEditEh;
    DBEdit121: TDBEdit;
    DBEdit122: TDBEdit;
    ScrollBox11: TScrollBox;
    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;
    ScrollBox10: TScrollBox;
    OleContainer10: TOleContainer;
    DBEditEh24: TDBEditEh;
    DBEditEh25: TDBEditEh;
    DBEdit114: TDBEdit;
    DBEditEh26: TDBEditEh;
    ScrollBox9: TScrollBox;
    OleContainer9: TOleContainer;
    DBEditEh17: TDBEditEh;
    DBEditEh18: TDBEditEh;
    DBEditEh19: TDBEditEh;
    DBEditEh20: TDBEditEh;
    DBEditEh21: TDBEditEh;
    DBEditEh22: TDBEditEh;
    DBEdit112: TDBEdit;
    DBEdit113: TDBEdit;
    DBEditEh23: TDBEditEh;
    ScrollBox7: TScrollBox;
    OleContainer7: TOleContainer;
    DBEditEh12: TDBEditEh;
    DBEdit100: TDBEdit;
    DBEdit101: TDBEdit;
    DBEdit102: TDBEdit;
    DBEdit103: TDBEdit;
    DBEditEh13: TDBEditEh;
    DBEdit104: TDBEdit;
    DBEditEh14: TDBEditEh;
    DBEditEh15: TDBEditEh;
    ScrollBox8: TScrollBox;
    OleContainer8: TOleContainer;
    DBEdit105: TDBEdit;
    DBEdit106: TDBEdit;
    DBEdit107: TDBEdit;
    DBEdit108: TDBEdit;
    DBEdit109: TDBEdit;
    DBEdit110: TDBEdit;
    DBEdit111: TDBEdit;
    DBEditEh16: TDBEditEh;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    DataSource5: TDataSource;