VB_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩32页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢vb实现多用户登录
利用vb实现多用户登录，主要是将vb与数据库实现链接，这个问题在作品展中我们的软件天天迹录的登录时用到，但是当时自己只是知道有这么个功能，但是那些代码的含义并不明白，在3个月后的我又有机会接触到它，现在...
利用vb实现多用户登录，主要是将vb与实现链接，这个问题在作品展中我们的软件“天天迹录”的登录时用到，但是当时自己只是知道有这么个功能，但是那些代码的含义并不明白，在3个月后的我又有机会接触到它，现在敲这特别熟悉，现在也明白了其中的好多问题！，
利用数据库存储用户和密码，提高了软件运行的速度！而且可以供更多的用户使用！
Public Function ConnectString() As String
'链接数据库
'返回数据库链接
ConnectString = "provider =server=IP(写运行时数据库的存放地址);UID=PWD=123456;database=charge"
End Function
Public Function exectuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection '定义链接
Dim rst As ADODB.Recordset
Dim sTokens() As String '定义字符串
On Error GoTo executeSQL_error '异常处理
sTokens = Split(SQL) '拆分字符串函数
'用Split函数产生一个包含各个子串的数组
Set cnn = New ADODB.Connection
' 创建连接
cnn.Open ConnectString
'判断字符串中是否含有指定内容
If InStr("insert, delete,update", UCase$(sTokens(0))) Then '$表示返回的类型明确是字符型。
cnn.Execute SQL
'执行查询语句
MsgString = sTokens(0) & "query successful"
'返回查询信息
Set rst = New ADODB.Recordset '创建数据集对象
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockBatchOptimistic '返回查询结果
'adLockOptimistic 仅当调用update方法时，数据提供者锁定记录 adLockBatchOptimistic 用于批处理修改
'这个是缺省值。 adOpenKeyset 反映由其它用户所做的对记录的改变或者删除动作，但并不反映由其它用户做作的添加新记录的动作。
Set executeSQL = rst
'返回记录集对象
MsgString = "查询到" & rst.RecordCount & "记录"
executeSQL_exit:
Set rst = Nothing '清空数据集对象
Set cnn = Nothing '中断连接
Exit Function
executeSQL_error:
'判断错误类型
messtring = "查询错误：" & Err.Description
Resume executeSQL_exit
'Resume 语句 在错误处理程序结束后，恢复原有的运行。
End Function
Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Testtxt = True
End Function
'创建窗体
Private Sub Form_Load()
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
txtSQL = "select * from 表 "
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst
Call viewData
mybookmark = mrc.Bookmark
mcclean = True
If mrc.EOF = False Then
mrc.MoveFirst
Call viewData
mybookmark = mrc.Bookmark
MsgBox "没有记录！", vbOKOnly + vbExclamation, "警告"构建ASP.NET网站十大必备工具-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
构建ASP.NET网站十大必备工具
来源：互联网 更新时间： 6:51:02 责任编辑：鲁晓倩字体：
站长交易（）友情链接交换 虚拟主机评测+IDC导航=最近使用ASP.NET为公司构建了一个简单的公共网站（该网站的地址：/）。在这个过程中，我们使用了数量很多的免费工具，如果把构建ASP.NET网站的必备工具总结一下，将会是一件十分有趣的事情。这些工具既支持ASP.NET Web Forms又支持ASP.NET MVC。性能工具读了两本关于网站的前端性能的书（这两本优秀的图书分别是：《High Performance Web Sites》 和 《Even Faster Web Sites》，作者是Steve Souders）以后，我对网站的前端性能十分敏感。根据Steve Souders的性能黄金法则：&首先应该对前端性能进行优化，终端用户的响应时间有80%或更多花费在这方面了。&你可以使用下面这些工具来减少ASP.NET应用程序使用的图像的尺寸，以及JavaScript文件，CSS文件的体积。1，Sprite and Image Optimization Framework在A List Apart的一篇文章中（这篇文章的题目是：CSS sprites： Image Slicing&s Kiss of Death，具体可以参考：/articles/sprites），首次提到了CSS sprites。当你使用sprites的时候，你需要把一个网站使用的多个图像合并成为一个单一的图像。然后，在一个Web页面中，使用CSS trickery来显示特定的&子图像&。sprites的主要优势是，显示一个Web页面的时候，它可以有效地减少请求的次数。请求一个大图像比请求多个小图像快得多。一般来说，通过网线传输的资源（图像，JavaScript文件，CSS文件）越多，你的网站就越慢。但是，大多数人都不愿意使用sprites，因为使用sprites需要做很多的工作。你必须要合并所有的图像，然后编写合适的CSS规则来显示子 图像。微软的 Sprite and Image Optimization Framework 可以让我们省去这些繁琐的工作。这个框架可以自动地为你合并图像。此外，这个框架还包含一个ASP.NET Web Forms control 和一个ASP.NET MVC helper，它们可以让显示子图像变得更加容易。你可以从CodePlex下载 Sprite and Image Optimization Framework。下载地址：/releases/view/50869Sprite and Image Optimization Framework是 Morgan McClean 编写的。在微软，他的办公室和我的办公室紧挨着。Morgan是一个十分聪明的人，他是加拿大的实习生。当他构建这个框架的时候，我们一起讨论了那个框 架。（据我所知，他还在继续开发这个框架。）Morgan给这个框架添加了一些高级的功能。例如，Sprite and Image Optimization Framework支持&image inlining&。当你使用&image inlining&的时候，真正的图像被存储在CSS文件中。这是一个&image inlining&的例子：
相关文章：
上一篇文章：下一篇文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号}