现在位置:首页> 脑力倍增 > 右脑开发 > 全国扶贫信息开发系统第一次登录用

全国扶贫信息开发系统第一次登录用户名密码(共9篇)

篇一:全国扶贫信息开发系统第一次登录用户名密码

其中“进入系统”按钮的代码如下:
public partial class Ln_DangBan_Login :System.Web.UI.Page
{
protected void Page_Load(object sender,EventArgs e)
{
}
protected void imgLogin_Click(object sender,ImageClickEventArgs e)
{
string[] str = new PxOA.BLL.Sys.User().CheckLogin(txtUserName.Text,System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(txtUserPwd.Text,"MD5"));
string strReason = string.Empty;
switch (str[0])
{
case "access":
strReason = "登录成功";
WriteLog(strReason);
Session["UserID"] = str[1];
Session["EmpID"] = str[2];
Session["DepID"] = str[3];
Response.Redirect("Index.aspx");
break;
case "noEmp":
strReason = "用户名错误";
WriteLog(strReason);
Response.Write("alert("" + strReason + "");");
break;
case "pError":
strReason = "密码错误";
WriteLog(strReason);
Response.Write("alert("" + strReason + "");");
break;
}
}

string[] str = new PxOA.BLL.Sys.User().CheckLogin(txtUserName.Text,System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(txtUserPwd.Text,"MD5"));
你是不明白这一句吧?
你的代码是不是在网上下载的?
PxOA.BLL.Sys.User().CheckLogin(); 这是一个类,人家封装好的类.用于传入用户名及密码.并返回.string[] str 是一个数组.
switch (str[0])
检测返回的字符串.查看是否登陆成功
strReason = "登录成功"; //显示给前台看的
WriteLog(strReason); //把这次事件写入日志
Session["UserID"] = str[1]; //用Session 记录用户的一些信息,如用户ID
Session["EmpID"] = str[2];
Session["DepID"] = str[3];
差不多就这样了.
System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(txtUserPwd.Text,"MD5")
这一句是将前台输入的密码进行编码成MD5加密字符.

篇二:全国扶贫信息开发系统第一次登录用户名密码

VB题--设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统!”;否则,显示
设计一个检测密码程序:当用户输入的密码正确时,在窗体上显示“欢迎您使用本系统!”;否则,显示“密码错误!请重新输入密码。”。若连续三次输入的密码都不正确,则在屏幕上显示一个消息框,并在消息框上显示提示信息“对不起,您不能使用本系统!”,然后结束本程序的执行。

Private Sub cmdOK_Click()
Static interr As Integer
Dim suser As String
Dim spass As String
suser = UCase$(Trim$(txtUser.Text))
spass = Trim$(txtPassword.Text)
If suser = "ADMIN" And spass = "123456" Then
frmMain.Show
Unload Me
Else
interr = interr + 1
If interr > 3 Then
MsgBox "对不起,您不是本系统的合法用户。", vbInformation, "提示"
End
Else
MsgBox "用户名或密码错误,请重新输入", vbExclamation, "提示"
If suser <> "ADMIN" Then
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser.Text)
txtUser.SetFocus
Else
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
txtPassword.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub

篇三:全国扶贫信息开发系统第一次登录用户名密码

已知用户甲的电脑被某黑客乙入侵.黑客乙为了窃取甲的某重要帐户的用户名和密码,在甲的电脑中植入了如右程序框图所示的电脑程序,在甲每次登陆其重要帐户之前,电脑先执行此程序,让甲输入其用户名a,密码d和一个随机的验证码k(a、d、k均为正实数),因为甲的用户名和密码受到保护,所以乙每次只能看到验证码k和输出结果S.某一天甲登陆了两次其重要帐户,乙看当到k=2时S=
1
3

(Ⅰ)能确定,记输入的a值为a1,在程序运行的过程中,以后变量a取到的值分别记为a2,a3…,
这样得到一个数列{an}
当K=2时,S=
1
a1a2
1
3

