學(xué)生社團(tuán)管理系統(tǒng)_課程設(shè)計(jì)說明書-預(yù)覽頁
【正文】 else messagebox(對(duì)不起，已經(jīng)到達(dá)最后一條 ,48,信息不全 ) =.f. =.f. endif 添加 select 社團(tuá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(社團(tuán)號(hào)不可以為空值 ,16,系統(tǒng)提示 ) return endif msg=messagebox(39。) 23 if msg=6 replace 社團(tuán) .社團(tuán)號(hào) with a,社團(tuán) .社團(tuán)名 with b,社團(tuán) .成立時(shí)間 with c,近期主要活動(dòng) with d messagebox(保存記錄成功 ,48,系統(tǒng)提示 ) =.t. =.t. =.t. =.t. endif endif 刪除 USE 社團(tuán) .dbf EXCLUSIVE msg=messagebox(39。) if msg=6 delete for alltrim(社團(tuán) .社團(tuán)號(hào) )=alltrim() pack messagebox(刪除記錄成功 ,16,系統(tǒng)提示 ) go top endif 關(guān)閉 if =關(guān)閉 then else if =保存 delete pack =添加 =關(guān)閉 select 社團(tuán) locate for 社團(tuán)號(hào) =alltrim() 社團(tuán)名 =alltrim() 成立時(shí)間 =alltrim() 近期主要活動(dòng) =alltrim() go top =.t. 24 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif endif form6：管理員對(duì)會(huì)員信息的維護(hù)（添加，刪除，關(guān)閉） 第一條： select 會(huì)員 if bof()=.f. then go top =.f. =.f. =.t. =.t. endif 上一條： if bof()=.f. then skip1 =.t. =.t. =.t. else messagebox(已經(jīng)到達(dá)第一條記錄 ,48,提示 ) =.f. =.f. endif 下一條 if eof()=.f. then skip =.t. =.t. =.t. 25 else messagebox(對(duì)不起，已經(jīng)到達(dá)最后一條 ,48,信息不全 ) =.f. =.f. endif 添加 select 會(huì)員 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é)號(hào)不可以為空值 ,16,系統(tǒng)提示 ) return endif msg=messagebox(39。) if msg=6 replace 會(huì)員 .學(xué)號(hào) with a,會(huì)員 .姓名 with b,會(huì)員 .性別 with c,所在院系 with d messagebox(保存記錄成功 ,48,系統(tǒng)提示 ) =.t. =.t. =.t. =.t. endif endif
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1