首页 » 程序源码 » delphi源码 » unigui管理系统源码

unigui管理系统源码

uniGui是一款delphi开发网页应用的框架,完全基于ExtJs,全面支持ajax技术,是delphi开发bs程序的有力控件!官方网站为 http://www.unigui.com unigui的demo运行方法网址介绍地址http://www.unigui.com/resources/running-demos

uniGUI为Delphi开发者在IDE上的Web应用程序设计创建、调试提供一套独特的视觉元素。每个组件的设计是为了提供在Delphi VCL可视化组件的对应相同的功能。这提供了一个非常舒适的开发环境,非常接近原生VCL应用开发的一个简单的学习过程。uniGUI Web应用程序可以部署到服务器上使用一个可用的部署选项,如Windows服务,独立服务器或ISAPI模块。

本源码是在uniguiv0.95的基础上开发的,如果你用最新的unigui版本,可能需要一些修改才能运行!

以下是引导说明界面

其中的部份代码

 

procedure TMainForm.InsertFrame(acaption:string);
var
 tabs:TUniTabSheet;
begin
 if (MM1.LoginUserid<>'') then //判断登录
 begin
 if acaption='添加帐号' then
 begin
 try
 UniFrame3:=TUniFrame3.Create(Self);
 UniFrame3.Align:=alClient;
 except
 ShowActiveTab('添加帐号');
 exit;
 end;
 tabs:=TUniTabSheet.Create(Self);
 tabs.PageControl:=pg1;
 tabs.Caption:='添加帐号';
 tabs.Closable:=True;
 pg1.ActivePage:=tabs;
 UniFrame3.Parent:=tabs;
 UniFrame3.ParentWindow:=MainForm.Handle;
 end;
 if acaption='系统设置' then
 begin
 try
 UniFrame4:=TUniFrame4.Create(Self);
 UniFrame4.Align:=alClient;
 except
 ShowActiveTab('系统设置');
 exit;
 end;
 tabs:=TUniTabSheet.Create(Self);
 tabs.PageControl:=pg1;
 tabs.Caption:='系统设置';
 tabs.Closable:=True;
 pg1.ActivePage:=tabs;
 UniFrame4.Parent:=tabs;
 UniFrame4.ParentWindow:=MainForm.Handle;
 end;
 end;
end;

提供的源代码可以用于学习unigui!此unigui源码动态生成tab,鼠标长时间不动自动锁界面等值得借鉴,你只需要修改一下代码就可以做为自己web系统的框架,添加功能继续开发!下载后运行bin目录中的安装,就可以点 打开 看到界面了,可以自己注册帐号,默认有一个帐号admin admin

下载地址:

百脑问
此处内容已经被作者无情的隐藏,请输入验证码查看内容
验证码:
请关注“百脑问官方公众号,回复关键字“118”,获取验证码。【注】用微信扫描右侧二维码就可以关注“百脑问”官方公众号。

未经允许不得转载:百脑问 » unigui管理系统源码

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开微信扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

分享到:更多 ()

评论 抢沙发

评论前必须登录!

百脑问 创新坚持 杰然不同

赞助我们联系我们
数据查询次数:20 消耗时间:0.547 秒, 使用内存: 21.14MB
您好,有什么可以帮您吗!