让Fastreport3.x支持中文PDF的输出

最新推荐文章于 2023-03-24 06:59:24 发布
最新推荐文章于 2023-03-24 06:59:24 发布
阅读量1.5k 收藏
点赞数
分类专栏： PDF Resource 文章标签： stream integer string adobe encoding byte
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chictex/article/details/257762
版权

转自大富翁论坛，至于如何重新编译可以参考《Fastreport 3.07 专业的安装及中文化》

Q:FastReport 3.x导出PDF乱码怎么解决?(中文乱码,英文没问题).
A:用下面这代码替换 frxPDFFile.pas 中原来的代码就可以了
已在enterprise（应该说是professional） 3.07下测试通过；
注意事项：字体内嵌的复选框不可选。

procedure TfrxPDFFont.SaveToStream(Stream: TStream);
var
  s: String;
  b: TBitmap;
  pm: ^OUTLINETEXTMETRIC;
  FontName: String;
  i: Cardinal;
  pfont: PChar;
  FirstChar, LastChar : Integer;
  MemStream: TMemoryStream;
  MemStream1: TMemoryStream;
  pwidths: PABC;
  Charset: TFontCharSet;

  // support DBCS font name encoding
  function EncodeFontName(AFontName: String): string;
  var
    s: string;
    Index, Len: Integer;
  begin
    // Add Begin by ijia 2004.12.20
    // 修正在简体系统下繁体字体名的问题
    // 只提供 MingLiU, PMingLiU --> 细明体, 新细明体的修正
    s:=UpperCase(AFontName);
    if Copy(s, 1, 7)='MINGLIU' then
      AFontName:='细明体';
   
    if Copy(s, 1, 8)='PMINGLIU' then
      AFontName:='新细明体';
    // Add end
    s := '';
    Len := Length(AFontName);
    Index := 0;
    while Index < Len do
    begin
      Index := Index + 1;
      if Byte(AFontName[Index]) > $7F then
        s := s + '#' + IntToHex(Byte(AFontName[Index]), 2)
      else
        s := s + AFontname[Index];
    end;
    Result := s;
  end;

