【正文】 Next Index = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數(shù)據(jù)!) Else MsgBox (成功更新數(shù)據(jù)!) End If Call LoadData 39。定位到添加或修改記錄 If 0 Then (學(xué)號(hào)=39。 Trim(txtItem(0).Text) amp。) If Not Then Call showdata 39。修改操作 = 入學(xué)時(shí)間正確格式為XXXX X X If 0 Then 39。設(shè)置標(biāo)志flag flag = Modify 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = True: = True = False: = False: = False Else MsgBox (沒有可以修改的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdDelete_Click()39。重新裝載數(shù)據(jù) 39。所有移動(dòng)控件不可用 If = 0 Then For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index End If 39。 amp。 39。 amp。 39。取消操作 Call showdata 39。修改、刪除、添加按鈕可用,保存和取消按鈕不可用 = True: = True: = True = False: = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueUnload MeEnd SubPrivate Sub cmdexit_click() = TrueUnload MeEnd SubE宿舍信息表：Dim rs As New Dim SQL As StringDim SQLS As StringDim msg As StringDim Index As IntegerDim flag As String 39。裝載數(shù)據(jù)Set rs = NothingSQL = select *from 宿舍信息表 order by 宿舍號(hào)Set rs = SelectSQL(SQL) Set = rs End SubPrivate Function Checkdata() As Boolean39。檢查數(shù)據(jù)非空 If Trim(txtItem(0).Text) = Then msgt = 宿舍號(hào)不能為空 End If If Trim(txtItem(1).Text) = Then msgt = msgt amp。 已分配不能為空 End If If Not msgt = Then MsgBox (msgt) Checkdata = False Exit Function End If SQL = select *from 宿舍信息表 where 宿舍號(hào)=39。 Trim(txtItem(0).Text) amp。 Set rsts = SelectSQL(SQL) 39。合法End FunctionPrivate Sub showdata()39。移動(dòng)記錄 Select Case Index Case Is = 0 39。移到上一條記錄 If 0 Then If = False Then If = True Then End If Case Is = 2 39。移到最后一條記錄 If 0 Then If Not = True Then End If End Select If 0 Then Call showdata 39。按鈕可用性 = True: = True: = True = False: = False Else 39。清空文本框，文本框可用2 For Index = 0 To 2 txtItem(Index).Text = txtItem(Index).Enabled = True Next Index 39。所有移動(dòng)按鈕不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index 39。如果數(shù)據(jù)不合法就退出 If flag = Modify Then 39。如果是添加新數(shù)據(jù) For Index = 0 To 2 If txtItem(Index).Text Then (Index) = txtItem(Index).Text End If Next Index End If 39。移動(dòng)控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index = True: = True: = True = False: = False If flag = Add Then MsgBox (成功添加數(shù)據(jù)!) Else MsgBox (成功更新數(shù)據(jù)!) End If Call LoadData 39。定位到添加或修改記錄 If 0 Then (宿舍號(hào)=39。 Trim(txtItem(0).Text) amp。) If Not Then Call showdata 39。修改操作2 If 0 Then 39。設(shè)置標(biāo)志flag flag = Modify 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = True: = True = False: = False: = False Else MsgBox (沒有可以修改的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdDelete_Click()39。重新裝載數(shù)據(jù) 39。所有移動(dòng)控件不可用 If = 0 Then For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index End If 39。取消操作 Call showdata 39。修改、刪除、添加按鈕可用,保存和取消按鈕不可用 = True: = True: = True = False: = FalseEnd SubPrivate Function SuSheDelete()Dim rsFenPei As New SQL = select * from 宿舍分配表 where 宿舍號(hào)=39。 (宿舍號(hào)) amp。Set rsFenPei = SelectSQL(SQL)If 0 Then39。用來存放是,修改(add),添加(modify)操作Dim flagSuShe As Boolean 39。宿舍信息表中存在將要存的文本框數(shù)據(jù)時(shí),flagCunZai=trueDim XueHaoValue As String 39。用來存放修改前,當(dāng)前修改記錄的宿舍號(hào),用它在checkdata()函數(shù)中與文本框值比較Dim msg As String 39。裝載數(shù)據(jù)Set rs = NothingSQL = select *from 宿舍分配表 order by 學(xué)號(hào)Set rs = SelectSQL(SQL)Call XingMingdata Set = rs End SubPrivate Function showdata()If 0 And = False ThenFor Index = 0 To 1If (Index) ThentxtItem(Index).Text = (Index)Else: txtItem(Index).Text = End IftxtItem(Index).Enabled = FalseNext IndexEnd IfCall XingMingdataEnd FunctionPrivate Function Checkdata() As BooleanDim rsSuShe As New Dim rsXueSheng As New Dim rsLinShi As New SQL = select * from 宿舍信息表 where 宿舍號(hào)=39。 Trim(txtItem(1).Text) amp。Set rsSuShe = SelectSQL(SQL)SQL = select 姓名 from 學(xué)生信息表 where 學(xué)號(hào)=39。 Trim(txtItem(0).Text) amp。Set rsXueSheng = SelectSQL(SQL)If txtItem(0) = Or txtItem(1) = ThenMsgBox 學(xué)號(hào)和宿舍號(hào)都不能為空flagCunZai = FalseCheckdata = FalseEnd IfIf = 0 And = 0 Thenmsg = MsgBox(不存在此學(xué)生,也不存在此宿舍,請(qǐng)檢查輸入是否有誤 , vbYesNo)If msg = vbYes ThentxtItem(0).Text = txtItem(1).Text = End IfCheckdata = FalseflagCunZai = FalseExit FunctionElseIf =