【正文】 r Applications)，使用 VBA 可以創(chuàng)建非常實用的數(shù)據(jù)庫應(yīng)用系統(tǒng)。 隨著 Inter 網(wǎng)絡(luò)應(yīng)用的發(fā)展， Access 還增加 了使用信息發(fā)布 Web 向?qū)Ш陀?HTML 格式導(dǎo)出對象的功能。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。一個更高級的連接形式稱為自連接。 4． 2數(shù)據(jù)庫需求分析 根據(jù)調(diào)查有關(guān)單位的教師考核管理的實際情況，分析得到如下的數(shù)據(jù)庫結(jié)構(gòu)。如下圖： Y N 開始 輸入登錄密碼 是否正確 主界面 第二步，選擇窗體或控件進行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面 : 此程序段中，“ IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則執(zhí)行 （隱藏當(dāng)前的窗體）和 （調(diào)出系統(tǒng)主界面），如果用戶名或密碼輸入錯誤，則提示： 使用戶重新輸入用戶名或密碼。 \教師考核 .mdb 此屬性的作用是保證 Data 控件與數(shù)據(jù)庫相連。 最后設(shè)置如下的代碼（只要單擊菜單即可設(shè)置各菜單代碼） 主要是通過 Show 方法調(diào)用相應(yīng)的窗體。 數(shù)據(jù)庫的連接方法同 ，主要代碼如下： 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。 \教師考核 .mdb。 \教師考核 .mdb。 \教師考核 .mdb。 5． 4教師任課管理模塊的實現(xiàn) 5． 4． 1 教師任課信息維護模塊的實現(xiàn) 流程圖： 運行界面： N Y 開始 增加刪除等操作 是否繼續(xù) 退出 實現(xiàn)過程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：標簽、文本框、命令按鈕、 DATA 等。 5． 4． 2 教師任課信息查詢模塊的實現(xiàn) 流程圖： N Y 開始 設(shè)置查詢條件查詢 是否繼續(xù) 退出 運行界面： 實現(xiàn)過程： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當(dāng)位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：命令按鈕、文本框、單選按鈕、表格等。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫程序。 的代碼為： Private Sub Command6_Click() Unload Me End Sub 對應(yīng)的字段 數(shù)據(jù)源 此窗體上用了 3個 Adodc 控件， Adodc1 用來連接教師考核收支表， Adodc2用來連接收入項目表， Adodc3 用來連接支出項目表。 amp。 amp。 amp。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。如果找不到要找數(shù)據(jù)，則提示退出。 N Y 開始 增加刪除項目 是否繼續(xù) 退出 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 界面的設(shè)計如下： 第一步將所需的控件放到表單的相應(yīng)位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然 后在表單的恰當(dāng)位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：標簽、文本框、命令按鈕、 DATA 等。 運行界面： 實現(xiàn)過程： 第一步，創(chuàng)建 DataEnvironment1，并新建一個連接 Connection1。 第七章 設(shè)計心得 經(jīng)過二個多月的設(shè)計和開發(fā)，教師考核管理系統(tǒng)基本開發(fā)完畢。 但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。s shoulder and looked at him cheekily. You may be a pain in the neck sometimes, but I39。t there. Susan relaxed, smiling at herself. The smile faded fast. She39。t in the movie. Billy was extrapolating. Everybody turned into a baby, and all humanity, without exception, conspired biologically to produce two perfect people named Adam and Eve, he supposed. Billy saw the war movies backwards then forwardsand then it was time to go out into his backyard to meet the flying saucer. Out he went, his blue and ivory feet crushing the wet salad of the lawn. He stopped, took a swig, of the dead champagne. It was like 7Up. He would not raise his eyes to the sky, though he knew there was a flying saucer from Tralfamadore up there. He would see it soon enough, inside and out, and he would see, too, where it came from soon enoughsoon enough. Overhead he heard the cry of what might have been a melodious owl, but it wasn39。s brain start working again. There were two peepholes inside the airlockwith yellow eyes pressed to them. There was a speaker on the wall. The Tralfamadorians had no voice boxes. They municated telepathicary. They were able to talk to Billy by means of a puter and a sort of electric an which made every Earthling speech sound. 39。 Billy licked his lips, thought a while, inquired at last: 39。Yes.39。s atmosphere now, put him to sleep. They carded him to a cabin where he was strapped to a yellow BarcaLounger which they had stolen from a Sears amp。t on the flying saucer. He was in a boxcar crossing Germany again. Some people were rising from the floor of the car, and others were lying down. Billy planned to He down, too. It would be lov ely to sleep. It was black in the car, and black outside the car, which seemed to be about two miles an hour. The car never seemed to go any faster than that. It was a long time between clicks, between joints in the track. There would be a click, and then a year would go by, and then there would be another click The train often stopped to let really important trains bawl and hurtle by. Another thing it did was stop on sidings near pris ons, leaving a few cars there. It was creeping across all of Germany, growing shorter all the time. And Billy let himself down oh so gradually now, hanging onto the diagonal crossbrace in the er in order to make himself seem nearly weightless to those he was joining on the floor. He knew it was important that he made himself nearly ghostlike when lying down. He had fotten why, but a reminder soon came. 39。 Billy didn39。That is you, isn39。s you, all right. Get the hell out of here.39。Shut up,39。 So Billy stood up again, clung to the crossbrace. 39。 39。 39。 39。 And now there was an acrimonious madrigal, with parts sung in all quarters of the car. Nearly everybody seemingly, had an atrocity story of something Billy Pilgrim had done to him in his sleep. Everybody told Billy Pilgrim to keep the hell away. So Billy Pilgrim had to sleep standing up, or not sleep at all. And food had stopped ing in through the ventilators, and the days and nights were colder all the time. On the eighth day, the fortyyearold hobo said to Billy, 39。You can?39。 There was something about death and the ninth day. There was a death on the ninth day in the car ahead of Billy3