标题:[求助]请问在这两部分代码里面那一部分加上相应函数或代码可以实现:
只看楼主
musql
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2007-4-17
 问题点数:0 回复次数:2 
[求助]请问在这两部分代码里面那一部分加上相应函数或代码可以实现:

请问在这两部分代码里面那一部分加上相应函数或代码可以实现:

若下拉Combo1控件时没有用户名,则进入一添管理员用户名和密码的窗体?




此为登录界面部分代码:

Private Sub Combo1_Click()

Dim rsload As ADODB.Recordset

Set rsload = New ADODB.Recordset '对记录集实例化

Call check_condatabase '检查数据库是否连接

If rsload.State = 1 Then rsload.Close '打开纪录集获得该用户的密码

rsload.Open "select user_psw from user_load where user_name='" & Combo1.Text & "'", cn, adOpenStatic, adLockPessimistic

txtPassword.SetFocus '对密码文本框设置焦点

chkpassword = Trim(rsload.Fields("user_psw")) '去掉空格串

End Sub

Private Sub Form_Load()

Dim rsload As ADODB.Recordset '设置记录集并连接user_load

txtPassword.Text = "" '清空密码文本

Call condatabase

Set rsload = New ADODB.Recordset '连接数据库

rsload.Open "select * from user_load ", cn, adOpenStatic, adLockPessimistic

Combo1.Clear '清空下拉列表框

Do Until rsload.EOF '加载用户名称

Combo1.AddItem rsload.Fields("user_name")

rsload.MoveNext

Loop

End Sub


[此贴子已经被作者于2007-5-14 23:21:55编辑过]



Gwy8MtBW.bmp (134.01 KB)
搜索更多相关主题的帖子: 代码里面 函数 Times 
2007-05-14 23:21
huangwy
Rank: 1
等 级:新手上路
威 望:2
帖 子:297
专家分:0
注 册:2007-3-23
得分:0 
调试、跟踪一下就行了
2007-05-15 12:00
ouzhiguang
Rank: 1
来 自:湖南长沙
等 级:新手上路
威 望:1
帖 子:240
专家分:0
注 册:2007-5-18
得分:0 
很容易实现的,不过建议你用datacombo能与数据库绑定!,当鼠标点击datacombo时 如果 datacombo.count=0  就 弹出添加的窗口!然后进行添加 所以
2007-05-19 16:04



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-139440-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032696 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved