🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.lang.visual-basic
Article #20867

Re: Ȩ���������⣿

#20867
From: �׺�����
Date: Tue, 29 Jul 2003 16:24
38 lines
2725 bytes
�� �� zsjyp (��Ű׳�) �Ĵ������ᵽ: ��
: vb+access���������½�������û�admin adn user
: ������ô����admin�е��command1��Ȩ�ޣ���user���ܵ��command1
: ����˵��ô���ò���ʹadmin��½��ʱ��command1.Enabled =True 
: ��user��½��ʱ��command1.Enabled =false?
: thanks!

�����Ҫ�ڳ����еõ��û�
account�ж�,Ȼ��disable or enable

CurrentUser ����
����� Ӧ���� ʾ�� ���� 
ʹ�� CurrentUser �������Է�����ݿ⵱ǰ�û�����ơ�String �͡�

expression.CurrentUser

expression   ���衣���ء�Applies To���б��е�һ������ı��ʽ��

˵��
���磬�����ڸ��ٶ���ݿ�����޸ĵ��û��Ĺ����ʹ�� CurrentUser ������

CurrentUser ��������һ����ǰ�û��ʻ���Ƶ��ַ�

�����δ������ȫ�����飬CurrentUser ����������Ĭ�ϵ��û��ʻ�����������Ա��
����ơ�������Ա���û��ʻ����û���������ݿ����ӵ����ȫȨ�ޡ�

����Ѿ����ù�����İ�ȫ���ԣ�CurrentUser ���������ص�ǰ�û��ʻ�����ơ���
�ڡ�����Ա��������û��ʻ�������ָ�����������û�������ݿ�����Ȩ�ޡ�

ʾ��
�����ʾ���õ�ǰ�û�����Ʋ�������ʾ�ڶԻ����С�

MsgBox("The current user is: " & CurrentUser)

--

�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 211.92.50.98]
Technical Details
Message-ID: <000000$388@smth.org>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: 109fdd,e6715cccd3a95a72,start
X-Google-Attributes: gid109fdd,public
X-Google-ArrivalTime: 2003-07-29 09:25:01 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH
From: henryl@smth.org (�׺�����)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: Re: Ȩ���������⣿
Date: 29 Jul 2003 16:24:52 GMT
Organization: BBS ˮľ�廪վ
Message-ID: <000000$388@smth.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/S/M.1059495683.A0
Lines: 38