台灣速龍 發表於 2015-7-22 01:59:17

【VB.NET】管理端+客戶端源碼

本帖最後由 台灣速龍 於 2015-7-29 13:11 編輯

說明:
在源碼Debug資料夾底下有個MySql.Data.dll,請在專案裡面加入參考,要給別人使用時要把執行檔與MySql.Data.dll放在同一個位置。

部分程式碼:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        connect()
        Dim READER As MySqlDataReader
        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "select * from sql684338.account where 帳號='" & TextBox1.Text & "' and 密碼='" & TextBox2.Text & "'"
            '從資料庫中的資料表選擇所有欄位並找出符合帳號以及密碼的欄位
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader
            Dim count As Integer = 0
            While READER.Read() '每次比對增加一次,比對到帳號及密碼都符合為止
                count += 1
            End While
            If count = 1 Then '比對完成
                MsgBox("登入成功!", vbInformation, "分享於冰楓論壇")
                Form2.Show()
                Me.Hide()
            Else
                MsgBox("登入失敗", vbCritical, "分享於冰楓論壇")
            End If
            MysqlConn.Close()
        Catch ex As MySqlException
            MsgBox("無法連接資料庫", vbCritical, "分享於冰楓論壇")
        Finally
            MysqlConn.Dispose()
        End Try
    End Sub客戶端介面:


管理端介面:




SQL申請及設定部分:請點我連接

載點:
**** Hidden Message *****

aaa0986555377 發表於 2015-7-22 10:22:37

感謝

魚鬆哥 發表於 2015-7-23 17:25:18

讚啦 這偵得是太神拉

jjj80603 發表於 2015-8-10 19:27:03

謝謝 速龍大  我很想了解 ~

cpu66300 發表於 2015-8-25 20:35:10

本帖最後由 cpu66300 於 2015-8-25 20:37 編輯

我在學習VB   這個也來 學習看看^^

奶茶喔 發表於 2015-9-1 20:28:07

所以這類似卡號的工具?

周家家 發表於 2016-4-23 05:49:11

謝謝速龍哥分享 小弟我拿去學習囉^^:victory:

21278051 發表於 2016-6-28 05:38:35

qwas963563 發表於 2016-7-14 23:25:37

目前我剛好需要 謝謝速龍大大的源碼
我測試看看有問題再問你:)

x6412645 發表於 2016-7-25 19:55:52

謝謝速龍 我最近在學VB

happy09033 發表於 2016-8-24 21:05:08

能有教學嗎?一直連線失敗~不知道該怎麼辦...

tickorabbit 發表於 2016-10-3 00:07:35

最近正在學這個,真是太神拉!

fucker 發表於 2017-7-29 20:09:21

隨風飄逸飄呀飄

ggaa123456 發表於 2020-1-30 20:08:40

感謝大大 感恩大大
頁: [1]
查看完整版本: 【VB.NET】管理端+客戶端源碼