課程設計--宿舍管理系統(tǒng)-資料下載頁
2025-01-17 02:19本頁面
【正文】 fo=False。Initial Catalog=xueshengsushe。Data Source=XS07 = select * from 設備租賃 where 學號=39。 amp。 amp。 39。 Set = Adodc1 End SubPrivate Sub Command2_Click()Unload MeEnd Sub 添加學生信息界面13圖 學生宿舍添加界面圖 學生宿舍刪除界面其主要代碼如下：Private Sub Command1_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=xueshengsushe。Data Source=XS0714 = select * from 學生住宿表 where 學號=39。 + + 39。 If = Or = Or = Or = Then MsgBox 輸入不完整。, , 提示信息 ElseIf = 0 Then = select * from 學生宿舍表 where 學號= + + (學號) = (姓名) = (專業(yè)) = (聯(lián)系方式) = MsgBox 添加成功!, vbOKOnly, 提示信息 End If Exit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=學生宿舍。Data Source=XS07 = select * from 學生住宿表 where 學號=39。 + + 39。15 = = = = MsgBox 刪除成功, , 提示信息End Sub 修改信息界面圖 修改界面其代碼如下：Private Sub Command1_Click()Dim a As String Dim b As String Dim c As String a = b = c = = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=學生宿舍。Data 16Source=XS07 = select * from 員工表 where 員工號=39。 amp。 a amp。 39。or 員工姓名=39。 amp。 b amp。 39。 or 職位=39。 amp。 c amp。 39。 Set = Adodc1 Exit SubEnd SubPrivate Sub Command2_Click()On Error GoTo errorhandler 39。允許錯誤發(fā)生 = select * from 員工表 If = 0 Then MsgBox 無修改目標, vbOKOnly, 提示信息 Exit Sub End If = select * from 員工表 where 員工號= amp。 amp。 If = Or = Or = Then MsgBox 信息輸入不完整！, vbOKOnly, 提示信息 Exit Sub End If (員工號) = (員工姓名) = (職位) = MsgBox 修改成功！, vbOKOnly, 提示信息Exit Suberrorhandler: 39。允許錯誤發(fā)生的錯誤處理 If = 3021 Then17 MsgBox 員工號不存在，不能更新。, vbOKOnly, 提示信息 39。resume next Exit Sub End If If = 2147217900 Then MsgBox 員工姓名存在相關記錄，不允許更新或刪除。, vbOKOnly, 提示信息 Resume Next Exit Sub End If If = 2147217904 Then MsgBox 職位輸入錯誤，請輸入長整型, vbOKOnly, 提示信息 39。resume next Exit Sub End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub參 考 文 獻[1]鄭阿奇. SQL SERVER 實用教程[M].北京:.[2]陳偉. SQL SERVER 2022 數(shù)據(jù)庫應用與開發(fā)教程[M].北京：清華大學出版社.2022.18[3]劉衛(wèi)國．數(shù)據(jù)庫技術與應用實踐教程[M].北京:.[4]周峰. SQL SERVER 2022 經(jīng)典案例設計與實現(xiàn)[M].北京:.[5] Basic+SQL SERVER中小型信息系統(tǒng)[M].北京:.
規(guī)章制度相關推薦
鄂ICP備17016276號-1