課程設(shè)計——學(xué)生信息管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：28 大?。?.70MB 人氣指數(shù)：12 舉報 版權(quán)申訴

已閱讀1頁，還剩27頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　目錄　　一、背景2　　二、課題組成員及本人任務(wù)3　　1.課題組成員3　　2.本人任務(wù)3&l

2、t;/p>　　三、需求分析3　　四、概念結(jié)構(gòu)設(shè)計4　　五、邏輯結(jié)構(gòu)設(shè)計5-6　　六、系統(tǒng)功能設(shè)計6-25　　1.系統(tǒng)功能6<p&

3、gt;　　2.程序流圖7-8　　3.程序代碼9-25　　七、設(shè)計總結(jié)26-27　　八、參考文獻(xiàn)27　　一、背景 　　學(xué)生信息管理系統(tǒng)是高校都必須面

4、對的工作，特別是近幾年，隨著國家的調(diào)整，我國高等院校大面積擴招，給高等院校的教學(xué)管理、學(xué)生管理、后勤管理等方面都帶來了不少的沖擊。特別是對于學(xué)校的決策者和管理者來說學(xué)生信息管理工作是至關(guān)重要的，但一直以來人們使用傳統(tǒng)的人工方式管理文件檔案，這種管理方式存在著許多缺點，如：效率底、保密性差，另外隨著學(xué)生數(shù)量的增加，其工作量也大大增加，這必然增加了學(xué)生檔案管理者的工作量和勞動程度，同時將產(chǎn)生大量的文件和數(shù)據(jù)，這給學(xué)生信息的查找、更新和維護(hù)都

5、帶來了不少困難。據(jù)調(diào)查，目前我國各類高等院校中還有相當(dāng)一部分學(xué)生檔案管理還停留在紙介質(zhì)的基礎(chǔ)上，尤其是中、小學(xué)對學(xué)生檔案的管理更是落后，這樣的管理機制已經(jīng)不能適應(yīng)時代發(fā)展的需要，其管理方法將浪費許多人力和物力。隨著科學(xué)技術(shù)的不斷提高，計算機科學(xué)與技術(shù)的不斷成熟，計算機應(yīng)用的普及，計算機已進(jìn)入人類社會生活的各個領(lǐng)域，并發(fā)揮著越來越重要的作用。這種傳統(tǒng)的手工管理模式必然被計算機為基礎(chǔ)的信息管理方面所取代。<p&

6、gt;　　作為計算機應(yīng)用的一部分，使用計算機對學(xué)生檔案信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點，如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生檔案管理的效率，也是學(xué)校向科學(xué)化、正規(guī)化管理發(fā)展的必要條件，更是各個高等院校與世界接軌的重要條件。　　因此，開發(fā)一套能夠為用戶提供充足的信息和快捷的查詢手段的學(xué)生信息管理系統(tǒng)，將是非常必要的，也是十分及

7、時的。借此機會利用以掌握的數(shù)據(jù)庫知識，結(jié)合實際應(yīng)用，開發(fā)一個小小的學(xué)生信息管理系統(tǒng)，將其作為網(wǎng)絡(luò)程序設(shè)計課程的設(shè)計課題。　　課題組成員及本人任務(wù)　　成員：李慧琴　　本人任務(wù)：學(xué)生基本信息的查詢及維護(hù)；學(xué)生成績的查詢及維護(hù)；學(xué)生所學(xué)課程的信息查詢與維護(hù)；各系信息查詢及維護(hù)。&l

8、t;/p>　　三、需求分析　　隨著上學(xué)期對數(shù)據(jù)庫原理的學(xué)習(xí),也經(jīng)過多方面的參考和分析，我使用了Microsoft Visual FoxPro 6.0編譯工具做一個簡單的編程,使用它可以建立開發(fā)比較完善的數(shù)據(jù)庫操作應(yīng)用程序,我所選擇的是Microsoft Visual FoxPro 6.0來編寫一個學(xué)生信息管理系統(tǒng),</p&g

