學(xué)生社團(tuán)信息管理系統(tǒng)設(shè)計(文件)
【正文】 ue = Trim() (usertel).Value = Trim() MsgBox 注冊成功！ = adCmdTable = sa (ST_ID).Value = Trim() (userID).Value = Trim() MsgBox 社員添加成功！ End If 圖 43 添加社員 西安文理學(xué)院計算機(jī)科學(xué)系 課程設(shè)計報告 16 修改記錄 管理員可以修改社團(tuán)活動，通過程序可以對數(shù)據(jù)庫里的表實(shí)現(xiàn)增刪改查，具體修改社團(tuán)代碼如下，修改圖如圖 44所示。 39。 Trim() amp。在本次系統(tǒng)整個開發(fā)之處，由于進(jìn)行了初期的需求分析和可行性研究，以及后來的總體設(shè)計和數(shù)據(jù)庫設(shè)計，因此開發(fā)過程相對來說還是比較順利的。 西安文理學(xué)院計算機(jī)科學(xué)系 課程設(shè)計報告 19 西安文理學(xué)院計算機(jī)科學(xué)系 課程設(shè)計報告 20 參考文獻(xiàn) [1] 王珊 ， 薩師煊 . 數(shù)據(jù)庫系統(tǒng)概論 .[M]. 北京：機(jī)械工業(yè)出版社， 2021. [2] 李世杰 . VB 程序設(shè)計案例匯編 .[M]. 北京：清華大學(xué)出版社， 2021. [3] 周中雨 .信息管理系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .[M].北京：人民郵電出 版社， 2021. 。由于時間比較倉促，加上本人軟件設(shè)計經(jīng)驗的不足，因此，在分析問題、解決問題時顯得不夠嚴(yán)密、完善，還需要在以后的學(xué)習(xí)中不斷地改進(jìn)和完善。 Dim I As Integer For I = 1 To Next I MsgBox 刪除成功 圖 45 刪除社團(tuán) 西安文理學(xué)院計算機(jī)科學(xué)系 課程設(shè)計報告 18 總 結(jié) 經(jīng)過兩個星期的構(gòu)思與設(shè)計，在知道老師的精心直到下，同學(xué)的幫助下，本系統(tǒng)已經(jīng)設(shè)計完畢。 = select * from Shetuan where ST_NAME=39。 amp。 39。 39。 39。 If 0 Then If (0) Then MsgBox 密碼錯誤，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = Else s = MsgBox 登錄成功！ , vbOKOnly + vbExclamation, 成功 If (5) Then Unload Me Else Unload Me End If End If Else MsgBox 用戶不存在 , vbOKOnly + vbExclamation, 警告 = 西安文理學(xué)院計算機(jī)科學(xué)系 課程設(shè)計報告 12 = End If 圖 41 登錄時程序可能出現(xiàn)的結(jié)果 查尋結(jié)果 通過用戶輸入的值在具體的表中找出相應(yīng)的結(jié)果并輸出，以供用戶查看具體代碼如下，圖 42為當(dāng)在文本框中輸入王文鵬后的查詢結(jié)果。 = s1 = select * from admin where username=39。其中在社團(tuán)管理中管理員可以查看社團(tuán)信息，添加新社團(tuán)，修改社團(tuán)信息，和刪除社團(tuán)，在社員管理中管理員可以查看社團(tuán)社員信息，給社團(tuán)添加新社員
公司管理相關(guān)推薦
鄂ICP備17016276號-1