【導讀】好的信息交流方面作用越來越多。目前，隨著單位職工人員流動量的。對供需雙方進行交流提供非常有效的服務。每一部分都包括招聘者信。息和求職者信息以及招聘信息和求職信息的查詢功能。Access2020作為后臺數(shù)據(jù)庫。VisualBasic，它是由美國微軟公司。系統(tǒng)的操作對人員的素質(zhì)的要求不高，只需對他們稍加培。我作為一個計算機信息管理專業(yè)的大學生，希望能有所貢獻。問題是否能夠解決。現(xiàn)在，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。深入的調(diào)查研究。法律相抵觸的方面。系統(tǒng)主窗體主要由菜單欄、工具欄和主界面組成。工具欄上有10個按鈕，分別是。單擊這10個按鈕分別對應相應。按鈕，即可將此學生與教師信息搭配，從而完成一對信息的組合。選擇“軟件信息查詢”分支節(jié)點，此時打開軟件信息查詢模塊。

　　

【正文】 o .Cols 1 .ColWidth(i) = 1300 Next i 39。下面設置表頭 .Row = 0 .Col = 0 .Text = 學生編號 .Col = 1 .Text = 學生姓名 .Col = 2 .Text = 希望輔導科目 If Not Then End If While Not .Row = .Row + 1 .Col = 0 .Text = (0) .Col = 1 .Text = (1) .Col = 2 .Text = (2) Wend End With End Sub 實現(xiàn)配置按鈕功能 在教師信息管理模塊中，如果在表格中選定某條尚未 找到教師的學生，然后單擊“ ==”按鈕，即可將當前的教師信息和選定的學 ３１ 生信息進行搭配。如果當前教師已經(jīng)找到學生，則給出顯示。具體的代碼實現(xiàn)如下： Private Sub cmdjiaoshi_Click() 39。為學生找教師 (4).Enabled = True (5).Enabled = True If numstu = Then MsgBox 請選擇學生編號！ , vbOKOnly Exit Sub End If If (15) = 未找到學生 Then txtstuqiu(18) = numstu txtstuqiu(15) = 已找到學生 txtstuqiu(16).Enabled = True txtstuqiu(17).Enabled = True MsgBox 要保存信息請單擊【保存】按鈕，放棄請單擊【取消】按鈕 , vbOKOnly End If If (15) = 已找到學生 Then MsgBox 該教師已找到學生！ , vbOKOnly Exit Sub End If savestate = 3 End Sub 實現(xiàn)教師信息查詢功能 教師信息查詢模塊只有一個“查詢”按鈕需要填寫代碼。當單擊了“查詢”按鈕后，首先設定表格（包括表頭、行寬、列高等），然后判斷當臆的查詢方式，一次檢查幾個 Option 控件的 Value 屬性是否為 True，如果為 True 則表示選定了當前的查詢方式，接著使用 where語句限定查詢的條件。 首先設定表格顯示的表頭信息，具體的代碼如下： Private Sub cmdjiaoshifind_Click() 39。查找教師信息 Dim rs_jiaoshifind As New Dim sql As String Dim i As Integer With gridjiaoshifind 39。設置表格 ３２ .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = 2 .Cols = 21 .SelectionMode = flexSelectionByRow For i = 0 To .Rows 1 .RowHeight(i) = 315 Next For i = 0 To .Cols 1 .ColWidth(i) = 1300 Next i 39。下面設置表頭 .Row = 0 .Col = 0 .Text = 教師編號 .Col = 1 .Text = 教師姓名 .Col = 2 .Text = 性別 .Col = 3 .Text = 年齡 .Col = 4 .Text = 籍貫 .Col = 5 .Text = 學校 .Col = 6 .Text = 專業(yè) .Col = 7 .Text = 年級 .Col = 8 .Text = 職務 .Col = 9 .Text = 高考成績 .Col = 10 .Text = 特 長 .Col = 11 .Text = 愛好 .Col = 12 .Text = 聯(lián)系電話 .Col = 13 .Text = 身份證號碼 .Col = 14 .Text = 通信地址 .Col = 15 ３３ .Text = 當前狀態(tài) .Col = 16 .Text = 受理人 .Col = 17 .Text = 受理費用 .Col = 18 .Text = 學生編號 .Col = 19 .Text = 出生日期 .Col = 20 .Text = 登記日期 End With 39。查詢?nèi)啃畔? If = True Then sql = select * from 教師信息 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = 0 = + 2 If Not Then 39。如果數(shù)據(jù)庫非空 Do While Not = + 1 For i = 0 To 20 = i If Not IsNull((i)) Then = (i) Else = End If Next i Loop End If End If 39。查詢已找到學生的教師 If = True Then sql = select * from 教師信息 where 當前狀態(tài) = 39。已找到學生 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = 0 = + 2 If Not Then ３４ Do While Not = + 1 For i = 0 To 20 = i If Not IsNull((i)) Then = (i) Else = End If Next i Loop End If End If 39。查詢未找到學生的教師 If = True Then sql = select * from 教師信息 where 當前狀態(tài) = 39。未找到學生 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = 0 = + 2 If Not Then Do While Not = + 1 For i = 0 To 20 = i If Not IsNull((i)) Then = (i) Else = End If Next i Loop End If End If 39。按找學校查詢教師信息 If = True Then sql = select * from 教師信息 where 學校 = 39。 amp。 amp。 39。 = adUseClient ３５ sql, conn, adOpenKeyset, adLockPessimistic = 0 = + 2 If Not Then Do While Not = + 1 For i = 0 To 20 = i If Not IsNull((i)) Then = (i) Else = End If Next i Loop End If End If 39。按照專業(yè)查詢教師 If = True Then sql = select * from 教師信息 where 專業(yè) = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = 0 = + 2 If Not Then Do While Not = + 1 For i = 0 To 20 = i If Not IsNull((i)) Then = (i) Else = End If Next i Loop End If End If ３６ End Sub 第五章 實現(xiàn)學生信息管理模塊 實現(xiàn)顯示學生信息功能 打開學生信息管理模塊后， 首先調(diào)用 viewxueshengbiao 過程顯示教師信息。 viewxueshengbiao 過程分為兩部分，一部分用來在文本框中顯示每一條學生信息，另外一部分用來在表格中顯示目前沒有找到教師的學生信息。 39。學生信息顯示數(shù)據(jù)用 Public Sub viewxueshengbiao() Dim i As Integer For i = 0 To 18 If Not IsNull((i)) Then txtxuesheng(i).Text = (i) txtxuesheng(i).Enabled = False Else txtxuesheng(i).Text = End If Next i If Not IsNull((19)) Then = (19) End If 39。顯 示表格中的學生信息 Dim rs_stu As New Dim sql As String sql = select 教師編號 ,教師姓名 ,專業(yè) from 教師信息 where 當前狀態(tài) = 39。未找到學生 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic With MSHFlexGrid2 .ScrollBars = flexScrollBarBoth .FixedCols = 1 .Rows = + 1 .Cols = 3 .SelectionMode = flexSelectionByRow ３７ For i = 0 To .Rows 1 .RowHeight(i) = 315 Next For i = 0 To .Cols