?? printadounit.pas

?? 放棄了先前的采用報表實現
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
   end;
   with Printer.Canvas,previewform.adoquery14 do BEGIN
      TextOut(GETPX(108),GETPY(190),fieldbyname('交付使用日內').asstring );
      TextOut(GETPX(50),GETPY(217),fieldbyname('處理方式種類').asstring );
      TextOut(GETPX(155),GETPY(225),fieldbyname('退房要求日內').asstring );
   end;

end;

procedure PrintPage11;
begin
  with Printer.Canvas,previewform.adoquery12 do BEGIN
    splitPrint(fieldbyname('11交接方式處理').asstring,30,32,35,94,25);
    splitPrint(fieldbyname('12出賣人產權糾分處理備注').asstring,30,34,35,155,25);
    TextOut(GETPX(52),GETPY(207),fieldbyname('13處理方式種類').asstring );
    splitPrint(fieldbyname('132處理方式').asstring,30,30,40,225,40);
  end;
end;

procedure printPage10;
var
  x:integer;
begin
   x:=45;
   with Printer.Canvas,previewform.adoquery11 do BEGIN
      TextOut(GETPX(x),GETPY(60),fieldbyname('2規劃設計變更約定').asstring );
      TextOut(GETPX(x),GETPY(69),fieldbyname('3規劃設計變更約定').asstring );
      TextOut(GETPX(x),GETPY(79),fieldbyname('4規劃設計變更約定').asstring );
      TextOut(GETPX(x),GETPY(88),fieldbyname('5規劃設計變更約定').asstring );
      TextOut(GETPX(x),GETPY(97),fieldbyname('6規劃設計變更約定').asstring );
      TextOut(GETPX(x),GETPY(106),fieldbyname('7規劃設計變更約定').asstring );
      TextOut(GETPX(157),GETPY(143),fieldbyname('退房要求日數內').asstring );
      TextOut(GETPX(118),GETPY(152),fieldbyname('利息利率').asstring );

      splitPrint(fieldbyname('備注').asstring,30,32,35,178,25);
   end;
end;

procedure Printpage9;
begin
  with Printer.Canvas,previewform.adoquery10 do BEGIN
      TextOut(GETPX(140),GETPY(59),fieldbyname('違約處理方式').asstring );
      TextOut(GETPX(75),GETPY(85),fieldbyname('逾期天數之內').asstring );
      TextOut(GETPX(63),GETPY(102),fieldbyname('1違約金萬分比').asstring );
      TextOut(GETPX(70),GETPY(110),fieldbyname('逾期天數之后').asstring );
      TextOut(GETPX(150),GETPY(120),fieldbyname('通知到達日之內').asstring );
      TextOut(GETPX(123),GETPY(129),fieldbyname('已付款百分比').asstring );
      TextOut(GETPX(119),GETPY(155),fieldbyname('2違約金萬分比').asstring );

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


procedure PrintPage8;
begin
  with Printer.Canvas,previewform.adoquery8 do BEGIN
     splitPrint(fieldbyname('其他處理方式').asstring,30,34,40,50,25);
  end;
  with Printer.Canvas,previewform.adoquery9 do BEGIN
      TextOut(GETPX(67),GETPY(103),fieldbyname('交付期限年').asstring );
      TextOut(GETPX(82),GETPY(103),fieldbyname('交付期限月').asstring );
      TextOut(GETPX(97),GETPY(103),fieldbyname('交付期限日').asstring );
      TextOut(GETPX(97),GETPY(112),fieldbyname('條件類型').asstring );

      splitPrint(fieldbyname('其他條件').asstring,30,30,40,163,40);

      TextOut(GETPX(132),GETPY(192),fieldbyname('特殊原因日內').asstring );

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

end;