当K=3时,S=
1
a1a2
+
1
a2a3
+
1
a3a4
+
1
a4a5
4
9

1
d
 (
1
a1
1
a2
+
1
a2
−…+
1
a4
1
a5
)=
4
9

1
a1a2
1
3
1
d
(
1
a1
1
a5
)=
4
9
,得

篇四:全国扶贫信息开发系统第一次登录用户名密码

Linux操作系统管理和配置
1、新建一个以自己名字全拼的文件在/root目录下(第1张图),(张三同学建立的文件为zhangsan.txt)将/etc目录下的文件列表信息保存在这个文件中(第二张图),将该文件打包压缩为例如“zhangsan.txt.tar.gz”(第三张图),然后删除该文件,解压缩建立的压缩包,还原”zhangsan.txt.tar.gz”(第四张图)
2、在本机上用rpm命令安装telnet-server软件包,并使用rpm命令查询其是否安装成功,(第一张图),在windows系统下进入CMD模式下远程登录linux,用户名08wangluo密码123456,(第二张图)
3、创建lijie用户,然后将lijie改为lijunjie,为lijunjie用户设置密码123456,(将终端中的命令保存为第一张图)创建一个非系统用户组xuesheng,将lijuejie用户添加到xuesheng用户组中(第二张图),然后用命令查看lijunjie所在的用户组,再将lijunjie从xuesheng用户组踢出(第三张图).
4、为eth0再绑定一个ip地址192.168.221.250(在终端中ping通截图保存一张图,将用到的命令过程写在windows系统桌面上以自己名字命名的文件夹中word文档abc中).
5、新增加一块虚拟硬盘,容量为3G,分成两个大小相等的主分区一喝主分区二.(在终端中显示出两个分区的信息截图保存一张),格式化分区一,建立ext3的文件系统,挂载在/media/myvod目录下.(将终端中的命令截图保存一张)
提示:新增加一块虚拟硬盘需要关闭虚拟机器.【全国扶贫信息开发系统第一次登录用户名密码】

