我在网上找了好多个 登录代码 一运行就出错! 不知道错在那里呀!!请高手大哥 给一个完整 加释的,说明白些!对数据库操作不好搞呀!! 看大哥们帮个忙!!
我在网上找了好多个 登录代码 一运行就出错! 不知道错在那里呀!!请高手大哥 给一个完整 加释的,说明白些!对数据库操作不好搞呀!! 看大哥们帮个忙!!
我在网上找了好多个 登录代码 一运行就出错! 不知道错在那里呀!!请高手大哥 给一个完整 加释的,说明白些!对数据库操作不好搞呀!! 看大哥们帮个忙!!
我在网上找了好多个 登录代码 一运行就出错! 不知道错在那里呀!!请高手大哥 给一个完整 加释的,说明白些!对数据库操作不好搞呀!! 看大哥们帮个忙!!
《Visual Basic 6.0中文版傻瓜书》清华
《Visual Basic 6.0中文版程序员指南》希望
Call OpenData
SQL = "select 密码 from 用户管理 where 用户名='" & Trim(YHM.Text) & "'"
rs.Open SQL, con, 1, 1
If Trim(MM.Text) = Trim(rs.Fields("密码")) Then
CZY = Trim(YHM.Text) '当前操作员用户
If CZY = "admin" Then
CzyBZ = True
Else
CzyBZ = False
End If
Call CloseData
Unload Me
Load MDIForm1
MDIForm1.Show
Else
MsgBox "密码错误！", 48, "提示"
Cs = Cs + 1
If Cs = 3 Then
MsgBox "你已错误输入三次，请核对密码后再登录！", vbOKOnly + vbExclamation, "警告"
CmdNO_Click
End If
Call CloseData
有全一些的吗CALL 这个我不明白呀!
用ado 控件的那种
If CZY = "admin" Then
CzyBZ = True
Else
CzyBZ = False
CzyBZ 是什么
这个看不懂呀
CZYBZ是我用于标识当前登录的用户是否管理员，用于后面的权限设置。
Call OpenData
SQL = "select 密码 from 用户管理 where 用户名='" & Trim(YHM.Text) & "'"
rs.Open SQL, con, 1, 1
If Trim(MM.Text) = Trim(rs.Fields("密码")) Then
CZY = Trim(YHM.Text) '当前操作员用户
If CZY = "admin" Then
CzyBZ = True
Else
CzyBZ = False
End If
Call CloseData
Unload Me
Load MDIForm1
MDIForm1.Show
Else
MsgBox "密码错误！", 48, "提示"
Cs = Cs + 1
If Cs = 3 Then
MsgBox "你已错误输入三次，请核对密码后再登录！", vbOKOnly + vbExclamation, "警告"
CmdNO_Click
End If
Call CloseData
End Sub是不是这样的呀! 还要打开数据库吗! 我运行出错呀! 不知道那个地方不对!
'是我调用连接数据库的函数
call closedata
'是关闭数据库的函数
我们都知道 在进入Windows操作系统时会出现 个登录对话框 要求用户输入密码后才能进入Windows 我们用VB也可以编写这样 登录窗口 其具体思路方法如下: 界面设计: 打开“VB6.0” 出现“新建工程”对话框 选择“标准EXE”单击“打开”即可新建 个工程 新建 个工程后 VB自动生成了 个窗体 其默认 名称是Form1 且显示 标题也是Form1 显然和我们要编写 不符 我们可以更改这些设置 思路方法是:点击Form1窗体 在右边 属性窗口中(如图1) “名称”后输入“Denglu”(在后面讲 Denglu就是指 这个窗体) 在“Caption”后输入“登录窗口” 窗体设置好后 我们便可以将Control控件放置到这个窗体中去了 “登录窗口”中主要用到 是TextBox(文本框)Control控件 该Control控件主要是用于接收用户输入 文字并显示出来 在该 中我们便可以使用TextBoxControl控件接收用户输入 信息来判断是否是合法 用户 另外 我们还将用到Label(标签)Control控件及CommandButton(命令按钮)Control控件 LabelControl控件用来显示“用户名”及“密码”标题；CommandButtonControl控件用来设计“确定”及“取消”按钮 下面我们将这些Control控件放置到窗体中:在工具箱中选择“Label”Control控件(如图2) 在窗体中拖动鼠标直到 定 大小 然后在属性窗口中 “Caption”属性后为输入“用户名” 然后在其下方再拖动 个LabelControl控件 将Caption 值改为“密码:”；在工具箱中选择“TextBox”Control控件(如图3) 在“用户名”后拖动 个TextBoxControl控件 用同样 思路方法在“密码:”后拖动 个TextBoxControl控件 然后在“属性窗口”中将Text 值改为空(即删除默认 Text1) 为了不显示出用户输入 密码 我们将第 2个TextBoxControl控件 PasswordChar属性设置为＊(如图5) 这样在用户输入密码时显示 就是＊了；在工具箱中选择“CommandButton”Control控件(如图4) 将其拖动到窗体 下方( 共两个) 分别设置其Caption属性为“确定”和“取消” 调整好这些Control控件 位置(如图6)后即可完成界面 设计 代码: 该 主要目 是要判断输入 用户名是否合法 所以我们首先编写判断用户名 代码 双击“确定”按钮 添加如下 代码:(黑体部分为系统自动生成 代码 楷体为注释) Private Sub Command1_Click
′判断是否输入了用户名
If Text1.Text=″″ Then ′如果Text1为空 即没有输入用户
MsgBox ″请输入用户名！″,vbOKOnly＋vbCritical,″ ″
Exit Sub ′退出这个过程
Else ′如果输入了用户名
If Text1.Text=″软件Software世界″ And Text2.Text=″12345″ Then ′如果输入 用户名是″软件Software世界″且密码为″12345″
MsgBox ″你是合法用户 欢迎进入！″,vbOKOnly＋vbInformation,″欢迎进入″
Else ′如果不是″软件Software世界″或密码不是″12345″
MsgBox ″用户名或密码 ！″,vbOKOnly＋vbCritical,″ ″
Text1.Text=″″
Text2.Text=″″ ′清空Text1及Text2Control控件中 文本内容 让用户重新输入
End If
End If
End Sub 在这 段代码中 我们使用了If…Then…Else…End If 这是 个条件判断语句 If Text1.Text=″″ Then这句代码则是判断Text1是否为空 如果为空 这个条件就成立 则执行Then后 语句 如果Text1不为空 则这个条件不成立 将会跳到Else处 执行Else后 语句 测试: 现在我们可以单击“F5”键来运行这个 看看其运行效果 直接单击“确定”按钮 将会弹出 个对话框(如图7)；在“用户名”后输入“软件Software世界” “密码:”后输入“12345” 再单击“确定”按钮 此时便会出现 个“欢迎进行” 信息框(如图8) 如何样 个属于自己 “登录窗口”就制作好了 但这个 目前还只能判断在 中已设置好了 用户名及密码 没有灵活性 你可以发挥你 聪明才智 使其能够判断多个合法 用户及密码
sunjs12345哥们 真的很感谢不用数据库的我会写, 只是控件太多我记不住一 我主要是想完成这样的一个功能
数据库表里
组号 款式 颜色 尺寸 领到 完成 剩余
1组 ST09 黑色 L 500
1组 ST09 白色 M 300我想通过修改的方式 判断 数据库里 组号,款式,颜色,尺寸和 VB里 是否为相同 为真
就把完成TEXT 里的数写入到娄据库里并累加(如果领到的到多一天没做完可以分几天)二 我想在数据库里自动把圣剩余完成 或者 在VB 里也可以 把领到减去完成就等于剩余的注: 组号 ,款式,颜色,尺寸 这四个我用的是组合框 , 领到,完成 我用的是TEXT 数据库为ACCESS 2003 兄弟水平低, 请大家帮个肋一下!
数据库里的表中建立所需要的字段名为（ 组号 款式 颜色 尺寸 领到 完成 剩余
）
当要显示的时候就用SQL的sum功能统计一下，是否完成，剩余多少http://download.csdn.net/source/3167694