项目地址: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、打印界面