printadounit.pas

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

        TextOut(GETPX(43 + OFX), GETPY(y + OFY), fieldbyname('3百万').asstring);
        TextOut(GETPX(58 + OFX), GETPY(y + OFY), fieldbyname('3十万').asstring);
        TextOut(GETPX(73 + OFX), GETPY(y + OFY), fieldbyname('3万').asstring);
        TextOut(GETPX(88 + OFX), GETPY(y + OFY), fieldbyname('3千').asstring);
        TextOut(GETPX(104 + OFX), GETPY(y + OFY), fieldbyname('3百').asstring);
        TextOut(GETPX(118 + OFX), GETPY(y + OFY), fieldbyname('3十').asstring);
        TextOut(GETPX(133 + OFX), GETPY(y + OFY), fieldbyname('3元').asstring);

        splitPrint(fieldbyname('备注').asstring, 30, 34, 50 + OFX, 94 + OFY, 25 + OFX);
    end;

    with Printer.Canvas, previewform.adoquery6 do begin
        TextOut(GETPX(54 + OFX), GETPY(190 + OFY), fieldbyname('处理方式').asstring);
        splitPrint(fieldbyname('1双方自行约定').asstring, 30, 34, 50 + OFX, 207 + OFY, 25 + OFX);
        splitPrint(fieldbyname('2双方自行约定').asstring, 30, 34, 50 + OFX, 225 + OFY, 25 + OFX);
    end;

end;

