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

　　

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