亚州天堂爱爱,做爱视频国产全过程在线观看,成人试看30分钟免费视频,女人无遮挡裸交性做爰视频网站

? ? ?

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

如何做個(gè)簡(jiǎn)單的小軟件呢?如果要求不高,那winform絕對(duì)是必選項(xiàng),那么廢話不多少了,先用winform做個(gè)簡(jiǎn)單的登錄界面,一步一步的開啟做軟件之路,沖鴨!沖鴨!

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

首先呢,在做登錄界面之前,我們得有數(shù)據(jù)庫(kù)是不是,用來保存我們的用戶信息,老樣子還是用Access作數(shù)據(jù)庫(kù)吧,按照下圖的樣子做個(gè)用戶信息表,里面初步要有用戶ID、用戶姓名、用戶賬號(hào)、用戶密碼,以后隨著功能的添加還要設(shè)置賬號(hào)類型、權(quán)限等內(nèi)容,目前設(shè)置這些就夠了。

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

好了,我們數(shù)據(jù)庫(kù)里就有了第一位用戶張哈哈的用戶信息了。下面要開始表演了,嘖嘖!

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

打開vs2019 創(chuàng)建新項(xiàng)目,語言選擇Visual Basic(就是vb.net),平臺(tái)選擇windows,選中windows 窗體應(yīng)用(.NET Framework),如下圖所示,點(diǎn)擊下一步。

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

設(shè)置項(xiàng)目名稱等內(nèi)容就不說了,都是設(shè)置好后,就是下圖這個(gè)樣子。

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

然后這里就省略一些字了,經(jīng)過調(diào)整大小,設(shè)置一些屬性參數(shù),把界面調(diào)整到下圖的樣子。

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

是不是有點(diǎn)像登錄界面的樣子了,winform是事件驅(qū)動(dòng)的,登錄界面里有兩個(gè)按鈕,在單擊他們時(shí)就會(huì)產(chǎn)生點(diǎn)擊事件,點(diǎn)擊登錄按鈕就要跳轉(zhuǎn)到主程序界面,點(diǎn)擊取消按鈕就要關(guān)閉登錄界面,按照這個(gè)思路開始寫代碼。首先雙擊登錄按鈕,進(jìn)入Button1_Click事件里。如圖所示

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

按照思路開始編寫程序,Button1_Click里面的代碼就是這樣的

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sql As String

Dim conn As New OleDbConnection

Dim PassWord As String

Dim UserName As String

UserName = TextBox1.Text.Trim

PassWord = TextBox2.Text.Trim

If UserName = "" Or PassWord = "" Then

MessageBox.Show("賬號(hào)或密碼不能為空")

Return

End If

conn.ConnectionString = "provider =microsoft.ace.oledb.12.0;data source=C:UsershuanglongDesktop數(shù)據(jù)庫(kù).accdb"

sql = String.Format("select 用戶賬號(hào),用戶密碼 from 用戶信息表 where 用戶賬號(hào)='{0}' and 用戶密碼='{1}'", UserName, PassWord)

Dim adapter As New OleDbDataAdapter(sql, conn)

Dim dt As New DataSet

adapter.Fill(dt, "用戶信息表")

Dim datareader As DataTableReader

Try

datareader = dt.Tables("用戶信息表").CreateDataReader

If datareader.Read Then

If datareader.HasRows Then

MessageBox.Show("登錄成功")

End If

Else

MessageBox.Show("登錄失敗,請(qǐng)輸入正確賬號(hào)密碼")

Return

End If

Catch ex As Exception

MessageBox.Show("出現(xiàn)異常" & ex.Message)

End Try

Me.Hide()

End Sub

篇幅有限,代碼就不詳細(xì)講了,大家應(yīng)該能看懂,編譯一下就是如下圖這樣

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

輸入正確的數(shù)據(jù)庫(kù)里的用戶賬號(hào)和密碼,點(diǎn)擊登錄按鈕就會(huì)彈出登錄成功

輸入錯(cuò)誤的話會(huì)彈出登錄失敗界面

然后進(jìn)入Button2_Click事件,就是取消按鈕的點(diǎn)擊事件,上面說了點(diǎn)擊取消按鈕整個(gè)登錄界面將關(guān)閉,用Me.Close就行了,Me代表當(dāng)前窗體,C#里用this這個(gè)關(guān)鍵詞表示當(dāng)前窗體。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.Close()

End Sub

這就是非常簡(jiǎn)單的登陸界面,可以在創(chuàng)建個(gè)窗體,當(dāng)賬號(hào)和密碼輸入正確時(shí)點(diǎn)擊登錄按鈕后登錄界面隱藏,界面跳轉(zhuǎn)到新創(chuàng)建的窗體里。今天就不介紹了,下次才進(jìn)一步介紹

如何用VB.net做一個(gè)簡(jiǎn)單的小軟件(第一步)(vb .net)

下次見了[送心][送心][送心]

版權(quán)聲明:本文內(nèi)容由互聯(lián)網(wǎng)用戶自發(fā)貢獻(xiàn),該文觀點(diǎn)僅代表作者本人。本站僅提供信息存儲(chǔ)空間服務(wù),不擁有所有權(quán),不承擔(dān)相關(guān)法律責(zé)任。如發(fā)現(xiàn)本站有涉嫌抄襲侵權(quán)/違法違規(guī)的內(nèi)容, 請(qǐng)發(fā)送郵件至 舉報(bào),一經(jīng)查實(shí),本站將立刻刪除。

(0)
上一篇 2023年4月22日 上午9:13
下一篇 2023年4月22日 上午9:29

相關(guān)推薦