Windows2000用户管理教案

第一篇：Windows2000用户管理教案

课题：Windows用户管理

【学习目标】

通过本章的理论学习和上机实训，大家应了解和掌握以下内容:    掌握：创建用户账户 掌握：修改用户账户 掌握：启用来宾账户 

掌握：删除用户账户 

了解：用户组管理 【重点难点】

1.用户账户密码的设置与提示 2.计算机管理中添加用户账户

【自主梳理】

用户账户密码的设置与提示 【课堂探究】

任务一：创建用户账户

在安装好Windows XP系统后，系统有一个默认的管理员账户administrator，这个账户拥有最高权限，一般看不见这个账户，而用户在安装Windows XP时输入的用户名也会被默认设置成具有管理员权限的账户。使用拥有管理员权限的用户账户，可以在系统中创建新账户。如下图所示为设置新用户的账户名称。

任务二：修改用户账户

在创建新账户后，用户可以根据自己的需要修改该账户属性，具体包括以下几个方面。

修改账户名称 创建账户密码 修改账户图片 更改账户权限

修改账户名称

账户名称是用户账户的标志，通过它可以区别不同的账户。用户账户的名称在启动Windows XP的欢迎屏中和“开始”菜单的顶部都有显示。下图所示为输入新的账户名称。

创建账户密码

为了保护账户的安全，用户可以为自己的账户添加密码。在创建账户密码 1

后，若用户知道该账户的密码，同样可以修改账户密码。下图所示为创建账户密码。

修改账户图片

在Windows XP中，每个用户都可以为自己的账户设置图片。和账户名称一样，账户图片在启动Windows XP的欢迎屏中和“开始”菜单的顶部都有显示。用户可以根据自己的喜好、心情设置账户图片。下图所示为选择账户图片。

更改账户权限

在Windows XP中，用户可以设置的账户权限分为两种：计算机管理员账户和受限账户。拥有计算机管理员权限的用户可以更改其他用户的使用权限。下图所示为更改账户权限。

任务三：删除用户账户

在Windows XP操作系统中若有多余的用户账号，为了方便管理，用户同样可以 将其删除。下图所示为删除不需要的用户账户。

任务四： 启用来宾账户

来宾账户可以让在系统中没有用户账户的任何用户访问计算机，但是使用来宾账户无法访问受密码保护的文件和文件夹，以及被设置为不允许来宾账户访问的文件。下图所示为已经启用的来宾账户。

任务五：快速切换用户

Windows XP系统支持快速切换用户功能，用户可以在不关闭运行程序的情况下，切换到另一用户账户。各个用户之间的操作相互独立运行，这对于多个用户同时使用一台计算机时非常有用。下图所示为启用还俗切换用户。

任务六： 管理用户组

如果一个Windows XP系统中包含了多个用户账户，则逐个进行设置就变得十分烦琐。此时用户可以将相类似的账户编到一个用户组里统一进行管理，这样可以提高管理用户账户的效率。

添加用户账户 创建新的组

添加用户账户

在Windows XP中，可以将用户账户添加到不同的组中，以获得不同的权限，这也方便了计算机管理员对本机用户账户权限的管理。下图为选择要添加的用户账户。

创建新的组

如果预装在Windows XP系统中的用户组无法满足需要，用户也可以根据自 2

己的要求创建新组。下图所示为新建用户组。

思考与练习

操作题

1.分别创建一个名称为“ABC”与“123”的用户账户并设置其相应权限。2．为“ABC”账户设置密码、图片。3.删除“123”账户。4.启用来宾账户并登陆查看。课后习题：

1.Windows的账户按照权限的不同可以分为、和。

2.用户账户的名称在 和 都有显示。

3.在系统中没有用户账户的任何用户访问计算机都可以通过 来访问系统。

第二篇：大工业用户管理规定

附件1：

大工业用户管理规定

依据《供电电营业规则》第二十三、二十四、二十五条规定，用户减容、用户暂停、用户暂换应按下列规定办理；

一、用户减容，须在五天前向供电企业提出申请。供电企业应按下列规定办理：

