Question

visual studio2008 怎么用VB语言来做个简单的登陆界面？？在线等

我需要的是VB代码区编写的 谢谢 我我是需要VB的代码啊 ~~ visual studio2008 我是用的工具 需要用VB语言来写 不知道能否实现？

Answer 1

可以写好了,有问题在线联系
'Option Strict On
Option Explicit On

Imports System.Data.SqlClient
Imports System.Web.Security
Imports System.Data
Imports common
Imports System
Imports System.Messaging
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.ControlCollection
Imports Microsoft.VisualBasic
Partial Class ManpowerR_Applyfor
Inherits System.Web.UI.Page

Dim SQLStr As String, SQLStr2 As String, SQLStr3 As String
Dim code As String
Dim table As DataTable = Nothing
Dim DataChanged As Boolean, saveString As String
Public fromwhere As String
Public gHeight As String, fontStyle As String, ebaStyle As String
Dim RecControl As Control, vrCode As String
Dim maxNo As Integer, dr2 As SqlDataReader = Nothing, viUsercode As String
Dim gDate As String
Dim copConnStr As String
Dim cnn As SqlConnection
Dim cmd As SqlCommand
Dim datar As SqlDataReader
Dim puconn As New SQLDatabase
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dr As SqlDataReader = Nothing
If Session("uid") = "" Then '防止非法登录
Response.Write("<script>")
Response.Write("alert('请先登录!')")
Response.Write("</script>")
'Response.Write("<script language=javascript>history.go(-1);</script>")
Response.Write("<Script Language='javascript'>window.open('../default.aspx','','Status=yes,scrollbars=yes,resizable=yes,width='+(screen.availWidth-10)+',height='+(screen.availHeight-50)+',top=0,left=0');window.opener=null;this.self.close();</script>")
Exit Sub
End If

copConnStr = "Data Source=(local);Initial Catalog=luo;Persist Security Info=True;User ID=sa;Password=dyxjzxmtjtn" '$$$$$
puconn.ConnectionString = Session("copconnstr").ToString
puconn.OpenDBConnection()
cnn = New SqlConnection(copConnStr)
If Not Page.IsPostBack Then '防止页面刷新时重复执行，丢失页面修改的结果
code = Request.QueryString("code")
gDate = Request.QueryString("gstdate")
gstWhereCondition = ""
' ClearControl()
InitiateCombos()
SQLStr = "Select * from EmploymentApp where ea_resumecode='" + code + "'"
table = puconn.GetDataTable(SQLStr)
If table.Rows.Count > 0 Then
Me.modeMainTable.Value = "EDIT"
Me.newRecord.Value = False
gDisplayResultset(Me.Controls, table)
Else
Me.modeMainTable.Value = "ADD"
Me.newRecord.Value = True
End If
DataChanged = False
End If
If Session("Height") < 601 Then
fontStyle = "font-small.css"
ElseIf Session("height") < 800 Then
fontStyle = "font-small.css"
ElseIf Session("height") < 1025 Then
fontStyle = "font-large.css"
Else
fontStyle = "font-large.css"
End If
End Sub
End Class

Answer 2

建立数据库的连接和读取就可以了!

Answer 3

新建的时候下面有选择语言的 C#或VB

Answer 4

可以的 我现在用的就是vs2008做VB的，不过实习马上就结束了，以后估计也用不大着了，你要是想做的话我可以给你做一个，现在我有时间……

Answer 5

VB6可以吗？
可以就回一个帖……