9、t;　　本系統(tǒng)要求的主要功能是信息的存儲、查詢和維護(hù)，以及實現(xiàn)檔案管理和成績管理等。　　在本系統(tǒng)中要管理的信息主要有：學(xué)生信息、課程信息、成績信息和各系信息等。因此本系統(tǒng)一共需要3張：學(xué)生表、課程表、成績表和系名表。　　學(xué)生表包括的內(nèi)容有：學(xué)號、姓名、性別、出生日期、政治面貌、籍貫、備注、相片和系號等。<

10、;p>　　課程表包括的內(nèi)容有：課號、課程號、學(xué)時、學(xué)分和是否必修棵等。　　成績表包括的內(nèi)容有：學(xué)號、課號和成績等。　　系名表包括的內(nèi)容有：系號、系名和聯(lián)系電話等。　　在學(xué)生表中以學(xué)號作為關(guān)鍵字段，保證每個學(xué)生的學(xué)號是唯一的；程表以課號為關(guān)鍵字，課號要求是唯一的；成績表包括學(xué)號、課號和成績，通過學(xué)號字段與學(xué)生

11、表相關(guān)聯(lián)，通過課號與課程表關(guān)聯(lián)；系名表以系號作為關(guān)鍵字，系號要求是唯一的，這是主要的四張數(shù)據(jù)庫表。　　在數(shù)據(jù)庫的需求分析完成之后。下面來進(jìn)行數(shù)據(jù)庫概念設(shè)計。　　四、概念結(jié)構(gòu)設(shè)計　　Student(學(xué)生表)（學(xué)號、姓名、性別、出生日期、政治面貌、籍貫、備注、相片、系號）<

12、/p>　　Course(課程表)（課號、課程名、學(xué)時、學(xué)分、是否必修課）　　Depart(系名表)（系號、系名、聯(lián)系電話）　　全局E—R圖　　五、邏輯結(jié)構(gòu)設(shè)計　　通過上

13、面的分析，本系統(tǒng)需要的數(shù)據(jù)表有5個：student(學(xué)生表)、course(課程表)、depart(系名表)、score(成績表)和adminer（密碼表），分別如表5—1、5—2、5—3、5—4和5—5所示。　　表5—1學(xué)生表結(jié)構(gòu)　　表5—2課程表結(jié)構(gòu)&

14、lt;p>　　表5—3系名表結(jié)構(gòu)　　表5—4成績表結(jié)構(gòu)　　表5—5密碼表結(jié)構(gòu)　　E—R圖向關(guān)系模型的轉(zhuǎn)換后的關(guān)系模式如下：　　Student(學(xué)生表)（

15、學(xué)號、姓名、性別、出生日期、政治面貌、籍貫、備注、相片、系號）　　Course(課程表) （課號、課程名、學(xué)時、學(xué)分、是否必修課）　　Score(成績表) （學(xué)號、課號、成績）　　Depart(系名表) （系號、系名、聯(lián)系電話）　　系統(tǒng)功能設(shè)計<

16、/b>　　1、系統(tǒng)功能　　本系統(tǒng)主要功能分別通過主菜單中的以下各項來實現(xiàn)：　　通過“系統(tǒng)”菜單實現(xiàn)重新登陸、密碼修改、注冊的；　　通過“查詢”菜單實現(xiàn)對學(xué)生信息、課程信息、成績和各系信息的查詢；<p

17、>　　通過“維護(hù)”菜單實現(xiàn)對學(xué)生信息、課程信息、學(xué)生成績和各系信息的添加、修改和刪除等操作；　　通過“打印報表”實現(xiàn)對學(xué)生信息、課程信息、成績和各系信息的總瀏覽；　　通過“幫助”菜單實現(xiàn)操作提示、版權(quán)聲明；　　通過“退出”菜單退出本系統(tǒng)　　程序流圖

