學(xué)校教師管理系統(tǒng)畢業(yè)設(shè)計-資料下載頁
2025-04-12 06:14本頁面
【正文】 Private Sub Command1_Click()mname = ‘將界面的文本框的值賦給給姓名和密碼變量pass = Dim my As New 定義ADO連接Dim myrs As New 定義ADO記錄集Set myrs = New Provider=。Data Source=。 SELECT * FROM [user] where ()=39。 + mname + 39。, my, adOpenKeyset, adLockOptimistic通過SQL 語句打開符合姓名變量記錄If = True And = True Then 如果沒找到MsgBox 查無此人, , 登陸信息 返回 Else If myrs(pass) = pass Then 找到了則檢查密碼是否正確 如果正確則打開主界面 Unload Me Else MsgBox 密碼不正確, , 登陸信息 否則返回 End If End If End SubPrivate Sub Form_DblClick()MsgBox helloEnd Sub主界面Private Declare Function DeleteFile Lib kernel32 Alias DeleteFileA (ByVal lpFileName As String) As Long39。聲明API函數(shù)用于數(shù)據(jù)備份和恢復(fù)Private Declare Function CopyFile Lib kernel32 Alias CopyFileA (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongPrivate Sub Form_Load() = GetSetting(, Settings, MainLeft, 4000) = GetSetting(, Settings, MainTop, 4000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) 39。定位界面End SubPrivate Sub mnudayindangan_Click() 39。打開界面End SubPrivate Sub mnudayinlaozi_Click() 39。打開報表End SubPrivate Sub mnulaozijifa_Click() 39。打開界面End SubPrivate Sub mnupeizhi_Click() 39。打開界面End SubPrivate Sub mnutuichu_Click()End 39。退出所有程序End SubPrivate Sub mnudayinwanzheng_Click() 39。應(yīng)做:添加 39。mnudayinwanzheng_Click39。 代碼。 MsgBox 添加 39。mnudayinwanzheng_Click39。 代碼。End SubPrivate Sub mnudayinjiandan_Click() 39。應(yīng)做:添加 39。mnudayinjiandan_Click39。 代碼。 MsgBox 添加 39。mnudayinjiandan_Click39。 代碼。End SubPrivate Sub mnulaozichaxun_Click() 39。打開界面End SubPrivate Sub mnudanganchaxun_Click() 39。打開界面End SubPrivate Sub mnudanganshanchu_Click() = False = True 39。打開界面End SubPrivate Sub mnudanganxiugai_Click() 39。打開界面 = True 26計算機(jī)信息管理畢業(yè)設(shè)計(論文)
公司管理相關(guān)推薦
鄂ICP備17016276號-1