procedure PrintPage6;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P6', 'OFX', 0);
    OFY := INI.ReadInteger('P6', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery6 do begin
        splitPrint(fieldbyname('3双方自行约定').asstring, 30, 34, 50 + OFX, 40 + OFY, 25 + OFX);
        splitPrint(fieldbyname('4双方自行约定').asstring, 30, 34, 50 + OFX, 58 + OFY, 25 + OFX);
        TextOut(GETPX(100 + OFX), GETPY(120 + OFY), fieldbyname('利息利率').asstring);
    end;
    with Printer.Canvas, previewform.adoquery7 do begin
        TextOut(GETPX(73 + OFX), GETPY(225 + OFY), fieldbyname('付款方式种类').asstring);

    end;
end;

procedure PrintPage12;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P12', 'OFX', 0);
    OFY := INI.ReadInteger('P12', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery12 do begin
        splitPrint(fieldbyname('133处理方式').asstring, 30, 34, 45 + OFX, 41 + OFY, 25 + OFX);

    end;
    with Printer.Canvas, previewform.adoquery13 do begin
        splitPrint(fieldbyname('1使用条件').asstring, 32, 32, 45 + OFX, 93 + OFY, 40 + OFX);
        splitPrint(fieldbyname('2使用条件').asstring, 32, 32, 45 + OFX, 102 + OFY, 40 + OFX);
        splitPrint(fieldbyname('3使用条件').asstring, 32, 32, 45 + OFX, 110 + OFY, 40 + OFX);
        splitPrint(fieldbyname('4使用条件').asstring, 32, 32, 45 + OFX, 119 + OFY, 40 + OFX);
        splitPrint(fieldbyname('5使用条件').asstring, 32, 32, 45 + OFX, 127 + OFY, 40 + OFX);

        splitPrint(fieldbyname('1处理方式').asstring, 32, 32, 45 + OFX, 155 + OFY, 40 + OFX);
        splitPrint(fieldbyname('2处理方式').asstring, 32, 32, 45 + OFX, 165 + OFY, 40 + OFX);
        splitPrint(fieldbyname('3处理方式').asstring, 32, 32, 45 + OFX, 173 + OFY, 40 + OFX);

    end;
    with Printer.Canvas, previewform.adoquery14 do begin
        TextOut(GETPX(108 + OFX), GETPY(190 + OFY), fieldbyname('交付使用日内').asstring);
        TextOut(GETPX(50 + OFX), GETPY(217 + OFY), fieldbyname('处理方式种类').asstring);
        TextOut(GETPX(155 + OFX), GETPY(225 + OFY), fieldbyname('退房要求日内').asstring);
    end;

end;

procedure PrintPage11;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P11', 'OFX', 0);
    OFY := INI.ReadInteger('P11', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery12 do begin
        splitPrint(fieldbyname('11交接方式处理').asstring, 30, 32, 35 + OFX, 94 + OFY, 25 + OFX);
        splitPrint(fieldbyname('12出卖人产权纠分处理备注').asstring, 30, 34, 35 + OFX, 155 + OFY, 25 + OFX);
        TextOut(GETPX(52 + OFX), GETPY(207 + OFY), fieldbyname('13处理方式种类').asstring);
        splitPrint(fieldbyname('132处理方式').asstring, 30, 30, 40 + OFX, 225 + OFY, 40 + OFX);
    end;
end;

procedure printPage10;
var
    x: integer;

    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P10', 'OFX', 0);
    OFY := INI.ReadInteger('P10', 'OFY', 0);
    INI.Free;
    x := 45;
    with Printer.Canvas, previewform.adoquery11 do begin
        TextOut(GETPX(x + OFX), GETPY(60 + OFY), fieldbyname('2规划设计变更约定').asstring);
        TextOut(GETPX(x + OFX), GETPY(69 + OFY), fieldbyname('3规划设计变更约定').asstring);
        TextOut(GETPX(x + OFX), GETPY(79 + OFY), fieldbyname('4规划设计变更约定').asstring);
        TextOut(GETPX(x + OFX), GETPY(88 + OFY), fieldbyname('5规划设计变更约定').asstring);
        TextOut(GETPX(x + OFX), GETPY(97 + OFY), fieldbyname('6规划设计变更约定').asstring);
        TextOut(GETPX(x + OFX), GETPY(106 + OFY), fieldbyname('7规划设计变更约定').asstring);
        TextOut(GETPX(157 + OFX), GETPY(143 + OFY), fieldbyname('退房要求日数内').asstring);
        TextOut(GETPX(118 + OFX), GETPY(152 + OFY), fieldbyname('利息利率').asstring);

        splitPrint(fieldbyname('备注').asstring, 30, 32, 35 + OFX, 178 + OFY, 25 + OFX);
    end;
end;

procedure Printpage9;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P9', 'OFX', 0);
    OFY := INI.ReadInteger('P9', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery10 do begin
        TextOut(GETPX(140 + OFX), GETPY(59 + OFY), fieldbyname('违约处理方式').asstring);
        TextOut(GETPX(75 + OFX), GETPY(85 + OFY), fieldbyname('逾期天数之内').asstring);
        TextOut(GETPX(63 + OFX), GETPY(102 + OFY), fieldbyname('1违约金万分比').asstring);
        TextOut(GETPX(70 + OFX), GETPY(110 + OFY), fieldbyname('逾期天数之后').asstring);
        TextOut(GETPX(150 + OFX), GETPY(120 + OFY), fieldbyname('通知到达日之内').asstring);
        TextOut(GETPX(123 + OFX), GETPY(129 + OFY), fieldbyname('已付款百分比').asstring);
        TextOut(GETPX(119 + OFX), GETPY(155 + OFY), fieldbyname('2违约金万分比').asstring);

        splitPrint(fieldbyname('其他处理方式').asstring, 30, 34, 45 + OFX, 173 + OFY, 25 + OFX);
    end;
end;

procedure PrintPage8;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P8', 'OFX', 0);
    OFY := INI.ReadInteger('P8', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery8 do begin
        splitPrint(fieldbyname('其他处理方式').asstring, 30, 34, 40 + OFX, 50 + OFY, 25 + OFX);
    end;
    with Printer.Canvas, previewform.adoquery9 do begin
        TextOut(GETPX(67 + OFX), GETPY(103 + OFY), fieldbyname('交付期限年').asstring);
        TextOut(GETPX(82 + OFX), GETPY(103 + OFY), fieldbyname('交付期限月').asstring);
        TextOut(GETPX(97 + OFX), GETPY(103 + OFY), fieldbyname('交付期限日').asstring);
        TextOut(GETPX(97 + OFX), GETPY(112 + OFY), fieldbyname('条件类型').asstring);

        splitPrint(fieldbyname('其他条件').asstring, 30, 30, 40 + OFX, 163 + OFY, 40 + OFX);

        TextOut(GETPX(130 + OFX), GETPY(192 + OFY), fieldbyname('特殊原因日内').asstring);

        splitPrint(fieldbyname('特殊原因2').asstring, 30, 30, 40 + OFX, 206 + OFY, 40 + OFX);
        splitPrint(fieldbyname('特殊原因3').asstring, 30, 34, 40 + OFX, 217 + OFY, 25 + OFX);
    end;

end;

procedure PrintPage7;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P7', 'OFX', 0);
    OFY := INI.ReadInteger('P7', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery7 do begin
        splitPrint(fieldbyname('一次性付款').asstring, 30, 32, 35 + OFX, 42 + OFY, 25 + OFX);
        splitPrint(fieldbyname('分期付款').asstring, 30, 32, 35 + OFX, 68 + OFY, 25 + OFX);
        splitPrint(fieldbyname('其他方式').asstring, 30, 32, 35 + OFX, 95 + OFY, 25 + OFX);
    end;
    with Printer.Canvas, previewform.adoquery8 do begin
        TextOut(GETPX(142 + OFX), GETPY(120 + OFY), fieldbyname('违约处理方式').asstring);
        TextOut(GETPX(62 + OFX), GETPY(147 + OFY), fieldbyname('逾期天数之内').asstring);
        TextOut(GETPX(62 + OFX), GETPY(165 + OFY), fieldbyname('1违约金万分比').asstring);
        TextOut(GETPX(67 + OFX), GETPY(173 + OFY), fieldbyname('逾期天数之后').asstring);
        TextOut(GETPX(95 + OFX), GETPY(182 + OFY), fieldbyname('违约金百分比').asstring);
        TextOut(GETPX(130 + OFX), GETPY(208 + OFY), fieldbyname('2违约金万分比').asstring);
    end;
end;

procedure printpage3;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P3', 'OFX', 0);
    OFY := INI.ReadInteger('P3', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery1 do begin
        TextOut(GETPX(60 + OFX), GETPY(34 + OFY), fieldbyname('买受人邮政编码').asstring);
        TextOut(GETPX(125 + OFX), GETPY(34 + OFY), fieldbyname('买受人联系电话').asstring);
        TextOut(GETPX(110 + OFX), GETPY(45 + OFY), fieldbyname('买受人委托代理人姓名').asstring);
        TextOut(GETPX(70 + OFX), GETPY(45 + OFY), fieldbyname('买受人委托代理人类型').asstring);
        TextOut(GETPX(150 + OFX), GETPY(45 + OFY), fieldbyname('买受人委托代理人国籍').asstring);
        TextOut(GETPX(50 + OFX), GETPY(52 + OFY), fieldbyname('买受人委托代理人地址').asstring);
        TextOut(GETPX(60 + OFX), GETPY(60 + OFY), fieldbyname('买受人委托代理人邮政编码').asstring);
        TextOut(GETPX(108 + OFX), GETPY(60 + OFY), fieldbyname('买受人委托代理人联系电话').asstring);
    end;
    with Printer.Canvas, previewform.adoquery2 do begin
        TextOut(GETPX(58 + OFX), GETPY(105 + OFY), fieldbyname('项目建设依据取得方式').asstring);
        splitPrint(fieldbyname('项目建设依据位于').asstring, 9, 9, 113 + OFX, 100 + OFY, 115 + OFX);

        splitPrint(fieldbyname('项目建设依据地块编号').asstring, 14, 14, 25 + OFX, 110 + OFY, 25 + OFX);

        TextOut(GETPX(42 + OFX), GETPY(130 + OFY), fieldbyname('项目建设依据出让划拨转让号码').asstring);
        TextOut(GETPX(75 + OFX), GETPY(138 + OFY), fieldbyname('项目建设依据地块面积').asstring);
        TextOut(GETPX(125 + OFX), GETPY(138 + OFY), fieldbyname('项目建设依据划拨用途').asstring);

        TextOut(GETPX(45 + OFX), GETPY(147 + OFY), fieldbyname('项目建设依据使用年限自年').asstring);
        TextOut(GETPX(60 + OFX), GETPY(147 + OFY), fieldbyname('项目建设依据使用年限自月').asstring);
        TextOut(GETPX(75 + OFX), GETPY(147 + OFY), fieldbyname('项目建设依据使用年限自日').asstring);
        TextOut(GETPX(95 + OFX), GETPY(147 + OFY), fieldbyname('项目建设依据使用年限至年').asstring);
        TextOut(GETPX(110 + OFX), GETPY(147 + OFY), fieldbyname('项目建设依据使用年限至月').asstring);
        TextOut(GETPX(125 + OFX), GETPY(147 + OFY), fieldbyname('项目建设依据使用年限至日').asstring);

        TextOut(GETPX(40 + OFX), GETPY(165 + OFY), fieldbyname('项目建设依据商品房名称').asstring);
        TextOut(GETPX(25 + OFX), GETPY(174 + OFY), fieldbyname('项目建设依据建设工程许可证号').asstring);
        TextOut(GETPX(95 + OFX), GETPY(174 + OFY), fieldbyname('项目建设依据施工许可证号').asstring);

        splitPrint(fieldbyname('项目建设依据备注').asstring, 30, 32, 35 + OFX, 182 + OFY, 25 + OFX);

    end;
    with Printer.Canvas, previewform.adoquery3 do begin
        TextOut(GETPX(55 + OFX), GETPY(216 + OFY), fieldbyname('商品房销售依据批准机关').asstring);
        TextOut(GETPX(25 + OFX), GETPY(226 + OFY), fieldbyname('商品房销售依据预售许可证号').asstring);
    end;
end;

procedure printpage4;
var
    INI: TINIFILE;
    OFX, OFY: Integer;
begin
    INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
    OFX := INI.ReadInteger('P4', 'OFX', 0);
    OFY := INI.ReadInteger('P4', 'OFY', 0);
    INI.Free;
    with Printer.Canvas, previewform.adoquery3 do begin
        splitPrint(fieldbyname('商品房销售依据备注').AsString, 30, 32, 35 + OFX, 34 + OFY, 25 + OFX);
    end;
    with Printer.Canvas, previewform.adoquery4 do begin
        TextOut(GETPX(45 + OFX), GETPY(83 + OFY), fieldbyname('商品房基本情况幢座').asstring);
        TextOut(GETPX(100 + OFX), GETPY(83 + OFY), fieldbyname('商品房基本情况层').asstring);
        TextOut(GETPX(25 + OFX), GETPY(92 + OFY), fieldbyname('商品房基本情况房号').asstring);
        TextOut(GETPX(80 + OFX), GETPY(100 + OFY), fieldbyname('商品房基本情况用途').asstring);
        TextOut(GETPX(113 + OFX), GETPY(100 + OFY), fieldbyname('商品房基本情况结构').asstring);
        TextOut(GETPX(25 + OFX), GETPY(108 + OFY), fieldbyname('商品房基本情况层高').asstring);
        TextOut(GETPX(80 + OFX), GETPY(108 + OFY), fieldbyname('商品房基本情况地上层数').asstring);