【正文】 信息聯(lián)系。 是一個(gè)本地和遠(yuǎn)程數(shù)據(jù)訪問(wèn)、遠(yuǎn)程和斷開(kāi)連接的記錄集、用戶可以訪問(wèn)的數(shù)據(jù)綁定接口以及層次化的記錄集的通用接口。 在 中包含了數(shù)據(jù)綁定、可視化設(shè)計(jì)工具以及 OLE DB 數(shù)據(jù)源書(shū)寫(xiě)模板等新的內(nèi)容。 ADO 對(duì)象模型中包含了 3 個(gè)一般用途的對(duì)象： Connection、Command 和 Recordset。使用 Visual Basic 的類模塊也可以很方便的創(chuàng)建子集的數(shù)據(jù) 提供者。 添加新的記錄，或者根據(jù)對(duì)顯示在綁定的控件中的數(shù)據(jù)的任何更改來(lái)更新一個(gè)數(shù)據(jù)庫(kù)。例如， ODBC 驅(qū)動(dòng)程序允許該字符串包含驅(qū)動(dòng)程序、提供者、默認(rèn)的數(shù)據(jù)庫(kù)、服務(wù)器、用戶名稱以及密碼等。保存用戶選擇的菜單 Public LoginSucceeded As Boolean 39。查找權(quán)限 Set rst = (select 權(quán)限 from 用戶信息表 where 用戶ID=39。) If 0 Then rights = Trim((0)) Else MsgBox (沒(méi)有用戶信息！ ) Exit Sub End If 39。調(diào)入學(xué)生注冊(cè) Case 6: Call 基本信息 _Click 39。調(diào)入用戶管理 Case 14: Call 重新登錄 _Click 39。裝載數(shù)據(jù) If 0 Then Call ShowData 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。 Trim(txtItem(0).Text) amp。在文本框中顯示數(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。移到第一條記錄 If Not Then Case Is = 1 39。在文本框中顯示數(shù)據(jù) 39。設(shè)置標(biāo)志 flag flag = Add 39。修改操作 If 0 Then 39。添加、修改、刪除按鈕不可用，取消、保存按鈕可用 = True: = True = False: = False: = False Else MsgBox (沒(méi)有可以修改的數(shù)據(jù) !) End If End Sub Private Sub CmdDelete_Click() 39。所有移動(dòng)控件不可用 If = 0 Then For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index End If 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ù) 39。 amp。重新裝載數(shù)據(jù) End If Exit Sub ErrMsg: MsgBox , vbExclamation, 出錯(cuò) End Sub Private Sub DTPicker1_CloseUp() 39。 圖 “課程查詢”功能界面 Dim SQL As String Dim msg As String Private Sub SelectData(Index As I。退出操作 學(xué)生檔案管理 .Enabled = True Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) 39。 39。重新裝載數(shù)據(jù) 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。取消操作 第 29 頁(yè) 共 37 頁(yè) Call ShowData 39。重新裝載數(shù)據(jù) 39。設(shè)置標(biāo)志 flag flag = Modify 39。所有移動(dòng)按鈕不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index 39。按鈕可用性 = True: = False: = False = False: = False End If End Sub Private Sub CmdAdd_Click() 39。移到下一條記錄 第 27 頁(yè) 共 37 頁(yè) If 0 Then If = False Then If = True Then End If Case Is = 3 39。裝載數(shù)據(jù) Set rs = Nothing Set rs = (select * from 院信息表 order by 院代碼 ) Set = rs End Sub Private Sub CmdMove_Click(Index As Integer) 39。) If flag = Add And 0 Then MsgBox (該院的信息已經(jīng)存在，重復(fù)添加 !) CheckData = False Exit Function End If CheckData = True 39。檢查唯一性 Set rst = ( select * from 院信息表 where 院代碼 =39?？丶捎眯? = True: = True: = True = False: = False End Sub Private Function CheckData() As Boolean 39。 第 25 頁(yè) 共 37 頁(yè) 圖 “ 院設(shè)置 ”功能界面 Dim rs As Dim SQL As String Dim msg As String Dim Index As Integer Dim flag As String 39。調(diào)入新增課程 Case 10: Call 成績(jī)錄入 _Click 39。 UserID (3).Text = Now End Sub Private Sub 院設(shè)置 _Click() A 院設(shè)置 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 系設(shè)置 _Click() A 系設(shè)置 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 班級(jí)設(shè)置 _Click() A 班級(jí)設(shè)置 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 學(xué)生注冊(cè) _Click() MenuIndex = 0 B 學(xué)期注冊(cè) .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 基本信息 _Click() MenuIndex = 2 B 基本信息 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 家庭成員信息 _Click() MenuIndex = 3 第 23 頁(yè) 共 37 頁(yè) B 家庭成員信息 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 學(xué)籍異動(dòng) _Click() MenuIndex = 4 B 學(xué)籍異動(dòng) .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 學(xué)籍報(bào)告 _Click() MenuIndex = 5 B 學(xué)籍報(bào)告 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 課程查詢 _Click() C 課程查詢 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 課程分配 _Click() C 課程分配 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 新增課程 _Click() C 新增課程 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 成績(jī)錄入 _Click() D 成績(jī)錄入 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 成績(jī)?cè)u(píng)審 _Click() D 成績(jī)?cè)u(píng)審 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 成績(jī)單生成 _Click() D 成績(jī)單生成 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 獎(jiǎng)懲錄入 _Click() MenuIndex = 1 E 獎(jiǎng)懲錄入 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 獎(jiǎng)懲查詢 _Click() MenuIndex = 0 E 獎(jiǎng)懲查詢 .Show 學(xué)生檔案管理 .Enabled = False 第 24 頁(yè) 共 37 頁(yè) End Sub Private Sub 獎(jiǎng)懲單生成 _Click() MenuIndex = 2 E 獎(jiǎng)懲單生成 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 用戶管理 _Click() G 用戶管理 .Show 學(xué)生檔案管理 .Enabled = False End Sub Private Sub 密碼維護(hù) _Click() G 密碼維護(hù) .Show