1. F12:轉到定義;Shift+F12:轉到引用
創(chuàng)新互聯(lián)公司總部坐落于成都市區(qū),致力網(wǎng)站建設服務有成都網(wǎng)站制作、網(wǎng)站設計、網(wǎng)絡營銷策劃、網(wǎng)頁設計、網(wǎng)站維護、公眾號搭建、小程序開發(fā)、軟件開發(fā)等為企業(yè)提供一整套的信息化建設解決方案。創(chuàng)造真正意義上的網(wǎng)站建設,為互聯(lián)網(wǎng)品牌在互動行銷領域創(chuàng)造價值而不懈努力!
2. F5:啟動;Ctrl+F5:開始執(zhí)行(不調(diào)試);Shift+F5:停止調(diào)試
3. F7:查看代碼;Shift+F7:查看視圖設計器
4. Ctrl+Alt+L:解決方案資源管理器
5. Ctrl+Alt+J:對象瀏覽器
6. F4:顯示屬性窗口
7. Ctrl+Alt+X:工具箱
8. Ctrl+Alt+C類視圖
9. Alt+Enter:查看屬性
10.F10:逐過程調(diào)試
11.F11:逐語句調(diào)試
12.Ctrl+B:新斷點
13.Ctrl+Shift+F9:清除所有斷點
14.Ctrl+Shift+B生成解決方案
15.Shift+Alt+Enter:全屏
16.大綱顯示:Ctrl+M, Ctrl+M:切換大綱顯示展開;Ctrl+M, Ctrl+L:切換所有大綱顯示;Ctrl+M,Crtl+P停止大綱顯示;Ctrl+M, Ctrl+O:折疊到定義
17.智能感知:Ctrl+J:列出成員;Ctrl+Shift+空格:參數(shù)信息; Ctrl+K,Ctrl+I:快速信息;Alt+右箭頭鍵:完成單詞
'''兩段程序就是利用.net的連接對象的功能來完成登錄的實例
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 'start按鈕觸發(fā)的函數(shù)
Dim schclass As String = Trim(txtClass.Text) ‘將txtClass里文本賦值給變量schclass
Dim selestr As String
’提示用戶txtClass文本框不能為空
If schclass "" Then
selestr = "班級='" schclass "'"
Else
MsgBox("請輸入班級名稱", 64, "提示") ‘ 顯示保存成功提示信息
End If
‘創(chuàng)建一個DataView對象,即將數(shù)據(jù)集DataSet11里的學生成績表的DefaultView實例化
Dim dvresult As DataView = DataSet11.學生成績.DefaultView
’按學號字段排序
dvresult.Sort = "學號"
‘按剛才txtClass里輸入的班級查詢
dvresult.RowFilter = selestr
dvresult.RowStateFilter = DataViewRowState.CurrentRows
’然后將篩選的結果輸入到datagrid上
DataGrid1.DataSource = dvresult
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click ‘ok按鈕觸發(fā)的函數(shù)
’如果txtUserName或txtPass文本框為空,提示并中斷函數(shù)
If txtUserName.Text = "" Or txtPass.Text = "" Then
Response.Write("script language=vbscriptalert""用戶名或密碼不能為空!""/script")
Exit Sub
End If
‘定義鏈接、執(zhí)行、閱讀 對象
Dim mycon As New OleDbConnection
Dim mycmd As New OleDbCommand
Dim reader As OleDbDataReader
’給連接對象賦值連接字符串,access類型的。
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
Server.MapPath("Msg.mdb")
‘打開連接對象
mycon.Open()
’將連接對象復制到執(zhí)行對象上
mycmd.Connection = mycon
‘然后就給執(zhí)行對象賦值執(zhí)行類型和執(zhí)行語句
mycmd.CommandType = CommandType.Text
mycmd.CommandText = "Select * from myuser Where 用戶名='" txtUserName.Text "'" " and 密碼='" txtPass.Text "'"
’然后將執(zhí)行對象的監(jiān)聽實例化
reader = mycmd.ExecuteReader()
‘如果執(zhí)行不成功,即沒有得到結果集就提示否則將結果集的用戶名賦值給一個session以供其他頁面使用
If reader.Read = False Then
Response.Write("script language=vbscriptalert""用戶名或密碼錯,你不能登錄!""/script")
Else
Session("username") = reader("用戶名")
Response.Redirect("lwmsg.aspx")
End If
’關閉監(jiān)聽
reader.Close()
‘關閉連接
mycon.Close()
End Sub
這時用vb6.0改寫的吧.net配置文件不用ini了,前面5行,判斷符合條件則獲取相關文本框中的內(nèi)容,在下面4行把相關內(nèi)容就是前面5行中的后4行的內(nèi)容寫進ini配置文件,然后令btnDefault可用,同時調(diào)用btnDefault.PerformClick函數(shù)
Private Sub frmDbConn_Load是該form啟動加載的一些參數(shù),即獲取配置文件中的相關信息,同時把信息顯示在相關的文本框中。