學(xué)生社團(tuán)管理系統(tǒng)_課程設(shè)計說明書-全文預(yù)覽
【正文】 =.t. =.t. =.t. =.t. =.t. =.t. =社團(tuán) .社 團(tuán)號 =社團(tuán) .社團(tuán)名 =社團(tuán) .成立時間 =社團(tuán) .近期主要活動 =.f. =.t. endif else messagebox(請輸入要查找的內(nèi)容！ ,16,系統(tǒng)提示 ) = endif 18 修改 a=alltrim() b=alltrim() c=alltrim() if empty(a) messagebox(社團(tuán)名不可以修改為空值 ,16,系統(tǒng)提示 ) return endif msg=messagebox(39。) if msg=6 go reo() replace 社團(tuán) .社團(tuán)名 with a,社團(tuán) .成立時間 with b,社團(tuán) .近期主要活動 with c messagebox(修改記錄成功 ,48,系統(tǒng)提示 ) =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. = endif fomer4 會員信息表單 查找 if empty()=.f. go top a= b=alltrim() c=.f. if a=學(xué)號 locate for 學(xué)號 =b 19 if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄 ,16,系統(tǒng)提示 ) go top return else c=.t. endif endif if a=姓名 locate for 姓名 =b if eof() messagebox(數(shù)據(jù)庫中不存在您所要查詢的記錄 ,16,系統(tǒng)提示 ) go top return else c=.t. endif endif if c =.f. go reo() =.t. =.f. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =會員 .學(xué)號 =會員 .姓名 =會員 .性別 =會員 .所在院系 =.f. =.t. endif else messagebox(請輸入要查找的內(nèi)容！ ,16,系統(tǒng)提示 ) 20 = endif 修改 a=alltrim() b=alltrim() c=alltrim() if empty(a) messagebox(姓名不可以修改為空值 ,16,系統(tǒng)提示 ) return endif msg=messagebox(39。) if msg=6 go reo() replace 會員 .姓名 with a,會員 .性別 with b,會員 .所在院系 with c messagebox(修改記錄成功 ,16,系統(tǒng)提示 ) =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. = endif 退出 form5 管理員對社團(tuán)信息維護(hù)表單（插入，刪除，關(guān)閉） 第一條 select 社團(tuán) if bof()=.f. then go top 21 =.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.
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1