【正文】 要求，也沒有過分花哨的裝飾品，人性化的設(shè)計界面可以使操作者輕易運用自如 4 總體設(shè)計 設(shè)計目標 本系統(tǒng)可以能減少很多不必要的資源，不用象以前那樣用冗余的紙張式的管理。大節(jié)省 3 了學(xué)校能源。并且計算機的存儲與快速查詢功能大 大提高了學(xué)籍管理的效率，并且還提高了學(xué)籍信息管理的精確度。 方便快速的操作，可減少學(xué)籍信息管理的漏洞，又減少因工作的冗余出現(xiàn)的錯誤，并且操作非常簡單，可減少許多不很必要的人員，這無論從物質(zhì)上還是工作人員的工資上都為學(xué)校節(jié)約了開支。為學(xué)校增加了財富。 數(shù)據(jù)庫分析 用戶需求具體有學(xué)籍管理系統(tǒng)提供保存、更新、查詢、維護，這就需求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入與輸出，實現(xiàn)有組織地、動態(tài)地存儲大量關(guān)聯(lián)數(shù)據(jù)，方便用戶訪問系統(tǒng)中的數(shù)據(jù)，它與文件系統(tǒng)的重要區(qū)別是數(shù)據(jù)的充分共享，交叉訪問，與應(yīng)用程序的高度獨立性。 項目規(guī)劃 學(xué)生管理系統(tǒng)是各大中專院校不可缺少的一部分，是一個 VF 數(shù)據(jù)庫開發(fā)應(yīng)用程序，它主要包括用戶登錄、學(xué)生信息輸入修改、學(xué)生信息查詢以及學(xué)生成績輸入、學(xué)生成績查詢、系統(tǒng)用戶管理等幾個頁面，因而該系統(tǒng)具有較強的實用性。 4 系統(tǒng)功能圖 學(xué)生課程信息管理 學(xué)生成績信息管理 系統(tǒng)管理 學(xué)生成績管理 系管理 學(xué)生成績錄入 專業(yè)管理 用戶管理 修改密碼 退出系統(tǒng) 班級管理 學(xué)生班級管理 學(xué)生信息管理 學(xué)生信息錄入 學(xué)生信息錄入 學(xué)生信息錄入 課程管理 學(xué)生信息管理系統(tǒng)登錄 系統(tǒng)主界面 5 5 系統(tǒng)詳細設(shè)計 數(shù)據(jù)庫設(shè)計 （ 1） ，見表 1 表 1 字段名 數(shù)據(jù)類型 備注 班級 Char（ 8） 主鍵 Not null 系 Char（ 10） Not null 專業(yè) Char（ 14） Not null （ 2） ，見表 2 表 2 字段名 數(shù)據(jù)類型 備注 學(xué)號 Char（ 8） 主鍵 Not null 班級 Char（ 10） Not null 課程 Char（ 18） Not null 成績 Int (5) Not null 學(xué)期 Char（ 2） Not null 備注 Memo Null （ 3） ，見表 3 表 3 字段名 數(shù)據(jù)類型 備注 班級 Char（ 8） 主鍵 Not null 學(xué)號 Char（ 8） Not null 姓名 Char（ 8） Not null 性別 Char（ 6） Not Null 出生日期 Datetime Null 政治面貌 Char（ 8） Null 身份證號碼 Char（ 16） Null 入學(xué)時間 Datetime Null 籍貫 Char（ 16） Null 家庭住址 Char（ 28） Null 郵政編碼 Char（ 6） Null 照片 General Null 備注 Memo Null (4).dbf，見表 4 6 表 4 用戶信息表 字段名 數(shù)據(jù)類型 備注 姓名 Char（ 8） 主鍵 Not null 密碼 Char（ 6） Not null 標識 Logical Not null 登陸界面設(shè)計 “進入”按鈕的 click事件添加如下的代碼 : sele yonghu if allt()== messagebox(left(allt(),6)+ 為 空 ，請 輸 入 ！,64,提示 ) else if allt()== messagebox(密碼為空，請輸入！ ,64,提示 ) else n=n+1 locate for allt(姓名 )=allt()。 7 .and. allt(密碼 )=allt() if found() if ==1 .and. 標識 checked=1 do else if ==.!標識 messagebox(你不是管理員！ ,48,警告 ) =0 else checked=0 cyonghu=allt(姓名 ) cmima=allt(密碼 ) do endif endif else if n=3 messagebox(你不是合法用戶，請與管理員聯(lián)系！ ,48,警告 ) clear event quit else messagebox(left(allt(),6)+或密碼錯誤，請重新輸入！ ,64,提示 ) = = endif endif endif endif “取消”按鈕的 click事件添加如下的代碼 nr=messagebox(你選擇了退出登錄，是否退出？ ,68,用戶登錄 ) if nr=6 8 quit endif 學(xué)生信息錄入 “增加”按鈕的 click事件添加如下的代碼 : if ==增加 if(== （選擇）).or.(alltrim()==)。 .or.(alltrim()==) messagebox(班級、學(xué)號和姓名必須填充??！ ,64,提示 ) else locate for alltrim()=alltrim( ) if !eof() =messagebox(此學(xué)號已經(jīng)存在，請重新輸入！ ,64,提示 ) = else sele students append blank replace 班級 with alltrim(), 學(xué)號 with alltrim()。 姓名 with alltrim(), 出生日期 with ctod(alltrim())。 入學(xué)時間 with ctod(alltrim()), 籍貫 with alltrim()。 9 家庭住址 with alltrim(), 身 份 證 號 碼 with alltrim()。 備注 with alltrim(), 郵 政 編 碼 with alltrim() if alltrim()== replace 性別 with alltrim() else replace 性別 with alltrim() endif if alltrim()== replace 政治 面貌 with alltrim() else replace 政治面貌 with alltrim() endif amp。amp。 if .()== if !pictemp== wait windows 正在導(dǎo)入相片，請等待！ ....... at 100,40 timeout 2 nowait amp。amp。 pictemp= append general from amp。pictemp endif pictemp= =繼續(xù) endif endif else =增加 endif 學(xué)生信息修改 10 “修改”按鈕的 click事件添加如下的代碼 : ith thisform sele students locate for allt(學(xué)號 )=allt(.) if allt(學(xué)號 )==allt(.) replace 學(xué)號 with allt(.),姓名 with allt(.),郵政編碼 with allt(.),。 出生日期 with .,入學(xué)時間 with .,籍貫 with allt(.),。 家庭住址 with allt(.),身份證號碼 with allt(.),性別 with allt(.),。 政治面貌 with allt(.),備注 with allt(.) if !pictemp== wait windows 正在導(dǎo)入相片，請等 待！ ....... at 100,40 timeout 2 nowait append general 照片 from amp。pictemp endif endif sele ls locate for allt(學(xué)號 )=allt(.) if allt(學(xué)號 )==allt( ) replace 學(xué)號 with ,姓名 with ,郵政編碼 with ,。 出生日期 with 生日期 ,入學(xué)時間 with ,籍貫 with ,。 家庭住址 with ,身份證號碼 with , 11 性別 with ,。 政治面貌 with ,備注 with ,照片 with endif pictemp= =.f. endwith 學(xué)生信息查詢 “定位查詢”按鈕的 click事件添加如下的代碼 if allt()== messagebox(請輸入學(xué)號或姓名！ ,64,提示 ) else sele stuls locate for allt(學(xué)號 )=allt()。 .(姓名 )=allt() if found() go re() else wait window at 18,38 nowait 39。沒有找到你要查詢的信息！ 39。 endif 12 endif “第一個”按鈕的 click事件添加如下的代碼 sele stuls skip 1 if bof() =.f. =.f. messagebox(已經(jīng)到第一條記錄了！ ,64,提示 ) go top else go re() endif =.t. =.t. “單個查詢”按鈕的 click事件添加如下的代碼 nxx=1 do form xxxg 系管理表單設(shè)計 “ 增加”按鈕的 click事件添加如下的代碼 13 set order to tag set safety off if alltrim()== messagebox(系名為空，請輸入！ ,64,提示 ) else locate for =alltrim() if .() messagebox(系名已經(jīng)存在，請重新輸入！ ,48,提示 ) = else append blank replace with alltrim() = endif amp。amp。重新顯示 list列表 = endif “刪除”按鈕的 click事件添加如下的代碼 Set safety off if ==取消 = =.f. =.f. =刪除 =.t. =修改 else if alltrim()== messagebox(缺少完整信息，無法刪除！ ,0+48,警告 ) else =alltrim() nn=messagebox(是否確定刪除此系單位 ,其所 屬的專業(yè)班級的數(shù)據(jù)庫都將刪除！ ,1+48,警告 ) 14 if nn==1 t=0 use data\deandma go top do while .() if alltrim(系 )==alltrim() delete pack t=1 endif skip enddo if t==0 messagebox(將刪除的內(nèi)容不存在，請重新輸入。 ,60,提示 ) endif endif = amp。amp。重新顯示 List列表 =alltrim() endif endif 15 班級管理 “ 增加”按鈕的 click事件添加如下的代碼 set order to tag set safety off if alltrim()== messagebox(班級名為空，請輸入！ ,64,提示 ) else locate for =alltrim() if .() messagebox(班級名已經(jīng) 存在，請重新輸入！ ,48,提示 ) = else locate for =alltrim() if alltrim( )== replace with alltrim() else append blank replace with alltrim() replace with alltrim() replace with alltrim() endif = 16 endif amp。amp。重新顯示 list列表 = endif “刪除”按鈕的 click事件添加如下的代碼 Set safe