【正文】
1. 在項(xiàng)目管理器中選擇要設(shè)置為主程序的某個(gè)程序、表單或菜單。 此系統(tǒng)功能齊全,設(shè)計(jì)合理,使用方便,適合各種學(xué)校對(duì)繁雜的學(xué)生信息進(jìn)行統(tǒng)籌管理,具有嚴(yán)格的系統(tǒng)使用權(quán)限管理,具有完善的管理功能,強(qiáng)大的查詢功能。 此外,由于時(shí)間短暫,學(xué)生所做的課程設(shè)計(jì)還不是很完美,某些程序還不能順利運(yùn)行,希望以后學(xué)校能夠?yàn)槲覀兲峁└嗟臅r(shí)間來(lái)操作訓(xùn)練。 我通過這次對(duì) 學(xué)生信息管理系統(tǒng)的設(shè)計(jì),在讓我充分感受信息技術(shù)帶給我們方便的同時(shí),也讓我充分認(rèn)識(shí)到自己知識(shí)的匱乏,所以,我們平時(shí)要加強(qiáng)知識(shí)的積累來(lái)提高我們的知識(shí)水平和操作能力,從而提高我們的基本素質(zhì),使能更好的滿足社會(huì)需求。 附錄:源代碼清單 封面代碼 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 =.