畢業(yè)設(shè)計----學(xué)生成績管理系統(tǒng)

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

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

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

文檔簡介

1、　　畢　　業(yè)　　論　　文　　題目：學(xué)生成績管理系統(tǒng)&

2、lt;b>　　姓名： 　　班級： 　　指導(dǎo)老師: 　　2007年5月28日　　前言　　管理信息系統(tǒng)是

3、一個利用計算機軟件硬件資源以及數(shù)據(jù)庫的人-機系統(tǒng)，它提供信息支持企業(yè)或組織實現(xiàn)運行，管理和決策功能。隨著我國改革開放的深入和加入WTO與世界接軌后，各行各業(yè)的許多企業(yè)通過使用計算機設(shè)備和管理信息系統(tǒng)來運行，由VisualBasic的易用性和靈活性，所以它是開發(fā)管理信息系統(tǒng)的首選。　　VisualBasic的應(yīng)用程序開發(fā)極易上手，只需要一些VisualFoxPro數(shù)據(jù)庫及操作;結(jié)構(gòu)化查詢語言;結(jié)構(gòu)

4、化程序設(shè)計;查詢與視圖設(shè)計;面向?qū)ο蟮幕A(chǔ)知識。隨著可視化技術(shù)的發(fā)展，VB逐漸成為新一代計算機程序設(shè)計的工具。利用這種工具，能夠使用戶擺脫了面向過程語言的許多細節(jié)，而主要的精力集中在解決問題上和設(shè)計用戶好界面上,使編程工作變得輕松快捷。因此，在各個領(lǐng)域中應(yīng)用非常廣泛。許多計算機專業(yè)和非計算機專業(yè)的人員常常用它來編程開發(fā)應(yīng)用程序和軟件。這些都使得VisualBasic結(jié)構(gòu)嚴(yán)謹(jǐn)、概念準(zhǔn)確、理論聯(lián)系實際、深入淺出、通俗易懂，成為一套非

5、常好用的程序開發(fā)環(huán)境。　　隨著市場的競爭日趨劇烈，人才已成為實現(xiàn)企業(yè)戰(zhàn)略目標(biāo)的關(guān)鍵因素，企業(yè)中人心的向背和員工對工作的投入程度在很大程度上決定了該企業(yè)的興衰與成敗。如何能保持本企業(yè)員工的工作責(zé)任感，激勵他們的工作熱情，減少人才的流失，已成為困擾企業(yè)主管和人力資源經(jīng)理日益尖銳的問題。本項目是為學(xué)生成績管理系統(tǒng)而設(shè)計的，目前,經(jīng)營方式的變革和日薪月益的新技術(shù)的應(yīng)用，使通企業(yè)迎來了高速發(fā)展的新紀(jì)元。面

6、對此問題企業(yè)需要通過改革和創(chuàng)新，提高管理能力，提高核心競爭力，通過導(dǎo)入規(guī)范的信息管理系統(tǒng)，建立信息化管理平臺，借助先進的計算機技術(shù)，網(wǎng)絡(luò)通信技術(shù)以及先進的計算機管系統(tǒng)軟件，　　實現(xiàn)集團化、專業(yè)化、信息化的經(jīng)營方式，以實現(xiàn)集中管理，使業(yè)務(wù)周期縮短，成本降低，提高核心競爭力。　　系統(tǒng)使用說明<

7、;p>　　安裝好系統(tǒng)，進入學(xué)生成績管理系統(tǒng)的主界面，然后調(diào)出需要的管理窗口，如調(diào)出學(xué)生查找／學(xué)生基本信息查詢／成績查詢/學(xué)生基本信息修改/成績修改等窗口，可根據(jù)它的屬性對其進行相應(yīng)的設(shè)置，如果不需要做任何工作既可退出本系統(tǒng)。　　目錄　　一．需求分析…………………………………<

8、p>　　1.1 功能需求…………………………………………　　1.2開發(fā)與運行環(huán)境………………………………….　　二．系統(tǒng)設(shè)計…………………………………...　　2.1 系統(tǒng)模塊設(shè)計………………………………………..　　2.2 數(shù)據(jù)庫設(shè)計………………………………….

9、...　　三．詳細設(shè)計　　3.1 引言……………………....................................　　3.2 軟件工程的工具…………………………….......　　3.3 內(nèi)容……………………………

