如何实现：指定部门人员只能在限定IP段访问系统？**

sdhhonda_Yang · 发表于 2009-1-19 12:33:06

如何实现：指定部门人员只能在限定IP段访问系统？

例如：
部门ID为000的人员，只能在192.1.1.X　IP段使用系统，
其它部门人员IP限制影响

zfang · 发表于 2009-1-19 12:44:29

1、可以利用人员表的扩展字段进行设置该人员能在哪个网段登陆
2、在登陆时进行判断（获取本地ip以及登陆时作控制可以在论坛里搜索一下）

sdhhonda_Yang · 发表于 2009-1-19 12:52:39

业务模型\系统空间\简洁风格\界面库\窗体库\系统登录对话框
procedure TSYSTEMLOGINDIALOG.btnLoginClick(Sender: TObject);
...
//限制IP地址
LimitIP := SDHLimitIP.TSDHLimitIP.Create(Context);报内部地址错误
LimitIP.GetLocalIP();

zfang · 发表于 2009-1-19 13:03:04

楼主，你这个是？

sdhhonda_Yang · 发表于 2009-1-19 13:14:12

这是一个资源集

把要用的函数全放到这里了，
这样在升级时改动就小

zfang · 发表于 2009-1-19 13:15:36

资源集中写成静态方法，不要去实例化它。直接调用。

atiger · 发表于 2009-2-5 09:04:31

		自动登录	找回密码
密码			立即注册