1、减容必须是整台或整组变压器的停止或更换小容量变压器用电。供电企业在受理之日后，根据用户申请减容的日期对设备进行加封。从加封之日起，按原计费方式减收其相应容量的基本电费。但用户申明为永久性减容的或从加封之日起期满二年又不办理恢复用电手续的，其减容后的容量已达不到实施两部制电价规定容量标准时，应改为单一制电费计费；

2、减少用电容量的期限，应根据用户所提出的申请确定，但最短期限不得少于六个月，最长期限不得超过二年；

3、在减容期限内，供电企业应保留用户减少容量的使用权。超过减容期限要求恢复用电时，应按新装或增容手续办理；

4、在减容期限内要求恢复用电时，应在五天前向供电企业办理恢复用电手续，基本电费从启封之日起计收；

5、减容期满后的用户以及新装、增容用户，二年内不得申办减容或暂停。如确需继续办理减容或暂停的，减少或暂停部分容量的基本电费应按百分之五十计算收取。

二、用户暂停，须在五天前向供电企业提出申请。供电企业应按下列规定办理：

1、用户在每一日历年内，可申请全部（含不通过受电变压器的高压发动机）或部分用电容量的暂时停止用电两次，每次不得少于十五天，一年累计暂停时间不得超过六个月。季节性用电或国家另有规定的用户，累计暂停时间可以另议；

2、按变压器容量计收基本电费的用户，暂停用电必须是整台或整组变压器停止运行。供电企业在受理暂停申请后，根据用户申请暂停日期对暂停设备加封。从加封之日起，按原计费方式减收其相应容量的基本电费；

3、暂停期满或每一日历年内累计暂停用电时间超过六个月者，不论用户是否申请恢复用电，供电企业须从期满之日起，按合同约定的容量计收其基本电费；

4、在暂停期限内，用户申请恢复暂停用电容量用电时，须在预定恢复日前五天向供电企业提出申请。暂停时间少于十五天者，暂停期间基本电费照收；

5、按最大需量计收基本电费的用户，申请暂停用电必须是全部容量（含不通过受电变压器的高压电动机）的暂停，并遵守本条1至4项的有关规定。

三、用户暂换（因受电变压器故障而无相同容量变压器替代，需要临时更换大容量变压器），须在更换前向供电企业提出申请。供电企业应按下列规定办理：

1、必须在原受电地点内整台的暂换受电变压器；

2、暂换变压器的使用时间，10千伏及以下的不得超过二个月，35 千伏及以上的不得超过三个月。逾期不办理手续的，供电企业可中止供电；

3、暂换的变压器经检验合格后才能投入运行；

4、对两部制电价用户须在暂换之日起，按替换后的变压器容量计收基本电费。

第三篇：网站用户管理系统

网站用户管理系统V1.0 1

网站用户管理系统

1.1 系统简介

网站需要用户互动来促进网站发展。当用户在网站中注册为注册会员，则相当于在网站中有了一个通行证，会员可用以辨别属于自己的信息、访问或发布权限允许内的信息。站长可用以对会员设定各种优惠方案、积分活动和统计相关情况，以提高网站运营成功率。

网站用户分成管理员、注册会员和游客三大类，其中管理员和注册会员都有独立的管理界面。管理员拥有网站管理后台管理权限。注册会员可以浏览相关权限范围内的网页信息，并可在会员中心发表相关信息。

注册会员可自由划分成不同的会员组，以设置本类会员组所拥有的权限。在网站正式运营前，需要先设置网站中用户的权限，如是否允许会员在网站中注册、是否可以在网站中发表信息等权限。1.2 软件安装

1.将“用户管理系统”文件夹拷贝到计算机D盘或E盘里。

2.打开“用户管理系统”文件夹，将config文件打开，把里面“server=„”改为“server=数据库服务器名（机子本身的服务器名或（LOCAL））”并将该文件保存。

3.双击“用户管理系统”里的“UserServers”文件（以快捷方式发送至桌面），就可以运行软件了。

1.21安装环境

软件环境