18、　　3、程序代碼　　封面（cover.scx）窗體：　　表單由兩個“標(biāo)簽”控件和“兩個計時器”組成：　　1.1在Timer1（interval屬性值為10000）的timer時間中添加如下響應(yīng)代碼：</p&g

19、t;　　thisform.release　　messagebox("默認(rèn)用戶名admin，密碼admin",0,"用戶提示")　　do form password.scx 　　1.2在Timer2（interval屬性值為200）的timer時間中添加

20、如下響應(yīng)代碼：　　if thisform.label2.left+thisform.label2.width<0　　thisform.label2.left=thisform.width　　else　　thisform.labe

21、l2.left=thisform.label2.left-30　　endif　　thisform.refresh()　　用戶登陸（password.scx）窗體:　　表單由兩個標(biāo)簽控件和兩個文本框和兩個命令按鈕組成：

22、;　　2.1在表單Form1的Init事件中添加如下響應(yīng)代碼：　　Public n &&宣告n為全局內(nèi)存變量　　n=0 &&設(shè)置n的初值為零　　2.2在命令按鈕“確定”中添加如下響應(yīng)代碼：

23、;　　n=n+1　　czy=Alltrim(ThisForm.Text1.value)　　mm=Alltrim(ThisForm.Text2.value)　　USE adminer &&打開事先創(chuàng)建好的管理員表<p

24、>　　IF empty(ThisForm.Text1.value).or.empty(ThisForm.Text2.value)　　messagebox("用戶名或密碼不能為空",0,"提示")　　thisform .Refresh　　ThisForm.Text1.V

25、alue=''　　ThisForm.Text1.Setfocus　　ThisForm.text2.Value=''　　ThisForm.Text2.Setfocus　　ELSE&

26、lt;p>　　LOCATE FOR 注冊名=czy &&注冊名為管理員表中的字段　　If Found().and.密碼=mm &&密碼也為管理員表中的字段　　USE　　ThisForm.release</

