vb結(jié)合sql開發(fā)學(xué)校教務(wù)管理系統(tǒng)(已修改)
2024-11-28 16:22 本頁面
【正文】 某某 學(xué)院 計算機科學(xué)與技術(shù) 系 課 程 設(shè) 計 報 告 課 程 名 數(shù)據(jù)庫 應(yīng)用 設(shè)計題目 學(xué)校教務(wù)管理 系統(tǒng) 班 級 08 本科 1 班 專 業(yè) 計算機科學(xué)與技術(shù) 姓 名 某某某 指導(dǎo)教師 孫海霞 2020 年 8 月 制 設(shè)計 任務(wù) 5 個存儲過程 完成任務(wù)的思路、方法 與 算法 ： 學(xué)會 怎樣創(chuàng)建 存儲 過程，掌握變量 和 字符類型的運用 ， 以及怎樣調(diào)用存儲過程， 在存儲過程中可以按商店編號來 查詢、按職工編號查詢、按會員編號查詢、按會員編號和職工編號查詢、按商店編號和職工編號查詢 ， 為了方便起見 過程名要做到見名 知 意，以便閱讀。 1 程序框圖 ： 學(xué)校教務(wù)管理系統(tǒng)功能結(jié)構(gòu)圖： ‘ 學(xué)校教務(wù)管理系統(tǒng) ER 圖 2 核心程序（ 對主要的語句要加注 釋 ） 登陸界面截圖： 登陸界面 vb 代碼： Public stu_flag As Integer Public cls_flag As Integer Public course_flag As Integer Public serverstr As String Public ueserstr As String Public passstr As String Public Function conn() As On Error GoTo 1 Set conn = New Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=教學(xué)成績管理數(shù)據(jù)庫 。Data Source=7MZZQCR4HI4IDQV Exit Function 1: MsgBox End End Function Private Sub Command1_Click() If Trim() And Trim() Then Dim rs As New Recordset select username from tb_user where username =39。 amp。 amp。 39。 and password =39。 amp。 amp。 39。, conn, adOpenKeyset, adLockOptimistic If Not Then Unload Me 39。關(guān)閉 Else MsgBox 用戶名或密碼不正確 , vbCritical End If 3 Set rs = Nothing Else MsgBox 請輸入用戶名和密碼 , vbCritical End If End Sub Private Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1