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

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

2024-12-14 20:28:21

推荐回答（5个）

回答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("")
'Response.Write("")
Response.Write("")
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