【導(dǎo)讀】隨著學(xué)校規(guī)模的不斷擴(kuò)大，院系的不斷增設(shè)，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種檔案信息也成倍增多。面對大量的信息，學(xué)校特別需。詢信息和進(jìn)行科學(xué)統(tǒng)計(jì)，減少管理方面的工作量和成本。本文的研究路線如下圖所示。用是在計(jì)算機(jī)發(fā)明以后的50年代末。及企業(yè)管理領(lǐng)域的“人－機(jī)系統(tǒng)”。域網(wǎng)和廣域網(wǎng)管理信息系統(tǒng)。隨著世界經(jīng)濟(jì)和我國經(jīng)濟(jì)逐步向知識(shí)經(jīng)。務(wù)對象，自身的系統(tǒng)結(jié)構(gòu)，處理能力，都有了進(jìn)一步的發(fā)展。

　　

【正文】 ring msgt = 39。檢查數(shù)據(jù)非空 If Trim(txtItem(0).Text) = Then msgt = 院代碼為空； ElseIf Not Len(Trim(txtItem(0).Text)) = 2 Then msgt = 院代碼不是 2 位； End If If Trim(txtItem(1).Text) = Then msgt = msgt amp。 院名稱為空； End If If Not msgt = Then MsgBox (msgt) 第 26 頁 共 37 頁 CheckData = False Exit Function End If 39。檢查唯一性 Set rst = ( select * from 院信息表 where 院代碼 =39。 amp。 Trim(txtItem(0).Text) amp。 39。) If flag = Add And 0 Then MsgBox (該院的信息已經(jīng)存在，重復(fù)添加 !) CheckData = False Exit Function End If CheckData = True 39。合法 End Function Private Sub ShowData() 39。在文本框中顯示數(shù)據(jù) If 0 And = False Then For Index = 0 To 6 If (Index) Then txtItem(Index).Text = (Index) Else txtItem(Index).Text = End If txtItem(Index).Enabled = False Next Index If IsDate(Trim(txtItem(4).Text)) Then = Trim(txtItem(4).Text) 39。時(shí)間控件 End If End If End Sub Private Sub LoadData() 39。裝載數(shù)據(jù) Set rs = Nothing Set rs = (select * from 院信息表 order by 院代碼 ) Set = rs End Sub Private Sub CmdMove_Click(Index As Integer) 39。移動(dòng)記錄 Select Case Index Case Is = 0 39。移到第一條記錄 If Not Then Case Is = 1 39。移到上一條記錄 If 0 Then If = False Then If = True Then End If Case Is = 2 39。移到下一條記錄 第 27 頁 共 37 頁 If 0 Then If = False Then If = True Then End If Case Is = 3 39。移到最后一條記錄 If 0 Then If Not = True Then End If End Select If 0 Then Call ShowData 39。在文本框中顯示數(shù)據(jù) 39。按鈕可用性 = True: = True: = True = False: = False Else 39。按鈕可用性 = True: = False: = False = False: = False End If End Sub Private Sub CmdAdd_Click() 39。清空文本框，文本框可用 For Index = 0 To 6 txtItem(Index).Text = txtItem(Index).Enabled = True Next Index 39。設(shè)置標(biāo)志 flag flag = Add 39。設(shè)置時(shí)間控件 txtItem(4).Text = 39。所有移動(dòng)按鈕不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = False: = False: = False = True: = True End Sub Private Sub CmdModify_Click() 39。修改操作 If 0 Then 39。文本框可用 ,院代碼不可以修改 For Index = 1 To 6 txtItem(Index).Enabled = True Next Index txtItem(0).Enabled = False 第 28 頁 共 37 頁 39。設(shè)置標(biāo)志 flag flag = Modify 39。移動(dòng)控件不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = True: = True = False: = False: = False Else MsgBox (沒有可以修改的數(shù)據(jù) !) End If End Sub Private Sub CmdDelete_Click() 39。刪除操作 On Error GoTo ErrMsg If 0 Then msg = MsgBox(刪除該條記錄嗎 ?, vbYesNo) If msg = vbYes Then Call LoadData 39。重新裝載數(shù)據(jù) 39。清空文本框、并不可用 For Index = 0 To 6 txtItem(Index).Text = txtItem(Index).Enabled = False Next Index 39。所有移動(dòng)控件不可用 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 Sub ErrMsg: MsgBox , vbExclamation, 出錯(cuò) End Sub Private Sub cmdCancel_Click() 39。取消操作 第 29 頁 共 37 頁 Call ShowData 39。所有移動(dòng)控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index 39。修改、刪除、添加按鈕可用 ,保存和取消按鈕不可用 = True: = True: = True = False: = False End Sub Private Sub CmdSave_Click() On Error GoTo ErrMsg If Not CheckData Then Exit Sub 39。如果數(shù)據(jù)不合法就退出 If flag = Modify Then 39。如果是修改數(shù)據(jù) msg = MsgBox(您確實(shí)要修改這條數(shù)據(jù)嗎 ?, vbYesNo) If msg = vbYes Then For Index = 0 To 6 If txtItem(Index).Text Then (Index) = txtItem(Index).Text txtItem(Index).Enabled = False Next Index Else Exit Sub End If ElseIf flag = Add Then 39。如果是添加新數(shù)據(jù) For Index = 0 To 6 If txtItem(Index).Text Then (Index) = txtItem(Index).Text Next Index End If 39。更新數(shù)據(jù) 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。重新裝載數(shù)據(jù) 39。定位到添加或修改記錄 If 0 Then 第 30 頁 共 37 頁 (院代碼 =39。 amp。 Trim(txtItem(0).Text) amp。 39。) If Not Then Call ShowData 39。重新裝載數(shù)據(jù) End If Exit Sub ErrMsg: MsgBox , vbExclamation, 出錯(cuò) End Sub Private Sub DTPicker1_CloseUp() 39。得到日期 txtItem(4).Text = End Sub Private Sub CmdExit_Click() 39。退出操作 學(xué)生檔案管理 .Enabled = True Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) 39。退出操作 學(xué)生檔案管理 .Enabled = True Unload Me End Sub 課程管理功能的“課程 查詢 ”菜單，出現(xiàn)如圖 所示界面。 圖 “課程查詢”功能界面 Dim SQL As String Dim msg As String Private Sub SelectData(Index As