【正文】 re gonna grab us! Bill, start the engine sequence, stop the carousel, get ready to move. But it39。s shadow fall across the part of the ring nearest them, cutting it like a razor. Sunset lasted fifteen seconds. The colors were deep and changed rapidly, pure reds and yellows and blueblacks like those seen from an airliner in the stratosphere. There was a soft chorus of sighs in the cabin. The glass depolarized and everyone gasped again as the rings grew brighter, br acketing the deep blue glow that outlined the northern hemi sphere. Gray striations became visible on the plaary surface, illuminated by ringlight. Down there were storms as big as the Earth. When she looked away at last, Cirocco saw the screen to her left. Gaby was still in SCIMOD. There was an image of Saturn on the screen above her head, but she didn39。 C. bones manding. We have arrived in Saturn orbit at hours, U niversal Time. I39。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計(jì)的方法。 JET 數(shù)據(jù)引擎、 ADO 數(shù)據(jù)引擎。 主要 代碼如下： Private Sub Command1_Click() If Trim() = Trim() Then If Trim() = Trim() Then = MsgBox 密碼修改成功！ = = = Else MsgBox (新密碼與確認(rèn)密碼不符！ ) = = End If Else MsgBox 原密碼錯(cuò)誤！ = End If End Sub Private Sub Command2_Click() End Sub 5． 9打印 管理模塊的實(shí)現(xiàn) 以教師基本信息打印為例。 5． 8密碼管理模塊的實(shí)現(xiàn) 界面如下圖： 數(shù)據(jù)庫(kù)的連接方法同上。 1．流程圖： 2．運(yùn)行界面： N Y 開(kāi)始 增加刪除項(xiàng)目 是否繼續(xù) 退出 3．實(shí)現(xiàn)過(guò)程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到表單上 ,如 上 圖： 包括的控件主要有：標(biāo)簽、文本框、命令按鈕、 DATA 等。 支出為： amp。如果找不到要找數(shù)據(jù)，則提示退出。 Trim() amp。 d2 amp。 d1 amp。 d2 amp。 d1 amp。 d2 amp。 d1 amp。 第二步，選擇窗體或控件進(jìn)行屬性設(shè)置， 先選取中需要設(shè)置屬性的對(duì)象 ，然后 在屬性窗口里顯示了該控件對(duì)象的所有屬性、事件和方法。 amp。 amp。 amp。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過(guò)程中編寫(xiě)代 碼： 的代碼為： Private Sub Command1_Click() = False = False = False = True = True = True = True = True = True = True = True 對(duì)應(yīng)的字段 數(shù)據(jù)源 End Sub 的代碼為： Private Sub Command2_Click() If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？ ， vbYesNo， 確認(rèn)窗口 ) = vbYes Then = False = False = False = True = False If Then End If End If End Sub 的代碼為： Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True = True = True = True End Sub 的代碼為： Private Sub Command4_Click() = False = False = False = False = False = False = False = True = True = True = False = False End Sub 的代碼為： Private Sub Command5_Click() = False = False = False = False = False = False = False = True = True = True = False = False End Sub 的代碼為： Private Sub Command6_Click() Unload Me End Sub 單選按鈕組的代碼為 ： Private Sub Option1_Click(index As Integer) If index = 0 Then = True = False = Else = True = False = End If End Sub 此窗體上用了 3個(gè) Adodc 控件， Adodc1 用來(lái)連接教師考核收支表， Adodc2用來(lái)連接收入項(xiàng)目表， Adodc3 用來(lái)連接支出項(xiàng)目表。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過(guò)程中編寫(xiě)程序。 第二步，選擇窗體或控件進(jìn)行屬性設(shè)置， 先選取中需要設(shè)置屬性的對(duì)象 ，然后 在屬性窗口里顯示了該控件對(duì)象的所有屬性、事件和方法。 amp。 amp。 amp。 5． 4． 2 教師任課信息查詢(xún)模塊的實(shí)現(xiàn) 流程圖： 運(yùn)行界面： 實(shí)現(xiàn)過(guò)程： N Y 開(kāi)始 設(shè)置查詢(xún)條件查詢(xún) 是否繼續(xù) 退出 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到表單上 ,如 上 圖： 包括的控件主要有：命令按鈕、文本框、單選按鈕、表格等。 = SQL If Then MsgBox 沒(méi)有該系別的教師情況！ , , 提示 = select * from 教師基本情況 End If End If End Sub 5． 4教師任課管理模塊的實(shí)現(xiàn) 5． 4． 1 教師任課信息維護(hù)模塊的實(shí)現(xiàn) 流程圖： 運(yùn)行界面： 實(shí)現(xiàn)過(guò)程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對(duì)象添加到表單上 ,如 上 圖： N Y 開(kāi)始 增加刪除等操作 是否繼續(xù) 退出 包括的控件主要有：標(biāo)簽、文本框、命令按鈕、 DATA 等。 = SQL If Then MsgBox 沒(méi)有該教師的情況！ , , 提示 = select * from 教師基本情況 End If End If If Then SQL = select * from 教師基本情況 where 系別 = 39。 = SQL If Then MsgBox 沒(méi)有此編號(hào)的教師情況！ , , 提示 = select * from 教師基本情況 End If End If If Then SQL = select * from 教師基本情況 where 教師姓名 = 39。 “查詢(xún)”的主要代碼如下： Private Sub Command1_Click() N Y 開(kāi)始 設(shè)置查詢(xún)條件查詢(xún) 是否繼續(xù) 退出 If Then SQL = select * from 教師基本情況 where 教師編號(hào) = 39。 \教師考核 .mdb。 \教師考核 .mdb。 \教師考核 .mdb。 數(shù)據(jù)庫(kù)的連接方法同 ，主要代碼如 下： Private Sub Combo1_Click() Text1(1).Text = End Sub Private Sub Command1_Click() = False = False = False = True = True = True = True = True = True Text1(1).Text = For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Command2_Click() 增加記錄 If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？ , vbYesNo, 確認(rèn)窗口 ) = vbYes Then = False = False If Then End If End If End Sub Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Command4_Click() = False = False 刪除記錄 修改記錄 = False = False For i = 0 To 5 Text1(i).Enabled = False Next = True = True = True = False = False End Sub Private Sub Command5_Click() = False = False = False = False = True = True = True = False = False End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) 更新記錄 取消更新 Text1(3).Text = End Sub Private Sub DataCombo2_Click(Area As Integer) Text1(4).Text = End Sub Private Sub DataCombo3_Click(Area As Integer) Text1(5).Text = End Sub Private Sub Form_Load() 男 女 = amp。 最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼），部分代碼如下： Private Sub exit_Click() End End Sub Private Sub SRWF_Click()