操作系统：Windows XP/Windows 2000/Windows2003 运行环境：MS Visaul Studio 2005 MS SQL Server 2000

硬件环境 网站用户管理系统V1.0 2 CPU ：2GHZ以上

内存：1024M以上 硬盘：80G以上

2.1用户管理系统使用说明

2.11功能

提供软件的一般用户管理系统

2.22配置用户参数

配置用户参数

依次点击“系统设置”->“网站配置”->“用户参数配置”，在“用户参数配置”中只有开启了会

员注册功能，才需要进一步设置相关注册参数。设置好相关参数后，单击页面底部“保存设置”按钮保存 相应配置。

建立的表:以下表在建立时应该先加密码，程序打开时才由程序传 网站用户管理系统V1.0 3 递密码。以避免直接用工具可打开DB文件。

用户资料表

用户ID： 用户登录时输入的用户名。

用户姓名： 用户的真实姓名。

密码： 用户密码（在存入前应该进行必要的加密）

权限： 用户级别。

有效期开始：该帐号从何时开始有效（下面程序没利用该功能）

有效期截止：何时该帐号不能用。

是否有效： 可以让该用户暂时为不可用。

出错次数： 用户连续输错密码次数（当有正确输入时复位）

出错限度： 允许输错密码次数，如果超过该限度，该用户置为不可用，必须找管理员为其复位。

备注： 必要的说明。

活动表：

用户ID： 记录进入系统的用户ID.活动状态： 该用户是否是当前活动用户。（程序允许A用户进入后，不必 退出系统而让B用户进入，A用户被置为非活动用户，当B退出后A被变为活动用户，只有第一个用户才能退出系统，同时清空活动表）

进入系统的验证

供用户进入系统的密码输入窗口。

当用户输入完成后，首先打开用户资料表，检查该用户是否存在，若不存在，清空用户输入，提示不存在该用户，让用户从新输入，用户名输入错误这里将不作次数限制。

网站用户管理系统V1.0 4 若存在该用户，接着验证密码，如果正确，根据用户的使用期限，是否有效作判断，并根据结果作出是否允许用户进入系统。如果不允许，给出相应的提示后关闭系统。否则，根据用户的级别置某些功能不能使用，同时在活动表中记录该用户已进入，并复位出错次数字段。

如果存在该用户，但密码错误，用户资料表中的出错次数加一。让用户从新输入。

实现部分功能的程序

密码修改

一般用户只能修改自己的密码，当用户选择该功能时，提示用户输入一次旧密码，两次新密码。用户可以按清除键重新输入。当用户输入完成后，先从活动表找出

该用户ID,再按ID寻找用户资料表找到该用户，先比较旧密码，错误提示从新修改，正

确则完成修改。

超级用户可以设置/修改用户资料表中的所有资料及密码初始化。网站用户管理系统V1.0 5 2.3.1 用户管理 2.3.1.1 用户系统管理

注册前台会员

在网站首页的“用户登录”中，单击“注册”功能链接，在出现的“用户册”页面单击“我同意”按钮同意服务条款和声明后，在显示的信息页中填写用户名、密码等相关内容，单击“下一步”按钮，系统出现注册成功提示信息。返回在网站首页，在“用户登录”中填写刚才注册的用户名与密码后，单击“登录”按钮登录，在登录成功后，“用户登录”中显示登录信息，若单击“会员中心”功能链接即可进入会员中心操作相关信息，若单击“退出登录”功能链接即可退出登录。

2.3.1.2 管理会员组

依次点击“用户管理”->“会员管理”->“会员组管理”，在出现的管理界面中显示了系统默认内置的

会员组信息。在“注册会员”会员组的“操作”列中单击“修改”功能链接，在出现的“修改会员组”界面中，修改会员组名称、会员组说明，点选会员组类型后，单击“保存会员组并进行权限设置”功能按钮，系统自动转到“设置会员组权限”管理界面中，可进一步修改本会员组中的所有会员的发布权限、评论权限、短消息权限、收藏夹权限、计费方式、扣点券方式、自助充值等相关选项及参数，同时也可以设置本会员组中的会员的

