水晶报表(Crystal Reports 9) for delphi

当安装了Crystal Reports 9后,在delphi的Data Access页中显示Tcrpe和TCrpeDS两个控件,

1)选择报表控件crpe1:Tcrpe和数据源控件qryRptPath:TSQLDataSet及打印设置控件PrintDialog1: TPrintDialog

2)在窗体初始化事件中

var
  CurrentDir:string;
  CFGIniFiles: TIniFile;
begin
  //获取报表的数据库连接信息;
  CurrentDir:=ExtractFileDir(Application.ExeName);
  try
    CFGIniFiles:=TIniFile.Create(CurrentDir +'/'+ 'dbxmtsconf.ini');
    servername:=CFGIniFiles.ReadString('EXMTNCUS', 'HostName', 'Localhost');
    dbuser:= CFGIniFiles.ReadString('EXMTNCUS', 'User_Name', 'LGSAS');
    dbPswd:= CFGIniFiles.ReadString('EXMTNCUS', 'Password', 'LGSAS');
    dbName:= CFGIniFiles.ReadString('EXMTNCUS', 'DataBase', 'MTNCUS');
  finally
    CFGIniFiles.Free;
  end;
  //获取参数报表路径
  with qryRptPath do
  begin
    Close;<