【正文】 lse = False = True = TrueEnd SubPrivate Sub CmdCancel_Click()Call showdataFor Index = 0 To 3CmdMove(Index).Enabled = TrueNext Index = True = True = True = False = FalseEnd SubPrivate Sub cmdmodify_click()If 0 ThenFor Index = 0 To 1txtItem(Index).Enabled = TrueNext Indexflag = ModifyFor Index = 0 To 3CmdMove(Index).Enabled = FalseNext Index = True = True = False = False = FalseElseMsgBox (沒有可以修改的數(shù)據(jù)!)End IfEnd SubPrivate Sub cmdsave_click() 39。保存If Not Checkdata Then Exit SubDim rsSuShe As New Dim rsXueSheng As New Dim SuShe As String 39。原來宿舍號,就是修改之前,指向的宿舍號,在宿舍信息表中,找到,并已分配數(shù)減一SQL = select * from 宿舍信息表 where 宿舍號=39。 amp。 Trim(txtItem(1).Text) amp。 39。Set rsSuShe = SelectSQL(SQL)SQL = select 姓名 from 學(xué)生信息表 where 學(xué)號=39。 amp。 Trim(txtItem(0).Text) amp。 39。Set rsXueSheng = SelectSQL(SQL)39。SuShe = (1)If flag = Add And flagSuShe = True ThenFor Index = 0 To 1If txtItem(Index).Text Then(Index) = txtItem(Index).TexttxtItem(Index).Enabled = FalseEnd IfNext Index(姓名) = (姓名) 39。在加入學(xué)號和宿舍號的同時,從學(xué)生信息表中獲取此學(xué)生姓名,加入到宿舍分配表中(2) = (2) + 1ElseIf flag = Modify ThenSuShe = (1)If flagSuShe = True ThenFor Index = 0 To 1 If txtItem(Index).Text Then (Index) = txtItem(Index).Text txtItem(Index).Enabled = False End IfNext Index39。(姓名) = (姓名) 39。在加入學(xué)號和宿舍號的同時,從學(xué)生信息表中獲取此學(xué)生姓名,加入到宿舍分配表中(2) = (2) + 139。SQL = select * from 宿舍信息表 where 宿舍號=39。 amp。 SuShe amp。 39。Set rsSuShe = SelectSQL(SQL) (2) = (2) 1 ElseIf flagSuShe = False ThenFor Index = 0 To 1 If txtItem(Index).Text Then (Index) = txtItem(Index).Text txtItem(Index).Enabled = False End IfNext Index39。(姓名) = (姓名)39。在加入學(xué)號和宿舍號的同時,從學(xué)生信息表中獲取此學(xué)生姓名,加入到宿舍分配表中End IfEnd IfCall XingMingdataFor Index = 0 To 3CmdMove(Index).Enabled = TrueNext IndexCall LoadData = True = True = True = False = FalseIf flag = Add Then MsgBox (成功添加數(shù)據(jù)!) Else MsgBox (成功更新數(shù)據(jù)!) End If Call LoadDataIf 0 Then (學(xué)號=39。 amp。 Trim(txtItem(0).Text) amp。 39。)If Not Then Call showdata 39。重新裝載數(shù)據(jù)End IfEnd SubPrivate Function XingMingdata()Dim rsLinShi1 As New Dim rsLinShi2 As New SQL = select * from 宿舍分配表Set rsLinShi1 = SelectSQL(SQL)If 0 ThenIf Not ThenFor Index = 1 To SQL = select 姓名 from 學(xué)生信息表 where 學(xué)號=39。 amp。 (學(xué)號) amp。 39。Set rsLinShi2 = SelectSQL(SQL)(姓名) = (姓名)If Not Then39。ElseExit FunctionEnd IfNext IndexElseSQL = select 姓名 from 學(xué)生信息表 where 學(xué)號=39。 amp。 (學(xué)號) amp。 39。Set rsLinShi2 = SelectSQL(SQL)(姓名) = (姓名)Exit FunctionEnd IfEnd IfEnd FunctionPrivate Sub CmdDelete_Click()39。刪除操作Dim rsSuShe As New On Error GoTo ErrMsg If 0 Then SQL = select * from 宿舍信息表 where 宿舍號=39。 amp。 (1) amp。 39。Set rsSuShe = SelectSQL(SQL) msg = MsgBox(刪除該條記錄嗎?, vbYesNo) If msg = vbYes Then (2) = (2) 1 Call LoadData 39。重新裝載數(shù)據(jù) 39。清空文本框、并不可用 For Index = 0 To 1 txtItem(Index).Text = txtItem(Index).Enabled = False Next Index 39。所有移動控件不可用 If = 0 Then For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index End If 39。按鈕可用性處理 = True = False = True = False = False MsgBox (成功刪除的數(shù)據(jù)!) End If Else MsgBox (沒有可刪除的數(shù)據(jù)!) End If Exit SubErrMsg: MsgBox , vbExclamation, 出錯End SubPrivate Sub cmdexit_click() = TrueUnload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueUnload MeEnd SubH查詢：Dim rs As New Dim SQL As StringDim SQLS As StringDim msg As StringDim Index As IntegerDim flag As StringPrivate Sub Command1_Click()If And = ThenSQLS = select ,宿舍號,院名,入學(xué)時間 from 學(xué)生信息表,宿舍分配表 where = and =39。 amp。 Trim() amp。 39。 = ElseIf = And Then SQLS = select 宿舍號,院名,入學(xué)時間 from 學(xué)生信息表,宿舍分配表 where = and 宿舍號=39。 amp。 Trim() amp。 39。 = Else MsgBox (請輸入正確查詢條件?。?！) Exit Sub End If Set rs = SelectSQL(SQLS) Set = rs If 0 Then End If End SubPrivate Sub Command2_Click() = TrueUnload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd Sub(5)課程設(shè)計小結(jié)與建議通過一次完整的系統(tǒng)設(shè)計與實現(xiàn),發(fā)現(xiàn)了自己很多的不足,以及本團隊存在的問題1,對數(shù)據(jù)庫知識掌握的還不夠,原本很多在設(shè)計時候可以避免的問題,比如表與表之間的聯(lián)系和完整性約束等問題,沒有得到很好的利用.2,在規(guī)范化系統(tǒng)設(shè)計當(dāng)中,沒能按照軟件工程方法來做,比如在需求設(shè)計之后,數(shù)據(jù)庫結(jié)構(gòu)設(shè)計,功能模塊設(shè)計,等幾個階段存在一些問題,致使在編碼實現(xiàn)過程中遇到一些問題,.3,團隊精神并沒有很好的發(fā)揮,因為在統(tǒng)一認識方面,做的不夠,對一些模塊實現(xiàn)方法具有爭議,不過在大體框架上,小組個成員還是保持了一致.4,通過這次數(shù)據(jù)庫課程設(shè)計,逐漸懂得了人才是勝利的保證,不斷的修改代碼,不斷的請教同學(xué),不斷地上網(wǎng)找資料,翻閱相關(guān)書籍,一步一步實現(xiàn)要求的功能.5,測試方面,在沒做這個系統(tǒng)之前,并沒有預(yù)測到后來會出現(xiàn)這么多的bug,經(jīng)常出現(xiàn)數(shù)據(jù)有錯誤,不斷地完善,可是還是有小問題,不過,有志者事竟成,在修改了不曉得多少遍之后,不過這次經(jīng)驗,讓我們學(xué)會了很多.6,這段時間,一直在認真的做課程設(shè)計,也看到了同學(xué)們都在努力,這是讀了三年大學(xué),看到班級整體最認真的一次,也看到了老師的辛苦,在學(xué)習(xí)方面,.7,謝謝老師!謝謝所有的同學(xué)!謝謝我的隊友!謝謝所有人!