节点权限、专题权限和字段权限。修改好相关信息后，单击页面底部的“保存”功能按钮，系统出现成功提示信息，单击“<< 返回上一页”功能链接返回会员组管理界面。网站用户管理系统V1.0 6

2.3.1.3 更改密码

在控制台主界面的工具栏上，点击“更改密码”按钮，会弹出更改密码的对话框，可以更改超级管理员密码。

2.3.1.3 退出控制台

在控制台主界面的工具栏上，点击“退出系统”按钮，即退出控制台。

2.3.1.4 锁定控制台

在控制台主界面的工具栏上，点击“锁定系统”，会弹出锁定系统的对话框，必须输入正确的超级管理员密码，才能够解除控制台的锁定状态。

2.4 基本操作

2.4.1 新增管理员

在管理员列表空白处单击鼠标右键，在弹出的菜单中选择“新增管理员”； 网站用户管理系统V1.0 7

点击“新增管理员”后，在弹出的对话框中填入用户名称（如：Admin），并且选定操作权限（如：操作员），然后在“登录密码”框中输入密码，再在“确认密码”框中再次输入刚才键入的密码，最后点击对话框上的“确认”。

此时用户可以退出系统，然后用新建的管理员帐号登录，以验证此帐号的成功建立。

2.5

留言板管理

留言列表中显示留言的发布者、发布时间、所在IP地址、留言内容、联系方式及留言所属分类等信息，便于进行管理（修改或删除）操作。

[回复/修改回复]：选中需回复/修改的留言，单击[回复/修改回复]按 网站用户管理系统V1.0 8 钮，进入回复修改留言界面，操作完毕单击“提交”按钮。

[删除]：选中需删除的留言，单击[删除]按钮，确定删除留言。注意：删除后不可恢复，操作需谨慎。

：勾选或多选需审核的留言，单击审核留言按钮，进行审核。审核过的留言方可在前台显示。

：勾选或多选需删除的留言，单击删除留言按钮，进行批量删除。注意：删除后不可恢复，操作需谨慎。

相关内容： 网站用户管理系统V1.0 9 重复留言时间限制：对重复留言的时间间隔做出限制，可在一定程度上防止营销软件的恶意留言。

操作步骤：单击菜单“系统设置”》“系统参数设置”子菜单，进入参数设置界面，选择“信息属性”，进行“重复留言时间限制”设置。

2.6

用户反馈系统

单击“插件管理”菜单 》信息反馈管理“管理信息反馈”子菜单，进入管理信息反馈界面：

信息反馈列表中显示反馈的ID、标题、反馈所属分类、发布时间等信息，便于进行管理（删除）操作。

管理反馈：

[删除]：选中需删除的信息反馈，单击[删除]按钮，确定删除反馈。注意：删除后不可恢复，操作需谨慎。

：勾选或多选需删除的信息反馈，单击批量删除按钮，确定删除反馈。注意：删除后不可恢复，操作需谨慎。

：管理信息反馈界面到管理反馈分类界面的转换按钮。

：管理信息反馈界面到管理反馈字段界面的转换按钮。网站用户管理系统V1.0 10

自定义信息反馈表单制作步骤：

1、分析反馈表单需要的字段；

2、增加反馈表单所需字段(如果原本的字段足够，这步可跳过)；

3、增加信息反馈分类(每个信息反馈分类都可有不同的反馈表单)；

4、完成。

下面举例说明： 制作“作品提交”表单

1、分析反馈表单需要的字段：

经过分析我们需要的字段如下：(字段标识：字段名)姓名：name 联系邮箱：email 联系电话：call 名：title 简介：saytext

2.7 好友列表

在网站中，会员可以将其他会员添加为好友，以方便随时快捷地给好友发送站内短消息。单击导航区“好

友列表”书签式面板，出现好友列表、添加好友、创建新组、分组管理等功能链接。

单击导航区“好友列表”导航链接，出现好友列表、添加好友、创建新组、分组管理等功能链接，在 网站用户管理系统V1.0 11 下方界面中系统以分页列表的方式显示本会员的成员组及相关好友信息。

