學(xué)生社團(tuán)管理系統(tǒng)_課程設(shè)計(jì)說(shuō)明書(shū)-在線(xiàn)瀏覽
2024-11-01 11:55本頁(yè)面
【正文】 . =.t. =.t. =.t. =社團(tuán) .社 團(tuán)號(hào) =社團(tuán) .社團(tuán)名 =社團(tuán) .成立時(shí)間 =社團(tuán) .近期主要活動(dòng) =.f. =.t. endif else messagebox(請(qǐng)輸入要查找的內(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。,32+4,39。) if msg=6 go reo() replace 社團(tuán) .社團(tuán)名 with a,社團(tuán) .成立時(shí)間 with b,社團(tuán) .近期主要活動(dòng) with c messagebox(修改記錄成功 ,48,系統(tǒng)提示 ) =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. = endif fomer4 會(huì)員信息表單 查找 if empty()=.f. go top a= b=alltrim() c=.f. if a=學(xué)號(hào) locate for 學(xué)號(hào) =b 19 if eof() messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄 ,16,系統(tǒng)提示 ) go top return else c=.t. endif endif if a=姓名 locate for 姓名 =b if eof() messagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢(xún)的記錄 ,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. =會(huì)員 .學(xué)號(hào) =會(huì)員 .姓名 =會(huì)員 .性別 =會(huì)員 .所在院系 =.f. =.t. endif else messagebox(請(qǐng)輸入要查找的內(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。,32+4,39。) if msg=6 go reo() replace 會(huì)員 .姓名 with a,會(huì)員 .性別 with b,會(huì)員 .所在院系 with c messagebox(修改記錄成功 ,16,系統(tǒng)提示 ) =.t. =.t. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. = endif 退出 form5 管理員對(duì)社團(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. else messagebox(對(duì)不起，已經(jīng)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1