vb結合sql開發(fā)學校教務管理系統(tǒng)(已修改)
2024-11-28 16:22 本頁面
【正文】 某某 學院 計算機科學與技術 系 課 程 設 計 報 告 課 程 名 數據庫 應用 設計題目 學校教務管理 系統(tǒng) 班 級 08 本科 1 班 專 業(yè) 計算機科學與技術 姓 名 某某某 指導教師 孫海霞 2020 年 8 月 制 設計 任務 5 個存儲過程 完成任務的思路、方法 與 算法 ： 學會 怎樣創(chuàng)建 存儲 過程，掌握變量 和 字符類型的運用 ， 以及怎樣調用存儲過程， 在存儲過程中可以按商店編號來 查詢、按職工編號查詢、按會員編號查詢、按會員編號和職工編號查詢、按商店編號和職工編號查詢 ， 為了方便起見 過程名要做到見名 知 意，以便閱讀。 1 程序框圖 ： 學校教務管理系統(tǒng)功能結構圖： ‘ 學校教務管理系統(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=教學成績管理數據庫 。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。關閉 Else MsgBox 用戶名或密碼不正確 , vbCritical End If 3 Set rs = Nothing Else MsgBox 請輸入用戶名和密碼 , vbCritical End If End Sub Private Sub
公司管理相關推薦
鄂ICP備17016276號-1