procedure PrintPage7;
begin
  with Printer.Canvas,previewform.adoquery7 do BEGIN
      splitPrint(fieldbyname('一次性付款').asstring,30,32,35,42,25);
      splitPrint(fieldbyname('分期付款').asstring,30,32,35,68,25);
      splitPrint(fieldbyname('其他方式').asstring,30,32,35,95,25);
  end;
  with Printer.Canvas,previewform.adoquery8 do BEGIN
      TextOut(GETPX(142),GETPY(120),fieldbyname('違約處理方式').asstring );
      TextOut(GETPX(62),GETPY(147),fieldbyname('逾期天數之內').asstring );
      TextOut(GETPX(62),GETPY(165),fieldbyname('1違約金萬分比').asstring );
      TextOut(GETPX(67),GETPY(173),fieldbyname('逾期天數之后').asstring );
      TextOut(GETPX(95),GETPY(182),fieldbyname('違約金百分比').asstring );
      TextOut(GETPX(130),GETPY(207),fieldbyname('2違約金萬分比').asstring );
  end;
end;

procedure printpage3;
begin
   with Printer.Canvas,previewform.adoquery1 do BEGIN
      TextOut(GETPX(60),GETPY(34),fieldbyname('買受人郵政編碼').asstring );
      TextOut(GETPX(125),GETPY(34),fieldbyname('買受人聯系電話').asstring );
      TextOut(GETPX(110),GETPY(42),fieldbyname('買受人委托代理人姓名').asstring );
      TextOut(GETPX(70),GETPY(42),fieldbyname('買受人委托代理人類型').asstring );
      TextOut(GETPX(150),GETPY(42),fieldbyname('買受人委托代理人國籍').asstring );
      TextOut(GETPX(50),GETPY(50),fieldbyname('買受人委托代理人地址').asstring );
      TextOut(GETPX(60),GETPY(60),fieldbyname('買受人委托代理人郵政編碼').asstring );
      TextOut(GETPX(108),GETPY(60),fieldbyname('買受人委托代理人聯系電話').asstring );
   END;
   with Printer.Canvas,previewform.adoquery2 do BEGIN
      TextOut(GETPX(58),GETPY(103),fieldbyname('項目建設依據取得方式').asstring );
      splitPrint(fieldbyname('項目建設依據位于').asstring,9,9,113,100,113);

      splitPrint(fieldbyname('項目建設依據地塊編號').asstring,14,14,25,110,25);

      TextOut(GETPX(42),GETPY(130),fieldbyname('項目建設依據出讓劃撥轉讓號碼').asstring );
      TextOut(GETPX(75),GETPY(138),fieldbyname('項目建設依據地塊面積').asstring );
      TextOut(GETPX(125),GETPY(138),fieldbyname('項目建設依據劃撥用途').asstring );

      TextOut(GETPX(45),GETPY(147),fieldbyname('項目建設依據使用年限自年').asstring );
      TextOut(GETPX(60),GETPY(147),fieldbyname('項目建設依據使用年限自月').asstring );
      TextOut(GETPX(75),GETPY(147),fieldbyname('項目建設依據使用年限自日').asstring );
      TextOut(GETPX(95),GETPY(147),fieldbyname('項目建設依據使用年限至年').asstring );
      TextOut(GETPX(110),GETPY(147),fieldbyname('項目建設依據使用年限至月').asstring );
      TextOut(GETPX(125),GETPY(147),fieldbyname('項目建設依據使用年限至日').asstring );

      TextOut(GETPX(40),GETPY(165),fieldbyname('項目建設依據商品房名稱').asstring );
      TextOut(GETPX(25),GETPY(174),fieldbyname('項目建設依據建設工程許可證號').asstring );
      TextOut(GETPX(95),GETPY(174),fieldbyname('項目建設依據施工許可證號').asstring );

      splitPrint(fieldbyname('項目建設依據備注').asstring,30,32,35,182,25);

   END;
   with Printer.Canvas,previewform.adoquery3 do BEGIN
      TextOut(GETPX(55),GETPY(216),fieldbyname('商品房銷售依據批準機關').asstring );
      TextOut(GETPX(25),GETPY(226),fieldbyname('商品房銷售依據預售許可證號').asstring );
   END;
END;

