Article View: borland.public.cppbuilder.database.ado
Article #4590Some Field are not editable?
From: Dale
Date: Thu, 01 Nov 2001 15:55
Date: Thu, 01 Nov 2001 15:55
57 lines
2271 bytes
2271 bytes
How come HasAccess and OptCode are read only in my dataset while everything
else is editable?
CREATE PROC UserGroupAccess_lst
@UserGroup VARCHAR(10)
AS
SET NOCOUNT ON
DECLARE @OpCode INT
SELECT @OpCode = 0
--* return the all the functions and an indicator on those
--* that the group has access to
SELECT DISTINCT
b.ModNbr,
b.FuncNbr,
FunctionName,
HasAccess = CASE WHEN EXISTS ( SELECT *
FROM AccessRights c
WHERE Group_Cd = @UserGroup
AND c.FuncNbr = b.FuncNbr)
THEN 1
ELSE 0
END,
'OpCode' = CONVERT (VARCHAR(20),@OpCode)--field for client use
FROM ModuleAccess b
LEFT JOIN AccessRights a ON a.FuncNbr = b.FuncNbr
/*************** Testing Area *******************************
UserGroupAccess_lst 'ADM'
sp_helptext usergroupaccess_ins
usergroupaccess_ins 'adm', 100, 103
select * from accessrights
select * from moduleaccess
select * from usergroup
select * from contacttype
*************************************************************/
/************** Modification Log *****************************
24-Oct-2001 JR -Initial version
31-Oct-2001 JR -LEFT Join and add a HasAccess field so clients
-gets all information in one call. Also added
-OpCode field for client use.
*************************************************************/
Technical Details
Message-ID:
<3be17085_1@dnews>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!cpk-news-hub1.bbnplanet.com!news.gtei.net!news.maxwell.syr.edu!out.nntp.be!propagator-SanJose!in.nntp.be!newsfeed01.tsnz.net!newsfeeds.ihug.co.nz!ihug.co.nz!dnewsShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 10698b,4b27017bf629e59,start X-Google-Attributes: gid10698b,public X-Google-ArrivalTime: 2001-11-01 07:58:12 PST From: "Dale" <Dkrebbers@cenadex.com> Newsgroups: borland.public.cppbuilder.database.ado Subject: Some Field are not editable? Date: Thu, 1 Nov 2001 07:55:24 -0800 Lines: 61 X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4133.2400 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400 NNTP-Posting-Host: 24.67.186.198 Message-ID: <3be17085_1@dnews> X-Trace: dnews 1004630149 24.67.186.198 (1 Nov 2001 07:55:49 -0800) Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!cpk-news-hub1.bbnplanet.com!news.gtei.net!news.maxwell.syr.edu!out.nntp.be!propagator-SanJose!in.nntp.be!newsfeed01.tsnz.net!newsfeeds.ihug.co.nz!ihug.co.nz!dnews