uniGUI用Grid++Report报表插件设计保存报表(For unigui ver:0.95.0.1045)

uniGUI的0.95.0.1045版本提供了CallbackUrl， 我们也可以用这个提供的回调网址来实现优秀的国产报表插件在IE\Chorme\FireFox中在线设计并保存报表到服务端的功能。

界面效果如下：

代码如下：

unit Main;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics,  Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses,  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses, uniPanel,  uniHTMLFrame,  uniURLFrame, uniButton, uniLabel;type  TMainForm = class(TUniForm)    UniHTMLFrame1: TUniHTMLFrame;    Panle1: TUniPanel;    btn1: TUniButton;    lbl1: TUniLabel;    procedure btn1Click(Sender: TObject);    procedure UniFormAjaxEvent(Sender: TComponent; EventName: string; Params: TStrings);  private    procedure SetDeignReportHTML();    { Private declarations }  public    { Public declarations }  end;function MainForm: TMainForm;implementation{$R *.dfm}uses  uniGUIVars, MainModule, uniGUIApplication, ServerModule;function MainForm: TMainForm;begin  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));end;procedure TMainForm.btn1Click(Sender: TObject);beginself.SetDeignReportHTML;end;procedure TMainForm.SetDeignReportHTML;var  stringList: TStringList;  LoadReportURL,DataURL, saveReportURL,BrowSertype: string;  c: TUniClientInfoRec;begin  UniHTMLFrame1.HTML.Clear;  LoadReportURL := 'POST::files/grf/1a.grf';  DataURL :='files/data/xmlCustomer.xml';  saveReportURL := UniSession.CallbackUrl('ReportSave', Self, []);  stringList := TStringList.Create;  try    c := UniApplication.ClientInfoRec;    BrowSertype :=   c.BrowserType;    if (c.BrowserType = 'chrome') or (c.BrowserType = 'gecko') then    begin      stringList.Text :=        ' <object id="ReportDesigner" type="application/x-grplugin-designer" '         +'width="100%" height="100%">'         +' <param name="LoadReportURL" value="' +LoadReportURL + '">'         + '<param name="SaveReportURL"  value="' + saveReportURL +'">'         +' <param name="DataURL" value="'+DataURL+'">'         +' <param name="SerialNo" value="4DFB949E066NYS7W11L8KAT53SA177391Q9LZQ094WUT9C9J3813SX8PTQC4ALPB9UAQN6">'         + '<param name="UserName" value="锐浪报表插件本机开发测试注册">'         +' <param name="ViewStyle" value="15"></object>';    end    else if c.BrowserType = 'ie' then    begin      stringList.Text :=        '<object width="100%" height="100%" id="ReportDesigner" '         +'classid="clsid:3C19F439-B64D-4dfb-A96A-661FE70EA04D" '         +'codeBase="grinstall/grbsctl5.cab#Version=5,8,13,715">'         +'<param name="LoadReportURL" value="' + LoadReportURL + '">'         +'<param name="DataURL" value="'+DataURL+'">'         +'<param name="SaveReportURL"  value="' + saveReportURL +'">'         +' <param name="SerialNo" value="4DFB949E066NYS7W11L8KAT53SA177391Q9LZQ094WUT9C9J3813SX8PTQC4ALPB9UAQN6">'         + '<param name="UserName" value="锐浪报表插件本机开发测试注册">'         +'<param name="ViewStyle" value="15"></object>';    end;    UniHTMLFrame1.HTML.Text := stringList.Text;  finally    stringList.Free;  end;end;procedure TMainForm.UniFormAjaxEvent(Sender: TComponent; EventName: string; Params: TStrings);var  stringlist:TStringList;  stringStream:TStringStream;  FileName:string;begin  if EventName='ReportSave' then  begin    stringlist := TStringList.Create;    stringStream := TStringStream.Create;    try      TMemoryStream(UniSession.ARequest.PostStream).SaveToStream(stringStream);      stringlist.Add(stringStream.DataString);      FileName := UniServerModule.StartPath+'/files/grf/1a.grf';      //可以保存为文件，也可以根据需要保存到数据库中      stringlist.SaveToFile(fileName);    finally      stringlist.Free;      stringStream.Free;    end;  end;end;initializationRegisterAppFormClass(TMainForm);end.

Form文件的代码如下：

object MainForm: TMainForm  Left = 0  Top = 0  ClientHeight = 369  ClientWidth = 598  Caption = 'uniGUI'#20013'Grid++Report'#35774#35745#24182#20445#23384#25253#34920#27169#26495  Color = clBtnFace  WindowState = wsMaximized  OldCreateOrder = False  MonitoredKeys.Keys = <>  ClientEvents.UniEvents.Strings = (          'window.beforeInit=function window.beforeInit(sender)'#13#10'{'#13#10'  Ext.u' +      'seShims =true;'#13#10'}')  OnAjaxEvent = UniFormAjaxEvent  PixelsPerInch = 96  TextHeight = 13  object UniHTMLFrame1: TUniHTMLFrame    Left = 0    Top = 48    Width = 598    Height = 321    Hint = ''    AutoScroll = False    Align = alClient    Anchors = [akLeft, akTop, akRight, akBottom]  end  object Panle1: TUniPanel    Left = 0    Top = 0    Width = 598    Height = 48    Hint = ''    Caption = ''    Align = alTop    Anchors = [akLeft, akTop, akRight]    TabOrder = 1    object btn1: TUniButton      Left = 3      Top = 3      Width = 102      Height = 39      Hint = ''      Caption = #35774#35745#25253#34920      TabOrder = 1      OnClick = btn1Click    end    object lbl1: TUniLabel      Left = 144      Top = 14      Width = 377      Height = 28      Hint = ''      AutoSize = False      Caption = #20445#23384#21518#65292#21487#20197#20877#27425#28857#35774#35745#25253#34920#65292#30475#26159#21542#25104#21151#20445#23384#20462#25913#30340#32467#26524      TabOrder = 2    end  endend

完整代码下载：点击打开链接