學(xué)生社團管理系統(tǒng)_課程設(shè)計說明書-資料下載頁
2024-08-29 11:55本頁面
【導(dǎo)讀】各種社團的數(shù)量也增加了很多。面對龐大的信息量，傳統(tǒng)的人工方式管理會。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從。而減少管理方面的工作量。學(xué)生社團管理作為計算機應(yīng)用的一個分支，有著手工管理無法比擬的優(yōu)點，如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生社團信息管理的效率。因此，開發(fā)一套能夠為用戶。也是十分及時的。校管理的工作質(zhì)量和工作效率。以進行社團以及成員信息的查詢、統(tǒng)計和生成報表等。選擇刪除，從而從數(shù)據(jù)庫中刪除其有關(guān)記錄。每個社團有一位學(xué)生負責人，但必須是該社團成員。各社團簡況維護，包括社團名稱、社團號、成立時間、近期活動。參加社團的成員簡況維護，包括學(xué)號、姓名、性別、所在系別。各社團成員加入和退出信息的輸入。和窗體，打印報表明細各社團成員的信息和各社團中部門間的關(guān)系。
【正文】 if =添加 go bottom =.f. =.f. =.f. =.f. =保存 =放棄 22 =.f. =.t. =.t. =.t. =.t. = = = = =.f. =.f. =.f. =.f. else append blank skip =.f. =.f. =.f. =.f. =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =添加 =關(guān)閉 a=alltrim() b=alltrim() c=alltrim() d=alltrim() if empty(a) messagebox(社團號不可以為空值 ,16,系統(tǒng)提示 ) return endif msg=messagebox(39。確定要保存記錄嗎？ 39。,32+4,39。系統(tǒng)提示 39。) 23 if msg=6 replace 社團 .社團號 with a,社團 .社團名 with b,社團 .成立時間 with c,近期主要活動 with d messagebox(保存記錄成功 ,48,系統(tǒng)提示 ) =.t. =.t. =.t. =.t. endif endif 刪除 USE 社團 .dbf EXCLUSIVE msg=messagebox(39。您確定要刪除這條記錄嗎？ 39。,32+4,39。系統(tǒng)提示 39。) if msg=6 delete for alltrim(社團 .社團號 )=alltrim() pack messagebox(刪除記錄成功 ,16,系統(tǒng)提示 ) go top endif 關(guān)閉 if =關(guān)閉 then else if =保存 delete pack =添加 =關(guān)閉 select 社團 locate for 社團號 =alltrim() 社團名 =alltrim() 成立時間 =alltrim() 近期主要活動 =alltrim() go top =.t. 24 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif endif form6：管理員對會員信息的維護（添加，刪除，關(guān)閉） 第一條： select 會員 if bof()=.f. then go top =.f. =.f. =.t. =.t. endif 上一條： if bof()=.f. then skip1 =.t. =.t. =.t. else messagebox(已經(jīng)到達第一條記錄 ,48,提示 ) =.f. =.f. endif 下一條 if eof()=.f. then skip =.t. =.t. =.t. 25 else messagebox(對不起，已經(jīng)到達最后一條 ,48,信息不全 ) =.f. =.f. endif 添加 select 會員 if =添加 go bottom =.f. =.f. =.f. =.f. =保存 =放棄 =.f. =.t. =.t. =.t. =.t. = = = = =.f. =.f. =.f. =.f. else append blank skip =.f. =.f. =.f. =.f. =.t. =.t. =.f. 26 =.f. =.f. =.f. =.f. =.f. =.f. =.f. =添加 =關(guān)閉 a=alltrim() b=alltrim() c=alltrim() d=alltrim() if empty(a) messagebox(學(xué)號不可以為空值 ,16,系統(tǒng)提示 ) return endif msg=messagebox(39。確定要保存記錄嗎？ 39。,32+4,39。系統(tǒng)提示 39。) if msg=6 replace 會員 .學(xué)號 with a,會員 .姓名 with b,會員 .性別 with c,所在院系 with d messagebox(保存記錄成功 ,48,系統(tǒng)提示 ) =.t. =.t. =.t. =.t. endif endif
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1