10、……………　　3.４應(yīng)用程序的創(chuàng)建…………………………………　　四．參考文獻………………………………………　　五．小結(jié)……………………………………………　　一. 需求分析　　1.1 功能分

11、析：　　錄入，用于學(xué)生成績/選課信息的錄入；　　刪除，用于學(xué)生成績/選課信息的刪除；　　修改，用于學(xué)生成績/選課信息的部分或全部修改；　　查詢，用于學(xué)生成績/選課信息的查詢。、　　數(shù)據(jù)流圖（DFD）：<

12、;p>　　1.2開發(fā)與運行環(huán)境　　成績管理系統(tǒng)開發(fā)與運行環(huán)境如下：　　開發(fā)環(huán)境：Windows XP　　數(shù)據(jù)庫管理系統(tǒng)：Microsoft office Accecc 　　運行環(huán)境：Windows 98/ME/2000/XP<p&

13、gt;　　數(shù)據(jù)庫實現(xiàn)　　使用Microsoft Accecc創(chuàng)建數(shù)據(jù)庫創(chuàng)建成績信息, 課程資源，數(shù)據(jù)處理錄入，學(xué)生基本信息，用戶，管理員等表。　　二．系統(tǒng)設(shè)計　　2.1 系統(tǒng)模塊設(shè)計<b&

14、gt;　　模塊設(shè)計如圖：　　2.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計　　創(chuàng)建表　　1成績信息表 　　2.課程資源表

15、;　　3．?dāng)?shù)據(jù)處理錄入表　　4．學(xué)生基本信息表　　5．用戶表　　6．管理員表　　成績=學(xué)號+姓名+

16、性別+所在系別。　　學(xué)號=數(shù)字；姓名=文本; 性別=文本；所在系別=文本。　　.課程資源=所在系別+所在專業(yè) +所在班級 +課程名稱 +課程代碼　　學(xué)生=學(xué)號+姓名+民族+出生年+出生月。　　用戶=用戶名+密碼+性別+出生年+出生月。<p&

17、gt;　　管理=編碼+管理員+密碼。 　　三、詳細設(shè)計　　3.1 引言　　目的：對整個軟件開發(fā)的過程進行編寫和設(shè)計。　　背景：用于對項目的來源。本軟件實屬原來開發(fā)人員所開發(fā)。

18、;　　3.2軟件開發(fā)的工具　　計算機、SQL Server 2000 +Access、WindowsXP。　　3.3內(nèi)容　　軟件設(shè)計的過程和所需要的過程界面，對一些程序進行編碼。　　3.4應(yīng)用程序的創(chuàng)建 <

19、/p>　　1．歡迎界面的創(chuàng)建　　(1) 啟動VB，單擊工具欄上的<Ctrl+w>按鈕將自動創(chuàng)建的窗體保存。　　(2) 向窗體中添加2個控件選項卡中Standard選項卡內(nèi)的Label和一個Panel1控件，一個Timer1控件。單擊工具欄上的Save All 按鈕保存。

20、　?。?）Label1的Caption屬性為“歡迎進入”，Label2的Caption屬性為“學(xué)生成績管理系統(tǒng)”。設(shè)置好的窗體如圖所示：　　為實現(xiàn)窗體功能，需要添加如下代碼　　procedure TForm1.Timer1Timer(Sender: TObject);&l

21、t;b>　　begin　　if form1.panel2.Left<form1.panel1.Width then　　begin　　form1.panel2.Left:=form1.panel2.Left+5;<p

22、>　　exit;　　end;　　timer1.Enabled:=false;　　flag:=true;　　end;<p&g

23、t;　　2．登錄窗體的創(chuàng)建　　（1）啟動VB，單擊工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　?。?）將主窗體的Caption屬性改為“登錄”。向窗體中添加2個Edit控件，4個Image控件，8個Label控件，8個Panel 控件,并設(shè)置各控件的屬性如表示。設(shè)置好的窗體如圖所示：

24、　　。　　為實現(xiàn)窗體功能，需要添加如下代碼　　procedure TForm2.SpeedButton1Click(Sender: TObject);　　begin　　resu

