📄 printadounit.pas
字号:
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, FORM3.adoquery7 do begin
TextOut(GETPX(70 + OFX), GETPY(225 + OFY), fieldbyname('付款方式种类').asstring);
end;
////
with Printer.Canvas, FORM3.adoquery12 do begin
splitPrint(fieldbyname('11交接方式处理').asstring, 30, 32, 35 + OFX+OFP, 94 + OFY+OFPY, 25 + OFX+OFP);
splitPrint(fieldbyname('12出卖人产权纠分处理备注').asstring, 30, 34, 35 + OFX+OFP, 155 + OFY+OFPY, 25 + OFX+OFP);
TextOut(GETPX(52 + OFX+OFP), GETPY(207 + OFY+OFPY), fieldbyname('13处理方式种类').asstring);
splitPrint(fieldbyname('132处理方式').asstring, 30, 30, 40 + OFX+OFP, 225 + OFY+OFPY, 40 + OFX+OFP);
end;
end;
procedure PrintPage8_9;
var
INI: TINIFILE;
OFX, OFY,ofp,ofpy: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P8_9', 'OFX', 0);
OFY := INI.ReadInteger('P8_9', 'OFY', 0);
OFP := INI.ReadInteger('P8_9', 'OFP', 0);
OFPY := INI.ReadInteger('P8_9', 'OFPY', 0);
INI.Free;
with Printer.Canvas, form3.adoquery8 do begin
splitPrint(fieldbyname('其他处理方式').asstring, 30, 34, 40 + OFX, 50 + OFY, 25 + OFX);
end;
with Printer.Canvas, form3.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;
/////
with Printer.Canvas, form3.adoquery10 do begin
TextOut(GETPX(140 + OFX+OFP), GETPY(59 + OFY+OFPY), fieldbyname('违约处理方式').asstring);
TextOut(GETPX(75 + OFX+OFP), GETPY(85 + OFY+OFPY), fieldbyname('逾期天数之内').asstring);
TextOut(GETPX(63 + OFX+OFP), GETPY(102 + OFY+OFPY), fieldbyname('1违约金万分比').asstring);
TextOut(GETPX(70 + OFX+OFP), GETPY(110 + OFY+OFPY), fieldbyname('逾期天数之后').asstring);
TextOut(GETPX(150 + OFX+OFP), GETPY(120 + OFY+OFPY), fieldbyname('通知到达日之内').asstring);
TextOut(GETPX(123 + OFX+OFP), GETPY(129 + OFY+OFPY), fieldbyname('已付款百分比').asstring);
TextOut(GETPX(119 + OFX+OFP), GETPY(155 + OFY+OFPY), fieldbyname('2违约金万分比').asstring);
splitPrint(fieldbyname('其他处理方式').asstring, 30, 34, 45 + OFX+OFP, 173 + OFY+OFPY, 25 + OFX+OFP);
end;
end;
procedure PrintPage7_10;
var
x: integer;
INI: TINIFILE;
OFX, OFY,ofp,ofpy: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P7_10', 'OFX', 0);
OFY := INI.ReadInteger('P7_10', 'OFY', 0);
OFP := INI.ReadInteger('P7_10', 'OFP', 0);
OFPY := INI.ReadInteger('P7_10', 'OFPY', 0);
INI.Free;
x := 45;
with Printer.Canvas, form3.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;
////
with Printer.Canvas, form3.adoquery7 do begin
splitPrint(fieldbyname('一次性付款').asstring, 30, 32, 35 + OFX+OFP, 42 + OFY+OFPY, 25 + OFX+OFP);
splitPrint(fieldbyname('分期付款').asstring, 30, 32, 35 + OFX+OFP, 68 + OFY+OFPY, 25 + OFX+OFP);
splitPrint(fieldbyname('其他方式').asstring, 30, 32, 35 + OFX+OFP, 95 + OFY+OFPY, 25 + OFX+OFP);
end;
with Printer.Canvas, form3.adoquery8 do begin
TextOut(GETPX(142 + OFX+OFP), GETPY(120 + OFY+OFPY), fieldbyname('违约处理方式').asstring);
TextOut(GETPX(62 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('逾期天数之内').asstring);
TextOut(GETPX(62 + OFX+OFP), GETPY(165 + OFY+OFPY), fieldbyname('1违约金万分比').asstring);
TextOut(GETPX(67 + OFX+OFP), GETPY(173 + OFY+OFPY), fieldbyname('逾期天数之后').asstring);
TextOut(GETPX(95 + OFX+OFP), GETPY(182 + OFY+OFPY), fieldbyname('违约金百分比').asstring);
TextOut(GETPX(130 + OFX+OFP), GETPY(208 + OFY+OFPY), fieldbyname('2违约金万分比').asstring);
end;
end;
procedure printpage5_12;
var
INI: TINIFILE;
OFX, OFY,ofp,ofpy,Y: Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P5_12', 'OFX', 0);
OFY := INI.ReadInteger('P5_12', 'OFY', 0);
OFP := INI.ReadInteger('P5_12', 'OFP', 0);
OFPY := INI.ReadInteger('P5_12', 'OFPY', 0);
INI.Free;
with Printer.Canvas, Form3.adoquery12 do begin
splitPrint(fieldbyname('133处理方式').asstring, 30, 34, 45 + OFX, 41 + OFY, 25 + OFX);
end;
with Printer.Canvas, Form3.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, Form3.adoquery14 do begin
TextOut(GETPX(108 + OFX), GETPY(190 + OFY), fieldbyname('交付使用日内').asstring);
TextOut(GETPX(48 + OFX), GETPY(217 + OFY), fieldbyname('处理方式种类').asstring);
TextOut(GETPX(153 + OFX), GETPY(225 + OFY), fieldbyname('退房要求日内').asstring);
end;
///
with Printer.Canvas, Form3.adoquery5 do begin
y := 32;
TextOut(GETPX(30 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1单价').asstring);
TextOut(GETPX(80 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1总价币种').asstring);
TextOut(GETPX(110 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1千万').asstring);
TextOut(GETPX(128 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1百万').asstring);
TextOut(GETPX(143 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1十万').asstring);
TextOut(GETPX(160 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1万').asstring);
y := 40;
TextOut(GETPX(33 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1千').asstring);
TextOut(GETPX(48 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1百').asstring);
TextOut(GETPX(63 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1十').asstring);
TextOut(GETPX(78 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('1元').asstring);
TextOut(GETPX(139 + OFX+OFP), GETPY(50 + OFY+OFPY), fieldbyname('2单价币种').asstring);
y := 58;
TextOut(GETPX(43 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2单价').asstring);
TextOut(GETPX(90 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2总价币种').asstring);
TextOut(GETPX(120 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2千万').asstring);
TextOut(GETPX(137 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2百万').asstring);
TextOut(GETPX(153 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2十万').asstring);
y := 67;
TextOut(GETPX(25 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2万').asstring);
TextOut(GETPX(43 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2千').asstring);
TextOut(GETPX(58 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2百').asstring);
TextOut(GETPX(73 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2十').asstring);
TextOut(GETPX(88 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('2元').asstring);
TextOut(GETPX(145 + OFX+OFP), GETPY(75 + OFY+OFPY), fieldbyname('3总价币种').asstring);
y := 85;
TextOut(GETPX(25 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3千万').asstring);
TextOut(GETPX(43 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3百万').asstring);
TextOut(GETPX(58 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3十万').asstring);
TextOut(GETPX(73 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3万').asstring);
TextOut(GETPX(88 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3千').asstring);
TextOut(GETPX(104 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3百').asstring);
TextOut(GETPX(118 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3十').asstring);
TextOut(GETPX(133 + OFX+OFP), GETPY(y + OFY+OFPY), fieldbyname('3元').asstring);
splitPrint(fieldbyname('备注').asstring, 30, 34, 46 + OFX+OFP, 94 + OFY+OFPY, 25 + OFX+OFP);
end;
with Printer.Canvas, Form3.adoquery6 do begin
TextOut(GETPX(54 + OFX+OFP), GETPY(190 + OFY+OFPY), fieldbyname('处理方式').asstring);
splitPrint(fieldbyname('1双方自行约定').asstring, 30, 34, 46 + OFX+OFP, 207 + OFY+OFPY, 25 + OFX+OFP);
splitPrint(fieldbyname('2双方自行约定').asstring, 30, 34, 46 + OFX+OFP, 225 + OFY+OFPY, 25 + OFX+OFP);
end;
end;
procedure printpage3_14;
var
s: string;
INI: TINIFILE;
OFX, OFY,ofp,ofpy : Integer;
begin
INI := TIniFile.Create(dm.Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P3_14', 'OFX', 0);
OFY := INI.ReadInteger('P3_14', 'OFY', 0);
OFP := INI.ReadInteger('P3_14', 'OFP', 0);
OFPY := INI.ReadInteger('P3_14', 'OFPY', 0);
INI.Free;
with Printer.Canvas,form3.adoquery15 do begin
TextOut(GETPX(105 + OFX), GETPY(40 + OFY), fieldbyname('小区命名权约定').AsString);
s := fieldbyname('1其他约定').asstring;
splitPrint(s, 28, 28, 45 + OFX, 60 + OFY, 45 + OFX);
s := fieldbyname('2其他约定').asstring;
splitPrint(s, 28, 28, 45 + OFX, 77 + OFY, 45 + OFX);
end;
with Printer.Canvas, form3.adoquery16 do begin
TextOut(GETPX(105 + OFX), GETPY(94 + OFY), fieldbyname('18使用类型').asstring);
s := fieldbyname('18备注').asstring;
splitPrint(s, 30, 30, 35 + OFX, 155 + OFY, 35 + OFX);
TextOut(GETPX(103 + OFX), GETPY(180 + OFY), fieldbyname('19争议解决方式种类').asstring);
TextOut(GETPX(55 + OFX), GETPY(190 + OFY), fieldbyname('19仲裁委员会名称').asstring);
end;
///
with Printer.Canvas, form3.adoquery1 do begin
TextOut(GETPX(60 + OFX+OFP), GETPY(34 + OFY+OFPY), fieldbyname('买受人邮政编码').asstring);
TextOut(GETPX(125 + OFX+OFP), GETPY(34 + OFY+OFPY), fieldbyname('买受人联系电话').asstring);
TextOut(GETPX(71 + OFX+OFP), GETPY(43 + OFY+OFPY), fieldbyname('买受人委托代理人类型').asstring);
TextOut(GETPX(110 + OFX+OFP), GETPY(43 + OFY+OFPY), fieldbyname('买受人委托代理人姓名').asstring);
TextOut(GETPX(150 + OFX+OFP), GETPY(43 + OFY+OFPY), fieldbyname('买受人委托代理人国籍').asstring);
TextOut(GETPX(50 + OFX+OFP), GETPY(52 + OFY+OFPY), fieldbyname('买受人委托代理人地址').asstring);
TextOut(GETPX(60 + OFX+OFP), GETPY(60 + OFY+OFPY), fieldbyname('买受人委托代理人邮政编码').asstring);
TextOut(GETPX(108 + OFX+OFP), GETPY(60 + OFY+OFPY), fieldbyname('买受人委托代理人联系电话').asstring);
end;
with Printer.Canvas, form3.adoquery2 do begin
TextOut(GETPX(58 + OFX+OFP), GETPY(105 + OFY+OFPY), fieldbyname('项目建设依据取得方式').asstring);
splitPrint(fieldbyname('项目建设依据位于').asstring, 9, 9, 113 + OFX+OFP, 100 + OFY+OFPY, 115 + OFX+OFP);
splitPrint(fieldbyname('项目建设依据地块编号').asstring, 14, 14, 25 + OFX+OFP, 110 + OFY+OFPY, 25 + OFX+OFP);
TextOut(GETPX(42 + OFX+OFP), GETPY(130 + OFY+OFPY), fieldbyname('项目建设依据出让划拨转让号码').asstring);
TextOut(GETPX(75 + OFX+OFP), GETPY(138 + OFY+OFPY), fieldbyname('项目建设依据地块面积').asstring);
TextOut(GETPX(125 + OFX+OFP), GETPY(138 + OFY+OFPY), fieldbyname('项目建设依据划拨用途').asstring);
TextOut(GETPX(45 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('项目建设依据使用年限自年').asstring);
TextOut(GETPX(60 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('项目建设依据使用年限自月').asstring);
TextOut(GETPX(75 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('项目建设依据使用年限自日').asstring);
TextOut(GETPX(95 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('项目建设依据使用年限至年').asstring);
TextOut(GETPX(110 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('项目建设依据使用年限至月').asstring);
TextOut(GETPX(125 + OFX+OFP), GETPY(147 + OFY+OFPY), fieldbyname('项目建设依据使用年限至日').asstring);
TextOut(GETPX(40 + OFX+OFP), GETPY(165 + OFY+OFPY), fieldbyname('项目建设依据商品房名称').asstring);
TextOut(GETPX(25 + OFX+OFP), GETPY(174 + OFY+OFPY), fieldbyname('项目建设依据建设工程许可证号').asstring);
TextOut(GETPX(95 + OFX+OFP), GETPY(174 + OFY+OFPY), fieldbyname('项目建设依据施工许可证号').asstring);
splitPrint(fieldbyname('项目建设依据备注').asstring, 30, 32, 35 + OFX+OFP, 182 + OFY+OFPY, 25 + OFX+OFP);
end;
with Printer.Canvas,form3.adoquery3 do begin
TextOut(GETPX(55 + OFX+OFP), GETPY(216 + OFY+OFPY), fieldbyname('商品房销售依据批准机关').asstring);
TextOut(GETPX(25 + OFX+OFP), GETPY(226 + OFY+OFPY), fieldbyname('商品房销售依据预售许可证号').asstring);
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -