|
4.6建立ODBC数据源 由于在本系统中要多次使用到数据源，所以我们在此介绍一下如何建立一个数据源： paper51.com （1） 单击“开始”按钮，选择“设置”/控制面板/管理工具/数据源（ODBC）。 内容来自论文无忧网 www.paper51.com （2） 选择“系统DSN”选项卡，单击“添加”按钮，在出现的界面中选择 paper51.com
“Driver to Microsoft Access(*.mdb)”.如图 内容来自www.paper51.com
paper51.com
paper51.com （3） 单击“完成”，出现如下图界面 paper51.com
内容来自www.paper51.com 然后在“数据源名”中输入“120”，单击“选择”按钮，选上要建立数据源的数据库，“确定”即可。数据源建立成功，以后在使用VB设计系统中即可引用该数据源。 paper51.com 4.7模块设计 内容来自www.paper51.com 以下是部分程序的代码 内容来自论文无忧网 www.paper51.com
登陆窗体界面及代码： 内容来自www.paper51.com
http://www.paper51.com Public n As Integer http://www.paper51.com PrivateSub Form_load() 内容来自www.paper51.com n= 0 copyright paper51.com EndSub http://www.paper51.com PrivateSub CmdOK_Click() 内容来自www.paper51.com Dimmrc As ADODB.Recordset copyright paper51.com txtSQL= "select * from oper where 用户名='" & Trim$(Text1.Text) _ 内容来自www.paper51.com
& "'" & " And 密码='" & Trim$(Text2.Text) +"'" 内容来自论文无忧网 www.paper51.com Setmrc = exesql(txtSQL) 内容来自www.paper51.com Ifmrc.RecordCount = 0 Then 内容来自论文无忧网 www.paper51.com n = n + 1 copyright paper51.com If n < 3 Then copyright paper51.com MsgBox "没有这个用户或密码错误，继续登录",vbOKOnly + vbExclamation, "信息提示" http://www.paper51.com Text1.Text = "" 内容来自论文无忧网 www.paper51.com Text2.Text = "" copyright paper51.com Text1.SetFocus 内容来自www.paper51.com Else paper51.com MsgBox "已登录失败三次，退出系统",vbOKOnly + vbExclamation, "信息提示" 内容来自论文无忧网 www.paper51.com mrc.Close paper51.com Unload Me paper51.com End If http://www.paper51.com
Else copyright paper51.com userlevel= Trim$(mrc.Fields("级别")) paper51.com
MsgBox"登录成功", vbOKOnly + vbExclamation, "信息提示" paper51.com mrc.Close paper51.com LoadForm1 ‘登录成功，调用主窗体 内容来自www.paper51.com Form1.Show http://www.paper51.com Form1.Visible= True 内容来自www.paper51.com
UnloadFrmLogin ‘关闭登录窗体 http://www.paper51.com EndIf http://www.paper51.com End Sub 内容来自www.paper51.com PrivateSub CmdCancel_Click() ‘取消登录 copyright paper51.com UnloadMe copyright paper51.com EndSub copyright paper51.com 主窗体的代码 paper51.com
Option Explicit 内容来自www.paper51.com
Privaters As Recordset paper51.com
PrivateSub ButtonChange1() copyright paper51.com Command_Add.Enabled= True copyright paper51.com Command_Delete.Enabled= True copyright paper51.com CommandFirst.Enabled= True 内容来自论文无忧网 www.paper51.com
CommandLast.Enabled= True paper51.com CommandNext.Enabled= True copyright paper51.com CommandPrevious.Enabled= True paper51.com Command_Ok.Enabled= False paper51.com
Command_Cancel.Enabled= False 内容来自www.paper51.com EndSub copyright paper51.com PrivateSub ButtonChange2() 内容来自论文无忧网 www.paper51.com Command_Add.Enabled= False http://www.paper51.com Command_Delete.Enabled= False copyright paper51.com
CommandFirst.Enabled= False http://www.paper51.com CommandLast.Enabled= False 内容来自www.paper51.com CommandNext.Enabled= False 内容来自论文无忧网 www.paper51.com
CommandPrevious.Enabled= False paper51.com Command_Ok.Enabled= True http://www.paper51.com Command_Cancel.Enabled= True http://www.paper51.com EndSub copyright paper51.com
http://www.paper51.com
|