uniGUI试用笔记(五)

uniGUI的主窗体可以采用多页面方式进行管理,参考网上的资料,都是用TUniFrame + TUniPageControl 来实现,尝试了一下,效果还不错,如下图:

用TUniFrame 能够使用继承模式,我采用了以下的类关系:

TfmeWebEmbedBase : 所有嵌入Frame的基类,实现了与主窗体的交互和控制,包括窗体的关闭等

TfmeWebDBListBase:   与数据集列表操作相关的基类,实现了数据集的开启、数据导出与打印等

TfmeWebDBListEditBase:与数据集读写操作相关的基类,实现了数据集的新增、修改、删除、导入及保存等

业务窗体根据情况从TfmeWebDBListBase或TfmeWebDBListEditBase继承。

在主窗体中,首先构建一个列表,容纳所有的Frame

FFrameList : TList;

菜单或按钮点击,需要开启业务窗体时,调用函数

procedure TfrmWebMain.ShowFrame(AfmeBaseClass: TfmeWebEmbedClass;  AOwnerData: Variant);
var
  ts: TUniTabSheet;
  fme : TfmeWebEmbedBase;
begin
  { 查找是否已经存在相应的业务窗体 }
  fme := FindFrame(AfmeBaseClass);
  { 如果没有则新建 }
  if not Assigned(fme) then
  begin

    { 先创建TabShee,用于放置Frame }
    ts := TUniTabSheet.Create(self);
    ts.PageControl := pcMain;
    ts.Closable := False;

    { 置换关闭事件,用于关闭业务窗体 }
    ts.OnClose := OnTabSheetClose;

    { 构建业务窗体 }

    fme := AfmeBaseClass.Create(Self);
    fme.Parent := ts;
    fme.TabSheet := ts;
    fme.Align := alClient;
    fme.MainForm := Self;

    { 设置返回事件,当业务窗体按下<返回>时,执行该函数}
    fme.OnReturn := OnFrameReturn;
    ts.Caption := fme.ModelName;

    { 业务窗体加入到列表 }
    FFrameList.Add(fme);
  end
  else { 如果找到已存在的业务窗体,则取其对应的TabSheet}
    ts := fme.TabSheet;

  { 进行业务窗体的数据准备工作,失败则释放业务窗体 }

  if not fme.PrepareData(AOwnerData) then
  begin
    ReleasFrame(fme);
    Exit;
  end;

  { 显示业务窗体 }

  ts.TabVisible := true;
  pcMain.ActivePage := ts;
end;
时间: 2024-10-12 03:20:01

uniGUI试用笔记(五)的相关文章

uniGUI试用笔记(十五)通过URL控制参数

通过URL代入参数,在代码中读取,如: http://localhost:8501/?ServerPort=212&&ServerIP=192.168.31.12 在代码中可以通过: FServerIP := UniApplication.Parameters.Values['ServerIP']; FServerPort := UniApplication.Parameters.Values['ServerPort']; 呵呵,很简单哈

uniGUI试用笔记(三)

uniGUI下的MessageDlg使用发生了变化,最大的特点是: 1.成为了uniGUIForm的成员函数: 2.变成过程(procedure)了,也就是没有返回值了,使得程序不再具有线程阻塞性. 3.增加了一个传入回调函数的参数:callBack : TuniDialogCallbackAnonProc,该类型定义在uniGUIDialogs单元中: TuniDialogCallbackAnonProc = procedure (Sender : TComponent; Res : Inte

uniGUI试用笔记(一)

通过向导创建一个uniGUI应用服务器,工程中有三个文件: TUniServerModule = class(TUniGUIServerModule) TUniMainModule = class(TUniGUIMainModule) TMainForm = class(TUniForm) (1)采用了单例模式,所有客户端共用一个TUniServerModule实例对象,从下面代码可以看出: function UniServerModule: TUniServerModule; implemen

uniGUI试用笔记(四)

uniGUI下有专用的登录窗体类:TUniLoginForm,该类属于AppForm,构建代码为: function frmWebLogin: TfrmWebLogin; begin Result := TfrmWebLogin(dmWebMain.GetFormInstance(TfrmWebLogin)); end; 系统中如果存在登录窗体,则首先显示该窗体,当登录窗体返回不同ModuleResult值时,代表不同含义: ModalResult := mrOk; //表示登录成功,显示主窗体

uniGUI试用笔记(七)

uniGUI的文件下载由于TUniSession的存在而变得非常简单,最典型的一个例子就是将列表中的所有数据导出到Excel中.服务器上采用TMS FlexCel控件,先将数据集中的记录导入到Excel文件中,然后再将Excel文件内容输出到内存流中,最后通过TUniSession发送到客户端.代码如下: procedure TfmeWebDBListBase.ExportData; var i, rowindex, colindex: Integer; ms : TMemoryStream;

uniGUI试用笔记(六)

uniGUI提供了一个文件上传控件TUniFileUpload,进行数据的导入就变得比较容易.首先将TUniFileUpload控件放置在窗体上,按下导入按钮后,执行TUniFileUpload的文件上传功能: procedure TfmeWebDBListEditBase.btnImportClick(Sender: TObject); begin inherited; { 执行文件上传 } fuMain.Execute; { 启动Mask,显示文件上传过程 } fuMain.ScreenMa

uniGUI试用笔记(十)

今天用LoadRunner对uniGUI的Standalone模式的程序进行了一次压力测试,程序采用三层模式,将应用服务器与Web服务器分离,由于条件限制,数据库.应用服务和Web服务都部署在同一条云服务器上,客户端使用IE浏览器,如下图: , 云服务器配置:CPU 4核 内存8G 硬盘500G 带宽10Mbps 客户端为笔记本电脑,i7 8核,内存16G,硬盘1T,客户端带宽20Mbps 先用LoadRunner纪录一组操作,包括操作员登录.打开结算单列表,大约900条纪录分页显示,点击第一条

uniGUI试用笔记(二)

前几天做的demo今天启动后,浏览器打开页面后死活不显示窗体,找了半天原因才发现是360浏览器启动了兼容模式,改成极速模式后就正常了.有点晕.... 今天简单测试了TUniGUIServerModule的几个属性 Title   应用程序名称,显示在页面标签上的 LoadingMessage  载入ExtJS库时显示的信息 UnavailableErrMsg   服务器不可用时显示的信息 MainFormDisplayMode  主窗体的显示模式,可选项包括: mfWindow 窗体模式,有窗体

uniGUI试用笔记(九)uniGUI执行程序部署有3种形式

uniGUI执行程序部署有3种形式 1.ISAPI模式 部署在IIS或Apache,程序编译为Dll形式,没有试,准备后续专门测试一下. 2.标准执行文件模式 将软件编译成一个独立的Exe文件,包括了WEB服务和业务内容,是uniGUI部署方式中最简单的一种.该方式最大特点是可以进行代码跟踪,同一般exe程序调试一样,在Debug模式下程序调试非常方便.运行exe后就可以直接打开页面进行测试,通过任务栏上的图标可以打开服务监控页面,监控服务程序的运行情况,如下图: 3.Windows服务模式 将