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版本,可能需要一些修改才能运行!

以下是引导说明界面

其中的部份代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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

下载地址:
链接: https://pan.baidu.com/s/1PMRYEB96MYH6VYrYnHrEaQ 提取码: cyfe 复制这段内容后打开百度网盘手机App,操作更方便哦

-------------本文已结束赏个小钱吧-------------
×

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

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

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

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

64.7K

相关文章推荐