为了应聘而做的一个名片面管理系统 源码无偿赠送。。。。 下载地址：http://www.tomore.com/1/35684.html ( 积分: 0 )

支持开源，参考参考！谢谢！mydecpu@126.com

上面的已经发送了，有问题的请回复。

clain@163.com 谢谢

cai35819194@163.com

所用的第三方控件有没有啊
谢谢：qinghh2002@yahoo.com.cn

第三方控件不在本机上，在家里面，你可以网上下载啊。

哦，谢谢了

关注一下：http://www.delphibbs.com/delphibbs/dispq.asp?lid=3262196
你们能运行不？
刚自己运行了一下，感觉库和程序是不是对不上啊

給我一份，可以嗎，我也學習學習一下的。
qq:4116491

不能运行

给我一份
谢谢!!
搂主还有第三方控件
E-mail:smallkinglf@126.com
QQ:435005792

学习一下，谢谢
shentao0410@sina.com

CREATE FUNCTION power_load(@userid VARCHAR(20))
RETURNS @Table Table
(
JIBEI_ID int,
pid int,
JIEBEI_NAME varchar(50),
IMAGE_INDEX int
)
/*
函数作用： 得到权限
*/
as
begin
declare @quanxian table
(
POPEDOM_ID int
)
declare @POPEDOM_ID int

--------------------------
declare dep_right cursor for
SELECT dbo.POPEDOM.POPEDOM_ID
FROM dbo.USER_INFO INNER JOIN
dbo.depart_rights INNER JOIN
dbo.POPEDOM ON
dbo.depart_rights.POPEDOM_ID = dbo.POPEDOM.POPEDOM_ID ON
dbo.USER_INFO.DEPT_ID = dbo.depart_rights.GANGWEI_BIANHAO
WHERE ((dbo.USER_INFO.USER_NUM = @userid) or (dbo.USER_INFO.USER_NUM= 'vanguard'))
open dep_right
FETCH NEXT FROM dep_right INTO @POPEDOM_ID
WHILE @@FETCH_STATUS = 0
begin
insert into @quanxian values(@POPEDOM_ID)
FETCH NEXT FROM dep_right INTO @POPEDOM_ID
END
CLOSE dep_right
DEALLOCATE dep_right
--------------------------
declare use_right cursor for
SELECT dbo.POPEDOM.POPEDOM_ID
FROM dbo.suer_rights INNER JOIN
dbo.POPEDOM ON
dbo.suer_rights.POPEDOM_ID = dbo.POPEDOM.POPEDOM_ID
WHERE ((dbo.suer_rights.userid = @userid) or (dbo.suer_rights.userid= 'vanguard'))
open use_right
FETCH NEXT FROM use_right INTO @POPEDOM_ID
WHILE @@FETCH_STATUS = 0
begin
insert into @quanxian values(@POPEDOM_ID)
FETCH NEXT FROM use_right INTO @POPEDOM_ID
END
CLOSE use_right
DEALLOCATE use_right
-------------------------
declare @pid int,@jebei_id int
declare powerOpen cursor for
select * from @quanxian
open powerOpen
FETCH NEXT FROM powerOpen INTO @POPEDOM_ID
WHILE @@FETCH_STATUS = 0
begin

insert into @Table select JIBEI_ID, PID, JIEBEI_NAME, IMAGE_INDEX FROM dbo.JIEBEI where JIBEI_ID=@POPEDOM_ID
SELECT @pid=PID FROM dbo.JIEBEI where JIBEI_ID=@POPEDOM_ID --
while @pid<>0
begin

select @jebei_id=pid from dbo.JIEBEI where JIBEI_ID=@pid
insert into @Table select JIBEI_ID, PID, JIEBEI_NAME, IMAGE_INDEX FROM dbo.JIEBEI where JIBEI_ID=@pid
if @jebei_id=0 break
select @pid=@jebei_id
end
FETCH NEXT FROM powerOpen INTO @POPEDOM_ID
END
CLOSE powerOpen
DEALLOCATE powerOpen
-------------------------------
RETURN
end

上面的是一个根据用户ID生成不同权限的函数
然后生成不同的树形菜单。
请关注：http://www.delphibbs.com/delphibbs/dispq.asp?lid=3262196

我发现程序和数据库对不上，可能当时因为不小心，拿错了。。。
如果真正感兴趣的联系我，星期一一定发过来。
把名片管理、影碟管理都发出去。

那楼主周一再给我发一份吧，多谢了
qinghh2002@yahoo.com.cn

to 楼主：
我没收到您的邮件，请再发一次好吗？
zqw0117@sina.com
awensoftware@163.com

ftjbxkj@163.com,谢谢楼主^_^

给我一份好吗，谢谢楼主
jiangzhang3942@163.com

iefang@163.com
楼主谢了。

楼主 感激
dch@mail.ccnu.edu.cn