vf課程設(shè)計(jì)--學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(完整版)
【正文】 （ 1）選擇項(xiàng)目管理器中的“文檔”。 10 四、系統(tǒng)主程序設(shè)計(jì) 建立主程序 本系統(tǒng)單獨(dú)創(chuàng)建了一個(gè)名為“ ”的簡(jiǎn)單主程序，該程序包含的命令序列如下： Set talk off Set default to d”\1104010110\vf Do form Read events 設(shè)置主程序 設(shè)置主程序的步驟是： 1. 在項(xiàng)目管理器中選擇要設(shè)置為主程序的某個(gè)程序、表單或菜單。 此外，由于時(shí)間短暫，學(xué)生所做的課程設(shè)計(jì)還不是很完美，某些程序還不能順利運(yùn)行，希望以后學(xué)校能夠?yàn)槲覀兲峁└嗟臅r(shí)間來操作訓(xùn)練。 附錄：源代碼清單 封面代碼 timer do form 登陸 Command1 num=num+1 yhm=alltrim() mm=alltrim() use d:\1104010110\vf\管理員表 locate for 用戶名 =yhm if found(). =mm use release num do else if num 3 messagebox(用戶名或密碼有誤 ,請(qǐng)重新輸入 !,0,用戶輸入錯(cuò)誤 ) = = else release num clear events endif use endif mand2 14 release num 學(xué)生成績(jī)查詢 Command1 temp=alltrim() n=reo() go top scan if 成績(jī)表 .學(xué)號(hào) = .姓名 =temp = return endif endscan messagebox(該學(xué)生不存在 !,0,查找失敗 !) go n = 學(xué)生信息查詢 Command 開始查找 temp=alltrim() n=reo() go top scan if 學(xué)生表 .學(xué)號(hào) = .姓名 =temp = return endif endscan messagebox(該學(xué)生不存在 !,0,查找失敗 !) go n = mand 首條記錄 go top =.F. =.T. =.T. 15 mand 下條記錄 skip 1 if bof() messagebox(已經(jīng)是首條記錄 !,40,信息窗口 ) =.F. =.F. skip else =.T. =.T. endif =.T. =.T. mand 上條記錄 skip if eof() messagebox(已經(jīng)是尾條記錄 !,40,信息窗口 ) skip 1 =.F. =.F. skip else =.T.
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1