🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.database.ado
Article #4590

Some Field are not editable?

#4590
From: Dale
Date: Thu, 01 Nov 2001 15:55
57 lines
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!dnews

Show 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