學(xué)生社團管理系統(tǒng)_課程設(shè)計說明書-閱讀頁
2024-09-18 11:55本頁面
【正文】 到達最后一條 ,48,信息不全 ) =.f. =.f. endif 添加 select 社團 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。,32+4,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。,32+4,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。,32+4,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