課程設(shè)計(jì)--宿舍管理系統(tǒng)-資料下載頁
2025-01-17 02:19本頁面
【正文】 fo=False。Initial Catalog=xueshengsushe。Data Source=XS07 = select * from 設(shè)備租賃 where 學(xué)號=39。 amp。 amp。 39。 Set = Adodc1 End SubPrivate Sub Command2_Click()Unload MeEnd Sub 添加學(xué)生信息界面13圖 學(xué)生宿舍添加界面圖 學(xué)生宿舍刪除界面其主要代碼如下：Private Sub Command1_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=xueshengsushe。Data Source=XS0714 = select * from 學(xué)生住宿表 where 學(xué)號=39。 + + 39。 If = Or = Or = Or = Then MsgBox 輸入不完整。, , 提示信息 ElseIf = 0 Then = select * from 學(xué)生宿舍表 where 學(xué)號= + + (學(xué)號) = (姓名) = (專業(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=學(xué)生宿舍。Data Source=XS07 = select * from 學(xué)生住宿表 where 學(xué)號=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=學(xué)生宿舍。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 無修改目標(biāo), 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 員工姓名存在相關(guān)記錄，不允許更新或刪除。, 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參 考 文 獻(xiàn)[1]鄭阿奇. SQL SERVER 實(shí)用教程[M].北京:.[2]陳偉. SQL SERVER 2022 數(shù)據(jù)庫應(yīng)用與開發(fā)教程[M].北京：清華大學(xué)出版社.2022.18[3]劉衛(wèi)國．?dāng)?shù)據(jù)庫技術(shù)與應(yīng)用實(shí)踐教程[M].北京:.[4]周峰. SQL SERVER 2022 經(jīng)典案例設(shè)計(jì)與實(shí)現(xiàn)[M].北京:.[5] Basic+SQL SERVER中小型信息系統(tǒng)[M].北京:.
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1