| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 671 人关注过本帖
标题:毕业设计求助
只看楼主 加入收藏
hongxue
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2006-4-9
收藏
 问题点数:0 回复次数:6 
毕业设计求助

毕业设计编写一个管理信息系统,但是老师总是挑毛病,到现在也没有改好,大部分已经做出来了,只剩下一小部分了.急需高人指点。

[此贴子已经被作者于2006-4-22 6:32:27编辑过]

搜索更多相关主题的帖子: 毕业设计 管理信息系统 小部分 挑毛病 
2006-04-21 16:28
r4w1
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-4-25
收藏
得分:0 

你的 我看看 才知道怎么改阿 ?

2006-04-25 18:14
jackboy
Rank: 2
等 级:论坛游民
帖 子:163
专家分:27
注 册:2005-10-9
收藏
得分:0 

你先把程序拿出来吧


2006-04-26 13:01
feng316
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-5-2
收藏
得分:0 
我有一个程序,但是不知道用户名和密码是什么,谁能告诉我呀
2006-05-03 22:50
feng316
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-5-2
收藏
得分:0 

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 用户名错误!", vbExclamation + vbOKOnly, "警告"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
username = mrc.Fields(0)
txtsql = "select username from use where password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 密码错误!", vbExclamation + vbOKOnly, "警告"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Exit Sub
End If

MDIForm1.Show
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

高手们帮我看看哪有错或者知道用户名和密码是什么吗?谢谢各位支持!~~~~~~~~~~

2006-05-03 22:53
风沙雪雨
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2006-5-4
收藏
得分:0 
感觉好像是你的数据表名和源码中给出的不一样.你可以看一下你的数据表名.和ExecuteSQL函数里的数据表名和库名,哈.......
2006-05-04 20:58
风沙雪雨
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2006-5-4
收藏
得分:0 

还有.要是你这个源码是下的.又是宾馆管理系统的话就是我说的了.表名出错.哈....

2006-05-04 21:02
快速回复:毕业设计求助
数据加载中...
 
   



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

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