procedure printpage4;
begin
   with Printer.Canvas,previewform.adoquery3 do BEGIN
     splitPrint (fieldbyname('商品房銷售依據備注').AsString,30,32,35,34,25);
   end;
   with Printer.Canvas,previewform.adoquery4 do BEGIN
      TextOut(GETPX(45),GETPY(83),fieldbyname('商品房基本情況幢座').asstring );
      TextOut(GETPX(100),GETPY(83),fieldbyname('商品房基本情況層').asstring );
      TextOut(GETPX(25),GETPY(92),fieldbyname('商品房基本情況房號').asstring );
      TextOut(GETPX(80),GETPY(100),fieldbyname('商品房基本情況用途').asstring );
      TextOut(GETPX(113),GETPY(100),fieldbyname('商品房基本情況結構').asstring );
      TextOut(GETPX(25),GETPY(108),fieldbyname('商品房基本情況層高').asstring );
      TextOut(GETPX(80),GETPY(108),fieldbyname('商品房基本情況地上層數').asstring );
      TextOut(GETPX(110),GETPY(108),fieldbyname('商品房基本情況地下層數').asstring );
      splitPrint(fieldbyname('商品房基本情況備注0').asstring,30,32,35,123,25);

      TextOut(GETPX(142),GETPY(134),fieldbyname('商品房基本情況建筑面積').asstring );
      TextOut(GETPX(82),GETPY(142),fieldbyname('商品房基本情況套內面積').asstring );
      TextOut(GETPX(57),GETPY(150),fieldbyname('商品房基本情況分攤面積').asstring );
      splitPrint(fieldbyname('商品房基本情況備注1').asstring,30,32,35,167,25);
      splitPrint(fieldbyname('商品房基本情況備注2').asstring,30,32,35,184,25);

   end;
   with Printer.Canvas,previewform.adoquery5 do BEGIN
      TextOut(GETPX(105),GETPY(209),fieldbyname('計價方式種類').asstring );
      TextOut(GETPX(125),GETPY(225),fieldbyname('1單價幣種').asstring );
   end;
end;

procedure PrintPage15;
begin
    with Printer.Canvas,previewform.adoquery16 do BEGIN
      TextOut(GETPX(110),GETPY(40),fieldbyname('22合同頁數').asstring );
      TextOut(GETPX(142),GETPY(40),fieldbyname('22合同份數').asstring );
      TextOut(GETPX(55),GETPY(57),fieldbyname('22出賣人份數').asstring );
      TextOut(GETPX(92),GETPY(57),fieldbyname('22買受人份數').asstring );
      TextOut(GETPX(110),GETPY(57),fieldbyname('22其他份數1').asstring );
      TextOut(GETPX(25),GETPY(65),fieldbyname('22其他份數2').asstring );
      TextOut(GETPX(55),GETPY(90),fieldbyname('24申請單位').asstring );
   end;
   with Printer.Canvas,previewform.adoquery1 do BEGIN
      TextOut(GETPX(36),GETPY(178),fieldbyname('出賣人簽字年').asstring );
      TextOut(GETPX(55),GETPY(178),fieldbyname('出賣人簽字月').asstring );
      TextOut(GETPX(70),GETPY(178),fieldbyname('出賣人簽字日').asstring );
      TextOut(GETPX(50),GETPY(186),fieldbyname('出賣人簽字地點').asstring );
      TextOut(GETPX(97),GETPY(178),fieldbyname('買受人簽字年').asstring );
      TextOut(GETPX(115),GETPY(178),fieldbyname('買受人簽字月').asstring );
      TextOut(GETPX(130),GETPY(178),fieldbyname('買受人簽字日').asstring );
      TextOut(GETPX(110),GETPY(186),fieldbyname('買受人簽字地點').asstring );
   end;
end;
procedure PrintPage2;
begin
    with Printer.Canvas,previewform.adoquery1 do BEGIN
      TextOut(GETPX(90),GETPY(60), fieldbyname('合同編號').asstring );
      TextOut(GETPX(60),GETPY(85),fieldbyname('出賣人').asstring );
      TextOut(GETPX(80),GETPY(93) ,fieldbyname('出賣人注冊地址').asstring );
      TextOut(GETPX(80),GETPY(102),fieldbyname('出賣人營業執照注冊號').asstring );
      TextOut(GETPX(80),GETPY(111),fieldbyname('出賣人企業資質證書號').asstring );
      TextOut(GETPX(80),GETPY(120),fieldbyname('出賣人法定代表人').asstring );
      TextOut(GETPX(135),GETPY(120),fieldbyname('出賣人聯系電話').asstring );
      TextOut(GETPX(70),GETPY(128),fieldbyname('出賣人郵政編碼').asstring );
      TextOut(GETPX(70),GETPY(137),fieldbyname('委托代理人').asstring );
      TextOut(GETPX(110),GETPY(137),fieldbyname('委托代理人地址').asstring );
      TextOut(GETPX(70),GETPY(146),fieldbyname('委托代理人郵政編碼').asstring );
      TextOut(GETPX(135),GETPY(146),fieldbyname('委托代理人聯系電話').asstring );
      TextOut(GETPX(80),GETPY(155),fieldbyname('委托代理機構').asstring );
      TextOut(GETPX(70),GETPY(163),fieldbyname('委托代理機構注冊地址').asstring );
      TextOut(GETPX(80),GETPY(172),fieldbyname('委托代理機構營業執照注冊號').asstring );
      TextOut(GETPX(70),GETPY(181),fieldbyname('委托代理機構法定代表人').asstring );
      TextOut(GETPX(135),GETPY(181),fieldbyname('委托代理機構聯系電話').asstring );
      TextOut(GETPX(70),GETPY(190),fieldbyname('委托代理機構郵政編碼').asstring );
      TextOut(GETPX(60),GETPY(199),fieldbyname('買受人').asstring );
      TextOut(GETPX(105),GETPY(206),fieldbyname('買受人姓名').asstring );
      TextOut(GETPX(145),GETPY(206),fieldbyname('買受人國籍').asstring );
      TextOut(GETPX(125),GETPY(215),fieldbyname('買受人證件名稱').asstring );
      TextOut(GETPX(143),GETPY(215),fieldbyname('買受人證件號').asstring );
      TextOut(GETPX(60),GETPY(225),fieldbyname('買受人地址').asstring );
     end;
end;

procedure printpage14;
var

   s:string;
begin
   with Printer.Canvas,previewform.adoquery15 do BEGIN
      TextOut(GETPX(105),GETPY(40),fieldbyname('小區命名權約定').AsString  );

      s:= fieldbyname('1其他約定').asstring ;
      splitPrint (s,28,28,45,60,45);
      s:= fieldbyname('2其他約定').asstring ;
      splitPrint (s,28,28,45,77,45);

   end;
   with Printer.Canvas,previewform.adoquery16 do BEGIN
      TextOut(GETPX(105),GETPY(94),fieldbyname('18使用類型').asstring );
      TextOut(GETPX(35),GETPY(155),fieldbyname('18備注').asstring );
      TextOut(GETPX(103),GETPY(180),fieldbyname('19爭議解決方式種類').asstring );
      TextOut(GETPX(55),GETPY(190),fieldbyname('19仲裁委員會名稱').asstring );
   end;
end;

procedure printpage13;
begin
   with Printer.Canvas,previewform.adoquery14 do BEGIN
      TextOut(GETPX(152),GETPY(33),fieldbyname('已退房房價款百分比').asstring );
      TextOut(GETPX(127),GETPY(50),fieldbyname('未退房房價款百分比').asstring );
      splitPrint (fieldbyname('備注').asstring,30,34,40,70,25);
   end;
   with Printer.Canvas,previewform.adoquery15 do BEGIN
      splitPrint(fieldbyname('16保修責任').asstring,30,32,35,165,25);
      splitPrint (fieldbyname('屋面使用權約定').asstring,10,28,120,190,25);
      splitPrint (fieldbyname('外墻面使用權約定').asstring,10,28,120,209,25);
      TextOut(GETPX(105),GETPY(225),fieldbyname('樓宇命名權約定').asstring );
   end;

end;

end.
上一頁 12
?? 文件大小 1912 K
?? 上傳用戶 zhangyan
?? 所屬分類其他行業
??? 相關標簽

#報表
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? printadounit.pas

?? 快捷鍵說明
