DelphiWebMVC 框架介绍

项目地址:DelphiWebMVC: delphi在web系统开发上没有像java或php 这样方便，对于一直使用delphi的工程师来说是个遗憾，因此使用delphi技术开发了一套Web框架，使用MVC模式，让工程师只需把精力放在模型与视图的设计上，让delphi开发web系统更方便。https://gitee.com/pearroom/DelphiWebMVC

DelphiWebMVC安装指南

1、下载MVC5.0:框架开发所需sdk。
2、下载项目案例：WebMVC
3、开发环境:delpih xe10.3及以上(注:管理员权限运行delphi)。

4、相关文件下载和技术交流可加QQ群【685072623】。

5、配置开发环境引用SDK:

​

6、打开Demo:

7、控制器编写：

unit MainController;

interface

uses
  System.SysUtils, System.Classes, MVC.DataSet, BaseController, MainService;

type
  [MURL('Main', 'Main')]  {这是路由地址，视图地址}
  TMainController = class(TBaseController)
  public
    [MURL('index')]       {index为index方法的访问地址 ，设置访问地址的 index 方法将无法再访问}
    procedure index;
    procedure menu;       {获取菜单信息}
  end;

implementation

{ TMainController }

procedure TMainController.index;
var
  ds: Idataset;
begin
  SetAttr('realname', Session.getValue('username'));
  ds := Service.Main.getmenu;  {业务调用，获取所有菜单信息}
  SetAttr('menuls', ds.toJSONArray);
  Show('main');
end;

procedure TMainController.menu;
var
  ds: Idataset;
begin
  ds := Service.Main.getmenu;
  ShowJSON(ds);
end;

end.

8、业务层开发：

unit MainService;

interface

uses
  System.SysUtils, System.Classes, MVC.JSON, MVC.DataSet, MVC.Service, mvc.DB;

type
  TMainService = record
    function getMenu(): IDataSet;
  end;

implementation

uses
  TableMap;
{ TIndexService }

function TMainService.getMenu(): IDataSet;
var
  sql: ISQL;
begin
  var conn: IConn := IIConn;
  sql := IISQL(Tb_dict_menu);
  sql.Order('s_id');
  Result := conn.Db.Find(sql);
end;

end.

9、编译运行:

​

10、进入系统界面

​

11、新增界面

​

12、修改界面

​

13、打印界面

​