数据库登录界面怎么做(数据库登录界面怎么做窗体)
vb连接SQL数据库后制作一个登陆界面。
Option Explicit
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(默认为:MERRYCHINA)" '这是连接SQL数据库的语句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
'Exit Function
'MyErr:
'Set rs = Nothing
'Set Conn = Nothing '释放相关的系统资源
'MsgBox Err.Description, vbInformation, "系统提示" '显示出错信息
End Function
Private Sub Form_Load()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim X As Long
On Error GoTo Err_box
SQL = " select * from 用户表"
Set rs = Selectsql(SQL)
If rs.RecordCount 0 Then
rs.MoveFirst
For X = 1 To rs.RecordCount
Combo1.AddItem rs.Fields("用户名").Value
rs.MoveNext
Next X
Combo1.ListIndex = 0
End If
rs.Close
Exit Sub
Err_box:
End Sub
Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请输入口令!", 16
Text1.SetFocus
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "请选择登录用户!", 16
Combo1.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM 用户表 WHERE 用户名='" Combo1.Text "' AND 密码='" Text1.Text "' "
Set rs = Selectsql(SQL)
If rs.RecordCount 0 Then
Form1.Show '想要打开的主窗体
MsgBox "恭喜兄弟,登录成功!", 64, "提示"
Unload Me
Else
MsgBox "口令不对,请重新输入!", 16, "提示"
Text1.SetFocus
End If
End Sub
'**********************************************************************
'说明:1) 在工程中引用Microsoft ActiveX Data Objects 2.8 Library ,其它版本也行如:2.0
' 2) 在窗体中加Texe1.text(文本框控件),Combo1.text(组合框控件),Command1(命令按钮)各一个
' 3) 在SQL Server2000中创建数据库，新建表"用户表",表中包含"ID,姓名,密码"等字段,然后将以上代码复制,OK搞定
4) 以上方式无需加载ADO控件,方便!
密码和帐号对的时候跳转到form2,在form2的的文本框text1中出现text1的帐号。
这个你只要设置一个全局变量，然后对的时候把帐号放到全局变量里，然后在打开form2时显示这个全局变量到text1里就行了。
怎样做一个登录界面然后连接到数据库
1.定义连接数据库字符串： Public con As New SqlConnection("Data Source='数据库服务器计算机名/IP';Initial Catalog='数据库名';User ID=sa;Password=sa;connect Timeout=15;Integrated Security=False;Persist Security Info=False")
2. 登录按钮事件：通过验证用户表中的用户名称和密码是否正确。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
con.Open()
Dim sql As String = " select UserName from dbo.Obas_SystemUser where username='用户名' and UserPassword='密码'"
Dim cmd As New SqlCommand(sql, con)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
If dr.Read Then
My.Forms.Form_Main.Show() '显示连接成功窗体
Me.Close() '关闭当前界面
Else
MsgBox("用户名或密码错误！", MsgBoxStyle.Exclamation)
End If
con.Close()
cmd = Nothing
Catch ex As SqlException
MsgBox("登录失败！原因:" ex.Message, MsgBoxStyle.Exclamation)
Exit Try
End Try
End Sub
如果还不理解可以继续问我，或者到小小的世界。
怎样用 myeclipse和数据库做一个简单的登录界面,用来完成对数据库的操作
首先用myeclipse创建一个web 工程
这是jsp登录页面
body
%
request.setCharacterEncoding("GBK");
String name=request.getParameter("文件名");
if(name.equals("sa")){
session.setAttribute("UserName",name);
response.sendRedirect("文件名");
}
else{
response.sendRedirect("文件名");
}
%
/body
连接数据库文件
public class ConnectionManager {
private static final String DRIVER_CLASS = "com.microsoft.sqlserver.jdbc.SQLServerDriver";
private static final String DATABASE_URL = "jdbc:sqlserver://localhost:1433;DatabaseName="数据库名“;
private static final String DATABASE_USRE = "sa";
private static final String DATABASE_PASSWORD = "sa";
/**
* 返回连接
*
* @return Connection
*/
public static Connection getConnection() {
Connection dbConnection = null;
try {
Class.forName(DRIVER_CLASS);
dbConnection = DriverManager.getConnection(DATABASE_URL,
DATABASE_USRE, DATABASE_PASSWORD);
} catch (Exception e) {
e.printStackTrace();
}
return dbConnection;
}
/**
* 关闭连接
*
* @param dbConnection
* Connection
*/
public static void closeConnection(Connection dbConnection) {
try {
if (dbConnection != null (!dbConnection.isClosed())) {
dbConnection.close();
}
} catch (SQLException sqlEx) {
sqlEx.printStackTrace();
}
}
/**
* 关闭结果集
*/
public static void closeResultSet(ResultSet res) {
try {
if (res != null) {
res.close();
}
} catch (SQLException e) {
e.printStackTrace();
}
}
/**
* 关闭语句
*/
public static void closeStatement(PreparedStatement pStatement) {
try {
if (pStatement != null) {
pStatement.close();
}
} catch (SQLException e) {
e.printStackTrace();
}
}
}
在数据库软件vf中，咋样制作登陆界面？？步骤是什么
不需要密码加密的话,这个很简单的.建立一个combo1,和text1的对象,和一个确定按钮.
确定command1的click事件:
if
thisform.combo1.value=allt(用户名1.zzh)
and
thisform.text1.value=allt(用户名1.密码)
假定用户名1是你的表.
messagebox("登录成功")
thisform.release
else
messagebox("用户名或密码错误")
endif
你可设置全局变量,控制输入的次数.
一般登录成功后,会讲用户名等传给全局变量,以便后面的程序使用.
怎样制作网页中的用户登录，包括数据库？
你说的不太明白，首先要制作用户登录是使用表单实现的,最基本的要有四个页面可以实现，第一个页面时登录页面，第二个是登录成功的页面，第三个是登录失败的页面，第四个页面是验证的页面，在登陆页面上使用form
action=“验证的页面”在验证的页面上使用
session获取对象，具体方法
%
Session("name")=request.form("name")
Session("password")=request.form("pass")
If
Session("name")="王明"and
Session("password")="123"
Then
Response.Redirect"chonggong.asp"
Else
Response.Redirect"shibai.asp"
End
If
%
这与数据库连接可以在Dreamweaver中添加实现。
有什么不明白的给我回话。
希望我说的对你有所帮助
用access数据库建一个用户表，做一个登录界面，通过asp查询用户表的方法，实现对合法用户的判断
1，首先链接数据库
2，根据输入的用户名去查询数据库中的密码（通常密码用MID5加密）
3，将用户输入的密码加密后和数据库中取出的比对
4.如果比对成功，就建立一个session对象，网站各页面装入前首先验证这个session对象，如果存在就正常访问，如果不存在这个session对象就跳转到登录页面。
上面是登录页面的常见做法，做深入了还要考虑防止SQL注入攻击，验证码防止暴力破解等。
你哪步不会说，我给你搞代码。
不要说都不会