【導讀】微型計算機的應用給人們的生活和管理工作帶來了前所未有的快捷。大大減輕了人們的負擔。院系情況等是當前各大院校教務管理的必然趨勢。應內(nèi)蒙古工業(yè)大學教務處的要求，我制作了“學生信息管理系統(tǒng)”。主要完成，學生信息，教師信息，課程信息，系信息的查詢，修改，添加等操作，同時該系統(tǒng)還包括學生選課模塊。凡能運行WIN98以上的環(huán)境，均能運行本系統(tǒng)。然后把此軟件安裝到E盤。設計”文件夾復制到E盤即可。統(tǒng)維護各項信息即可。1）先建立一個表單，然后建立十四個標簽框，十一個文本框，一個組合框，其他的標簽，文本框也是用來顯示所查班級的。2）在查詢按鈕中輸入相關的代碼。在查找過程中，利用條件語句判斷，從。系表中選擇和查詢依據(jù)文本框中一致的記錄。表格，2個按鈕。“教務員登錄”模塊的功能及設計步驟

　　

【正文】 if 查詢依據(jù) .text=課程編號 select 成績 .學號 ,學生 .姓名 ,成績 .課程編號 ,課程 .課程名稱 ,成績 .成績 。 from 學生信息 !學生 inner join 學生信息 !成績 。 inner join 學生信息 !課程 。 on 課程 .課程編號 =成績 .課程編號 。 on 學生 .學號 =成績 .學號 。 where 課程 .課程編號 = 值 .value。 order by 學生 .學號 。 into cursor tempcursor =tempcursor 學分 .value= endif endif （ 3）“退出”按鈕代碼如下： “教務信息維護”模塊 在本節(jié)將創(chuàng)建“教務信息維護”主菜單項中運行的各表單。 ? “教務員登錄”表單的創(chuàng)建 表單如圖 所示 圖 “教務員登錄”表單 天津大學 2021 屆成人本科畢業(yè)設計（論文） 44 該表單口令文本框的（ txt 口令）“ passwordchar”屬性設置為“ *”。 表單的相關代碼： 1）“登錄”按鈕 CLICK 代碼： uname= 注冊名 .value pwd= 口令 .value close tables all use e:\學生信息管理系統(tǒng) \教務員 .dbf set exact on dimension s(10) for i=1 to 10 step 1 s(i)= endfor select * from 教務員 where(教務員 .口令 ==pwd and 教務員 .注冊名==uname) into array s if s(1)= then messagebox(非法用戶登錄！ ,5+48,登錄出錯 ) else close tables all do form e:\學生信息管理系統(tǒng) \修改信息 .scx endif 2）“取消“按鈕的代碼： ? “修改信息”表單的創(chuàng)建 表單如圖 所示 天津大學 2021 屆成人本科畢業(yè)設計（論文） 45 表單的相關代碼： （ 1）“修改學生信息”按鈕的代碼 ： close all do form e:\學生信息管理系統(tǒng) \修改個人信息 .scx （ 2）“修改教師信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \修改教師信息 .scx （ 3）“修改班級信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \修改班級信息 .scx （ 4）“修改系信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \修改系信息 .scx （ 5）“修改課程信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \修改課程信息 .scx （ 6）“修改成績信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \修改成績信息 .scx （ 7）“修改教務員信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \修改個人信息 .scx （ 8）“修改學生信息”按鈕的代碼： close all do form e:\學生信息管理系統(tǒng) \學生注冊表管理 .scx （ 9）“退出”按鈕的代碼： close all 天津大學 2021 屆成人本科畢業(yè)設計（論文） 46 ? “修改個人信息”表單的創(chuàng)建 1）“工具”菜單 “向?qū)А? “表單”（步驟如圖 ） 圖 2)在“向?qū)нx取”對話框的列表框中選擇“表單向?qū)А保?然后點擊“確定”按鈕，如圖 所示 圖 3）在出現(xiàn)的“表單向?qū)А睂υ捒蛑羞x擇數(shù)據(jù)庫和表，如圖 所示 天津大學 2021 屆成人本科畢業(yè)設計（論文） 47 圖 4)在“表單向?qū)А睂υ捒蛑羞x擇需要的字段，然后點擊“下一步”，出現(xiàn)如圖 所示 圖 5)在“表單向?qū)А睂υ捒蛑械摹皹邮健绷斜砜蛑羞x擇“邊框式”，在按鈕類型單選按鈕中選擇“文本按鈕”，然后點擊“下一步”，出現(xiàn)圖 天津大學 2021 屆成人本科畢業(yè)設計（論文） 48 圖 6) 在圖 中“添加”一個字段進行排序，然后點擊“下一步”，出現(xiàn)如圖 圖 : 圖 7)在“請鍵入表單標題”下面的文本框中輸入表單的標題，然后在下面的單選按鈕中選擇“保存表單并用表單設計器修改表單”單選按鈕。然后點擊“完成”按鈕，這時會彈出“保存”對話框，在下邊的文件名文本框中輸入表單名，選好路徑，點擊“保存”后，進入菜單設計器，根據(jù)自己的愛好，對表單進行適當?shù)男薷摹＜韧瓿闪嗽摫韱蔚闹谱?。如圖 天津大學 2021 屆成人本科畢業(yè)設計（論文） 49 圖 ? “修改教師信息”表單，“修改班級信息”表單，“修改系 信息”表單，“修改課程信息”表單，“修改成績信息”表單，“修改教務員信息”表單，“學生注冊表管理”表單的制作。 以上七個表單的制作同“修改個人信息”表單的制作過程完全相同，在這里不再詳細介紹，這七個表單如下圖： 圖 天津大學 2021 屆成人本科畢業(yè)設計（論文） 50 圖 圖 圖 天津大學 2021 屆成人本科畢業(yè)設計（論文） 51 圖 圖 圖 天津大學 2021 屆成人本科畢業(yè)設計（論文） 52 “學生選課”模塊 在本節(jié)將創(chuàng)建“學生選課”主菜單項中運行的各表單，實現(xiàn)學生網(wǎng)上選課。 ? “學生 登錄表單 ” 的創(chuàng)建 表單如圖 所示 圖 該表單密碼文本框的（ txt 口令）“ passwordchar”屬性設置為“ *”。 表單的相關代碼： 1）“登錄”按鈕 CLICK 代碼： pwd= 密碼 .value uname= 用戶名 .value close tables all use e:\學生信息管理系統(tǒng) \學生登錄 .dbf select *。 from 學生登錄 where(學生登錄 .密碼 ==pwd and 學生登錄 .用 戶名==uname) into cursor tempsursor set exact on dimension s(10) for i=1 to 10 step 1 s(i)= endfor select * from 學生登錄 where(學生登錄 .密碼 ==pwd and 學生登錄 .用戶名 ==uname) into array s if s(1)= then messagebox(非法用戶登錄！如未注冊請先注冊后再登錄。 ) else 天津大學 2021 屆成人本科畢業(yè)設計（論文） 53 do form e:\學生信息管理系統(tǒng) \選課 .scx 選課 .txt 學號 .value= endif 2）“取消”按鈕的代碼： close all release all 3）“注冊”按鈕的代碼： do form e:\學生信息管理系統(tǒng) \學生注冊表單 .scx ? “學生注冊 ” 表單的創(chuàng)建 表單如圖 所示 圖 表單的相關代碼： 1）“確定”按鈕 CLICK 代碼： use e:\學生信息管理系統(tǒng) \學生 .dbf uname= 學號 .value pwd= 姓名 .value close tables all use e:\學生信息管理系統(tǒng) \學生 .dbf set exact on dimension s(10) for i=1 to 10 step 1 s(i)= endfor select * from 學生 where(學生 .學號 ==uname and 學生 .姓名 ==pwd) into array s 天津大學 2021 屆成人本科畢業(yè)設計（論文） 54 if s(1)= then messagebox(非法用戶，沒有注冊權！ （本校學生，才可注冊） ,5+48,注冊出錯) else close tables all use e:\學生信息管理系統(tǒng) \學生登錄 .dbf append blank replace 學生登錄 .用戶名 with alltrim( 用戶名 .value) replace 學生登錄 .密碼 with alltrim( 密碼 .value) replace 學生登錄 .學號 with alltrim( 學號 .value) messagebox(恭喜你成功注冊！ ) endif 2）“取消”按鈕的代碼： close all release all ? “選課 ” 表單的創(chuàng)建 表單如圖 所示 圖 天津大學 2021 屆成人本科畢業(yè)設計（論文） 55 表單的相關代碼： 1）“可選課程”按鈕 CLICK 代碼： do form e:\學生信息管理系統(tǒng) \可選課程 .scx 課程編號 2）“選課”按鈕的代碼： use use e:\學生信息管理系統(tǒng) \成績 .dbf if alltrim( 課程編號 )= messagebox(請輸入課程編號！ ) else locate for ( 學號 .value==成績 .學號 and 課程編號==成績 .課程編號 ) if eof() count for 成績 .課程編號 == 課程編號 to a a=a+1 if a 名額 .value messagebox(對不起，名額已滿，不能選該課程了。 ) else go bottom tempcursor=val(成績 .成績編號 ) append blank replace 成績 .成績編號 with alltrim(str(tempcursor+1)) replace 成績 .課程編號 with alltrim( 課程編號 ) replace 成績 .學號 with alltrim( 學號 .value) messagebox(選課成功?。。?) endif else messagebox(你已經(jīng)選過該課了。 ) endif endif 課程編號 use use e:\學生信息管理系統(tǒng) \課程 .dbf 3）“退出”按鈕的代碼： 天津大學 2021 屆成人本科畢業(yè)設計（論文） 56 use e:\學生信息管理系統(tǒng) \成績 .dbf exclusive if alltrim( 課程編號 )= messagebox(請輸入課程編號！ ) else locate for(成績 .學號 = 學號 .value and 成績 .課程編號 = 課程編號 ) if eof()