vb+sql的-源代码-数据库课程设计-vb开发.doc
免费下载
说明：本系统是用 vb+sql 实现的，所以代码部分是 vb 的代码
初始化代码
Public ADOcn As New Connection
Public Sub Main()
Dim strSQLServor As String
strSQLServor = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;pwd=123;Initial Catalog=课程设计;Data Source=B464DE2C74ED4C3"
Set ADOcn = New Connection
ADOcn.Open strSQLServor
FrsLogin.Show 1
FrsMain.Show
End Sub
上面的代码是放在一个模块里面的，在 vb 工程的属性里面设置 -启动对象-sub
main
登陆模块的代码
Private Sub Command1_Click()
Dim ADOrs As New Recordset
Dim str1 As String
ADOrs.ActiveConnection = ADOcn
str1 = "select * from user1 where name ='" + Text1.Text + "'"
ADOrs.Open str1
If Not ADOrs.EOF Then
If ADOrs("password") <> Text2 Then
MsgBox "密码不正确"
Text2.SetFocus
Else
Unload Me
End If
Else
If MsgBox("用户不存在,请重新输入", vbInformation + vbYesNo, "信息提示") =
vbYes Then
Text1.SetFocus
Else
End
End If
End If
End Sub
Private Sub Command2_Click()
If MsgBox(" 确定 要退出 本系统 ", vbInformation + vbYesNo, " 信息提 示 ") =
vbYes Then
Unload Me
End
Else
End If
End Sub
主界面的代码
Private Sub Command1_Click()
FrsMain.Hide
FrsAdd.Show 1
End Sub
Private Sub Command2_Click()
FrsMain.Hide
of 17
免费下载
【版权声明】本文为墨天轮用户原创内容，转载时必须标注文档的来源（墨天轮），文档链接，文档作者等基本信息，否则作者和墨天轮有权追究责任。如果您发现墨天轮中有涉嫌抄袭或者侵权的内容，欢迎发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。
下载排行榜
1
2
centos7下oracle11.2.0.4 rac安装详细图文（虚拟机模拟多路径）.docx
3
达梦数据2024年年度报告.pdf
4
北京市公安局服务器、操作系统、数据库、工作站采购项目_G25050中标人投标分项报价表（第1包）.pdf
5
【GoldenDB】一种分布式数据库变更数据检索方法、装置、设备及介质_CN202411914568.4_金篆信科有限责任公司.pdf
6
sql-课件-第4章-SQL高级应用.ppt
7
《2024龙芯生态白皮书》.pdf
8
《太极计算机股份有限公司2024年年度报告》.pdf
9
北京市公安局服务器、操作系统、数据库、工作站采购项目_G25050中标人投标分项报价表（第2包）.pdf
10
MySQL 和 PG 性能 PK，基准测试跑起来！.doc
相关文档
评论