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

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

2、(4) 學(xué)生信息修改：可以修改已錄入的學(xué)生相關(guān)信息。(5) 學(xué)生信息刪除：可以按學(xué)號(hào)刪除學(xué)生相關(guān)信息(提高點(diǎn)，同時(shí)刪除其它表中該學(xué)生相關(guān)信息。參考：一.登錄窗口的完成用戶(hù)名退出圖1登錄窗口精品文檔精品文檔xtRunComporertDatabaseTnoteJMndowHelp|<None>Slsridaid AddtnMf | Win321 Svaem Dala Access | Data Coritnote DataSnan氐口 T%'A三河國(guó)信/菖山BDE ADO | IrterSase Internei | Decision Cubi1? ZU ZZZ? 3ij 3

3、ZLabdl: TLbelOrigin: 1略 32； Seb: 241 x 57圖2工具設(shè)置分別用標(biāo)簽，文本，按紐來(lái)設(shè)計(jì)，文字更改用見(jiàn)圖部分功能提示：1 .表單調(diào)用部分：提示：調(diào)用下一表單命令Form2->Show();隱藏當(dāng)前表單命令Form1->Hide();注意要先用include # unit2.h包含2 .提示提示窗口 ： ShowMessage();3 .文本框取值：Form1->Edit1->Text變量取值：'+變量名+”4 .識(shí)別為空的情況If(Edit1->Text= " |Edit2->Text=")Sho

4、wMessage("用戶(hù)名或密碼不得為空 ")； return;Labell |Propartie$ | e ventf |Align己IN 01rl巳4AlignmenttaLeftJlustifyS AnchorsakLeftzakTopj<&ufa5izetrue _BiQjM*da-bdUefil-qBjgPit(Caption登錄窗口|二>ColartjrtB triFaceE Constraints(TSizeConslrairCursorcrDefaultDiagCuir&circrDfagIDiagKinddkDiagIDiagM

5、odedmManuialEnabledirueFoeusControl用工麗!nF9ntrz>_HeightT-31HelpConlLeict0H elpK&ywordHelpTipahtConteKtHZLayouttITopL*192NagLabell-MParentBiDiM adhueParentColorhueParentFonttrueParents howHirtruePopupMenuS howAccelCh«卜n產(chǎn)AJI shownObject Inspector5 .設(shè)置密碼屬性 能圖3屬性設(shè)置精品文檔精品文檔圖4密碼屬性6 .數(shù)據(jù)庫(kù)的連接：(1)

6、建數(shù)據(jù)連接：ADO，ADOQuery1->connctionstring(2) 建數(shù)據(jù)源：Dataaccess->datasource->dataset=ADOquery1見(jiàn)圖4RunComponentDatabawToolsWindowHelpNon日二藝1斤一,OSlandardAdditional|Win32Sustem|DataAccess|DalaControls|DataSnaoBDE(ADOj,rteiGaseIr國(guó)口*詩(shī)髓彝，猾I(xiàn)B反福遢7)精品文檔PaenlBiDiv1UIZ15KZUZZZW»Z1Run二ompcinGnt：EjatabaseTo

7、olsWindowHdpJStandardJAdditional|Wti32|System,<None>二電B：登錄窗口AccesataControls|DatafinapBDEADO!糕F口SUnitl.cppUIVNETT>SJIr;KUi_Ajn*_rwin'ruunrr口3產(chǎn)。方，。1存?zhèn)€勘 金亍超二I »“！為口StandardAddifitwialWirt32|SvstrnnDataAccsss|Dat4Cortrnlt|DataSnan|BDE|ADD)InlH/圈bjertIriEpcctorADOQiPropertiesEwrtsAcliv

8、eAdEoCalcFieldlshueCacheSizBCcmrandTmBi30匚QFineciicinCornedicin?lTirCui$QrLoc-aliandU/匚lisnt三I登錄窗口握膽程序的菖皴所有選擇您藉望連接的數(shù)據(jù)%數(shù)況域接星性BHJnitI.cpptilv-ormlFnrml-:"ADDQuery1EDFinectiDnStriHsqGourcsofConnecbcrLU話DataLmkFk足UseConnectionSkiing白-0"ym"肛jhOnnMMnt®tjfca紀(jì)工ool&直intfar?&|p.Nor

9、QMierosoftJel400L£DBProviderI-Mt-c?o£ilOLEMiOLEDBProviderDEFrsvidsrFaff西。臺(tái)七aMinIndexincMierosOLEDBFreviderfarIbtefb虺匕MiOUDBPrflvidir£mrODBCDriMift-FtnTFDRFfinwiKqyAwnT4PqyOLEDE提泱程序MtdliibCat-felpgDBOUDBProviderMediaTogflergedDBOLEDFrcivider足於戒/口口磔，切3IDLE口EPrwidiMr£il«3會(huì)包白I國(guó)1

10、BE3j07D12195.mdbKskjc.mdb直戰(zhàn)范圍工P蠹蠢曝接任性iC0Qu«vj提供程序底接高超I所有指定下列談宣以連發(fā)到數(shù)據(jù):1I.選擇或輸入繳據(jù)年名?。?#163;,掙入建錄數(shù)據(jù)庠的信息.R»ctnt要面9我的文檔用F名前如：|Adrln|7空白密碼mr此許保存窖碼區(qū)一庫(kù)找we據(jù)女洋名理MI-三文件樊型1)|版仃一4於Amm數(shù)據(jù)軍Mndb)為III圖8(3) 從數(shù)據(jù)庫(kù)中讀密碼語(yǔ)句AnsiStringan1="select*frommm"an1+="whereuser1='"+Edit1->Text+&quo

11、t;"'定義SQL查詢(xún)語(yǔ)句an1+="andpassword1='"+Edit2->Text+""'ADOQuery1->SQL->Add(an1);將SQL語(yǔ)句加入到緩沖區(qū)ADOQuery1->Open();執(zhí)行SQL語(yǔ)句if(ADOQuery1->RecordCount=0)/識(shí)別是用戶(hù)名及密碼是否正確ShowMessage("非法用戶(hù)名或密碼")；Return;7 .文件存盤(pán)如圖9點(diǎn)文件菜單saveprojectasIrtclucle LJniit Hdr一一Prl

12、irtt.JX Ex*Close9篌 Close AllStands rdQdrhti 0 門(mén)與1 V/in：至J E喙biSystemM env bsS izedble n""國(guó) B ord>BrlconsIB ordei'S tyle R nrHi*rA/iHlI«EditProjectopen.Open ProjeicitB.ReopenCtrldhFl 1A 此+F1 1圖9文件按默認(rèn)文件名，選一個(gè)新目錄保存，如圖10圖10綜合窗口菜單的設(shè)計(jì)rj口空雪33面13燈I口-IT各一片StandardlAjidiliayilV/jri32lSuit

13、esDalu片ccw*lDataConbokl口口他3m1EDE|ADO|InteiE|"V亶丁國(guó)A國(guó)IB亞國(guó)海鼻菖口宜宴IMemiter喇字王隹思肯包京貨口hjet±Impertort+lromiZPiapertiesEveEsAetionAtoCheckFakemaPaiieMlioLineAeducmaPtntBitmapBredkCaptionChecksdDsfAdtEnabledGiouplndexHelpConlexiHintIrnadridtesKNameRadolternShoitCutGubMenulmagTagVisible(NonejTjtWorB錄

14、Hue00false(None0bus錄入修改直定業(yè)跺睢護(hù)KD-'哥：)rlForniZ->MalnMenul修改查詢(xún)刪除莘護(hù)退出.錄入學(xué)生信息錄入課程信息錄入選課信息建立菜革三.蓋I息錄入丁信息錄入',生J/j|J»CRacboCUtonl：出生日期向返叵增加判斷學(xué)號(hào)是否存在:void_fastcallTForm3:Edit1Exit(TObject*Sender)AnsiStringan1="select*fromstudentwhere"an1+="sno='"+Edit1->Text+"&q

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

16、t;if(Form3->RadioButton1->Checked=1)xb="男"elsexb="女"；AnsiStringan1="insertintostudentvalues("an1+="'"+Form3->Edit1->Text+"',"an1+="'"+Form3->Edit2->Text+"',"an1+=""'+xb+"',&

17、quot;an1+=""'+ComboBox1->Text+"',"an1+=""'+rq+"')"ADOQuery1->SQL->Add(an1);ADOQuery1->ExecSQL();ADOQuery1->Close();ShowMessage("增力口成功")；四.信息查詢(xún):查詢(xún)代碼AnsiStringan1="select*fromstudentwhere"if(Edit1->Text!=”an1

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

19、cordCount=0)ShowMessage("對(duì)不起，沒(méi)有你要查的同學(xué)");return;五.學(xué)生信息修改修改中查詢(xún)代碼：if（Form3->Edit1->Text="請(qǐng)查詢(xún)輸入學(xué)號(hào)"）ShowMessage（"請(qǐng)查詢(xún)輸入要查詢(xún)的學(xué)號(hào)"）;return;ADOQuery1->SQL->Clear();AnsiStringan1="selectsno,sname,sex,sdept,year(csrq)asnn,month(csrq)asan1+="yy,day(csrq)asrrfrom

20、studentwhere"an1+="sno='"+Edit1->Text+"'"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();/為各個(gè)變量賦值Edit1->Text=ADOQuery1->FieldValues"sno"Edit2->Text=ADOQuery1->FieldValues"sname"AnsiStringxb;xb=ADOQuery1->FieldValues"sex&

21、quot;if(xb="男")RadioButton1->Checked=true;if(xb="女")RadioButton2->Checked=true;ComboBox1->Text=ADOQuery1->FieldValues"sdept"ComboBox2->Text=ADOQuery1->FieldValues"nn"ComboBox3->Text=ADOQuery1->FieldValues"yy"ComboBox4->Text

22、=ADOQuery1->FieldValues"rr"修改代碼：AnsiStringxb,rq;if(RadioButton1->Checked=true)xb="男"elsexb="女"rq=ComboBox2->Text+'-'+ComboBox3->Text+'-'+ComboBox4->Text;ADOQuery1->SQL->Clear();AnsiStringan1="updatestudentset"an1+="sno

23、='"+Edit1->Text+"',"an1+="sname='"+Edit2->Text+"',"an1+="sex='"+xb+"',"an1+="sdept='"+ComboBox4->Text+"',"an1+="csrq='"+rq+"'"an1+="wheresno='"

24、;+Edit1->Text+"'"ADOQuery1->SQL->Add(an1);ShowMessage(an1);ADOQuery1->ExecSQL();ShowMessage("修改成功");六.信息刪除刪除查詢(xún)代碼：if(Text="")ShowMessage("請(qǐng)查詢(xún)輸入要查詢(xún)的學(xué)號(hào)");return;ADOQuery1->SQL->Clear();AnsiStringan1="select*fromstudentwhere"an1+=&q

25、uot;sno="'+Form4->Edit1->Text+""'ADOQuery1->SQL->Add(an1);ADOQuery1->Open();DBGrid1->DataSource=DataSource1;刪除代碼intaa;aa=MessageBox(NULL,"真的要?jiǎng)h除該生記錄嗎？","詢(xún)問(wèn)窗口",4);if(aa=6)ADOQuery1->SQL->Clear();AnsiStringan1="deletefromstudentwhe

26、re"an1+="sno='"+Form4->Edit1->Text+""'ADOQuery1->SQL->Add(an1);ADOQuery1->ExecSQL();ShowMessage("刪除成功");DBGrid1->DataSource=DataSource1;elsereturn;七.統(tǒng)計(jì):統(tǒng)計(jì)代碼：ADOQuery1->SQL->Clear();AnsiStringan1="selectcount(sno)asxsrsfromstuden

27、t"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2->Caption="學(xué)生人數(shù)"Label3->Caption=ADOQuery1->FieldValues"xsrs"/ADOQuery1->SQL->Clear();AnsiStringan1="selectavg(grade)aspjcjfromsc"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2-&g

28、t;Caption="平均成績(jī)"Label3->Caption=ADOQuery1->FieldValues"pjcj"/ADOQuery1->SQL->Clear();AnsiStringan1="selectcount(cno)askczsfromcourse":ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2->Caption="課程總數(shù)"Label3->Caption=ADOQuery1->Fiel

29、dValues"kczs"八.修改密碼：修改密碼代碼：if(Edit1->Text=""|Form6->Edit2->Text="")ShowMessage("對(duì)不起，用戶(hù)名或密碼不得為空");return;ifEdit3->Text=""|Form6->Edit4->Text="")ShowMessage("對(duì)不起，輸入新密碼也不能為空");return;if(Edit3->Text!=Form6->Edit4->Text)ShowMessage("兩次密碼不一致");return;ADOQ