unitpreview.pas

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

        TabSheet15: TTabSheet;
        OleContainer15: TOleContainer;
        DBEditEh47: TDBEditEh;
        DBEditEh48: TDBEditEh;
        DBEditEh49: TDBEditEh;
        DBEditEh50: TDBEditEh;
        DBEditEh51: TDBEditEh;
        DBEditEh52: TDBEditEh;
        DBEditEh53: TDBEditEh;
        DBEditEh54: TDBEditEh;
        DBEditEh55: TDBEditEh;
        DBEditEh56: TDBEditEh;
        LbSpeedButton4: TLbSpeedButton;
        ProgressBar1: TProgressBar;
    LbSpeedButton5: TLbSpeedButton;
    LbSpeedButton6: TLbSpeedButton;
    ComboBox1: TComboBox;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormShow(Sender: TObject);
        procedure LbSpeedButton3Click(Sender: TObject);
        procedure LbSpeedButton1Click(Sender: TObject);
        procedure LbSpeedButton5Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure LbSpeedButton6Click(Sender: TObject);
        procedure LbSpeedButton4Click(Sender: TObject);
    private
        { Private declarations }
        procedure printado(tabNo: Integer);
    public
        { Public declarations }
    end;

var
    PreviewForm: TPreviewForm;

implementation
uses dm, mainunit, PrintAdoUnit;
{$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 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery11.Open;

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

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

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

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

    ADOQuery16.sql.Text := 'select * from T18T19T22T24  WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery16.Open;
    ADOQuery17.sql.Text := 'select * from f3  WHERE 合同编号=''' +
        Form1.ADOQuery1.fieldbyname('合同编号').TEXT + '''';
    ADOQuery17.Open;

    application.ProcessMessages;
    caption := '===>总览与打印 合同编号：' + SID;
    PageControl1.Pages[0].Show;

end;

procedure TPreviewForm.LbSpeedButton3Click(Sender: TObject);
begin

    Close;
end;

procedure TPreviewForm.LbSpeedButton1Click(Sender: TObject);
var
    tabNO: Integer;
begin
    tabNO := PageControl1.TabIndex;
    Printer.Canvas.Font.Size := 11;
    Printer.Canvas.Font.Name := '宋体';
    Printer.Canvas.Font.Style :=[fsBold];
    Printer.title := '商品房买卖合同套打：' + PAGECONTROL1.Pages[TABNO].Caption;
    Printer.BeginDoc;
    PrintADO(tabno);
    Printer.EndDoc;
    printer.Title := '';
end;

procedure TPreviewForm.printado(tabNo: Integer);
begin
    case tabNo of
        0: begin
                PrintPage2;
            end;
        1: begin
                PRINTPAGE3;
            end;
        2: begin
                printpage4;
            end;
        3: begin
                printpage5;
            end;
        4: begin
                printpage6;
            end;
        5: begin
                PRINTPAGE7
            end;
        6: begin
                printpage8;
            end;
        7: begin
                Printpage9;
            end;
        8: begin
                printpage10;
            end;
        9: begin
                printpage11;
            end;
        10: begin
                printpage12;
            end;
        11: begin
                printpage13;
            end;
        12: begin
                printpage14;
            end;
        13: begin
                PrintPage15;
            end;
        14: begin
                printpageF3;
            end;
    end;
end;

procedure TPreviewForm.LbSpeedButton5Click(Sender: TObject);
var
    s: string;
    pointx, pointy: integer;
begin
    PointX := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
    PointY := GetDeviceCaps(Printer.Handle, LOGPIXELSY);

    s := '打印机:' + ComboBox1.Text + #13 +
        '分辨率:' + IntToStr(pointx) + ':' + IntToStr(pointy) + #13 +
        '字符高度:' + IntToStr(printer.Canvas.TextHeight('安邦'));

    Application.MessageBox(PChar(s), '打印机信息', MB_OK + MB_ICONINFORMATION);
end;

procedure TPreviewForm.FormCreate(Sender: TObject);

begin

    ComboBox1.Items := Printer.Printers;
    combobox1.itemindex := ComboBox1.Items.IndexOf(GetDefPrinter);

end;

procedure TPreviewForm.LbSpeedButton6Click(Sender: TObject);
begin 
    SetDefPrinter(ComboBox1.ItemIndex);
end;

procedure TPreviewForm.LbSpeedButton4Click(Sender: TObject);
var
    i: Integer;
    sp: string;
begin
    LbSpeedButton1.Enabled := false;
    LbSpeedButton6.Enabled := false;
    ProgressBar1.Position := 0;
    Printer.Canvas.Font.Size := 11;
    Printer.Canvas.Font.Name := '宋体';
    Printer.Canvas.Font.Style :=[fsBold];
    for i := 0 to 15 do begin
        if i = 15 then
            sp := '附件3'
        else
            sp := '第' + IntToStr(i + 2) + '页';

        {   if i=0 then
             Application.MessageBox(PChar('准备打印第'+IntToStr(i+2)+ '页,'+#13+
             '打印前请确定纸已放好放正，按确定开始打印第'+IntToStr(i+2)+'页！')
             ,'准备打印',mb_ok+MB_ICONWARNING  )
           else if i=15 then
             Application.MessageBox(PChar('正在打印第'+IntToStr(i+1) +'页....'),
             '准备打印',mb_ok+MB_ICONWARNING)
           else
             Application.MessageBox(PChar('正在打印第'+IntToStr(i+1) +'页....'+#13+
             '准备打印第'+IntToStr(i+2)+'页,'+#13+
             '打印前请确定纸已放好放正，按确定开始打印第'+IntToStr(i+2)+'页！')
             ,'准备打印',mb_ok+MB_ICONWARNING  );
         }
        Printer.title := '商品房买卖合同套打:' + sp;
        Printer.BeginDoc;
        PrintADO(i);
        Printer.EndDoc;
        ProgressBar1.StepIt; ;
    end;
    LbSpeedButton1.Enabled := TRUE;
    LbSpeedButton6.Enabled := TRUE;

    { Application.MessageBox(PChar('当前合同：'+DBEDIT1.TEXT+'打印完毕!!'),
        '打印完毕',mb_ok+MB_ICONINFORMATION);}
end;

end.