1.touch /root/zhangsan.txt
ls -l /etc/*> /root/zhangsan.txt
tar -czvf zhangsan.txt.tar.gz/root/zhangsan.txt
rm -rf /root/zhangsan.txt
tar -xzvf zhangsan.txt.tar.gz
2.rpm -i telnet-server
rpm -q telnet*
telnet 08wangluo
3.useradd lijie
usermod -u lijunjie lijie
usermod -p 123456
groupadd xuesheng
gpasswd -a xuesheng lijunjie
groups lijunjie
gpasswd -d lijunjie xuesheng
4.ifconfig eth0 192.168.221.250
5.fdisk /dev/sdb
mkfs -t ext3 /dev/sdb1
mkdir -p /media/myvod
mount /dev/sdb1 /media/myvod【全国扶贫信息开发系统第一次登录用户名密码】

篇五:全国扶贫信息开发系统第一次登录用户名密码

英语翻译
这是一个系统的登陆模块,帮我逐句翻译下每段代码的意思
可能要牵扯到数据库,可以的话的描述下
十分急的需要用
Option Explicit
Private logintestCount As Integer "记录错误的登录次数
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim strSql As String
strSql = " Oper_ID = " & """ & dcmbOperName.BoundText & """
If Not (rctOperatorList.EOF And rctOperatorList.BOF) Then
rctOperatorList.Find (strSql)
If Not (rctOperatorList.EOF Or rctOperatorList.BOF) Then
If Trim(rctOperatorList.Fields("Oper_Pass")) = Trim(txtOperPass.Text) Then
OperaterName = Trim(dcmbOperName.Text) "记录当前用户
frmMain.Show "显示主窗体
Unload Me
Exit Sub
Else
logintestCount = logintestCount + 1
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败,系统关闭",vbInformation + vbOKOnly,"非法用户"
Unload Me
Exit Sub
Else
txtOperPass.SetFocus
End If
End If
Else
logintestCount = logintestCount + 1
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败,系统关闭",vbInformation + vbOKOnly,"非法用户"
Unload Me
Exit Sub
Else
txtOperPass.SetFocus
End If
End If
Else
MsgBox "数据库中没有操作用户数据",vbCritical + vbOKOnly,"系统错误"
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Load()
cmdClose.BackColor = RGB(236,226,216)
cmdOK.BackColor = RGB(209,215,231)
cmdCancel.BackColor = RGB(209,215,231)
If ExcuteSql(rctOperatorList,"select * from OperatorList") = True Then
"
Set dcmbOperName.RowSource = rctOperatorList
dcmbOperName.BoundColumn = "Oper_ID"
dcmbOperName.ListField = "OPer_Name"
dcmbOperName.BoundText = "01"
Else
MsgBox "打开数据库失败,系统关闭!",vbCritical + vbOKOnly,"初始化错误"
Unload Me
End If
End Sub
frmLeavel.tblEmployees.Buttons("modify").Visible = False "窗体上的修改的按钮设置为不可见
frmLeavel.tlbPrint.Left = 30 "窗体frmLeavel上的tlbPrint控件离窗体左边距离为30
全部不懂,最好能象上面那么逐句翻译,发不下的话发半篇也行
各位大哥劳累下多写几个字,拜谢

【全国扶贫信息开发系统第一次登录用户名密码】

上面有一些语我也不懂,我只把我懂的简单地翻译了一下,希望对你有帮助:
Option Explicit
Private logintestCount As Integer "记录错误的登录次数
Private Sub cmdCancel_Click()
Unload Me "卸载当前窗体(退出当前界面)
End Sub
Private Sub cmdClose_Click()
Unload Me "卸载当前窗体(退出当前界面)
End Sub
Private Sub cmdOK_Click()
Dim strSql As String "定义字符串变量strsql 用于存放查询条件
strSql = " Oper_ID = " & """ & dcmbOperName.BoundText & """ "查询条件赋值给strsql字符变量
If Not (rctOperatorList.EOF And rctOperatorList.BOF) Then "当数据库的指针不是EOF状态进和指针不是BOF状态时进行查找
rctOperatorList.Find (strSql) "在数据表(rctoperatorlist是一个数据表类型的对象,已经连接一个数据表)中查找满足条件strsql的数据记录集合,并返回到其结果到rctoperatorlist
If Not (rctOperatorList.EOF Or rctOperatorList.BOF) Then
If Trim(rctOperatorList.Fields("Oper_Pass")) = Trim(txtOperPass.Text) Then "核对数据表中字段为oper_pass的值是否与
txtoperpass文本框中的字符一致,如果相同则
执行以下代码:
"以下代码是密码输入正确时的处理
OperaterName = Trim(dcmbOperName.Text) "记录当前用户
frmMain.Show "显示主窗体
Unload Me
Exit Sub
Else
"以下是密码输入错误的处理
logintestCount = logintestCount + 1 "将logintestcount变量自加1
"判断密码错误次数是否超过或等于三次 如果超过则关闭
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败,系统关闭", vbInformation + vbOKOnly, "非法用户" "给出提示三次输入密码错误
Unload Me "关闭窗体
Exit Sub "退出此子程序
Else
txtOperPass.SetFocus
End If
End If
Else
logintestCount = logintestCount + 1
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败,系统关闭", vbInformation + vbOKOnly, "非法用户"
Unload Me
Exit Sub
Else
txtOperPass.SetFocus
End If
End If
Else
MsgBox "数据库中没有操作用户数据", vbCritical + vbOKOnly, "系统错误"
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Load()
"以下是定义各按钮的颜色
cmdClose.BackColor = RGB(236, 226, 216)
cmdOK.BackColor = RGB(209, 215, 231)
cmdCancel.BackColor = RGB(209, 215, 231)
If ExcuteSql(rctOperatorList, "select * from OperatorList") = True Then
"
Set dcmbOperName.RowSource = rctOperatorList
dcmbOperName.BoundColumn = "Oper_ID"
dcmbOperName.ListField = "OPer_Name"
dcmbOperName.BoundText = "01"
Else
MsgBox "打开数据库失败,系统关闭!", vbCritical + vbOKOnly, "初始化错误"
Unload Me
End If
End Sub
问题补充:frmLeavel.tblEmployees.Buttons("modify").Visible = False "窗体上的修改的按钮设置为不可见
frmLeavel.tlbPrint.Left = 30 "窗体frmLeavel上的tlbPrint控件离窗体左边距离为30
---------------------------
另外 下面我给了我自己编写的一个用户登录代码,供你参考:
Private Sub Cmd_ok_Click()
Dim User As String
Dim Pwd As String
Static Pwd1 As String "当用户名正确时将数据表中的密码保存
Static ncount As Integer
Static Iscan As Boolean

User = Trim(Me.Txt_username.Text)
Pwd = Trim(Me.Txt_password.Text)


If Iscan = True Then GoTo Next1 "如果上次用户名正确则直接跳转到next1处 不用再出入数据表进行核对了

if rs_login.state then rs_login.close "如果数据已经打开则关闭它
rs_login.open "select * from 用户信息",conn,adOpenStatic, adLockOptimistic "连接数据表
Do While (rs_login.EOF = False)
If User = rs_login.Fields("用户名").Value Then
Iscan = True
Pwd1 = rs_login.Fields("密码").Value "从数据库中取出正确的密码以便当再次核对密码时用
End If

If Pwd = Pwd1 And Iscan = True Then
MsgBox "登录成功!", vbOKOnly + vbExclamation, ""
Curr_user = User
Curr_pwd = Pwd
User_Pow = rs_login.Fields("权限").Value
Unload Me
Exit Sub
Else
rs_login.MoveNext
End If
Loop

If Iscan = False Then
MsgBox "对不起,没有此用户!", vbOKOnly + vbExclamation, ""
Me.Txt_username.Text = ""
Me.Txt_password.Text = ""
Me.Txt_username.SetFocus
Exit Sub
End If
Next1:
ncount = ncount + 1
If ncount = 3 Then
MsgBox "密码三次输入错误,非法用户!", vbOKOnly, ""
ncount = 0
Unload Me
Else
If Pwd = Pwd1 Then
MsgBox "登录成功!", vbOKOnly + vbExclamation, ""
Curr_user = User
Curr_pwd = Pwd
User_Pow = rs_login.Fields("权限").Value
Unload Me
Exit Sub
Else
MsgBox "密码第" & ncount & "次输入错误!", vbOKOnly + vbExclamation, ""
Me.Txt_password.Text = ""
Me.Txt_password.SetFocus
End If
End If

篇六:全国扶贫信息开发系统第一次登录用户名密码

1、编写程序,求“鸡兔同笼”问题,鸡有2只脚,兔有四只脚,如果已知鸡和兔的总头数为h,总脚数为f ,问笼中鸡和兔各有多少只?
2、编写一个密码输入的验证程序,对输入的帐号和密码验证规则如下:
(1)如果用户名不正确则退出系统
(2)如果用户名正确,则判断密码是否正确
(3)如果密码不正确,统计输入次数,当输入次数超过三次时,退出系统
3、编写程序,输入“杨辉三角形”
杨辉三角形的每一行是(x+y)ⁿ的展开式的各项的系数,例如,第一行是(x+y)º,其系数为1;第二行是(x+y)¹,其系数为1,1;第三行(x+y)²,其展开式为x²+2xy+y²,系数分别为1,2,1,.一般形式如下:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
分析上面的形式,可以找出其规律:对角线和每行的第一列均为1,其余各项是它的上一行中前一个元素和上一行的同一列元素之和.例如第四行第三列的值为3,它是第三行第二列与第三列元素值之和,可以一般地表示为:
a(i ,j) = a( i-1 ,j-1)+( i-1 ,j)
编写程序,输出n=10的杨辉三角形(共11行).
希望有人能帮帮忙啊

第一题 放2个输入眶用来输入头数和脚数 还有一个按钮用来计算 结果显示在窗体上 2个输入眶和按钮最好放在窗体的靠下的位置 因为输出的结果是从窗体上方开始打印的 如果控件放在上面有可能会被遮挡掉 代码如下
Private Sub Command1_Click()
Dim h, r As Integer
h = CLng(Text1.Text) "这个输入眶放的是头数
r = CLng(Text2.Text) "这个输入眶放的是脚数
Dim x, y As Integer
For x = 0 To h
y = h - x
If (2 * x + 4 * y = r) Then
Print "当鸡有" & Str(x) & "只,兔子有" & Str(y) & "只时,满足条件" & Str(h) & "个头," & Str(r) & "只脚"
End If
Next
End Sub
第二题 放2个输入眶用来输入用户名和密码 还有一个按钮用来判断 用户名和密码的数值我在代码中有注释 代码如下
Private Sub Command1_Click()
Dim username, password As String
username = "admin" "这里是正确的用户名
password = "123456" "这里是正确的密码
Static count As Integer
If (Text1.Text username) Then
End
ElseIf (Text2.Text password) Then
count = count + 1
MsgBox ("密码错误")
Else
MsgBox ("登录成功")
End If
If (count = 3) Then
End
End If
End Sub
第三题 直接输出到窗体上 什么控件都不用放 记得窗体调的大点 以免内容太多输出不下 代码如下
Private Sub Form_Paint()
Cls
Const n = 10
Dim myarray(n, n) As Integer
Dim x, y As Integer

For y = 0 To n
For x = 0 To y
If (x = 0) Then
myarray(x, y) = 1
ElseIf (x = y) Then
myarray(x, y) = 1
Else
myarray(x, y) = myarray(x - 1, y - 1) + myarray(x, y - 1)
End If

Next
Next

Dim tmpstr As String

For y = 0 To n
tmpstr = ""
For x = 0 To y
tmpstr = tmpstr & Str(myarray(x, y)) & vbTab
Next
Print tmpstr
Next
End Sub

篇七:全国扶贫信息开发系统第一次登录用户名密码

【delphi数据库问题】Could not convert variant of type (Null) into type (string)
我用delphi7 ado访问数据库,连接Access,运行时要求输入用户名和密码(我之前也没设置啊),输入完后出错:Could not convert variant of type (Null) into type (string)
请问怎么回事?这与我的操作系统有关吗?
1.不是这个原因,只是把登录窗口去掉了,直接出现错误了
2.应该没有吧,我就添加了ADOConnection1,ADOTable1,DataSource1.
没有任何赋值,是运行时弹出错误的.有人说是delphi的ado组件和系统的ado不兼容,

修改个属性
ADOConnection1.LoginPrompt := False;
不知道你是用什么方式传递的数据
可能是你插入数据的时候有非空字段没有赋值,好好检查下对应的字段数据
Could not convert variant of type (Null) into type (string)
这个提示已经说了:不能将空值转换成String类型,你执行的肯定是修改或插入操作,什么系统ado,Delphi 的ado,都是同一个东西,哪来的不兼容的道理,只有说Delphi对ADO的封装性的问题,但你这个错误很明显,肯定是程序有纰漏

【全国扶贫信息开发系统第一次登录用户名密码】

篇八:全国扶贫信息开发系统第一次登录用户名密码

任务管理器中每一列的含义是什么? .求解答

在“任务管理器”中,可以通过将列添加到“进程”选项卡上所显示的信息中,监视计算机上正在运行的进程.这些列将显示有关每个进程的信息,如进程当前正在使用的 CPU 和内存资源的数量.通过右键单击任务栏,然后单击“启动任务管理器”,打开“任务管理器”.单击“进程”选项卡.任务管理器会显示当前正在用户帐户下运行的进程.若要显示所有用户正在运行的进程,请单击“显示所有用户的进程”.如果系统提示您输入管理员密码或进行确认,请键入该密码或提供确认.若要添加更多列,请单击“查看”,然后单击“选择列”.选中要查看列的复选框,然后单击“确定”.列描述PID(进程标识符)唯一标识所运行进程的编号.用户名运行该进程的用户帐户.会话标识标识进程所有者的编号.当多个用户登录时,每个用户都有一个唯一的会话标识.CPU 的使用自上次更新以来,进程使用 CPU 的时间百分比(列标题中列为“CPU”).CPU 时间进程自其启动以来使用的总处理时间(以秒为单位).内存- 工作集私人工作集中的内存数量与进程正在使用且可以由其他进程共享的内存数量的总和.内存- 峰值工作集进程所使用的工作集内存的最大数量.内存- 工作集增量进程所使用的工作集内存中的更改量.内存- 私人工作集工作集的子集,它专门描述了某个进程正在使用且无法与其他进程共享的内存数量.内存- 提交大小为某进程使用而保留的虚拟内存的数量.内存- 页面缓冲池由内核或驱动程序代表进程分配的可分页内核内存的数量.可分页内存是可写入其他存储媒体(例如硬盘)的内存.内存- 非页面缓冲池由内核或驱动程序代表进程分配的不可分页的内核内存的数量.不可分页的内存是不能写入其他存储媒体的内存.页面错误自某进程启动后该进程生成的页面错误数.进程访问当前不在工作集的内存页面时会出现页面错误.某些页面错误要求从磁盘中检索页面内容;其他的页面错误可在不访问磁盘的情况下解决.页面错误增量自上次更新以来页面错误数量的变化.基本优先级优先排名,它确定了所计划进程的线程顺序.句柄进程的对象表中的对象句柄数.线程数进程中运行的线程数.USER 对象当前由进程使用的 USER 对象数.USER 对象是来自 Window 管理器的对象,它包含窗口、菜单、光标、图标、挂接、加速器、监视器、键盘布局及其他内部对象.GDI 对象图形输出设备应用程序编程接口 (API) 的图形设备接口 (GDI) 库中的对象数量.I/O 读取由进程(包括文件、网络和设备 I/O)生成的读取输入/输出操作的数量.无法计算定向到 CONSOLE(控制台输入对象)句柄的 I/O 读取数量.I/O 写入由进程(包括文件、网络和设备 I/O)生成的写入输入/输出操作的数量.无法计算定向到 CONSOLE(控制台输入对象)句柄的 I/O 写入数量.I/O 其他由既非读取又非写入的进程(包括文件、网络和设备 I/O)生成的输入/输出操作的数量.此类操作的示例是控制功能.无法计算定向到 CONSOLE(控制台输入对象)句柄的 I/O 其他操作数量.I/O 读取字节数由进程(包括文件、网络和设备 I/O)生成的输入/输出操作所读取的字节数.无法计算定向到 CONSOLE(控制台输入对象)句柄的 I/O 读取字节数.I/O 写入字节数由进程(包括文件、网络和设备 I/O)生成的输入/输出操作所写入的字节数.无法计算定向到 CONSOLE(控制台输入对象)句柄的 I/O 写入字节数.I/O 其他字节数由既非读取又非写入的进程(包括文件、网络和设备 I/O)生成的输入/输出操作所传输的字节数.此类操作的示例是控制功能.无法计算定向到 CONSOLE(控制台输入对象)句柄的 I/O 其他字节数.映像路径名称硬盘上的进程位置.命令行指定为创建进程的完整命令行.用户帐户控制(UAC)虚拟化确定为此进程启用、禁用还是不允许使用用户帐户控制 (UAC) 虚拟化.UAC 虚拟化将文件和注册表写入错误重定向到每用户位置.描述进程的描述.数据执行保护是否为此进程启用或禁用数据执行保护.有关详细信息,请参阅 什么是数据执行保护?.

篇九:全国扶贫信息开发系统第一次登录用户名密码

英语翻译
private void button1_Click(object sender,EventArgs e)
{
if (textBox1.Text.Trim() == "" || textBox2.Text.Trim() == "")
{
MessageBox.Show("请输入用户名和密码","错误提示");
}
else
{
DB.cn.Open();
OleDbCommand cmd = new OleDbCommand("",DB.cn);
string sql = "select RoleName from UserInfo where user="" + textBox1.Text.Trim() + "" and Password="" + textBox2.Text.Trim() + """;
cmd.CommandText = sql;
string rolename;
if (null = cmd.ExecuteScalar())
{
rolename = cmd.ExecuteScalar().ToString();
this.Visible = false;
Main main = new Main();
main.Tag = this.FindForm();
sql = "select * from Roles where RoleName="" + rolename + """;
cmd.CommandText = sql;
OleDbDataReader xq = cmd.ExecuteReader();
xq.Read();
main.XTMenuItem.Visible = (bool)(xq.GetValue(1));
main.CJMenuItem.Visible = (bool)(xq.GetValue(2));
main.BJMenuItem.Visible = (bool)(xq.GetValue(4));
main.KCMenuItem.Visible = (bool)(xq.GetValue(5));
main.DAMenuItem.Visible = (bool)(xq.GetValue(6));
main.StatusLabel2.Text = textBox1.Text.Trim();
main.ShowDialog();
DB.cn.Close();
}
else
{
MessageBox.Show("用户名或密码错误","登录失败");
DB.cn.Close();
}
}

这是一段登录的代码
private void button1_Click(object sender,EventArgs e)
{
if (textBox1.Text.Trim() == "" || textBox2.Text.Trim() == "")
{
MessageBox.Show("请输入用户名和密码","错误提示");
}
else //有帐号密码的情况下,去数据库验证
{
DB.cn.Open(); //打开数据库
OleDbCommand cmd = new OleDbCommand("",DB.cn);
string sql = "select RoleName from UserInfo where user="" + textBox1.Text.Trim() + "" and Password="" + textBox2.Text.Trim() + """;//查询用户帐号的sql
cmd.CommandText = sql;
string rolename;
if (null != cmd.ExecuteScalar())//查询结果不为空,说明帐号登录成功
{
rolename = cmd.ExecuteScalar().ToString();//查询SQL返回了角色名
this.Visible = false;//隐藏登录窗
Main main = new Main();//初始化main窗体
main.Tag = this.FindForm();
sql = "select * from Roles where RoleName="" + rolename + """;//拿当前角色的所有信息的sql,包括权限,下面用到
cmd.CommandText = sql;
OleDbDataReader xq = cmd.ExecuteReader();//执行sql
xq.Read();
main.XTMenuItem.Visible = (bool)(xq.GetValue(1));//用角色的配置权限,初始化菜单
main.CJMenuItem.Visible = (bool)(xq.GetValue(2));
main.BJMenuItem.Visible = (bool)(xq.GetValue(4));
main.KCMenuItem.Visible = (bool)(xq.GetValue(5));
main.DAMenuItem.Visible = (bool)(xq.GetValue(6));
main.StatusLabel2.Text = textBox1.Text.Trim();//当前用户的角色名放进label显示.
main.ShowDialog();//显示主窗口
DB.cn.Close();//关闭数据库连接
}
else//查询角色帐号密码的sql没有返回数据
{
MessageBox.Show("用户名或密码错误","登录失败");
DB.cn.Close();
}
}

最新推荐