vf教務(wù)信息管理系統(tǒng)課程設(shè)計-資料下載頁
2025-09-06 09:37本頁面
【導(dǎo)讀】際操作，才能將理論知識和實(shí)際應(yīng)用有機(jī)的結(jié)合起來，鍛煉學(xué)生分析解決實(shí)際問題的能力，提高學(xué)生實(shí)際運(yùn)用的能力,日后工作中的軟件開發(fā)打下良好的基礎(chǔ)。VFP是微軟公司推出的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，它是一種典型的第四代計算機(jī)語言。本課程設(shè)計結(jié)合數(shù)據(jù)庫內(nèi)容，運(yùn)用VFP設(shè)計，使學(xué)生掌握數(shù)據(jù)庫基礎(chǔ)內(nèi)容。及時更新修改成績，學(xué)生。實(shí)現(xiàn)教師信息的及時管理。報表的提供有助于學(xué)生及時了解自。其設(shè)計成為一個小窗體。②創(chuàng)建3個標(biāo)簽分別命名為用戶名，用戶密。③創(chuàng)建2個命令按鈕，修改Caption屬性為確定和取消，在clicked. 使系統(tǒng)看起來更加簡潔。①文件新建一個菜單，在菜單名輸入查詢、修改、統(tǒng)計、幫助、中寫入命令如下：doform"個人信息.scx"在退出中寫入命令“quit”保存并生成菜單。Form的showWindow值為2作為頂層表單，WindowType屬性值為1模式保存表單。學(xué)生窗口包括學(xué)生的基本信息修改、添加、刪除、查找。本信息包括姓名、年齡、性別、籍貫、成績等。where學(xué)生.學(xué)號=值.Value;
【正文】 。 on 課程 .課程編號 =成績 .課程編號 。 on 學(xué) 生 .學(xué)號 =成績 .學(xué)號 。 where 課程 .課程編號 = 值 .value。 order by 學(xué)生 .學(xué)號 。 into cursor tempcursor messagebox ( ) =tempcursor 課程設(shè)計說明書 沈 陽 大 學(xué) endif scan if 成績 =60 num_pass = num_pass + 1 else num_nopass = num_nopass +1 endif sharescore =sharescore +成績 endscan 不及格人數(shù) .value =num_nopass 及格人數(shù) .value =num_pass 平均成績 .value =sharescore /(num_nopass +num_pass) 統(tǒng)計個人成績 模塊代碼： num_pass = 0 num_nopass = 0 sharescore = 0 if 查詢依據(jù) .Text=學(xué)號 SELECT 學(xué)生 .學(xué)號 ,學(xué)生 .姓名 ,成績 .課程編號 ,成績 .成績 。 from 教務(wù)信息 !學(xué)生 INNER JOIN 教務(wù)信息 !成績 。 On 學(xué)生 .學(xué)號 = 成績 .學(xué)號 。 where 學(xué)生 .學(xué)號 = 值 .Value 。 order by 成績 .課程編號 。 INTO CURSOR tempcursor thisform . = tempcursor endif if 查詢依據(jù) .Text=姓名 SELECT 學(xué)生 .學(xué)號 ,學(xué)生 .姓名 ,成績 .課程編號 ,成績 .成績 。 from 教務(wù)信息 !學(xué)生 INNER JOIN 教務(wù)信息 !成績 。 ON 學(xué)生 .學(xué)號 = 成績 .學(xué)號 。 課程設(shè)計說明書 沈 陽 大 學(xué) where 學(xué)生 .姓名 = 值 .Value 。 order by 成績 .課程編號 。 INTO CURSOR tempcursor thisform . = tempcursor endif scan if 成績 =60 num_pass =num_pass + 1 else num_nopass = numm_nopass + 1 endif sharescore =sharescore +成績 endscan 及格人數(shù) .Value=num_pass 不及格人數(shù) .Value=num_nopass 平均成績 .Value=sharescore/(num_nopass+num_pass) clear events sele 4 locate for bh=upper(allt()) if not found() =messagebox(39。沒有該讀者的編號 !39。,0+64+0,39。提示 39。) go top endif clear all =.f. set escape off M_js= .T. M_hs= .T. 課程設(shè)計說明書 沈 陽 大 學(xué) mypath=left(sys(16),rat(\,sys(16))) set defa to amp。mypath sele 1 use book_table sele 2 use group_table sele 3 use b_table sele 4 use user_table sele 5 use mcsz do form login_form read events close tables all tempstr = messagebox (親你要刪除記錄嗎 ,4 + 32 + 256,刪除記錄 ) if tempstr = 6 delete pack = 39。系統(tǒng)用戶表 39。 endif edit go bottom append blank edit
公司管理相關(guān)推薦
鄂ICP備17016276號-1