版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、<p><b> 畢</b></p><p><b> 業(yè)</b></p><p><b> 論</b></p><p><b> 文</b></p><p> 題 目:學(xué)生成績(jī)管理系統(tǒng)</p><p>&
2、lt;b> 姓 名: </b></p><p> 班 級(jí): </p><p><b> 指導(dǎo)老師: </b></p><p> 2007年5月28日</p><p><b> 前 言</b></p><p> 管理信息系統(tǒng)是
3、一個(gè)利用計(jì)算機(jī)軟件硬件資源以及數(shù)據(jù)庫(kù)的人-機(jī)系統(tǒng),它提供信息支持企業(yè)或組織實(shí)現(xiàn)運(yùn)行,管理和決策功能。隨著我國(guó)改革開(kāi)放的深入和加入WTO與世界接軌后,各行各業(yè)的許多企業(yè)通過(guò)使用計(jì)算機(jī)設(shè)備和管理信息系統(tǒng)來(lái)運(yùn)行,由VisualBasic的易用性和靈活性,所以它是開(kāi)發(fā)管理信息系統(tǒng)的首選。</p><p> VisualBasic的應(yīng)用程序開(kāi)發(fā)極易上手,只需要一些VisualFoxPro數(shù)據(jù)庫(kù)及操作;結(jié)構(gòu)化查詢語(yǔ)言;結(jié)構(gòu)
4、化程序設(shè)計(jì);查詢與視圖設(shè)計(jì);面向?qū)ο蟮幕A(chǔ)知識(shí)。隨著可視化技術(shù)的發(fā)展,VB逐漸成為新一代計(jì)算機(jī)程序設(shè)計(jì)的工具。利用這種工具,能夠使用戶擺脫了面向過(guò)程語(yǔ)言的許多細(xì)節(jié),而主要的精力集中在解決問(wèn)題上和設(shè)計(jì)用戶好界面 上,使編程工作變得輕松快捷。因此,在各個(gè)領(lǐng)域中應(yīng)用非常廣泛。 許多計(jì)算機(jī)專業(yè)和非計(jì)算機(jī)專業(yè)的人員常常用它來(lái)編程開(kāi)發(fā)應(yīng)用程序和軟件。這些都使得VisualBasic結(jié)構(gòu)嚴(yán)謹(jǐn)、概念準(zhǔn)確、理論聯(lián)系實(shí)際、深入淺出、通俗易懂,成為一套非
5、常好用的程序開(kāi)發(fā)環(huán)境。</p><p> 隨著市場(chǎng)的競(jìng)爭(zhēng)日趨劇烈,人才已成為實(shí)現(xiàn)企業(yè)戰(zhàn)略目標(biāo)的關(guān)鍵因素,企業(yè)中人心的向背和員工對(duì)工作的投入程度在很大程度上決定了該企業(yè)的興衰與成敗。如何能保持本企業(yè)員工的工作責(zé)任感,激勵(lì)他們的工作熱情,減少人才的流失,已成為困擾企業(yè)主管和人力資源經(jīng)理日益尖銳的問(wèn)題。本項(xiàng)目是為學(xué)生成績(jī)管理系統(tǒng)而設(shè)計(jì)的,目前,經(jīng)營(yíng)方式的變革和日薪月益的新技術(shù)的應(yīng)用,使通企業(yè)迎來(lái)了高速發(fā)展的新紀(jì)元。面
6、對(duì)此問(wèn)題企業(yè)需要通過(guò)改革和創(chuàng)新,提高管理能力,提高核心競(jìng)爭(zhēng)力,通過(guò)導(dǎo)入規(guī)范的信息管理系統(tǒng),建立信息化管理平臺(tái),借助先進(jìn)的計(jì)算機(jī)技術(shù),網(wǎng)絡(luò)通信技術(shù)以及先進(jìn)的計(jì)算機(jī)管系統(tǒng)軟件,</p><p> 實(shí)現(xiàn)集團(tuán)化、專業(yè)化、信息化的經(jīng)營(yíng)方式,以實(shí)現(xiàn)集中管理,使業(yè)務(wù)周期縮短,成本降低,提高核心競(jìng)爭(zhēng)力。</p><p><b> 系統(tǒng)使用說(shuō)明</b></p><
7、;p> 安裝好系統(tǒng),進(jìn)入學(xué)生成績(jī)管理系統(tǒng)的主界面,然后調(diào)出需要的管理窗口,如調(diào)出學(xué)生查找/學(xué)生基本信息查詢/成績(jī)查詢/學(xué)生基本信息修改/成績(jī)修改等窗口,可根據(jù)它的屬性對(duì)其進(jìn)行相應(yīng)的設(shè)置,如果不需要做任何工作既可退出本系統(tǒng)。</p><p><b> 目 錄</b></p><p> 一. 需求分析…………………………………</p><
8、p> 1.1 功能需求…………………………………………</p><p> 1.2開(kāi)發(fā)與運(yùn)行環(huán)境………………………………….</p><p> 二. 系統(tǒng)設(shè)計(jì)…………………………………...</p><p> 2.1 系統(tǒng)模塊設(shè)計(jì)………………………………………..</p><p> 2.2 數(shù)據(jù)庫(kù)設(shè)計(jì)………………………………….
9、...</p><p><b> 三. 詳細(xì)設(shè)計(jì)</b></p><p> 3.1 引言……………………....................................</p><p> 3.2 軟件工程的工具…………………………….......</p><p> 3.3 內(nèi)容……………………………
10、……………</p><p> 3.4 應(yīng)用程序的創(chuàng)建…………………………………</p><p> 四.參考文獻(xiàn)………………………………………</p><p> 五.小結(jié)……………………………………………</p><p><b> 一. 需求分析</b></p><p> 1.1 功能分
11、析:</p><p> 錄入,用于學(xué)生成績(jī)/選課信息的錄入;</p><p> 刪除,用于學(xué)生成績(jī)/選課信息的刪除;</p><p> 修改,用于學(xué)生成績(jī)/選課信息的部分或全部修改;</p><p> 查詢,用于學(xué)生成績(jī)/選課信息的查詢。、</p><p> 數(shù)據(jù)流圖(DFD):</p><
12、;p> 1.2開(kāi)發(fā)與運(yùn)行環(huán)境</p><p> 成績(jī)管理系統(tǒng)開(kāi)發(fā)與運(yùn)行環(huán)境如下:</p><p> 開(kāi)發(fā)環(huán)境:Windows XP</p><p> 數(shù)據(jù)庫(kù)管理系統(tǒng):Microsoft office Accecc </p><p> 運(yùn)行環(huán)境:Windows 98/ME/2000/XP</p><p&
13、gt;<b> 數(shù)據(jù)庫(kù)實(shí)現(xiàn)</b></p><p> 使用Microsoft Accecc創(chuàng)建數(shù)據(jù)庫(kù)創(chuàng)建成績(jī)信息, 課程資源,數(shù)據(jù)處理錄入,學(xué)生基本信息,用戶,管理員等表。</p><p><b> 二. 系統(tǒng)設(shè)計(jì)</b></p><p> 2.1 系統(tǒng)模塊設(shè)計(jì)</p><p><b&
14、gt; 模塊設(shè)計(jì)如圖:</b></p><p> 2.2 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)</p><p><b> 創(chuàng)建表</b></p><p> 1成績(jī)信息表 </p><p><b> 2.課程資源表</b></p>
15、;<p><b> 3.?dāng)?shù)據(jù)處理錄入表</b></p><p><b> 4.學(xué)生基本信息表</b></p><p><b> 5.用戶表</b></p><p><b> 6.管理員表</b></p><p> 成績(jī)=學(xué)號(hào)+姓名+
16、性別+所在系別。</p><p> 學(xué)號(hào)=數(shù)字;姓名=文本; 性別=文本;所在系別=文本。</p><p> .課程資源=所在系別+所在專業(yè) +所在班級(jí) +課程名稱 +課程代碼</p><p> 學(xué)生=學(xué)號(hào)+姓名+民族+出生年+出生月。</p><p> 用戶=用戶名+密碼+性別+出生年+出生月。</p><p&
17、gt; 管理=編碼+管理員+密碼。 </p><p><b> 三、詳細(xì)設(shè)計(jì)</b></p><p><b> 3.1 引言</b></p><p> 目的:對(duì)整個(gè)軟件開(kāi)發(fā)的過(guò)程進(jìn)行編寫和設(shè)計(jì)。</p><p> 背景:用于對(duì)項(xiàng)目的來(lái)源。本軟件實(shí)屬原來(lái)開(kāi)發(fā)人員所開(kāi)發(fā)。</p>
18、;<p> 3.2軟件開(kāi)發(fā)的工具</p><p> 計(jì)算機(jī)、SQL Server 2000 +Access、WindowsXP。</p><p><b> 3.3內(nèi)容</b></p><p> 軟件設(shè)計(jì)的過(guò)程和所需要的過(guò)程界面,對(duì)一些程序進(jìn)行編碼。</p><p> 3.4應(yīng)用程序的創(chuàng)建 <
19、/p><p><b> 1.歡迎界面的創(chuàng)建</b></p><p> (1) 啟動(dòng)VB,單擊工具欄上的<Ctrl+w>按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> (2) 向窗體中添加2個(gè)控件選項(xiàng)卡中Standard選項(xiàng)卡內(nèi)的Label和一個(gè)Panel1控件,一個(gè)Timer1控件。單擊工具欄上的Save All 按鈕保存。
20、</p><p> ?。?)Label1的Caption屬性為“歡迎進(jìn)入”,Label2的Caption屬性為“學(xué)生成績(jī)管理系統(tǒng)”。設(shè)置好的窗體如圖所示:</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼</p><p> procedure TForm1.Timer1Timer(Sender: TObject);</p><p>&l
21、t;b> begin</b></p><p> if form1.panel2.Left<form1.panel1.Width then</p><p><b> begin</b></p><p> form1.panel2.Left:=form1.panel2.Left+5;</p><p
22、><b> exit;</b></p><p><b> end;</b></p><p> timer1.Enabled:=false;</p><p> flag:=true;</p><p><b> end;</b></p><p&g
23、t;<b> 2.登錄窗體的創(chuàng)建</b></p><p> (1)啟動(dòng)VB,單擊工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> (2)將主窗體的Caption屬性改為“登錄”。向窗體中添加2個(gè)Edit控件,4個(gè)Image控件,8個(gè)Label控件,8個(gè)Panel 控件,并設(shè)置各控件的屬性如表示。設(shè)置好的窗體如圖所示:</p>
24、<p><b> 。</b></p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼</p><p> procedure TForm2.SpeedButton1Click(Sender: TObject);</p><p><b> begin</b></p><p> resu
25、lts:=ADOTable1.Lookup('用戶名',edit1.text,'密碼');{檢索數(shù)據(jù)庫(kù)中對(duì)應(yīng)用戶名的密碼項(xiàng)}</p><p> if edit1.Text='' then</p><p> application.MessageBox('用戶名不能為空!','提示',mb_ok)</p
26、><p> else if edit2.Text='' then</p><p> application.messagebox('密碼不能為空!','警告',mb_ok)</p><p><b> else</b></p><p> showmessage('
27、密碼錯(cuò)誤或用戶不存在!');</p><p> edit1.Visible:=true;</p><p> edit2.Visible:=true;</p><p> edit1.Text:='';</p><p> edit2.Text:='';</p><p><
28、;b> end;</b></p><p><b> end.</b></p><p><b> 3,退出窗體的創(chuàng)建</b></p><p> 啟動(dòng)VB ,單擊工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> 向窗體中添加1個(gè)Image控件,2個(gè)La
29、bel控件,2個(gè)SpeedButton控件.并設(shè)置各控件的屬性。設(shè)置好的窗體如圖所示:</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼</p><p> procedure TForm3.SpeedButton1Click(Sender: TObject);</p><p><b> begin</b></p><
30、p> application.ProcessMessages;</p><p> form2.Close;</p><p> form3.Close;</p><p><b> end;</b></p><p> 4.用戶注冊(cè)窗體的創(chuàng)建</p><p> ?。?),啟動(dòng)VB ,單擊
31、工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> ?。?),將主窗體的Caption屬性改為“新用戶注冊(cè)”。向窗體中添加4個(gè)ComboBox控件,9個(gè)Edit控件,2個(gè)Image控件,16個(gè)Label控件,2個(gè)Memo控件,10個(gè)Panel控件,3個(gè)SpeedButton控件.并設(shè)置各控件的屬性如表所示。設(shè)置好的窗體如圖所示:</p><p> 為實(shí)現(xiàn)窗體功能,需
32、要添加如下代碼:</p><p> procedure TForm4.SpeedButton1Click(Sender: TObject);</p><p><b> begin</b></p><p> SQL.Clear;</p><p> SQL.Add('select * from 用戶表 whe
33、re 用戶表.用戶名=:a');</p><p> parameters.ParamByName('a').Value:=Trim(Edit1.Text);</p><p><b> Open;</b></p><p><b> end;</b></p><p> h
34、:=edit2.Text;</p><p> k:=edit3.Text;</p><p> 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</p><p><b> begin</b></p><p> application.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok
36、);</p><p> else if h<>k then</p><p><b> begin</b></p><p> application.MessageBox('密碼不匹配!','錯(cuò)誤操作',mb_ok);</p><p><b> else<
37、/b></p><p> if ADOQuery1.Eof=false then</p><p><b> begin</b></p><p> ShowMessage('該用戶已經(jīng)存在,請(qǐng)重新填寫');</p><p> Edit1.Clear</p><p>&l
38、t;b> end</b></p><p><b> else</b></p><p> if not (IsVaildEmailAddr(Edit7.Text)) then</p><p><b> begin</b></p><p> ShowMessage('
39、您輸入的電子郵件地址格式不合法!');</p><p> Edit7.Clear;</p><p> adoquery1.sql.clear;</p><p> Adoquery1.sql.add('insert into 用戶表(用戶名,密碼,性別,出生年,出生月,聯(lián)系地址,聯(lián)系電話,郵政編碼,電子郵箱,所在系別,所在班級(jí),個(gè)人愛(ài)好,用戶頭像
40、,用戶備注)values (:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,:13,:14)');</p><p> Adoquery1.execsql;</p><p> application.MessageBox('數(shù)據(jù)已錄入,請(qǐng)查看!','完成提示',mb_ok);</p><p>
41、 Result:=True; //以上的判斷都通過(guò),則表示地址字符串為合法</p><p><b> end;</b></p><p><b> 5.學(xué)生窗體的創(chuàng)建</b></p><p> ?。?)打開(kāi)V isualBasic6.0教材,按[F5]鍵或單擊工具欄上”啟動(dòng)”按鈕運(yùn)行程序,程序運(yùn)行結(jié)果如圖。&l
42、t;/p><p> ?。?)將窗體的Caption屬性改為“學(xué)生基本信息”。向窗體中添加1個(gè)GroupBox控件,在GroupBox上添加4個(gè)ComboBox控件,16個(gè)Edit控件,3個(gè)GroupBox控件,在GroupBox2上添加1個(gè)SpeedButton控件,在GroupBox3上添加1個(gè)SpeedButton控加,在GroupBox4控件上添加1個(gè)SpeedButton控件,25個(gè)Label控件,2個(gè)Mem
43、o控件,2個(gè)Panel控件。并設(shè)置各控件的屬性,設(shè)置好的窗體如圖所示:</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼:</p><p> procedure TForm6.Edit9KeyPress(Sender: TObject; var Key: Char);</p><p><b> begin</b></p>
44、<p> Application.MessageBox('郵政編碼只能用數(shù)字表示,請(qǐng)重新輸入!','警告',0+64)</p><p><b> end;</b></p><p><b> end;</b></p><p> procedure TForm6.Edit1Ke
45、yPress(Sender: TObject; var Key: Char);</p><p><b> begin</b></p><p> Application.MessageBox('學(xué)號(hào)只能用數(shù)字表示,請(qǐng)重新輸入!','警告',0+64)</p><p><b> end;</b&
46、gt;</p><p><b> end;</b></p><p> procedure TForm6.Edit10KeyPress(Sender: TObject; var Key: Char);</p><p><b> begin</b></p><p> Application.Me
47、ssageBox('聯(lián)系電話只能用數(shù)字表示,請(qǐng)重新輸入!','警告',0+64)</p><p><b> end;</b></p><p><b> end;</b></p><p><b> 6查找窗體的創(chuàng)建</b></p><p>
48、 (1)啟動(dòng)VB,工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> (2)將主窗體的Caption屬性改為“精確查找”,向窗體中添加1個(gè)GroupBox控件,在GroupBox控件上添加1個(gè)Edit,1個(gè)Label控件,1個(gè)SpeedButton控件。并設(shè)置各控件的屬性,設(shè)置好的窗體如圖所示:</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼:</p&g
49、t;<p> procedure TForm8.SpeedButton1Click(Sender: TObject);</p><p><b> begin</b></p><p> form7.PageControl1.ActivePage:=form7.tabsheet2;</p><p> if edit1.Tex
50、t='' then</p><p><b> begin</b></p><p> MessageBox(handle,'請(qǐng)輸入姓名,不能為空!','提示',MB_OK or MB_ICONINFORMATION);</p><p><b> exit;</b><
51、/p><p><b> end</b></p><p><b> else</b></p><p><b> begin</b></p><p> form7.adoquery1.SQL.Clear;</p><p> form7.adoquery
52、1.Close;</p><p> form7.adoquery1.sql.Add('select *from 用戶表 where 用戶名='''+Edit1.Text+'''');</p><p> MessageBox(handle,'查詢完畢!','提示',MB_OK or MB_IC
53、ONINFORMATION);</p><p> form7.adoquery1.Open;</p><p> edit1.Text:='';</p><p><b> end;</b></p><p><b> end;</b></p><p>
54、7成績(jī)錄入窗體的創(chuàng)建</p><p> ?。?)啟動(dòng)VB ,單擊工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> (2)將主窗體的Caption屬性改為“成績(jī)錄入”,向窗體中添加1個(gè)GroupBox控件,在GroupBox控件上2個(gè)ComboBox控件,8個(gè)Edit控件,3個(gè)GroupBox控件,12個(gè)Label控件,1個(gè)Memo控件,2個(gè)Panel控件,并設(shè)置各
55、控件的屬性,設(shè)置好的窗體如圖所示:</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼:</p><p> procedure TForm9.SpeedButton1Click(Sender: TObject);</p><p><b> begin</b></p><p><b> begin<
56、/b></p><p> with ADOQuery1 do</p><p><b> begin</b></p><p><b> close;</b></p><p> SQL.Clear;</p><p> SQL.Add('select * f
57、rom 成績(jī)信息表 where 成績(jī)信息表.學(xué)號(hào)=:a');</p><p> parameters.ParamByName('a').Value:=Trim(Edit1.Text);</p><p><b> Open;</b></p><p><b> end;</b></p>
58、<p> 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</p><p><b> begin</b></p><p> application.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p><
60、b> exit;</b></p><p><b> end</b></p><p> else if ADOQuery1.Eof=false then</p><p><b> begin</b></p><p> ShowMessage('該學(xué)生已經(jīng)存在,請(qǐng)重新
61、填寫');</p><p> Edit1.Clear</p><p><b> end</b></p><p><b> else</b></p><p><b> begin</b></p><p> adoquery1.close;
62、</p><p> adoquery1.sql.clear;</p><p> Adoquery1.sql.add('insert into 成績(jī)信息表(學(xué)號(hào),姓名,性別,所在系別,所在專業(yè),所在班級(jí),課程名稱,課程代號(hào),學(xué)期,成績(jī),備注內(nèi)容)'</p><p> +'values (:1,:2,:3,:4,:5,:6,:7,:8,:9
63、,:10,:11)');</p><p> Adoquery1.execsql;</p><p> application.MessageBox('數(shù)據(jù)已錄入,請(qǐng)查看!','完成提示',mb_ok);</p><p> edit1.Text:='';</p><p> edit2
64、.Text:='';</p><p><b> end;</b></p><p><b> end;</b></p><p><b> end;</b></p><p> 8學(xué)生成績(jī)管理窗體的創(chuàng)建</p><p> (1)啟動(dòng)V
65、B ,單擊工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> (2)將主窗體的Caption屬性改為“學(xué)生成績(jī)管理系統(tǒng)”,向窗體中添加1個(gè)MainMenul控件,2個(gè)Panel控件,1個(gè)PopupMenul控件,1個(gè)StausBar控件,1個(gè)TreeView控件。向Panel1控件上添加6個(gè)GroupBox控件,在每個(gè)GroupBox 控件上添加1個(gè)SpeedButton控件。在Panel
66、2上添加2個(gè)DBGrid控件1個(gè)Image控件,1個(gè)Panel控件,</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼</p><p> procedure TForm10.BitBtn2Click(Sender: TObject);</p><p><b> begin</b></p><p> DBgrid
67、1.Visible:=true;</p><p> DBgrid2.Visible:=false;</p><p> DBgrid1.Font.Color:=clteal;</p><p> if edit5.Text='' then</p><p><b> begin</b></p&g
68、t;<p> MessageBox(handle,'請(qǐng)輸入姓名,不能為空!','提示',MB_OK or MB_ICONINFORMATION);</p><p><b> exit;</b></p><p><b> end</b></p><p><b>
69、 else</b></p><p><b> begin</b></p><p> adoquery2.SQL.Clear;</p><p> adoquery2.Close;</p><p> adoquery2.sql.add('select *from 學(xué)生基本信息表 where 學(xué)號(hào)=
70、'''+Edit5.Text+'''');</p><p> MessageBox(handle,'查詢完畢!','提示',MB_OK or MB_ICONINFORMATION);</p><p> adoquery2.Open;</p><p> statusbar1.
71、Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';</p><p> edit5.Text:='';</p><p><b> end;</b></p><p><b> end;</b><
72、;/p><p> procedure TForm10.BitBtn3Click(Sender: TObject);</p><p><b> var</b></p><p> sql:string;</p><p><b> begin</b></p><p> 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</p><p> sql:='where (學(xué)號(hào) like'''+'%'+edit6.Text+'%'') or (姓名 like'''+'%'+edit7.Text+'%'') or (所在系別 like'''+&
75、#39;%'+combobox2.Text+'%'') or (所在專業(yè) like'''+'%'+edit8.Text+'%'') or (所在班級(jí) like'''+'%'+edit9.Text+'%'') or (貫籍 like'''+'%
76、9;+edit10.Text+'%'')or (政治面目 like'''+'%'+edit11.Text+'%'')'</p><p><b> else</b></p><p><b> begin</b></p><p>
77、; application.messagebox('沒(méi)有查詢條件!','提示',mb_ok);</p><p><b> exit;</b></p><p><b> end;</b></p><p> ADOQuery2.SQL.Add('select * from 學(xué)生基
78、本信息表');</p><p> statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';</p><p> edit6.Text:='';</p><p> edit7.Text:='';<
79、/p><p> edit8.Text:='';</p><p> edit9.Text:='';</p><p> edit10.Text:='';</p><p> edit11.Text:='';</p><p><b> end;&l
80、t;/b></p><p> procedure TForm10.BitBtn4Click(Sender: TObject);</p><p><b> begin</b></p><p> MessageBox(handle,'請(qǐng)輸入姓名,不能為空!','提示',MB_OK or MB_ICONIN
81、FORMATION);</p><p><b> exit;</b></p><p><b> end</b></p><p><b> else</b></p><p><b> begin</b></p><p> a
82、doquery1.SQL.Clear;</p><p> adoquery1.Close;</p><p> adoquery1.sql.add('select *from 成績(jī)信息表 where 學(xué)號(hào)='''+Edit12.Text+'''');</p><p> MessageBox(hand
83、le,'查詢完畢!','提示',MB_OK or MB_ICONINFORMATION);</p><p> adoquery1.Open;</p><p> statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄';</p&g
84、t;<p> edit12.Text:='';</p><p><b> end;</b></p><p><b> end;</b></p><p> 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;<p> sql:='where (學(xué)號(hào) like'''+'%'+edit13.Text+'%'') or (姓名 like'''+'%'+edit14.Text+'%'') or (所在系別 like'''+'%'+combobox3.Te
87、xt+'%'') or (所在專業(yè) like'''+'%'+edit15.Text+'%'') or (所在班級(jí) like'''+'%'+edit16.Text+'%'') or (課程名稱 like'''+'%'+edit17.Text+'
88、;%'')or (課程代號(hào) like'''+'%'+edit18.Text+'%'')or (學(xué)期 like'''+'%'+edit19.Text+'%'')'</p><p><b> else</b></p><p&
89、gt;<b> begin</b></p><p> application.messagebox('沒(méi)有查詢條件!','提示',mb_ok);</p><p><b> exit;</b></p><p><b> end;</b></p>&l
90、t;p> ADOQuery1.Close ;</p><p> ADOQuery1.SQL.Clear ;</p><p> ADOQuery1.SQL.Add('select * from 成績(jī)信息表');</p><p> ADOQuery1.SQL.Add(sql);</p><p> ADOQuery1
91、.Open ;</p><p> if combobox1.Text <>'' then sqlstr:=sqlstr+' and (所在系別 like'''+'%'+combobox1.text+'%'')';</p><p> if edit1.Text <>
92、39;' then sqlstr:=sqlstr+'and (所在專業(yè) like'''+'%'+edit1.text+'%'')' ;</p><p> if edit2.Text <>'' then sqlstr:=sqlstr+'and (所在班級(jí) like'''
93、;+'%'+edit2.text+'%'')' ;</p><p> if edit3.Text <>'' then sqlstr:=sqlstr+'and (學(xué)號(hào) like'''+'%'+edit3.text+'%'')' ;</p><
94、;p> if edit4.Text <>'' then</p><p> sqlstr:=sqlstr+'and (姓名 like'''+'%'+edit4.text+'%'')' ;</p><p> ADOQuery2.Close ;</p><p
95、> ADOQuery2.SQL.Clear ;</p><p> ADOQuery2.SQL.Add('select * from 學(xué)生基本信息表');</p><p> ADOQuery2.SQL.Add(sqlstr);</p><p> ADOQuery2.Open ;</p><p> statusba
96、r1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';</p><p> edit1.Text:='';</p><p> edit2.Text:='';</p><p> edit3.Text:='';
97、</p><p> edit4.Text:='';</p><p> combobox1.Text:='';</p><p><b> except</b></p><p><b> exit;</b></p><p><b>
98、; end;</b></p><p><b> end;</b></p><p> procedure TForm10.BitBtn6Click(Sender: TObject);</p><p><b> begin</b></p><p> 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</p><p><b> begin</b></p>
101、;<p> application.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p><b> exit;</b></p><p><b> end</b></p><p><b> else</b></p
102、><p> adoquery2.Prior;</p><p><b> end;</b></p><p> procedure TForm10.BitBtn7Click(Sender: TObject);</p><p><b> begin</b></p><p>
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</p><p><b> begin<
105、;/b></p><p> application.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p><b> exit;</b></p><p><b> end</b></p><p><b> else
106、</b></p><p> adoquery2.Next;</p><p><b> end;</b></p><p> procedure TForm10.BitBtn9Click(Sender: TObject);</p><p><b> begin</b></p&g
107、t;<p> if dbgrid2.SelectedIndex>=0 then</p><p> 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</p><p><b> begin</b></p><p> appl
109、ication.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p> if messagedlg('你確定要?jiǎng)h除該記錄嘛?',mtinformation,[mbyes,mbno],0)=mryes then</p><p> adoquery1.Delete;</p><p>&l
110、t;b> end</b></p><p><b> else</b></p><p> application.MessageBox('沒(méi)有記錄可刪除或沒(méi)有選定要?jiǎng)h除記錄!','刪除提示',mb_ok);</p><p><b> end;</b></p>
111、;<p> procedure TForm10.BitBtn13Click(Sender: TObject);</p><p><b> begin</b></p><p> if dbgrid1.SelectedIndex>0 then</p><p><b> begin</b></p
112、><p> if messagedlg('你確定要?jiǎng)h除該記錄嘛?',mtinformation,[mbyes,mbno],0)=mryes then</p><p> adoquery2.Delete;</p><p><b> end</b></p><p><b> else</b
113、></p><p> application.MessageBox('沒(méi)有記錄可刪除或沒(méi)有選定要?jiǎng)h除記錄!','刪除提示',mb_ok);</p><p><b> end;</b></p><p> procedure TForm10.BitBtn11Click(Sender: TObject);&
114、lt;/p><p><b> begin</b></p><p> if dbgrid2.SelectedIndex>=0 then</p><p> 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</p><p>
116、;<b> begin</b></p><p> application.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p><b> exit;</b></p><p><b> end</b></p><
117、p><b> else</b></p><p><b> begin</b></p><p> adoquery1.Edit;</p><p> adoquery1.Post;</p><p> application.MessageBox('你已修改該記錄的信息',
118、'修改提示',mb_ok);</p><p><b> end</b></p><p><b> else</b></p><p> application.MessageBox('沒(méi)有記錄可修改或沒(méi)有選定要修改記錄!','修改提示',mb_ok);</p>
119、<p><b> end;</b></p><p> procedure TForm10.BitBtn8Click(Sender: TObject);</p><p><b> begin</b></p><p> if dbgrid1.SelectedIndex>=0 then</p&g
120、t;<p> 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</p><p><
122、b> begin</b></p><p> application.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p><b> exit;</b></p><p><b> end</b></p><p>
123、<b> else</b></p><p><b> begin</b></p><p> adoquery2.Edit;</p><p> adoquery2.Post;</p><p> application.MessageBox('你已修改該記錄的信息','
124、修改提示',mb_ok);</p><p><b> end</b></p><p><b> else</b></p><p> application.MessageBox('沒(méi)有記錄可修改或沒(méi)有選定要修改記錄!','修改提示',mb_ok);</p><
125、;p><b> end;</b></p><p> procedure TForm10.BitBtn15Click(Sender: TObject);</p><p><b> begin</b></p><p> DBgrid2.Visible:=true;</p><p> DB
126、grid1.Visible:=false;</p><p> adoquery1.SQL.Clear;</p><p> adoquery1.Close;</p><p> adoquery1.sql.add('select *from 成績(jī)信息表');</p><p> MessageBox(handle,'
127、查詢完畢!','提示',MB_OK or MB_ICONINFORMATION);</p><p> adoquery1.Open;</p><p> statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery1.RecordCount)+' 條記錄';</p><
128、p><b> end;</b></p><p> procedure TForm10.BitBtn14Click(Sender: TObject);</p><p><b> begin</b></p><p> DBgrid1.Visible:=true;</p><p> DBg
129、rid2.Visible:=false;</p><p> adoquery2.SQL.Clear;</p><p> adoquery2.Close;</p><p> adoquery2.sql.add('select *from 學(xué)生基本信息表');</p><p> MessageBox(handle,'
130、;查詢完畢!','提示',MB_OK or MB_ICONINFORMATION);</p><p> adoquery2.Open;</p><p> statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';</p><
131、;p><b> end;</b></p><p> procedure TForm10.TreeView1Click(Sender: TObject);</p><p><b> begin</b></p><p> DBgrid1.Visible:=true;</p><p> D
132、Bgrid2.Visible:=false;</p><p> stext:=treeview1.Selected.Text;</p><p> adoquery2.Close;</p><p> adoquery2.SQL.Clear;</p><p> i:=treeview1.Selected.Index;</p>
133、<p> 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</p><p> adoquery2.SQL.Text:='select * from 學(xué)生基本信息表 where 所在系別 like'''+'%'
134、;+stext+'%''';</p><p> ADoquery2.Open;</p><p> ADOquery2.First;</p><p> statusbar1.Panels[1].Text:='總共找到 '+inttostr(ADOQuery2.RecordCount)+' 條記錄';
135、</p><p> if ADOQuery2.RecordCount=0 then</p><p> statusbar1.Panels[1].Text:='單擊目錄樹(shù)只可查詢到各個(gè)系別的總體,請(qǐng)使用學(xué)生信息查詢';</p><p><b> end;</b></p><p> 9.程資源窗體的創(chuàng)
136、建</p><p> ?。?)啟動(dòng)Delphi 7.0 ,單擊工具欄上的Save All 按鈕將自動(dòng)創(chuàng)建的窗體保存。</p><p> ?。?)將主窗體的Caption屬性改為“課程資源錄入”,向窗體中添加1個(gè)GroupBox控件,在GroupBox控件上添加1個(gè)ComboBox控件,4個(gè)Edit控件3個(gè)GroupBox控件,在每個(gè)GroupBox控件添加1個(gè)SpeedButton控件5個(gè)
137、Label控件,1個(gè)Panel控件,并設(shè)置各個(gè)控件的屬性,設(shè)置好的窗體如圖所示</p><p> 為實(shí)現(xiàn)窗體功能,需要添加如下代碼:</p><p> procedure TForm11.SpeedButton1Click(Sender: TObject);</p><p><b> begin</b></p><p&
138、gt; if (edit1.Text='')or(edit2.Text='')or(edit3.Text='') or (edit4.Text='')or (combobox1.Text='') then</p><p><b> begin</b></p><p> applica
139、tion.MessageBox('信息不完整!','錯(cuò)誤操作',mb_ok);</p><p><b> exit;</b></p><p><b> end</b></p><p><b> else</b></p><p> adoq
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 學(xué)生成績(jī)管理系統(tǒng)---畢業(yè)設(shè)計(jì)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)----學(xué)生成績(jī)管理系統(tǒng)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì) (3)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)報(bào)告
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)(論文)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì) (2)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)3
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)(論文)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì) (3)
- 學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 畢業(yè)設(shè)計(jì)--學(xué)生成績(jī)管理設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)-----學(xué)生成績(jī)信息管理系統(tǒng)
- 學(xué)生成績(jī)管理系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)畢業(yè)設(shè)計(jì)
評(píng)論
0/150
提交評(píng)論