實驗五開發(fā)一個學生信息管理系統(tǒng)

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

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

3、變量取值： “ + 變量名+” 4 識別為空的情況If(Edit1->Text=”|Edit2->Text=”) ShowMessage("用戶名或密碼不得為空"); return; 圖3 屬性設置5 設置密碼屬性能 圖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) /識別是用戶名及密碼是否正確 Show

5、Message("非法用戶名或密碼"); Return; 7 文件存盤如圖9點文件菜單save project as 圖9文件按默認文件名，選一個新目錄保存，如圖10 圖10二 綜合窗口菜單的設計三信息錄入判斷學號是否存在：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("對不起，已經(jī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 "。其它代碼自己補齊 an1+=" year(csrq)>1900 " ADOQuery1->SQL->Clear(); ADOQuery1->SQL

10、->Add(an1); ADOQuery1->Open() ; if(ADOQuery1->RecordCount=0) ShowMessage("對不起，沒有你要查的同學"); return; 五學生信息修改修改中查詢代碼：if(Form3->Edit1->Text="請查詢輸入學號") ShowMessage("請查詢輸入要查詢的學號"); 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(); /為各個變量賦值 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("請查詢輸入要查詢的學號"); 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,"真的要刪除該生記錄嗎？","詢問窗口",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)計：統(tǒng)計代碼： ADOQuery1->SQL->Clear(); AnsiString an1="select count(sno) as xsrs from student " ADOQuery1->SQL->Add(an1); ADOQuery1->Open(); Label2->Caption="學生人數(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("對不起，用戶名或密碼不得為空"); return; ifEdit3->Text="" |Form6->Edit4->Text="") ShowMessage("對不起，輸入新密碼也不能為空"); 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