unit3.pas

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

    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;
    DataSource17: TDataSource;
    ADOQuery17: TADOQuery;
    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);
    procedure  printado(tabNo: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
   uses dm, mainunit, PrintAdoUnit ;
{$R *.dfm}


procedure TForm3.printado(tabNo: Integer);
begin
    case tabNo of
        0: begin
                PrintPage2_15;
            end;
        1: begin
                 PRINTPAGE3_14;
            end;
        2: begin
                 printpage4_13;
            end;
        3: begin
                 printpage5_12;
            end;
        4: begin
                 printpage6_11;
            end;
        5: begin
                 PRINTPAGE7_10
            end;
        6: begin
                 printpage8_9;

            end;
        7: begin
                printpage0_F3;
            end;
    end;
end;
 
 
procedure TForm3.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;
    FORM3:= nil;
end;

procedure TForm3.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 TForm3.LbSpeedButton3Click(Sender: TObject);
begin
     Close;
end;

procedure TForm3.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 TForm3.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 TForm3.FormCreate(Sender: TObject);
begin
    ComboBox1.Items := Printer.Printers;
    combobox1.itemindex := ComboBox1.Items.IndexOf(GetDefPrinter);
end;

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

procedure TForm3.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 7 do begin
        if i = 7 then
            sp := '附件3'
        else
            sp := '第' + IntToStr(i + 2)+ IntToStr(15-I) +'页';

        {   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.