begin
  inherited SaveToStream(Stream);
  b := TBitmap.Create;
  b.Canvas.Font.Assign(Font);
  b.Canvas.Font.Size := 750;
  i := GetOutlineTextMetrics(b.Canvas.Handle, 0, nil);
  GetMem(pm, i);
  GetOutlineTextMetrics(b.Canvas.Handle, i, pm);
  FirstChar := Ord(pm.otmTextMetrics.tmFirstChar);
  LastChar := Ord(pm.otmTextMetrics.tmLastChar);
  FontName := StringReplace(Font.Name, ' ', '#20', [rfReplaceAll]);
  s := '';
  if fsBold in Font.Style then
    s := s + 'Bold';
  if fsItalic in Font.Style then
    s := s + 'Italic';
  if s <> '' then
    FontName := FontName + ',' + s;

  Charset := pm.otmTextMetrics.tmCharSet;
  // Add by ijia 2004.12.20
  //if Charset = CHINESEBIG5_CHARSET then
  if Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET] then
    FontName := EncodeFontName(FontName)
  else
    FontName := Parent.PTool.PrepareString(FontName);

  Parent.XRefAdd(Stream);
  WriteLn(Stream, IntToStr(Index + Parent.FStartFonts) + ' 0 obj');
  WriteLn(Stream, '<<');
  WriteLn(Stream, '/Type /Font');
  WriteLn(Stream, '/Name /F' + IntToStr(Index - 1));
  WriteLn(Stream, '/BaseFont /' + EncodeFontName(FontName));

  // Add by ijia 2004.12.20
  //if Charset <> CHINESEBIG5_CHARSET then
  if not (Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET]) then
    WriteLn(Stream, '/Subtype /TrueType')
  else
    WriteLn(Stream, '/Subtype /Type0');

  case Charset of
    SYMBOL_CHARSET, ANSI_CHARSET:
      WriteLn(Stream, '/Encoding /WinAnsiEncoding');

    RUSSIAN_CHARSET: {1251}
    begin
      WriteLn(Stream, '/Encoding <</Type/Encoding /BaseEncoding /WinAnsiEncoding');
      Write(Stream, '/Differences [129 /afii10052');
      Write(Stream, '/quotesinglbase/afii10100/quotedblbase/ellipsis/dagger/daggerdbl/Euro/perthousand/afii10058/guilsinglleft/afii10059/afii10061/afii10060/afii10145/afii10099/quoteleft');
      Write(Stream, '/quoteright/quotedblleft/quotedblright/bullet/endash/emdash/space/trademark/afii10106/guilsinglright/afii10107/afii10109/afii10108/afii10193/space/afii10062');
      Write(Stream, '/afii10110/afii10057/currency/afii10050/brokenbar/section/afii10023/copyright/afii10053/guillemotleft/logicalnot/hyphen/registered/afii10056/degree/plusminus');
      Write(Stream, '/afii10055/afii10103/afii10098/mu/paragraph/periodcentered/afii10071/afii61352/afii10101/guillemotright/afii10105/afii10054/afii10102/afii10104/afii10017/afii10018');
      Write(Stream, '/afii10019/afii10020/afii10021/afii10022/afii10024/afii10025/afii10026/afii10027/afii10028/afii10029/afii10030/afii10031/afii10032/afii10033/afii10034/afii10035');
      Write(Stream, '/afii10036/afii10037/afii10038/afii10039/afii10040/afii10041/afii10042/afii10043/afii10044/afii10045/afii10046/afii10047/afii10048/afii10049/afii10065/afii10066');
      Write(Stream, '/afii10067/afii10068/afii10069/afii10070/afii10072/afii10073/afii10074/afii10075/afii10076/afii10077/afii10078/afii10079/afii10080/afii10081/afii10082/afii10083');
      WriteLn(Stream, '/afii10084/afii10085/afii10086/afii10087/afii10088/afii10089/afii10090/afii10091/afii10092/afii10093/afii10094/afii10095/afii10096/afii10097/space]');
      WriteLn(Stream, '>>');
    end;

    EASTEUROPE_CHARSET: {1250}
    begin
      WriteLn(Stream, '/Encoding <</Type/Encoding /BaseEncoding /WinAnsiEncoding');
      Write(Stream, '/Differences [128 /Euro 140 /Sacute /Tcaron /Zcaron /Zacute');
      Write(Stream, ' 156 /sacute /tcaron /zcaron /zacute 161 /caron /breve /Lslash');
      Write(Stream, ' 165 /Aogonek 170 /Scedilla 175 /Zdotaccent 178 /ogonek /lslash');
      Write(Stream, ' 185 /aogonek /scedilla 188 /Lcaron /hungarumlaut /lcaron /zdotaccent /Racute');
      Write(Stream, ' 195 /Abreve 197 /Lacute /Cacute 200 /Ccaron 202 /Eogonek 204 /Ecaron 207 /Dcaron /Dslash');
      Write(Stream, ' 209 /Nacute /Ncaron /Oacute 213 /Ohungarumlaut 216 /Rcaron /Uring 219 /Uhungarumlaut');
      Write(Stream, ' 222 /Tcedilla 224 /racute 227 /abreve 229 /lacute /cacute /ccedilla /ccaron');
      Write(Stream, ' 234 /eogonek 236 /ecaron 239 /dcaron /dmacron /nacute /ncaron 245 /ohungarumlaut');
      Write(Stream, ' 248 /rcaron /uring 251 /uhungarumlaut 254 /tcedilla /dotaccent]');
      WriteLn(Stream, '>>');
    end;

    TURKISH_CHARSET,
    GREEK_CHARSET,
    HEBREW_CHARSET,
    ARABIC_CHARSET,
    VIETNAMESE_CHARSET:
    begin
      WriteLn(Stream, '/Encoding <</Type/Encoding /BaseEncoding /WinAnsiEncoding');
      Write(Stream, '/Differences [128 /Euro 142 /Zcaron 158 /zcaron]');
      WriteLn(Stream, '>>');
    end;

    CHINESEBIG5_CHARSET: {136}
    begin
      WriteLn(Stream, '/DescendantFonts [' + IntToStr(Index + 1 + Parent.FStartFonts) + ' 0 R]');
      WriteLn(Stream, '/Encoding /ETenms-B5-H');
      WriteLn(Stream, '>>');
      WriteLn(Stream, 'endobj');

      WriteLn(Stream, IntToStr(Index + 1 + Parent.FStartFonts) + ' 0 obj');
      WriteLn(Stream, '<<');
      WriteLn(Stream, '/Type /Font');
      WriteLn(Stream, '/Subtype');
      WriteLn(Stream, '/CIDFontType2');
      WriteLn(Stream, '/BaseFont /'+ EncodeFontName(FontName));
      WriteLn(Stream, '/WinCharSet 136');
      WriteLn(Stream, '/FontDescriptor ' + IntToStr(Index + 2 + Parent.FStartFonts) + ' 0 R');
      WriteLn(Stream, '/CIDSystemInfo');
      WriteLn(Stream, '<<');
      WriteLn(Stream, '/Registry(Adobe)');
      WriteLn(Stream, '/Ordering(CNS1)');
      WriteLn(Stream, '/Supplement 0');
      WriteLn(Stream, '>>');
      WriteLn(Stream, '/DW 1000');
      WriteLn(Stream, '/W [1 95 500]');
      WriteLn(Stream, '>>');
      WriteLn(Stream, 'endobj');

      Parent.XRefAdd(Stream);

      WriteLn(Stream, IntToStr(Index + 2 + Parent.FStartFonts) + ' 0 obj');
      WriteLn(Stream, '<<');
      WriteLn(Stream, '/Type /FontDescriptor');
      if Parent.FEmbedded then
         WriteLn(Stream, '/FontFile2 ' + IntToStr(Index + 4 + Parent.FStartFonts) + ' 0 R');
      WriteLn(Stream, '/FontName /' + EncodeFontName(FontName));
      WriteLn(Stream, '/Flags 7');
      WriteLn(Stream, '/FontBBox [' + IntToStr(pm^.otmrcFontBox.Left) + ' '+ IntToStr(pm^.otmrcFontBox.Bottom) + ' '+ IntToStr(pm^.otmrcFontBox.Right) + ' '+ IntToStr(pm^.otmrcFontBox.Top) + ' ]');
      WriteLn(Stream, '/Style << /Panose <010502020300000000000000> >>');
      WriteLn(Stream, '/Ascent ' + IntToStr(pm^.otmAscent));
      WriteLn(Stream, '/Descent ' + IntToStr(pm^.otmDescent));
      WriteLn(Stream, '/CapHeight ' + IntToStr(pm^.otmTextMetrics.tmHeight));
      WriteLn(Stream, '/StemV ' + IntToStr(50 + Round(sqr(pm^.otmTextMetrics.tmWeight / 65))));
      WriteLn(Stream, '/ItalicAngle ' + IntToStr(pm^.otmItalicAngle));
      WriteLn(Stream, '>>');
      WriteLn(Stream, 'endobj');
    end;
   
    // Add begin by ijia 2004.12.20
    GB2312_CHARSET: {134}
    begin
      WriteLn(Stream, '/DescendantFonts [' + IntToStr(Index + 1 + Parent.FStartFonts) + ' 0 R]');
      WriteLn(Stream, '/Encoding /GB-EUC-H');
      WriteLn(Stream, '>>');
      WriteLn(Stream, 'endobj');

      WriteLn(Stream, IntToStr(Index + 1 + Parent.FStartFonts) + ' 0 obj');
      WriteLn(Stream, '<<');
      WriteLn(Stream, '/Type /Font');
      WriteLn(Stream, '/Subtype');
      WriteLn(Stream, '/CIDFontType2');
      WriteLn(Stream, '/BaseFont /'+ EncodeFontName(FontName));
      WriteLn(Stream, '/WinCharSet 134');
      WriteLn(Stream, '/FontDescriptor ' + IntToStr(Index + 2 + Parent.FStartFonts) + ' 0 R');
      WriteLn(Stream, '/CIDSystemInfo');
      WriteLn(Stream, '<<');
      WriteLn(Stream, '/Registry(Adobe)');
      WriteLn(Stream, '/Ordering(GB1)');
      WriteLn(Stream, '/Supplement 2');
      WriteLn(Stream, '>>');
      WriteLn(Stream, '/DW 1000');
      WriteLn(Stream, '/W [ 1 95 500 814 939 500 7712 [ 500 ] 7716 [ 500 ] ]');
      WriteLn(Stream, '>>');
      WriteLn(Stream, 'endobj');

      Parent.XRefAdd(Stream);

      WriteLn(Stream, IntToStr(Index + 2 + Parent.FStartFonts) + ' 0 obj');
      WriteLn(Stream, '<<');
      WriteLn(Stream, '/Type /FontDescriptor');
      if Parent.FEmbedded then
         WriteLn(Stream, '/FontFile2 ' + IntToStr(Index + 4 + Parent.FStartFonts) + ' 0 R');
      WriteLn(Stream, '/FontName /' + EncodeFontName(FontName));
      WriteLn(Stream, '/Flags 6');
     
      WriteLn(Stream, '/FontBBox [-25 -254 1000 880]');
      WriteLn(Stream, '/Style << /Panose <010502020400000000000000> >>');
      WriteLn(Stream, '/Ascent 880');
      WriteLn(Stream, '/Descent -120');
      WriteLn(Stream, '/CapHeight 880');
      WriteLn(Stream, '/StemV 93');
      WriteLn(Stream, '/ItalicAngle 0');
      WriteLn(Stream, '>>');
      WriteLn(Stream, 'endobj');
    end;
    // Add end
  end;

  // Add by ijia 2004.12.20
  //if Charset <> CHINESEBIG5_CHARSET then
  if not (Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET]) then
  begin
    WriteLn(Stream, '/FontDescriptor ' + IntToStr(Index + 2 + Parent.FStartFonts) + ' 0 R');
    WriteLn(Stream, '/FirstChar ' + IntToStr(FirstChar));
    WriteLn(Stream, '/LastChar ' + IntToStr(LastChar));
    GetMem(pwidths, SizeOf(ABCArray));
    Write(Stream, '/Widths [');
    GetCharABCWidths(b.Canvas.Handle, FirstChar, LastChar, pwidths^);
    for i := 0 to (LastChar - FirstChar) do
      Write(Stream, IntToStr(pwidths^[i].abcA + Integer(pwidths^[i].abcB) + pwidths^[i].abcC) + ' ');
    WriteLn(Stream, ']');
    FreeMem(pwidths);
    WriteLn(Stream, '>>');
    WriteLn(Stream, 'endobj');
    Parent.XRefAdd(Stream);
    WriteLn(Stream, IntToStr(Index + 2 + Parent.FStartFonts) + ' 0 obj');
    WriteLn(Stream, '<<');
    WriteLn(Stream, '/Type /FontDescriptor');
    if Parent.FEmbedded then
      WriteLn(Stream, '/FontFile2 ' + IntToStr(Index + 4 + Parent.FStartFonts) + ' 0 R');
    WriteLn(Stream, '/FontBBox [' + IntToStr(pm^.otmrcFontBox.Left) + ' '+ IntToStr(pm^.otmrcFontBox.Bottom) + ' '+ IntToStr(pm^.otmrcFontBox.Right) + ' '+ IntToStr(pm^.otmrcFontBox.Top) + ' ]');
    WriteLn(Stream, '/FontName /' + FontName);
    WriteLn(Stream, '/Flags 32');
    WriteLn(Stream, '/StemV ' + IntToStr(50 + Round(sqr(pm^.otmTextMetrics.tmWeight / 65))));
    WriteLn(Stream, '/CapHeight ' + IntToStr(pm^.otmTextMetrics.tmHeight));
    WriteLn(Stream, '/Ascent ' + IntToStr(pm^.otmAscent));
    WriteLn(Stream, '/Descent ' + IntToStr(pm^.otmDescent));
    WriteLn(Stream, '/ItalicAngle ' + IntToStr(pm^.otmItalicAngle));
    WriteLn(Stream, '>>');
    WriteLn(Stream, 'endobj');
  end;

  if Parent.FEmbedded then
  begin
    Parent.XRefAdd(Stream);
    WriteLn(Stream, IntToStr(Index + 4 + Parent.FStartFonts) + ' 0 obj');
    i := GetFontData(b.Canvas.Handle, 0, 0, nil, 1);
    GetMem(pfont, i);
    i := GetFontData(b.Canvas.Handle, 0, 0, pfont, i);
    MemStream := TMemoryStream.Create;
    MemStream.Write(pfont^, i);

    MemStream1 := TMemoryStream.Create;
    frxDeflateStream(MemStream, MemStream1, gzMax);
    WriteLn(Stream, '<< /Length ' + IntToStr(MemStream1.Size) + ' /Filter /FlateDecode /Length1 ' + IntToStr(MemStream.Size) + ' >>');
    WriteLn(Stream, 'stream');
    Stream.CopyFrom(MemStream1, 0);
    MemStream1.Free;

    MemStream.Free;
    FreeMem(pfont);
    WriteLn(Stream, '');
    WriteLn(Stream, 'endstream');
    WriteLn(Stream, 'endobj');
  end;
  FreeMem(pm);
  b.Free;