添加好友

在界面中填写成员用户名，选择成员组（默认可选择黑名单或我的好友）后，单击“添加成员”按

钮以添加好友。在好友列表界面中即可点击操作列中“发短消息”功能链接，对本好友发送站内短消息。

2.8 快捷管理信息

在管理界面顶部，将鼠标移至“选择栏目”功能链接上，系统以树型结构显示站内的节点列表（若有

多级节点分类，鼠标点击节点树前面的“+”图标即可展开下级节点）。单击相应栏目节点名可以快速管理

栏目中的信息。在相应节点名上单击鼠标右键，即可出现相应的管理菜单项。

在相应节点上单击鼠标右键，在弹出的右键菜单中选择“添加信息”（系统根据不同的内容模型而显示

不同的项目名，如添加文章、添加图片、添加软件等）功能链接则可快捷添加信息，系统将直接进入“内 容添加”管理界面。

2.9 短消息管理

系统提供站内短消息互动功能，注册会员既可以对网站中的注册会员发送短消息、管理站内短消息，也

可以回复其他会员发送来的站内短消息。网站用户管理系统V1.0 12 单击导航区“短消息管理”导航链接，在出现的管理界面中显示本会员收到的短消息信息。撰写短消息

单击导航区“短消息管理”书签式面板中“撰写短消息”功能链接，在出现的界面填写收件人、短消

息主题和短消息内容后，单击“发送”按钮即可向指定的收件人发送短消息，同时收件人打开会员中心时系

统将自动弹出短消息；单击“保存”按钮出现保存成功信息，短消息保存在您的“草稿箱”里；单击“清

除”按钮即清除所撰写的短消息内容。重要参数说明：

收件人：指定要收本条短消息的站内注册会员。在收件人内容框中，可以用英文状态下的逗号将用户名

隔开实现群发，最多2 0 0 0 个用户。若会员在“好友列表”中添加了好友，则可在“请选择”下拉选择框 中快捷选择加为好友注册的会员名。

草稿箱

在此界面中显示短消息的收件人、主题、发送短消息的日期、大小、已读及删除操作等信息。单击短

消息主题可具体查看此短消息。您可以单击操作列中的“删除”，将对应的短消息删除；也可以选定多个

或者本页所有短消息，单击“删除选定的短消息”或者“清空草稿箱”进行批量删除。

收件箱

在此界面中显示短消息的收件人、主题、发送短消息的日期、大小、已读及删除操作等信息。单击短

消息主题可具体查看此短消息。您可以单击操作列中的“删除”，将对 网站用户管理系统V1.0 13 应的短消息删除；也可以选定多个或

者本页所有短消息，单击“删除选定的短消息”或者“清空已发送”进行批量删除。发件箱

此界面显示短消息的收件人、主题、发送短消息的日期、大小、已读及删除操作等信息。单击短消息

主题可具体查看此短消息。您可以单击操作列中的“删除”，将对应的短消息删除；也可以选定多个或者

本页所有短消息，单击“删除选定的短消息”或者“清空已发送”进行批量删除。

废件箱

此界面显示短消息的收件人、主题、发送短消息的日期、大小、已读及删除操作等信息。单击短消息

主题可具体查看此短消息。您可以单击操作列中的“删除”，将对应的短消息删除；也可以选定多个或者

本页所有短消息，单击“删除选定的短消息”或者“清空已发送”进行批量删除。

2.10 资金管理

当会员在网站中消费行为而产生的相关订单与资金消费情况，都将记录在会员中心相关明

细记录里。在资金管理中，会员可以查阅收入、支出、在线支付及点券、积分、有效期兑换等明细记录。

单击导航区“资金管理”书签式面板，出现所有明细记录、所有收入记录、所有支出记录、在线支 付记录等功能链接。所有明细记录

单击“所有明细记录”功能链接，在界面系统以分页列表的方式显示会员在网站中所有收入和支出信息，包括交易时间、交易方式、币种、收入金额、支出金额、银行名称和备注/ 说明等信息。所有收入记录