27、p>　　Release n　　DO FORM choose.scx　　ELSE 　　IF n<3　　Messagebox(&

28、quot;用戶名不存在或密碼不正確，請重新輸入！",0,"輸入錯誤")　　ThisForm.Text1.Value="" 　　ThisForm.Text2.Value=""　　ThisForm.Text1.setfocus &&a

29、mp;把文本框置空　　ELSE　　ThisForm.release　　Release n　　Clear Events　　ENDIF<

30、;/b>　　USE　　ENDIF　　ENDIF　　2.3在命令按鈕“退出”中添加如下響應(yīng)代碼：

31、;　　CLOSE ALL　　RELEASE ALL　　thisform.Release　　選擇(choose.scx)窗體　　表單由兩個命令按鈕組成：　　3.1在命令按鈕“學(xué)生信息查詢登陸”中添加如下響應(yīng)代碼：

32、　　do main.mpr &&運行菜單mian　　thisform.release　　3.2在命令按鈕“學(xué)生信息查詢維護(hù)”中添加如下響應(yīng)代碼　　do main1.mpr &&運行菜單main1<p&g

33、t;　　thisform.release　　學(xué)生信息查詢(query.scx)窗體:　　表單由一個命令按鈕、一個組合框和一個表格組成：　　4.1在Form1的Init事件中添加如下響應(yīng)代碼：　　public temp &&定義全局變量

34、;　　thisform.combo1.additem("學(xué)號") &&初始化組合框　　thisform.combo1.additem("姓名")　　thisform.combo1.additem("性別")　　t

35、hisform.combo1.additem("出生日期")　　thisform.combo1.additem("政治面貌")　　thisform.combo1.additem("籍貫")　　thisform.combo1.value=1</p&g

36、t;　　4.2在命令按鈕“查詢”添加如下響應(yīng)代碼：　　if empty(thisform.text1.value)　　messagebox("查詢值不能為空！",0,"警告")　　else&

37、lt;p>　　if thisform.combo1.text="學(xué)號" &&按學(xué)號查詢　　select * from student;　　where alltrim(student.學(xué)號)=alltrim(thisform.text1.value);　　order by

38、 student.學(xué)號;　　into cursor temp　　thisform.grid1.recordsource=temp　　endif 　　if thisform.combo1.text="姓名" &am

39、p;&按姓名查詢　　select * from student;　　where alltrim(student.姓名)=alltrim(thisform.text1.value);　　order by student.學(xué)號;　　into cursor temp&l

40、t;/p>　　thisform.grid1.recordsource=temp　　endif 　　if thisform.combo1.text="性別" &&按性別查詢　　select * from stu

41、dent;　　where alltrim(student.性別)=alltrim(thisform.text1.value);　　order by student.學(xué)號;　　into cursor temp　　thisform.grid1.recordsource=tem

42、p　　endif 　　if thisform.combo1.text="出生日期" &&按出生日期查詢　　select * from student;　　where alltrim(student

43、.出生日期)=alltrim(thisform.text1.value);　　order by student.學(xué)號;　　into cursor temp　　thisform.grid1.recordsource=temp　　endif </b&g

44、t;　　if thisform.combo1.text="政治面貌" &&按政治面貌查詢　　select * from student;　　where alltrim(student.政治面貌)=alltrim(thisform.text1.value);

45、　　order by student.學(xué)號;　　into cursor temp　　thisform.grid1.recordsource=temp　　endif 　　if thisform.combo1.tex

46、t="籍貫" &&按籍貫查詢　　select * from student;　　where alltrim(student.籍貫)=alltrim(thisform.text1.value);　　order by student.學(xué)號;<p&

47、gt;　　into cursor temp　　thisform.grid1.recordsource=temp　　endif 　　endif　　課程信息查詢(course_q.scx)窗體：<

48、;/p>　　表單由一個命令按鈕、一個組合框和一個表格組成：　　5.1在Form1的Init事件中添加如下響應(yīng)代碼：　　public temp &&定義全局變量　　thisform.combo1.value=1　　5.2在

49、命令按鈕“查詢”添加如下響應(yīng)代碼：　　if empty(thisform.text1.value)　　messagebox("查詢值不能為空！",0,"警告")　　thisform.refresh　　else<

50、;/b>　　if thisform.combo1.text="課號" &&按課號查詢　　select * from course;　　where alltrim(course.課號)=alltrim(thisform.text1.value);

51、　　order by course.課號; &&按課號排序　　into cursor temp　　thisform.grid1.recordsource=temp　　thisform.refresh　　endif

52、　　if thisform.combo1.text="課程名" &&按課程名查詢　　select * from course;　　where alltrim(course.課程名)=alltrim(thisform.text1.value);</p&

53、gt;　　order by course.課號;　　into cursor temp　　thisform.grid1.recordsource=temp　　thisform.refresh　　endif</

54、p>　　if thisform.combo1.text="是否必修課" &&按課程類型查詢　　select * from course;　　where alltrim(course.是否必修課)=alltrim(thisform.text1.value);<p

55、>　　order by course.課號;　　into cursor temp　　thisform.grid1.recordsource=temp　　thisform.refresh　　endif &l

56、t;p>　　if thisform.combo1.text="授課老師" &&按授課老師查詢　　select * from course;　　where alltrim(course.授課老師)=alltrim(thisform.text1.value);　　orde

57、r by course.課號;　　into cursor temp　　thisform.grid1.recordsource=temp　　thisform.refresh　　endif <

58、;b>　　endif　　學(xué)生成績查詢(score_q.scx)窗體：　　表單由一個命令按鈕、一個組合框和一個表格組成：　　6.1在Form1的Init事件中添加如下響應(yīng)代碼：　　public temp &&定義全局變量<

59、;/p>　　thisform.combo1.additem("學(xué)號")　　thisform.combo1.additem("課號")　　thisform.combo1.value=1　　6.2在命令按鈕“查詢”添加如下響應(yīng)代碼：

60、;　　if empty(thisform.text1.value)　　messagebox("查詢值不能為空！",0,"警告")　　else　　if thisform.combo1.text="學(xué)號&qu

61、ot; &&按學(xué)號查詢　　select * from score;　　where alltrim(score.學(xué)號)=alltrim(thisform.text1.value);　　order by score.學(xué)號;　　into cursor temp

62、　　thisform.grid1.recordsource=temp　　endif 　　if thisform.combo1.text="課號" &&按課號查詢　　select * from s

63、core;　　where alltrim(score.課號)=alltrim(thisform.text1.value);　　order by score.學(xué)號;　　into cursor temp　　thisform.grid1.recordsource=temp<

64、;/p>　　endif 　　endif　　各系信息查詢(depart_q.scx)窗體：　　表單由一個命令按鈕、一個組合框和一個表格組成：　　7.1在Form1的Ini

65、t事件中添加如下響應(yīng)代碼：　　public temp　　thisform.combo1.additem("系號")　　thisform.combo1.additem("系名")　　thisform.combo1.additem(&q

66、uot;聯(lián)系電話")　　thisform.combo1.value=1　　7.2在命令按鈕“查詢”添加如下響應(yīng)代碼：　　if empty(thisform.text1.value)　　messagebox("查詢值不能為空！",0,"

67、;警告")　　else　　if thisform.combo1.text="系號" &&按系號查詢　　select * from depart;　　where alltrim(depar

68、t.系號)=alltrim(thisform.text1.value);　　order by depart.系號;　　into cursor temp　　thisform.grid1.recordsource=temp　　endif

69、　　if thisform.combo1.text="系名" &&按系名查詢　　select * from depart;　　where alltrim(depart.系名)=alltrim(thisform.text1.value);

70、;　　order by depart.系號;　　into cursor temp　　thisform.grid1.recordsource=temp　　endif 　　if thisform.combo1.text="聯(lián)系電

71、話" &&按聯(lián)系方式查詢　　select * from depart;　　where alltrim(depart.聯(lián)系電話)=alltrim(thisform.text1.value);　　order by depart.系號;　　into

72、cursor temp　　thisform.grid1.recordsource=temp　　endif 　　endif　　學(xué)生信息維護(hù)(maintain.scx)窗體：&

73、lt;p>　　表由一個類和六個命令按鈕組成：　　8.1在Form1的Init事件中添加如下響應(yīng)代碼：　　thisform.text2.ReadOnly=.T. &&設(shè)定文本框的屬性為只讀　　thisform.text3.ReadOnly=.T.

74、　　thisform.text4.ReadOnly=.T.　　thisform.text5.ReadOnly=.T.　　thisform.text6.ReadOnly=.T.　　thisform.text7.ReadOnly=.T.　　thisform.text8.Rea

75、dOnly=.T.　　thisform.edit1.ReadOnly=.T.　　thisform.bc.Enabled=.F. 　　thisform.refresh　　use student.dbf excl &&以獨占

76、方式打開表　　8.2在“開始搜索”命令按鈕中添加如下響應(yīng)代碼：　　cz=ALLtrim(ThisForm.Text1.Value)　　n=Recno()　　GO TOP&l

77、t;p>　　SCAN 　　IF student.學(xué)號=cz.OR.student.姓名=cz　　Thisform.text1.value=""　　Thisform.text1.setfocus &&把文本框的值設(shè)空</p&

78、gt;　　Thisform.refresh　　RETURN　　ENDIF　　ENDSCAN　　MessageBox("該學(xué)生不

79、存在！",0,"查找失??！")　　Go n &&將記錄指針指向原記錄　　Thisform.text1.value=""　　Thisform.text1.setfocus　　Thisf

80、orm.refresh　　8.3在命令按鈕“添加”中添加如下響應(yīng)代碼：　　go bottom &&指針指到表的最后一條記錄　　tempstr=val(student.學(xué)號)　　APPEND BLANK &

81、;&在表的最后添加一條空白記錄　　GO BOTTOM &&指向當(dāng)前新增加的記錄信息　　replace student.學(xué)號 WITH ALLTRIM(STR(tempstr+1))　　&&設(shè)置新記錄的主鍵值，即學(xué)生學(xué)號<p

82、>　　thisform.tj.Enabled=.F.　　thisform.xg.Enabled=.F.　　thisform.sc.Enabled=.F.　　thisform.bc.Enabled=.T.　　thisform.text2.ReadOnly=.F.<

83、;/p>　　thisform.text3.ReadOnly=.F.　　thisform.text4.ReadOnly=.F.　　thisform.text5.ReadOnly=.F.　　thisform.text6.ReadOnly=.F.

84、thisform.text7.ReadOnly=.F.　　thisform.text8.ReadOnly=.F.　　thisform.edit1.ReadOnly=.F.　　thisform.Refresh　　8.4在命令按鈕“修改”添加如下響應(yīng)代碼：

85、　　thisform.tj.Enabled=.F.　　thisform.xg.Enabled=.F.　　thisform.sc.Enabled=.F.　　thisform.bc.Enabled=.T.　　thisform.text2.ReadOnly

86、=.F.　　thisform.text3.ReadOnly=.F.　　thisform.text4.ReadOnly=.F.　　thisform.text5.ReadOnly=.F.　　thisform.text6.ReadOnly=.F.<

87、p>　　thisform.text7.ReadOnly=.F.　　thisform.text8.ReadOnly=.F.　　thisform.edit1.ReadOnly=.F.　　thisform.Refresh　　8.5在命令按鈕“刪除”中添加如下響應(yīng)代碼：&l

88、t;/p>　　if messagebox("確認(rèn)要刪除此記錄嗎？",1,"確認(rèn)刪除")=1　　set exclusive on 　　DELETE 　　PACK &&把標(biāo)記從數(shù)據(jù)庫中物

89、理刪除　　set exclusive off　　endif　　thisform.refresh　　8.6在命令按鈕“保存”中添加如下響應(yīng)代碼：　　DIMENSION aaa(8)</p

90、>　　aaa(1)=thisform.text2.Value　　aaa(2)=thisform.text3.Value　　aaa(3)=thisform.text4.Value　　aaa(4)=thisform.text5.Value　　aaa

91、(5)=thisform.text6.Value　　aaa(6)=thisform.text7.Value　　aaa(7)=thisform.text8.Value　　aaa(8)=thisform.Edit1.Value &&把表單中所有信息存儲到一個數(shù)組中<p&

92、gt;　　replace student.學(xué)號 WITH aaa(1)　　replace student.姓名 WITH aaa(2)　　replace student.性別 WITH aaa(3)　　replace student.出生日期 WITH aaa(4)　　r

93、eplace student.籍貫 WITH aaa(5)　　replace student.政治面貌 WITH aaa(6)　　replace student.系號 WITH aaa(7)　　replace student.備注 WITH aaa(8) &&按字段分別替換表中數(shù)據(jù)信息</

94、p>　　thisform .Refresh　　thisform.tj.Enabled=.T.　　thisform.xg.Enabled=.T.　　thisform.sc.Enabled=.T.　　thisform.bc.Enabled=.F.&

95、lt;/p>　　thisform.text2.ReadOnly=.T.　　thisform.text3.ReadOnly=.T.　　thisform.text4.ReadOnly=.T.　　thisform.text5.ReadOnly=.T.

96、　　thisform.text6.ReadOnly=.T.　　thisform.text7.ReadOnly=.T.　　thisform.text8.ReadOnly=.T.　　thisform.edit1.ReadOnly=.T.　　&&重新設(shè)置表單的文

97、本框為只讀，等待下一次操作命令的激發(fā)　　MESSAGEBOX("數(shù)據(jù)保持成功",0+64,"學(xué)生信息管理")　　8.7在命令按鈕“退出”中添加如下響應(yīng)代碼：　　close table all &&關(guān)閉正在使用的表

98、　thisform.release　　課程信息維護(hù)(course_m.scx)窗體：　　其命令按鈕響應(yīng)代碼基本與“學(xué)生信息維護(hù)窗體”中的相同，這里就不在寫出了。 　　學(xué)生成績維護(hù)(score_m.scx)窗體：　　其命令按鈕響應(yīng)代碼基本與“學(xué)生信息維護(hù)窗體”中的相同，這里

99、就不在寫出了。 　　各系信息維護(hù)(depart_m.scx)窗體：　　其命令按鈕響應(yīng)代碼基本與“學(xué)生信息維護(hù)窗體”中的相同，這里就不在寫出了。 　　密碼修改(xgmm.scx)窗體：　　表單主要兩個命令按鈕組成：　　12.1在Fo

100、rm1的Init事件中添加如下響應(yīng)代碼：　　Public n &&宣告n為全局內(nèi)存變量　　n=0 &&設(shè)置n的初值為零　　12.2在命令按鈕“確定”中添加如下響應(yīng)代碼：　　DIMENSION aaa(1)

101、　　n=n+1　　czy=Alltrim(ThisForm.Text1.value)　　mm=Alltrim(ThisForm.Text2.value)　　&&打開事先創(chuàng)建好的管理員表　　LOCA

102、TE FOR 注冊名=czy &&注冊名為管理員表中的字段　　If Found().and.密碼=mm &&密碼也為管理員表中的字段　　Release n　　IF Alltrim(ThisForm.Text3.value)=

103、Alltrim(ThisForm.Text4.value)　　aaa(1)=thisform.text3.Value　　&&把表單中所有信息存儲到一個數(shù)組中　　replace adminer.密碼 WITH aaa(1)　　&&按字段分別

104、替換表中數(shù)據(jù)信息　　MESSAGEBOX("密碼修改成功",0+64,"學(xué)生信息管理")　　ThisForm.release　　ELSE 　　IF n<3</

105、b>　　Messagebox("兩次密碼不一致,修改失??！",0,"輸入錯誤")　　ThisForm.Text1.Value=""　　ThisForm.Text2.Value=""　　T

106、hisForm.Text1.setfocus　　ELSE　　ThisForm.release　　Release n　　Clear Events<b&

107、gt;　　ENDIF　　USE　　ENDIF　　ELSE 　　IF n<3

108、　　Messagebox("修改失敗，請重新輸入！",0,"輸入錯誤")　　ThisForm.Text1.Value=""　　ThisForm.Text2.Value=""　　ThisForm.Text3.Val

109、ue=""　　ThisForm.Text4.Value=""　　ThisForm.Text1.setfocus　　ThisForm.Text2.setfocus　　ThisForm.Text3.setfocus

110、　　ThisForm.Text4.setfocus　　ELSE　　ThisForm.release　　Release n　　Clear Events&l

111、t;p>　　ENDIF　　USE　　ENDIF　　12.3在命令按鈕“退出”中添加如下響應(yīng)代碼：　　thisform.Release

112、　　注冊(zc.scx)窗體：　　表單主要兩個命令按鈕組成：　　13.1在Form1的Init事件中添加如下響應(yīng)代碼：　　Public n &&宣告n為全局內(nèi)存變量　　n=0 &&設(shè)置n的初值為零</p

113、>　　13.2在命令按鈕“確定”中添加如下響應(yīng)代碼：　　DIMENSION aaa(2)　　aaa(1)=alltrim(thisform.text1.Value)　　aaa(2)=alltrim(thisform.text2.Value)

114、&&把表單中所有信息存儲到一個數(shù)組中　　IF LEN(aaa(1))>5.and.LEN(aaa(2))>5 　　go bottom　　&&指針指到表的最后一條記錄　　tempstr=val

115、(adminer.注冊名)　　APPEND BLANK　　&&在表的最后添加一條空白記錄　　GO BOTTOM &&指向當(dāng)前新增加的記錄信息　　replace adminer.注冊名 WITH ALLTRIM(STR(tempst

116、r+1))　　&&設(shè)置新記錄的主鍵值　　replace adminer.注冊名 WITH aaa(1)　　replace adminer.密碼 WITH aaa(2)　　&&按字段分別替換表中數(shù)據(jù)信息<p&

117、gt;　　thisform .Refresh　　MESSAGEBOX("注冊成功",0+64,"學(xué)生信息管理")　　THISFORM.RELEASE　　ELSE　　if empty(thisfo

118、rm.text1.Value).or.empty(thisform.text2.Value)　　messagebox("用戶名或密碼不能為空",0,"用戶注冊")　　thisform .Refresh　　ThisForm.Text1.Value=''<

119、/p>　　ThisForm.Text1.Setfocus　　ThisForm.text2.Value=''　　ThisForm.Text2.Setfocus　　else 　　MESSAG

120、EBOX("用戶名或密碼長度過短",0+64,"學(xué)生信息管理")　　thisform .Refresh　　ThisForm.Text1.Value=''　　ThisForm.Text1.Setfocus　　ThisF

121、orm.text2.Value=''　　ThisForm.Text2.Setfocus　　endif　　ENDIF　　13.3在命令按鈕“退出”中添加如下響應(yīng)代碼：</p&g

122、t;　　thisform.release　　操作提示窗體：　　版權(quán)聲明窗體：　　類(xsxigl.vcx)代碼：　　16.1在命令按鈕“第一個”中添加如下響應(yīng)代碼：</

123、p>　　go top　　this.parent.syg.enabled=.f.　　this.parent.xyg.enabled=.t.　　this.parent.zhyg.enabled=.t.　　thi

124、sform.refresh　　16.2在命令按鈕“上一個”中添加如下響應(yīng)代碼：　　skip-1　　if bof()　　messagebox("已是第一個記錄！",48,&quo

125、t;信息窗口")　　this.parent.dyg.enabled=.f.　　this.parent.syg.enabled=.f.　　skip　　else &l

126、t;p>　　this.parent.dyg.enabled=.t.　　this.parent.zhyg.enabled=.t.　　endif　　this.parent.xyg.enabled=.t.　　this.parent.z

127、hyg.enabled=.t.　　thisform.refresh　　16.3在命令按鈕“下一個”中添加如下響應(yīng)代碼：　　skip　　if eof()

128、messagebox("已是最后一個記錄！",48,"信息窗口")　　skip-1　　this.parent.xyg.enabled=.f.　　this.parent.zhyg.enabled=.f. <p

129、>　　else 　　this.parent.xyg.enabled=.t.　　this.parent.zhyg.enabled=.t.　　thisform.refresh　　endif<

130、;/p>　　this.parent.dyg.enabled=.t.　　this.parent.syg.enabled=.t.　　thisform.refresh　　16.4在命令按鈕“最后一個”中添加如下響應(yīng)代碼：　　go b

131、ottom　　this.parent.dyg.enabled=.t.　　this.parent.syg.enabled=.t.　　this.parent.xyg.enabled=.f.　　thisform.refresh<

132、p>　　主程序(mian.prg)代碼　　**main.prg　　SET ESCAPE OFF　　SET TALK OFF　　SET STATUS OFF　　SET SCOREBOARD OFF<

133、;p>　　SET EXACT ON　　SET SAFETY OFF　　SET STEP OFF　　SET DEBUG OFF　　SET STATUS OFF　　SET SCOREBOARD OFF&l

134、t;p>　　SET ESCAPE OFF　　SET TALK OFF　　SET STATUS OFF　　SET SCOREBOARD OFF　　SET EXACT ON　　SET SAFETY OFF

135、　　SET STEP OFF　　SET DEBUG OFF　　SET STATUS OFF　　SET SCOREBOARD OFF　　SET EXCLUSIVE OFF　　SET SYSMENU TO</p

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

課程設(shè)計——學(xué)生信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

課程設(shè)計——學(xué)生信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載