unitpreview.pas

商品房合同套打程序

    OleContainer15: TOleContainer;
    DBEditEh47: TDBEditEh;
    DBEditEh48: TDBEditEh;
    DBEditEh49: TDBEditEh;
    DBEditEh50: TDBEditEh;
    DBEditEh51: TDBEditEh;
    DBEditEh52: TDBEditEh;
    DBEditEh53: TDBEditEh;
    DBEditEh54: TDBEditEh;
    DBEditEh55: TDBEditEh;
    DBEditEh56: TDBEditEh;
    LbSpeedButton4: TLbSpeedButton;
    LbSpeedButton5: TLbSpeedButton;
    ComboBox1: TComboBox;
    LbSpeedButton6: TLbSpeedButton;
    StaticText1: TStaticText;
    ProgressBar1: TProgressBar;
        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
   if Printer.Printing  then
      Printer.Abort ;
   Close;
end;

procedure TPreviewForm.LbSpeedButton1Click(Sender: TObject);
var
 tabNO:Integer;
begin
 tabNO :=PageControl1.TabIndex ;
 Printer.Canvas.Font.Size:=11;
 Printer.Canvas.Font.Name:='宋体';
 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:='宋体';
 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.