實(shí)驗(yàn)五開發(fā)一個(gè)學(xué)生信息管理系統(tǒng)

1、實(shí)驗(yàn)五開發(fā)一個(gè)小型管理程序進(jìn)行數(shù)據(jù)庫的管理操作-例學(xué)生信息管理系統(tǒng)一 實(shí)驗(yàn)?zāi)康模嚎疾鞂W(xué)生綜合運(yùn)用SQL語言的能力，結(jié)合前面所學(xué)的SQL語言的相關(guān)知識(shí)，在C+BUILDER環(huán)境下開發(fā)一小型的管理系統(tǒng)-學(xué)生信息管理系統(tǒng)：二實(shí)驗(yàn)內(nèi)容：1 熟悉使用C+BUILDER的表單設(shè)計(jì)及嵌入式SQL語言的使用。2 開發(fā)一個(gè)學(xué)生信息管理系統(tǒng) 學(xué)生信息管理系統(tǒng) 信息錄入信息查詢信息修改信息刪除 （1） 設(shè)計(jì)一個(gè)登錄窗口，負(fù)責(zé)驗(yàn)證學(xué)生登錄的賬戶名，密碼（2） 學(xué)生信息錄入系統(tǒng)主要完成學(xué)生信息的錄入（學(xué)號(hào)、姓名、性別、年齡、籍貫等）加到STUDENT表中。（3） 學(xué)生信息查詢，主要完成可以通過學(xué)號(hào)、姓名等查證到學(xué)生的相

2、關(guān)信息（提高點(diǎn)，也可以查詢學(xué)生成績）（4） 學(xué)生信息修改：可以修改已錄入的學(xué)生相關(guān)信息。（5） 學(xué)生信息刪除：可以按學(xué)號(hào)刪除學(xué)生相關(guān)信息（提高點(diǎn)，同時(shí)刪除其它表中該學(xué)生相關(guān)信息。參考：一登錄窗口的完成 圖1 登錄窗口1 / 14 圖2 工具設(shè)置分別用標(biāo)簽，文本，按紐來設(shè)計(jì)，文字更改用見圖3部分功能提示：1.表單調(diào)用部分：提示：調(diào)用下一表單命令 Form2->Show(); 隱藏當(dāng)前表單命令 Form1->Hide(); 注意要先用include # unit2.h包含2提示 提示窗口: ShowMessage();3 文本框取值： Form1->Edit1->Text

3、變量取值： “ + 變量名+” 4 識(shí)別為空的情況If(Edit1->Text=”|Edit2->Text=”) ShowMessage("用戶名或密碼不得為空"); return; 圖3 屬性設(shè)置5 設(shè)置密碼屬性能 圖4密碼屬性6 數(shù)據(jù)庫的連接：（1） 建數(shù)據(jù)連接：ADO >ADOQuery1-> connctionstring（2） 建數(shù)據(jù)源： Dataaccess->datasource->dataset =ADOquery1見圖4 圖5 圖6 圖7 圖8（3） 從數(shù)據(jù)庫中讀密碼語句AnsiString an1="sele

4、ct * from mm" an1+=" where user1='"+ Edit1->Text+"'" /定義SQL查詢語句 an1+=" and password1='"+Edit2->Text+"'" ADOQuery1->SQL->Add(an1); /將SQL語句加入到緩沖區(qū) ADOQuery1->Open(); /執(zhí)行SQL語句 if (ADOQuery1->RecordCount=0) /識(shí)別是用戶名及密碼是否正確 Show

5、Message("非法用戶名或密碼"); Return; 7 文件存盤如圖9點(diǎn)文件菜單save project as 圖9文件按默認(rèn)文件名，選一個(gè)新目錄保存，如圖10 圖10二 綜合窗口菜單的設(shè)計(jì)三信息錄入判斷學(xué)號(hào)是否存在：void _fastcall TForm3:Edit1Exit(TObject *Sender) AnsiString an1="select * from student where " an1+=" sno='"+Edit1->Text+"'" ADOQuery1-&g

6、t;SQL->Clear(); ADOQuery1->SQL->Add(an1); ADOQuery1->Open() ; if(ADOQuery1->RecordCount=1) ShowMessage("對(duì)不起，已經(jīng)存在該學(xué)號(hào)，請(qǐng)重新輸入"); Edit1->SetFocus() ; return; 增加代碼：AnsiString rq,xb; rq=ComboBox2->Text+"-"+ComboBox3->Text+"-"+ComboBox4->Text; if(Form

7、3->RadioButton1->Checked=1) xb="男" else xb="女" ; AnsiString an1="insert into student values( " an1+=" '"+Form3->Edit1->Text+"' ," an1+=" '"+Form3->Edit2->Text+"' ," an1+=" '"+xb+&quo

8、t;' ," an1+=" '"+ComboBox1->Text+"' ," an1+=" '"+rq+"')" ; ADOQuery1->SQL->Add(an1); ADOQuery1->ExecSQL(); ADOQuery1->Close(); ShowMessage("增加成功");四信息查詢： 查詢代碼 AnsiString an1="select * from student where &q

