學(xué)生信息管理系統(tǒng)設(shè)計(jì)說明書(更新版)
【正文】 ESSAGEBOX(今天已經(jīng)備份過數(shù)據(jù)了，+chr(13)+。amp。提示備份成功=0RELE M_ML,M_CHAR,M_ML1u 口令設(shè)這窗口modifypasswd的主要代碼“確定”按鈕的click事件select operatorlocate for =alltrim(operat)if alltrim()=alltrim() if = replace with release thisform else messagebox(口令不一致！) () endifelse messagebox(原口令錯(cuò)誤！) ()endif u 信息維護(hù)模塊的代碼（1）、“第一個(gè)”按鈕的click事件：select rsbgo top=.f.=.f.if not eof()=.t.=.t.endif“前一個(gè)”按鈕的click事件：select rsbskip 1if bof()go top=.f.=.f.endifif not eof()=.t.=.t.endif（2）、“下一個(gè)”按鈕的click事件：select rsbskipif eof()go bottom=.f.=.f.endifif not bof()=.t.=.t.endif（3）、“最后一個(gè)”按鈕的click事件select rsbgo bottom=.f.=.f.if not bof()=.t.=.t.endif（4）、“增加”按鈕的click事件if =增加=保存=.F.=.F.=.F.=.F.=.T.=.F.=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.F.=.F.=.F.=.F.=.F.=.F.=.F.SELECT RSBAPPEND BLANKGO BOTTOM()ELSE=增加=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.f.=.t.=.t.=.t.=.t.=.t.=.t.=.t.endif（5）“編輯”按鈕的click事件if =編輯=保存=.T.=.T.=.T.=.T.=.F.=.T.=.F.=.F.=.F.=.F.=.F.=.F.=.T.=.F.=.F.=.F.=.F.=.F.=.F.ELSE=編輯=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.f.=.t.=.t.=.t.=.t.=.t.=.t.ENDIF（6）、“刪除“按鈕的click事件SELECT RSBXH=sel=messagebox(該記錄學(xué)號(hào)為：+XH+chr(13)+真的要?jiǎng)h除嗎?,4+32+256,提示)if sel=6deleteendif（7）“查詢“按鈕的click事件=.t.=.t.=()（8）“打印“按鈕的click事件report form .\menu1\ preview for =alltrim()八．參考文獻(xiàn)Visual FoxPro 及其應(yīng)用系統(tǒng)開發(fā)（第二版） 史濟(jì)民 主編 湯觀全 張露 編著 24
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1