end;

Winform中使用FastReport实现简单的自定义PDF导出
BADAO_LIUMANG_QIZHI的博客
09-17 5414
场景 FastReport安装包下载、安装、去除使用限制以及工具箱中添加控件： https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/details/100893794 在上面成功安装FastReport之后，怎样使用其实现自定义导出PDF模板并导出PDF。 实现 新建一个Winform程序，打开工具箱 拖拽 一个Report控件，在页...
DevExpress、FastReport 报表导出PDF, 字体不加粗
最新发布
a506264344的专栏
03-20 1256
C# devExpress、fastReport报表导出PDF设置仿宋加粗字体
从FastReport.NET导出文件时，如何配置Acrobat PDF阅览器选项
baidu_37126085的博客
12-12 1403
标题已经揭示了本文的大部分主题——我想在导出FastReport.Net报表时检查下PDF文件阅览器的配置，它可以是Acrobat Reader或浏览器内置的阅览器（Edge、Chrome）或任何其他的阅览器。
FastReport.Net导出PDF和Word文件
weixin_43497445的博客
03-20 1054
FastReport.Net导出PDF和Word文件。
fastreport3.15 导出到 pdf 支持任意简体中文字体源码
02-23
看着伤心,传吧,改了多处,可以支持任意中文字体的,还会判断中文是否用了中文字体,不是的将自动取宋体传完了之后但愿不后悔,有兴趣的朋友再改改,传上来!
FastReport 5.2.3.Full XE8
04-20
总的来说，FastReport 5.2.3.Full XE8是一个全面的报表解决方案，旨在提升开发者的报表设计效率，提供高质量的打印输出，同时适应跨平台的开发需求。通过其丰富的特性，开发者可以轻松地集成报表功能到他们的应用...
FastReport.v4.7.147 for.Delphi.BCB.Full.Source中文修正企业版
06-12
全网第一家 FastReport. v4.7.147 最新版 CURRENT VERSION Build: 4.7.147 Date: 06/11/09 http://fast-report.com/en/products/report-for-delphi-fastreport-4-feature-matrix.html FASTREPORT® 4.0 VCL ...
FastReport.v4.8.36 for.Delphi.BCB.Full.Source中文修正版
11-23
全网第一家 FastReport.v4.8.36 for.Delphi.BCB.Full.Source 最新版 CURRENT VERSION Build: 4.8.36 Date: 11/22/09 http://fast-report.com/en/products/report-for-delphi-fastreport-4-feature-matrix.html ...
FastReport4用户使用手册(中文)
01-26
为了提高报表的灵活性和用户体验，FastReport 4支持多种交互操作，如Ctrl+O用于打开报表，Ctrl+S用于保存报表，Ctrl+P用于打印报表，Ctrl+X用于剪切，Ctrl+C用于复制，Ctrl+V用于粘贴，Ctrl+Z用于撤销等。...
解决fastreport3.18的exportPDF中文乱码方法
01-11
我在delphi2007上解决fastreport3.18的exportPDF中文乱码成功解决。分享给网友
FastReport导出PDF 乱码和报错dataonly问题解决
07-13
首先你的fastreport正常可用 替换源码文件到安装地址 C:\Program Files\FastReports\FastReport 4\Source\ExportPack 调用代码如下: frxReport1.LoadFromFile('..\report\abc.fr3'); frxReport1.PrepareReport; //frxReport1.ShowReport; //预览 with frxPDFExport1 do begin DefaultPath:='D:\'; FileName:='1.pdf'; ShowDialog:=False; ShowProgress:=False; end; frxReport1.Export(frxPDFExport1);
Delphi报表FastReports 3.15+ pdf中文修正版源代码
05-01
内容索引:Delphi源码,报表打印,报表,FastReports　　Delphi报表FastReports 3.15+ pdf中文修正版源代码，本压缩包内代码由多方Delphi热心人士发布，都是比较经典实用，有针对PDF乱码的解决方案代码，还附有一个完美版的frxPDFfile.pas，使用注意：将压缩包中文件释放到ResChinese下，先运行mkd6.bat(Delphi6)，然后到Delphi中重新编译frx6.dpk,frx6e.dpk并将生成的bpl文件拷贝到有关目录下即可。
FastReport 3 简体中文开发手册 (PDF教程)
01-13
为答谢盒子论坛，将我新发现的一个资料传上来，让大家一起都来看，现在FastReport资料很难找的，这个是简体中文版。
delphi如何输出FastReport的pdf文档
martian6125 's blog!
09-17 1699
with frxPDFExport1 do begin DefaultPath:=‘D:’; FileName:=‘1.pdf’; ShowDialog:=False; ShowProgress:=False; end; if frxReport1.LoadFromFile(‘D:\1.fr3’) then if frxReport1.PrepareReport() then frxReport1.Export(frxPDFExport1);
Delphi FastReport 的一点小功能总结
pcplayer的博客
03-24 1873
FastReport 是一套功能非常强大的报表控件，在 Delphi 的 IDE 里面，可以直接可视化设计报表页面；在运行期允许用户预览报表后再决定是否打印。还可以将报表内容输出为 JPG 图片或者 PDF 格式的文件，非常好用。
Fast report 下载 安装方法
xhudqlg的博客
10-08 368
1、进入官方网站http://www.fast-report.com/en/ 2、点击download页面，下载6版本后，运行 3、 注意： 1、选择了embarcardero版本后，报错缺少***255.bpl，之后，找到安装目录中的重新编译，由于我的是Delphi xe10.2，选择的是standard版本，选中重新编译所有文件，成功！ ...
unigui+fastreport 打印中文乱码的解决办法
weixin_45755495的博客
12-27 1450
1、在fastreport设计时，将字体设为中文字体： 2、将usedefaultcharset设为TRUE： 3、完成后打印出来的报表汉字均正常了。
delphi fastreport4.5 的使用
全欣 的专栏
10-16 9963
delphi fastreport4.5 的使用
fastreport 2018.3.13.0
08-01
FastReport是一个功能强大的报表生成工具，它提供了丰富的报表设计和生成功能，方便用户进行报表的创建和定制。FastReport 2018.3.13.0是FastReport最新版的一个补丁版本，它包含了一些Bug修复和性能优化。 FastReport 2018.3.13.0版本修复了一些已知的问题，包括报表生成中可能出现的错误和缺陷。通过更新到最新的版本，用户可以提高报表生成的稳定性和可靠性。此外，FastReport 2018.3.13.0还对一些功能进行了改进和优化，以提高用户的使用体验。 除了Bug修复和性能优化，FastReport 2018.3.13.0还可能增加了一些新的功能和特性。这些更新可能包括新的报表元素、数据源类型、导出选项等。用户可以根据自己的需求和喜好，通过更新到新版本来获得这些新功能。 总之，FastReport 2018.3.13.0是FastReport报表生成工具的最新版本，它修复了一些已知的问题，改进了性能，并可能增加了一些新的功能和特性。用户可以通过更新到最新版来提升报表生成的稳定性和功能体验。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值