9、uot; if(Edit1->Text!="") an1+=" sno='"+Edit1->Text+"' and " if(Edit2->Text!="") an1+=" sname='"+Edit2->Text+"' and "。其它代碼自己補(bǔ)齊 an1+=" year(csrq)>1900 " ADOQuery1->SQL->Clear(); ADOQuery1->SQL

10、->Add(an1); ADOQuery1->Open() ; if(ADOQuery1->RecordCount=0) ShowMessage("對(duì)不起，沒有你要查的同學(xué)"); return; 五學(xué)生信息修改修改中查詢代碼：if(Form3->Edit1->Text="請(qǐng)查詢輸入學(xué)號(hào)") ShowMessage("請(qǐng)查詢輸入要查詢的學(xué)號(hào)"); return; ADOQuery1->SQL->Clear(); AnsiString an1="select sno,sname,sex,

11、sdept,year(csrq) as nn,month(csrq) as " an1+=" yy ,day(csrq) as rr from student where " an1+=" sno='"+ Edit1->Text+"'" ADOQuery1->SQL->Add(an1); ADOQuery1->Open(); /為各個(gè)變量賦值 Edit1->Text=ADOQuery1->FieldValues"sno" Edit2->Text=A

12、DOQuery1->FieldValues"sname" AnsiString xb; xb=ADOQuery1->FieldValues"sex" if(xb="男") RadioButton1->Checked=true; if(xb="女") RadioButton2->Checked=true;ComboBox1->Text=ADOQuery1->FieldValues"sdept" ComboBox2->Text=ADOQuery1->F

13、ieldValues"nn" ; ComboBox3->Text=ADOQuery1->FieldValues"yy" ; ComboBox4->Text=ADOQuery1->FieldValues"rr" ; 修改代碼：AnsiString xb,rq; if(RadioButton1->Checked=true) xb="男" else xb="女" rq=ComboBox2->Text+'-'+ComboBox3->Text+&#

14、39;-'+ComboBox4->Text; ADOQuery1->SQL->Clear(); AnsiString an1=" update student set " an1+=" sno='"+ Edit1->Text+"' ," an1+=" sname='"+ Edit2->Text+"' ," an1+=" sex='"+xb+"', " an1+="

15、; sdept='"+ComboBox4->Text+"' ," an1+=" csrq='"+rq+"'" an1+=" where sno='"+ Edit1->Text+"'" ADOQuery1->SQL->Add(an1); ShowMessage(an1); ADOQuery1->ExecSQL() ; ShowMessage("修改成功");六信息刪除刪除查詢代碼：if(Te

16、xt="") ShowMessage("請(qǐng)查詢輸入要查詢的學(xué)號(hào)"); return; ADOQuery1->SQL->Clear(); AnsiString an1="select * from student where " an1+=" sno='"+Form4->Edit1->Text+"'" ADOQuery1->SQL->Add(an1); ADOQuery1->Open(); DBGrid1->DataSource=Da

17、taSource1;刪除代碼int aa; aa=MessageBox(NULL,"真的要?jiǎng)h除該生記錄嗎？","詢問窗口",4); if(aa=6) ADOQuery1->SQL->Clear(); AnsiString an1="delete from student where " an1+=" sno='"+Form4->Edit1->Text+"'" ADOQuery1->SQL->Add(an1); ADOQuery1->Exe

18、cSQL();ShowMessage("刪除成功"); DBGrid1->DataSource=DataSource1; else return;七統(tǒng)計(jì)：統(tǒng)計(jì)代碼： ADOQuery1->SQL->Clear(); AnsiString an1="select count(sno) as xsrs from student " ADOQuery1->SQL->Add(an1); ADOQuery1->Open(); Label2->Caption="學(xué)生人數(shù)" Label3->Capti

19、on=ADOQuery1->FieldValues"xsrs"/- ADOQuery1->SQL->Clear(); AnsiString an1="select avg(grade) as pjcj from sc " ADOQuery1->SQL->Add(an1); ADOQuery1->Open(); Label2->Caption="平均成績" Label3->Caption=ADOQuery1->FieldValues"pjcj"/- ADOQuer

20、y1->SQL->Clear(); AnsiString an1="select count(cno) as kczs from course " ADOQuery1->SQL->Add(an1); ADOQuery1->Open(); Label2->Caption="課程總數(shù)" Label3->Caption=ADOQuery1->FieldValues"kczs"八修改密碼：修改密碼代碼：if(Edit1->Text="" |Form6->Edit2

21、->Text="") ShowMessage("對(duì)不起，用戶名或密碼不得為空"); return; ifEdit3->Text="" |Form6->Edit4->Text="") ShowMessage("對(duì)不起，輸入新密碼也不能為空"); return; if(Edit3->Text!=Form6->Edit4->Text) ShowMessage("兩次密碼不一致"); return; ADOQuery1->SQL->

22、;Clear() ; AnsiString an1="select * from mm" ; an1+=" where user1='"+Form6->Edit1->Text+"'" ; an1+=" and password1='"+Form6->Edit2->Text+"'" ADOQuery1->SQL->Add(an1); ADOQuery1->Open() ; if(ADOQuery1->RecordCount=0) ShowMessa