該樓層疑似違規(guī)已被系統(tǒng)折疊?隱藏此樓查看此樓

'**************************************** Module1.bas 模塊代碼

'工程 上面按下右鍵 工程1屬性 設(shè)定以 Main 啟動

Option Explicit

Public Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long

Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public CONN As New ADODB.Connection '定義數(shù)據(jù)連接字符串

Public RS As New ADODB.Recordset '定義記錄集

Public Const WS_EX_LAYERED = &H80000

Public Const GWL_EXSTYLE = (-20)

Public Const LWA_ALPHA = &H2

Public Const LWA_COLORKEY = &H1

Public Const vbKeyAlt = vbKeyMenu

Public AppDisk$, DataDisk$, DB$, MsgTitle$, UserName$, PassWord$, UserLevel$

Public LoginYn As Boolean

Public Rtn&, ErrPass&

Sub Main()

MsgTitle = "數(shù)據(jù)庫登錄練習(xí)" '項(xiàng)目名稱賦值給變量 MsgTitle

'禁止兩次運(yùn)行本程序

If App.PrevInstance Then Call MsgBox("對不起本程序已在運(yùn)行中, 不得重復(fù)加載!!", vbCritical, MsgTitle): End

AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") '本地路徑賦值給變量AppDisk

DataDisk = AppDisk & "Data\" '將本地路徑下的DATA文件夾賦值給變量DataDisk

If Dir(DataDisk, vbDirectory) = "" Then MkDir DataDisk '如果DataDisk變量指定的文件夾不存在則創(chuàng)建它

MainForm.Show '運(yùn)行主程序MainForm

Log.Show '運(yùn)行登錄程序Log

End Sub

'以搜索關(guān)鍵字詞在數(shù)據(jù)庫某個表,某個字段查找 返回真或假的副程序

Public Function SearchDATA(TMPRS As Object, SchZD As String, SchData As String) As Boolean

On Error Resume Next

SearchDATA = False '初始查找變量 SearchDATA為 假

TMPRS.MoveFirst '查找到之后 記錄移到第一筆

TMPRS.Find SchZD & " = " & Chr(39) & SchData & Chr(39)

If Not TMPRS.EOF Then SearchDATA = True '如果查找到 則 SearchDATA函數(shù)返回 真

End Function

Public Sub RoundWin(Tform As Object, WW&, HH&) '創(chuàng)建圓角窗體的副程序

Dim W&, H&

On Error Resume Next

W = Tform.Width \ Screen.TwipsPerPixelX '將窗體的寬度除以屏幕每個像素點(diǎn)的值(15) 轉(zhuǎn)換為像素，帶入變量W

H = Tform.Height \ Screen.TwipsPerPixelY '將窗體的高度除以屏幕每個像素點(diǎn)的值(15) 轉(zhuǎn)換為像素，帶入變量H

SetWindowRgn Tform.hwnd, CreateRoundRectRgn(0, 0, W, H, WW, HH), True '以帶進(jìn)之參數(shù)WW與HH創(chuàng)建窗體圓角

Tform.Move (Screen.Width - Tform.Width) \ 2, (Screen.Height - Tform.Height) \ 2 '窗體居于屏幕中心

End Sub

Public Sub CleanAll() '結(jié)束程序退出的副程序

On Error Resume Next

'關(guān)閉所有打開的窗體并釋放對象

Dim TmpFrm As Form

For Each TmpFrm In Forms

Unload TmpFrm

Set TmpFrm = Nothing

Next

End '結(jié)束程序退出

End Sub

總結(jié)

以上是生活随笔為你收集整理的vb链接mysql登录界面_求大神!有谁会用VB设计用户登陆界面连接到数据库的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。