单击“所有收入记录”功能链接，在界面系统以分页列表的方式显示会 网站用户管理系统V1.0 14 员在网站中所有收入信息，包

括交易时间、交易方式、币种、收入金额、支出金额、银行名称和备注/ 说明等信息。所有支出记录

单击“所有支出记录”功能链接，在界面系统以分页列表的方式显示会员在网站中所有支出信息，包

括交易时间、交易方式、币种、收入金额、支出金额、银行名称和备注/ 说明等。在线支付记录

单击“在线支付记录”功能链接，在界面系统以分页列表的方式显示会员在网站中所有在线支付信息，包括支付序号、支付平台、交易时间、汇款金额、实际转账金额、交易状态、银行信息和备注等信息。

第四篇：VB用户登录管理系统

软件开发环境与工具

实验报告

实验二

实验题目：用户登录及管理系统 实验地点：软件实验室一 指导老师：王琦 实验类型：设计型

系 班：计算机科学与技术系1103班 姓 名：秦芳芳（2011100316）

2013年11月22日

一．实验项目名称：用户登录及管理系统 二.实验目的和任务：

1、掌握系统登录界面设计基本流程

2、了解用户管理所要实现的基本功能

3、要求利用三层架构思想机ado.Net相关技术实现程序

三.实验内容及要求：

1、能够进行登录验证

2、能够实现对用户的基本管理,管理员能够进行查询添加修改删除

3、利用ado.net数据库连接访问数据库,提高安全性

四．实验步骤：

1、class1.vb的代码：

Imports System.Data.SqlClient Public Class Class1

Dim strconn As String = Me.getstrconn()Public Function yanzheng(ByVal str1 As String)As Integer

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname ='” & str1 & “'” cmd.Connection = conn 'cmd.CommandType = CommandType.Text

Dim dr As SqlDataReader dr = cmd.ExecuteReader If dr.Read Then dr.Close()conn.Close()Return 1 Else

dr.Close()conn.Close()Return 0 End If

End Function

Public Function pwdyanzheng(ByVal str As String)As SqlDataReader

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()

Dim cmd As New SqlCommand

cmd.CommandText = “select * from student where sname = '” & str & “'” cmd.Connection = conn Dim dr As SqlDataReader = cmd.ExecuteReader Return dr End Function

Public Function getstrconn()As String

Dim str As String str = “server=” & System.Configuration.ConfigurationManager.AppSettings(“server”)& “;” str &= “uid=” & System.Configuration.ConfigurationManager.AppSettings(“uid”)& “;” str &= “pwd=” & System.Configuration.ConfigurationManager.AppSettings(“pwd”)& “;” str &= “database=” & System.Configuration.ConfigurationManager.AppSettings(“database”)Return str End Function

Public Function getalldata()As DataSet

Dim conn As New SqlConnection conn.ConnectionString = strconn conn.Open()Dim da As New SqlDataAdapter(“select * from student”, conn)Dim ds As New DataSet da.Fill(ds, “student”)conn.Close()Return ds End Function