25、lts:=ADOTable1.Lookup('用戶名',edit1.text,'密碼');{檢索數(shù)據(jù)庫中對應(yīng)用戶名的密碼項}　　if edit1.Text='' then　　application.MessageBox('用戶名不能為空！','提示',mb_ok)</p

26、>　　else if edit2.Text='' then　　application.messagebox('密碼不能為空！','警告',mb_ok)　　else　　showmessage('

27、密碼錯誤或用戶不存在！');　　edit1.Visible:=true;　　edit2.Visible:=true;　　edit1.Text:='';　　edit2.Text:='';<

28、;b>　　end;　　end.　　3，退出窗體的創(chuàng)建　　啟動VB ，單擊工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　　向窗體中添加1個Image控件，2個La

29、bel控件，2個SpeedButton控件.并設(shè)置各控件的屬性。設(shè)置好的窗體如圖所示：　　為實現(xiàn)窗體功能，需要添加如下代碼　　procedure TForm3.SpeedButton1Click(Sender: TObject);　　begin<

30、p>　　application.ProcessMessages;　　form2.Close;　　form3.Close;　　end;　　4．用戶注冊窗體的創(chuàng)建　?。?），啟動VB ，單擊

31、工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　?。?），將主窗體的Caption屬性改為“新用戶注冊”。向窗體中添加4個ComboBox控件，9個Edit控件，2個Image控件，16個Label控件，2個Memo控件，10個Panel控件，3個SpeedButton控件.并設(shè)置各控件的屬性如表所示。設(shè)置好的窗體如圖所示：　　為實現(xiàn)窗體功能，需

32、要添加如下代碼：　　procedure TForm4.SpeedButton1Click(Sender: TObject);　　begin　　SQL.Clear;　　SQL.Add('select * from 用戶表 whe

33、re 用戶表.用戶名=:a');　　parameters.ParamByName('a').Value:=Trim(Edit1.Text);　　Open;　　end;　　h

34、:=edit2.Text;　　k:=edit3.Text;　　if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (edit5.Text='')or (edit6.Text=

35、9;')or (edit7.Text='')or (edit8.Text='')or (edit9.Text='')then　　begin　　application.MessageBox('信息不完整！','錯誤操作',mb_ok

36、);　　else if h<>k then　　begin　　application.MessageBox('密碼不匹配！','錯誤操作',mb_ok);　　else<

37、/b>　　if ADOQuery1.Eof=false then　　begin　　ShowMessage('該用戶已經(jīng)存在，請重新填寫');　　Edit1.Clear&l

38、t;b>　　end　　else　　if not (IsVaildEmailAddr(Edit7.Text)) then　　begin　　ShowMessage('

39、您輸入的電子郵件地址格式不合法!');　　Edit7.Clear;　　adoquery1.sql.clear;　　Adoquery1.sql.add('insert into 用戶表(用戶名,密碼,性別,出生年,出生月,聯(lián)系地址,聯(lián)系電話,郵政編碼,電子郵箱,所在系別,所在班級,個人愛好,用戶頭像

40、,用戶備注)values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14)');　　Adoquery1.execsql;　　application.MessageBox('數(shù)據(jù)已錄入，請查看！','完成提示',mb_ok);

41、　Result:=True; //以上的判斷都通過，則表示地址字符串為合法　　end;　　5．學(xué)生窗體的創(chuàng)建　?。?）打開V isualBasic6.0教材，按[F5]鍵或單擊工具欄上”啟動”按鈕運行程序,程序運行結(jié)果如圖。&l

42、t;/p>　?。?）將窗體的Caption屬性改為“學(xué)生基本信息”。向窗體中添加1個GroupBox控件，在GroupBox上添加4個ComboBox控件，16個Edit控件，3個GroupBox控件，在GroupBox2上添加1個SpeedButton控件，在GroupBox3上添加1個SpeedButton控加，在GroupBox4控件上添加1個SpeedButton控件，25個Label控件，2個Mem

43、o控件，2個Panel控件。并設(shè)置各控件的屬性，設(shè)置好的窗體如圖所示：　　為實現(xiàn)窗體功能，需要添加如下代碼：　　procedure TForm6.Edit9KeyPress(Sender: TObject; var Key: Char);　　begin

44、　　Application.MessageBox('郵政編碼只能用數(shù)字表示，請重新輸入！','警告',0+64)　　end;　　end;　　procedure TForm6.Edit1Ke

45、yPress(Sender: TObject; var Key: Char);　　begin　　Application.MessageBox('學(xué)號只能用數(shù)字表示，請重新輸入！','警告',0+64)　　end;</b&

46、gt;　　end;　　procedure TForm6.Edit10KeyPress(Sender: TObject; var Key: Char);　　begin　　Application.Me

47、ssageBox('聯(lián)系電話只能用數(shù)字表示，請重新輸入！','警告',0+64)　　end;　　end;　　6查找窗體的創(chuàng)建

48、?。?）啟動VB,工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　?。?）將主窗體的Caption屬性改為“精確查找”，向窗體中添加1個GroupBox控件，在GroupBox控件上添加1個Edit，1個Label控件，1個SpeedButton控件。并設(shè)置各控件的屬性，設(shè)置好的窗體如圖所示：　　為實現(xiàn)窗體功能，需要添加如下代碼：</p&g

49、t;　　procedure TForm8.SpeedButton1Click(Sender: TObject);　　begin　　form7.PageControl1.ActivePage:=form7.tabsheet2;　　if edit1.Tex

50、t='' then　　begin　　MessageBox(handle,'請輸入姓名,不能為空！','提示',MB_OK or MB_ICONINFORMATION);　　exit;<

51、/p>　　end　　else　　begin　　form7.adoquery1.SQL.Clear;　　form7.adoquery

52、1.Close;　　form7.adoquery1.sql.Add('select *from 用戶表 where 用戶名='''+Edit1.Text+'''');　　MessageBox(handle,'查詢完畢！','提示',MB_OK or MB_IC

53、ONINFORMATION);　　form7.adoquery1.Open;　　edit1.Text:='';　　end;　　end;

54、7成績錄入窗體的創(chuàng)建　?。?）啟動VB ，單擊工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　?。?）將主窗體的Caption屬性改為“成績錄入”，向窗體中添加1個GroupBox控件，在GroupBox控件上2個ComboBox控件，8個Edit控件，3個GroupBox控件，12個Label控件，1個Memo控件，2個Panel控件,并設(shè)置各

55、控件的屬性，設(shè)置好的窗體如圖所示：　　為實現(xiàn)窗體功能，需要添加如下代碼：　　procedure TForm9.SpeedButton1Click(Sender: TObject);　　begin　　begin<

56、/b>　　with ADOQuery1 do　　begin　　close;　　SQL.Clear;　　SQL.Add('select * f

57、rom 成績信息表 where 成績信息表.學(xué)號=:a');　　parameters.ParamByName('a').Value:=Trim(Edit1.Text);　　Open;　　end;

58、　　if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (edit5.Text='')or (edit6.Text='')or (edit7.Text='')or (edit8.Text='')

59、or(combobox1.Text='')or(combobox2.Text='') then　　begin　　application.MessageBox('信息不完整！','錯誤操作',mb_ok);<

60、b>　　exit;　　end　　else if ADOQuery1.Eof=false then　　begin　　ShowMessage('該學(xué)生已經(jīng)存在，請重新

61、填寫');　　Edit1.Clear　　end　　else　　begin　　adoquery1.close;

62、　　adoquery1.sql.clear;　　Adoquery1.sql.add('insert into 成績信息表(學(xué)號,姓名,性別,所在系別,所在專業(yè),所在班級,課程名稱,課程代號,學(xué)期,成績,備注內(nèi)容)'　　+'values (:1,:2,:3,:4,:5,:6,:7,:8,:9

63、,:10,:11)');　　Adoquery1.execsql;　　application.MessageBox('數(shù)據(jù)已錄入，請查看！','完成提示',mb_ok);　　edit1.Text:='';　　edit2

64、.Text:='';　　end;　　end;　　end;　　8學(xué)生成績管理窗體的創(chuàng)建　?。?）啟動V

65、B ，單擊工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　?。?）將主窗體的Caption屬性改為“學(xué)生成績管理系統(tǒng)”，向窗體中添加1個MainMenul控件，2個Panel控件，1個PopupMenul控件，1個StausBar控件，1個TreeView控件。向Panel1控件上添加6個GroupBox控件，在每個GroupBox 控件上添加1個SpeedButton控件。在Panel

66、2上添加2個DBGrid控件1個Image控件，1個Panel控件，　　為實現(xiàn)窗體功能，需要添加如下代碼　　procedure TForm10.BitBtn2Click(Sender: TObject);　　begin　　DBgrid

67、1.Visible:=true;　　DBgrid2.Visible:=false;　　DBgrid1.Font.Color:=clteal;　　if edit5.Text='' then　　begin</p&g

68、t;　　MessageBox(handle,'請輸入姓名,不能為空！','提示',MB_OK or MB_ICONINFORMATION);　　exit;　　end

69、　else　　begin　　adoquery2.SQL.Clear;　　adoquery2.Close;　　adoquery2.sql.add('select *from 學(xué)生基本信息表 where 學(xué)號=

70、'''+Edit5.Text+'''');　　MessageBox(handle,'查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);　　adoquery2.Open;　　statusbar1.

71、Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';　　edit5.Text:='';　　end;　　end;<

72、;/p>　　procedure TForm10.BitBtn3Click(Sender: TObject);　　var　　sql:string;　　begin　　if

73、(edit6.Text<>'')or (edit7.Text<>'')or (edit8.Text<>'')or (edit9.Text<>'')or (edit10.Text<>'')or (edit11.Text<>'')or (combobox2.Text<&

74、gt;'')then　　sql:='where (學(xué)號 like'''+'%'+edit6.Text+'%'') or (姓名 like'''+'%'+edit7.Text+'%'') or (所在系別 like'''+&

75、#39;%'+combobox2.Text+'%'') or (所在專業(yè) like'''+'%'+edit8.Text+'%'') or (所在班級 like'''+'%'+edit9.Text+'%'') or (貫籍 like'''+'%

76、9;+edit10.Text+'%'')or (政治面目 like'''+'%'+edit11.Text+'%'')'　　else　　begin

77、;　　application.messagebox('沒有查詢條件！','提示',mb_ok);　　exit;　　end;　　ADOQuery2.SQL.Add('select * from 學(xué)生基

78、本信息表');　　statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';　　edit6.Text:='';　　edit7.Text:='';<

79、/p>　　edit8.Text:='';　　edit9.Text:='';　　edit10.Text:='';　　edit11.Text:='';　　end;&l

80、t;/b>　　procedure TForm10.BitBtn4Click(Sender: TObject);　　begin　　MessageBox(handle,'請輸入姓名,不能為空！','提示',MB_OK or MB_ICONIN

81、FORMATION);　　exit;　　end　　else　　begin　　a

82、doquery1.SQL.Clear;　　adoquery1.Close;　　adoquery1.sql.add('select *from 成績信息表 where 學(xué)號='''+Edit12.Text+'''');　　MessageBox(hand

83、le,'查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);　　adoquery1.Open;　　statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄';</p&g

84、t;　　edit12.Text:='';　　end;　　end;　　if (edit13.Text<>'')or (edit14.Text<>''

85、;)or (edit15.Text<>'')or (edit16.Text<>'')or (edit17.Text<>'')or (edit18.Text<>'')or (combobox3.Text<>'')or (edit19.Text<>'')then</p&

86、gt;　　sql:='where (學(xué)號 like'''+'%'+edit13.Text+'%'') or (姓名 like'''+'%'+edit14.Text+'%'') or (所在系別 like'''+'%'+combobox3.Te

87、xt+'%'') or (所在專業(yè) like'''+'%'+edit15.Text+'%'') or (所在班級 like'''+'%'+edit16.Text+'%'') or (課程名稱 like'''+'%'+edit17.Text+'

88、;%'')or (課程代號 like'''+'%'+edit18.Text+'%'')or (學(xué)期 like'''+'%'+edit19.Text+'%'')'　　else<p&

89、gt;　　begin　　application.messagebox('沒有查詢條件！','提示',mb_ok);　　exit;　　end;&l

90、t;p>　　ADOQuery1.Close ;　　ADOQuery1.SQL.Clear ;　　ADOQuery1.SQL.Add('select * from 成績信息表');　　ADOQuery1.SQL.Add(sql);　　ADOQuery1

91、.Open ;　　if combobox1.Text <>'' then sqlstr:=sqlstr+' and (所在系別 like'''+'%'+combobox1.text+'%'')';　　if edit1.Text <>&#

92、39;' then sqlstr:=sqlstr+'and (所在專業(yè) like'''+'%'+edit1.text+'%'')' ;　　if edit2.Text <>'' then sqlstr:=sqlstr+'and (所在班級 like'''

93、;+'%'+edit2.text+'%'')' ;　　if edit3.Text <>'' then sqlstr:=sqlstr+'and (學(xué)號 like'''+'%'+edit3.text+'%'')' ;<

94、;p>　　if edit4.Text <>'' then　　sqlstr:=sqlstr+'and (姓名 like'''+'%'+edit4.text+'%'')' ;　　ADOQuery2.Close ;<p

95、>　　ADOQuery2.SQL.Clear ;　　ADOQuery2.SQL.Add('select * from 學(xué)生基本信息表');　　ADOQuery2.SQL.Add(sqlstr);　　ADOQuery2.Open ;　　statusba

96、r1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';　　edit1.Text:='';　　edit2.Text:='';　　edit3.Text:='';

97、　　edit4.Text:='';　　combobox1.Text:='';　　except　　exit;

98、;　　end;　　end;　　procedure TForm10.BitBtn6Click(Sender: TObject);　　begin　　if (DBedit1.Text

99、='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')or (DBedit6.Text='')or (DBedit7.Text='')or (DBedit8.Text='')or (DBedit9.T

100、ext='')or (DBedit10.Text='')or (DBedit11.Text='')or (DBedit12.Text='')or (DBedit13.Text='')or (DBedit14.Text='')then　　begin

101、;　　application.MessageBox('信息不完整！','錯誤操作',mb_ok);　　exit;　　end　　else</p

102、>　　adoquery2.Prior;　　end;　　procedure TForm10.BitBtn7Click(Sender: TObject);　　begin

103、if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')or (DBedit6.Text='')or (DBedit7.Text='')or (DBedit8.Text='

104、9;)or (DBedit9.Text='')or (DBedit10.Text='')or (DBedit11.Text='')or (DBedit12.Text='')or (DBedit13.Text='')or (DBedit14.Text='')then　　begin<

105、;/b>　　application.MessageBox('信息不完整！','錯誤操作',mb_ok);　　exit;　　end　　else

106、　　adoquery2.Next;　　end;　　procedure TForm10.BitBtn9Click(Sender: TObject);　　begin</p&g

107、t;　　if dbgrid2.SelectedIndex>=0 then　　if (DBedit21.Text='')or(DBedit22.Text='')or(DBedit23.Text='') or (DBedit24.Text='')or (DBedit25.Text='')or

108、(DBedit26.Text='')or (DBedit27.Text='')or (DBedit28.Text='')or (DBedit29.Text='')or (DBedit30.Text='')then　　begin　　appl

109、ication.MessageBox('信息不完整！','錯誤操作',mb_ok);　　if messagedlg('你確定要刪除該記錄嘛？',mtinformation,[mbyes,mbno],0)=mryes then　　adoquery1.Delete;&l

110、t;b>　　end　　else　　application.MessageBox('沒有記錄可刪除或沒有選定要刪除記錄！','刪除提示',mb_ok);　　end;

111、;　　procedure TForm10.BitBtn13Click(Sender: TObject);　　begin　　if dbgrid1.SelectedIndex>0 then　　begin</p

112、>　　if messagedlg('你確定要刪除該記錄嘛？',mtinformation,[mbyes,mbno],0)=mryes then　　adoquery2.Delete;　　end　　else</b

113、>　　application.MessageBox('沒有記錄可刪除或沒有選定要刪除記錄！','刪除提示',mb_ok);　　end;　　procedure TForm10.BitBtn11Click(Sender: TObject);&

114、lt;/p>　　begin　　if dbgrid2.SelectedIndex>=0 then　　if (DBedit21.Text='')or(DBedit22.Text='')or(DBedit23.Text='') or (DBe

115、dit24.Text='')or (DBedit25.Text='')or (DBedit26.Text='')or (DBedit27.Text='')or (DBedit28.Text='')or (DBedit29.Text='')or (DBedit30.Text='')then

116、;　　begin　　application.MessageBox('信息不完整！','錯誤操作',mb_ok);　　exit;　　end<

117、p>　　else　　begin　　adoquery1.Edit;　　adoquery1.Post;　　application.MessageBox('你已修改該記錄的信息',

118、'修改提示',mb_ok);　　end　　else　　application.MessageBox('沒有記錄可修改或沒有選定要修改記錄！','修改提示',mb_ok);

119、　　end;　　procedure TForm10.BitBtn8Click(Sender: TObject);　　begin　　if dbgrid1.SelectedIndex>=0 then</p&g

120、t;　　if (DBedit1.Text='')or(DBedit1.Text='')or(DBedit3.Text='') or (DBedit4.Text='')or (DBedit5.Text='')or (DBedit6.Text='')or (DBedit7.Text='')or (DBedit

121、8.Text='')or (DBedit9.Text='')or (DBedit10.Text='')or (DBedit11.Text='')or (DBedit12.Text='')or (DBedit13.Text='')or (DBedit14.Text='')then<

122、b>　　begin　　application.MessageBox('信息不完整！','錯誤操作',mb_ok);　　exit;　　end

123、　　else　　begin　　adoquery2.Edit;　　adoquery2.Post;　　application.MessageBox('你已修改該記錄的信息','

124、修改提示',mb_ok);　　end　　else　　application.MessageBox('沒有記錄可修改或沒有選定要修改記錄！','修改提示',mb_ok);<

125、;p>　　end;　　procedure TForm10.BitBtn15Click(Sender: TObject);　　begin　　DBgrid2.Visible:=true;　　DB

126、grid1.Visible:=false;　　adoquery1.SQL.Clear;　　adoquery1.Close;　　adoquery1.sql.add('select *from 成績信息表');　　MessageBox(handle,'

127、查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);　　adoquery1.Open;　　statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄';<

128、p>　　end;　　procedure TForm10.BitBtn14Click(Sender: TObject);　　begin　　DBgrid1.Visible:=true;　　DBg

129、rid2.Visible:=false;　　adoquery2.SQL.Clear;　　adoquery2.Close;　　adoquery2.sql.add('select *from 學(xué)生基本信息表');　　MessageBox(handle,'

130、;查詢完畢！','提示',MB_OK or MB_ICONINFORMATION);　　adoquery2.Open;　　statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';<

131、;p>　　end;　　procedure TForm10.TreeView1Click(Sender: TObject);　　begin　　DBgrid1.Visible:=true;　　D

132、Bgrid2.Visible:=false;　　stext:=treeview1.Selected.Text;　　adoquery2.Close;　　adoquery2.SQL.Clear;　　i:=treeview1.Selected.Index;

133、　　if i in [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30] then　　adoquery2.SQL.Text:='select * from 學(xué)生基本信息表 where 所在系別 like'''+'%'

134、;+stext+'%''';　　ADoquery2.Open;　　ADOquery2.First;　　statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';

135、　　if ADOQuery2.RecordCount=0 then　　statusbar1.Panels[1].Text:='單擊目錄樹只可查詢到各個系別的總體，請使用學(xué)生信息查詢';　　end;　　9.程資源窗體的創(chuàng)

136、建　?。?）啟動Delphi 7.0 ，單擊工具欄上的Save All 按鈕將自動創(chuàng)建的窗體保存。　　（2）將主窗體的Caption屬性改為“課程資源錄入”，向窗體中添加1個GroupBox控件，在GroupBox控件上添加1個ComboBox控件，4個Edit控件3個GroupBox控件，在每個GroupBox控件添加1個SpeedButton控件5個

137、Label控件，1個Panel控件,并設(shè)置各個控件的屬性，設(shè)置好的窗體如圖所示　　為實現(xiàn)窗體功能，需要添加如下代碼:　　procedure TForm11.SpeedButton1Click(Sender: TObject);　　begin<p&

138、gt;　　if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (combobox1.Text='') then　　begin　　applica

139、tion.MessageBox('信息不完整！','錯誤操作',mb_ok);　　exit;　　end　　else　　adoq

眾賞文庫> 全部分類> 畢業(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)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

畢業(yè)設(shè)計----學(xué)生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

畢業(yè)設(shè)計----學(xué)生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載