Public Function insdata(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “insert into student(sname,sno)values('” & str1 & “','” & str2 & “')”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()

End Function

Public Function upd(ByVal str1 As String, ByVal str2 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “update student set sno ='” & str2 & “'where sname ='” & str1 & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

Public Function deldata(ByVal str As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “delete from student where sname ='” & str & “'”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

Public Function search(ByVal str1 As String)As String

Dim conn As New SqlConnection conn.ConnectionString = strconn Dim cmd As New SqlCommand cmd.Connection = conn cmd.CommandText = “select * from student”

Try

conn.Open()cmd.ExecuteNonQuery()Return “1”

Catch ex As Exception

Return “-1” & ex.Message End Try

conn.Close()End Function

End Class

2、进入界面功能的代码：

Imports System.Data.SqlClient Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class

1Dim f As Integer

f = o.yanzheng(Me.TextBox1.Text)If f = 0 Then

MsgBox(“不存在该用户，请重新输入！”)Me.TextBox1.Text = “"

Me.TextBox1.Focus()Else

If f = 1 Then

Dim dr As SqlDataReader

dr = o.pwdyanzheng(Me.TextBox1.Text)dr.Read()If RTrim(dr!sno)<> Me.TextBox2.Text Then MsgBox(”密码错误，请重新输入！“)Me.TextBox2.Text = ”“

Me.TextBox2.Focus()Else

Dim strpwd As String

strpwd = Me.TextBox2.Text strpwd = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strpwd, ”md5“)Dim frm As New Form2

frm.loginname = Me.TextBox1.Text frm.logintime = TimeOfDay frm.Show()Me.Hide()End If

End If

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click MyBase.Dispose()

End Sub End Class

3、用户管理和浏览信息界面的代码： Public Class Form2

Public loginname As String

Public logintime As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()Form3.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()Form4.Show()End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load Me.loginstatusname.Text = ”用户名：“ & loginname Me.loginstatustime.Text = ”登录时间：“ & logintime End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick Me.ToolStripStatusLabel1.Text = Now End Sub End Class

4、增，删，改，查功能页面的代码： Public Class Form3

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button3.Click Me.Hide()del.Show()End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Hide()ins.Show()End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Hide()upda.Show()End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button4.Click Me.Close()search.Show()End Sub End Class

5、显示信息界面的代码： Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Me.Close()Form2.Show()End Sub

Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.Load Dim o As New Class

1Dim ds As New DataSet ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(”student“)End Sub End Class

6、插入信息界面的代码： Public Class ins

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class1

o.insdata(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Class

7、查询信息界面的代码： Public Class search

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Class

1Dim ds As New DataSet

o.search(Me.TextBox1.Text)ds = o.getalldata()Me.DataGridView1.Refresh()Me.DataGridView1.DataSource = ds.Tables(”student")End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button2.Click

Me.Close()Form2.Show()End Sub

Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DataGridView1.CellClick Me.TextBox1.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString Me.TextBox2.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString Me.TextBox3.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString Me.TextBox4.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString Me.TextBox5.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString End Sub End Class

8、修改信息界面的代码： Public Class upda

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim o As New Class1

o.upd(Me.TextBox1.Text, Me.TextBox2.Text)Me.Close()Form2.Show()End Sub End Class

9、删除信息界面的代码： Public Class del

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click Dim o As New Class1

'o.deldata(Me.TextBox1.Text)o.deldata(Me.TextBox1.Text)Me.Close()Form2.Show()End Sub

End Class

五、运行结果及截图：

（1）建立数据库

（2）运行截图

六、实验总结：

通过本次实验，我大致掌握了一个登录系统界面设计的基本流程，同时了解了用户管理所要实现的基本功能，而且能够利用三层架构思想机ado.Net相关技术实现程序，能够进行登录验证，实现了对用户的基本管理,在系统中实现了增删查改的功能，利用ado.net数据库连接访问数据库,提高了安全性，为以后的学习打下了很好的基础。

第五篇：专线用户的管理情况汇报

专线用户的管理情况汇报

根据市公司安排部署针对专线用户的管理要求，结合本公司实际情况，现汇报如下：

一、本公司目前管理一条124太中银专线，由绥德义合35KV变电站以10KV电压、经出口124太中银开关送出的架空线专线向用电方受电点供电。

二、经供电方、用电方双方协商确认，供电设施运行维护管理责任分界点设在124太中银线刀闸线路侧以出由用电方维护管理，经双方协商用电方有能力维护线路，并有专项维护资金。

三、专线用户如线路发生故障时或者需要停电，必须于义合35KV变电站联系，由变电站申请县调，方可停电。用电方需要送电时，先向变电站申请，变电站运行人员必须摇测线路无异常，方可向县调申请供电。

四、专线用户如线路出现故障，需费用时，专线用户的费用一切自行解决。生产技术部派人员去检查，并对专线用户工作记录和跳闸情况进行检查，如有问题及时分析处理。经检查正常方可恢复供电。

绥德电力分公司

二0一0年十月十九日