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

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

2、改已錄入的學(xué)生相關(guān)信息。學(xué)生信息刪除：可以按學(xué)號刪除學(xué)生相關(guān)信息（提高點，同時刪除其它表中該學(xué)生 相關(guān)信息。參考：一.登錄窗口的完成登錄窗口圖1登錄窗口M.t &Ln CpnponcnlposHcl? |典WfiJ"三| 電£ %F 13 IP會引3網(wǎng)3叫 3血"1 丨曲 I 匸 Mu CeIe Uqt1 日DE I ADJ | IrtciSoKl Internet Deeper CubiQ 戸雪耳L典'阿I IB 屋 區(qū)圜屢 3 窪匚至1TobolLdbdL TLdLw了an:舊石舉】岸號7圖2工具設(shè)置分別用標(biāo)簽，文本，按紐來設(shè)計，文字更改用見圖

3、Cttjprt TnEp<rlnr部分功能提示:1.表單調(diào)用部分:提示：調(diào)用下一表單命令Form2->Show();Form1->Hide();隱藏當(dāng)前表單命令注意要先用in elude # un it2.h包含2. 提示提示窗口 ： ShowMessage();3. 文本框取值： Form1->Edit1->Text變量取值：+變量名+ ”4. 識別為空的情況lf(Edit1->Text= ”Edit2->Text= ” ShowMessage(”用戶名或密碼不得為空 "); return;AlienalNoriAAlianirieril,

4、 laLelUustifuE 4nc也rs ,: akL曰tgkTop話衛(wèi)u匕 二3>_Bi' bdLgHrlnBjght<CaptionColor'E Cor stramt?Cursor UraoLursof LifaaMnd Dragkiode EndUtiiJ rLhcusCui ihulHfrIpCoHfrHtHlpTyp* Hinr Lasiout LHlNamePorontOiDiWod rofontColor PjrontFort PirenShewHir PfifiL ipMi=niiSHinwiAncPrirhAll ohowrI磴杲宙!二I I

5、i-lBttf xs (rSizeCenttrair 亡心dmuK crUrao dklJraa dmM anual hue(rrortt)tllop132LaLstl true true huo trueiriJR圖3屬性設(shè)置5.設(shè)置密碼屬性 能I ldpLaM _p1Il IcipTiSchtC&*bMlllnkSdcciiDnIkHintImcModcrnDairiCncImcHinc472川ih _DN-diic_EJ12OEMCQiivtIdtbPffcnfCNoJ IrjsParnCnh-fIderPapn£：ll3t)Ir1 iPacnTorVIrRkn耶卯H

6、r Ikfe臚uidCh廳 E-八'-nfii 枷IrtiknT .bn.J.Idr1登入窗口用戶名密碼圖4密碼屬性退出6.數(shù)據(jù)庫的連接：(1) 建數(shù)據(jù)連接:(2) 建數(shù)據(jù)源：ADO ->ADOQuery1-> connctionstringDataaccess->datasource->dataset =ADOquery1 見圖 4|<Nlone>Run Comparer t Database Tools Window Help舌 越呂斛曲d| Additional I Win321 Sustom | Access | Controls) Data

7、Snac) BDEI I B UriiUs l&Formlm iz 4 re? ra tu zzze zIlliII P-aienLDiOrf*登錄窗口Run Component Database Tools Wiidcyj 匕elppNne>e遭錄窗口鼻1PJ l£1 耳IG Ff £Kj ££ata Cortrols： 1 DafSrao 1 BDE ADOStandard 1 Additiorial | Wri32) Susten /Da自2 胡暑靈L-UL Ul U TIVT l_IV PVL TJ i 'JM 屮-.W*

8、TVinvyPl H I 0 I 1 iJ j：馥Stondoid Addtorl WrJ2 I 以曲 血汕© 咖訂 D 如二arHohl DataCnol DDE | iDO | HeriOE|L#rjjl bifi iGii'i PiaptrfieE j| Evenb目 glj fppLTCOUIc.in* ICIO t'UtT'Rs Comporent Datebase loot Wndcw Het I |<Hore>1 Fi.i riif IA?livaIsbfrA_il口匚3上Fifitk rrue hcZSire1CatTTiflrid

9、rirrrei 3D UariftKtja*!Cinftsctonbtiif置錄旨nCjitarLocMio elJ?«C(#nfil-nriin L - AIXlIjLiPt 1 ( annprnrwi*tt tliifir Safce of 匚 cnnertiDn廠 Jse UaU Ltik fikIrw Ts琨苗(£l牙HXiT屮門曰弓 QQZ 卯 froTir HaJi'aSatQ.PgflirpiLIB lLS IS rzD-ridiir 牡雖厶占屯蠱OLE IE七f尺 dac Csr cUtt SWiiJ処kUa-H+Oi-f+ DLI HE Frtxv

10、idMf Far U at-a. Lliri 111. 6o£-I. OJ_1 !£ Pir<xvi tr for J攔h；嗎 ole BS Ptuvidu fuj InMllmI 陽曲口們 mjFfnvir邱 for OlBC RriLI F V J-uw lS* ni k TiTi Pl- ATJ-I J- «/ -f A- fl" 1.口 C BPHiCiViufC4 0 DL£ ID咄己剪玄文件按默認(rèn)文件名，選一個新目錄保存，如圖10(3)從數(shù)據(jù)庫中讀密碼語句An siStri ng an 1="select * fro

11、m mm"/定義SQL查詢語句an 1+=" where user1='"+ Edit1->Text+"”'an 1+=" and password1=”'+Edit2->Text+"”'ADOQuery1->SQL->Add(an1);將 SQL 語句加入到緩沖區(qū)ADOQuery1->Open();/執(zhí)行 SQL 語句if (ADOQuery1->RecordCou nt=O)/識別是用戶名及密碼是否正確 ShowMessage(”非法用戶名或密碼 ”)；Retur

12、n;7.文件存盤如圖9點文件菜單 save project asOmci ii i hOpon Project.-.R_uci penStandard Ai h lilianal | V/m：F已&C>qiiJ I 蚓 l*T Br'JL-'4：邛 IrormlCCrl-H-l 1主日"Sr匚(1view Pfoj&ct a.un io proponent與 工poleW二隔I； 7F- Pr-n* EM*r Include Unfc l-lc±-. . . Alt-h Fl 1Print,.S B orderlconeriL-B or

13、derSryleR i-ir i-|rA?iHrlnn圖9金脛 Prajectl AtD2Ac«n-L<Ei壽iX岡上鄰雋促存類型;I 再 £)I農(nóng)泊 I曙勒??！ I4圖10.綜合窗口 菜單的設(shè)計urni,:I:規(guī)入瞇菽 a詢眾入學(xué)生息杲入迎才昱ttjft禾入諧遅樣JOJHJfe 継滬迫出ZhpC IrupefTnn.子汪I聲啟堆予紋rv WI J LJ-U - U J 士 !_ I I II l_P_* _/ K* " I .513砒arxJ ftdAorc11 Wi321 Swt” 1 Doiocctj 1 Dcto Cwihob | DniaSnoj

14、| DDE I A?0 I Intwl Li if' A kJ 5f 匡 3-| 二 I矗1I汁r HCp'km hF=t*d 匸Pl總" Enabled GioLilridav keCortevI hfl 2低 F dolam 匚帕咁LiF曰諮'.Iriitaa*1 tji % (Nnnp|-hE ；，.-r- Ay:.耳-r"' Forms xidiuMchui杲人字主fS© 錄人訝世信JB 錄入選課fseX1 K XB 2i山專pNjlrw卑 T書 "吐k*tiie三.信息錄入臟 ForrnS-|c x|學(xué)生信息錄入

15、.學(xué)號.；：姓名性別系別清詵擇丟:I佶解:出生R期議扎判斷學(xué)號是否存在:void _fastcall TForm3:Edit1Exit(TObject *Se nder)An siStri ng an 仁"select * from stude nt where "an 1+=" sno='"+Edit1->Text+"”'龜 與 堰 市上X口-ex080qE00-_(=龜與堰帀丄X_la-寸x080qE00-_= 龜 與 堰 帀丄X_LA&x080qE00M宀Lnl2-(=鉗張龜與堰回0及=)gesslAIMOq

16、©(=張龜與堰市丄X口丄XOHOqEOOM 宀Lnl2= 矽滅睦0®囹帑申猗超0及=)gesslAIMOLI© (=H上X口-里P山-_=H上X_LL七SM _qx-b6UES一SUV 宀宀 Lnl2 -osnoo匕SA匸S -(= <緯痛刪堰申：菸3虻逾衛(wèi)超W.M=)gsslAIMOq© (Luulunoop。t alaj noodvM -Ou doA 丄 Aj noochz MLUe)pp/A-1osLenooch/ 0S_OA-1OS L 巴 nooQW'=(-=+b+_ k =±x _LLX080qE00+一 =-+qx+

17、一 =±x 口-里 SA-elwozl+一 =±x 一匸 SA-elwozl+一整呂雲(yún)=) 6ess lAIMOUS M) so_oa1laj nooch/ -OIOS。X山 alaj nooQW MLUe)pp/A-1osLAJenooch/ F+LueF+Lue F+LueF+LueF+Lue 廠)sen-ra> -upn-s olu一 tesu一-PLUTO 6u三s一suy宀廠W =Hqx)S-=球=Hqx) (LH"pe>p£0A1LU0=n80_PEtAgE0dM px 一寸x080qE00+=J+lx J_Agx080qE00+

18、=J+lx J_2xo8oqEOO"b宀Lnl2關(guān) Fcrm-1學(xué)生信息查詢篤一爭- 上一爭查詢代碼An siStri ng xb,a n1;an 1=" select * from stude nt"if(Edit1->Text!="")an 1+=" where sno='"+Edit1->Text+AD0Query1->SQL->Clear();AD0Query1->SQ L-> Add(a n1);AD0Query1-> 0pen();if (ADOQuery1-&g

19、t;RecordCou nt=O ) ShowMessage(”對不起，查無此人請重試！");return;第一條ADOQuery1->First();上一條AD0Query1-> Prior();下一條AD0Query1->Next(); 最后一條AD0Query1->Last();五. 學(xué)生信息修改C+- Forab學(xué)生信息修改.姓名遮回修改中查詢代碼:An siStri ng an1;if(Edit1->Text="") ShowMessage("對不起，學(xué)號不得為空”)；return;an仁"select

20、* from stude nt where sno='"+Edit1->Text+"”'ADOQuery1->SQL->Clear();ADOQuery1->SQ L-> Add(a n1);ADOQuery1-> Open();if (ADOQuery1->RecordCou nt=O ) ShowMessage("對不起，學(xué)號不正確，請重輸入");return;Edit2->Text=ADOQuery1->FieldValues"s name"ComboBox1

21、->Text=ADOQuery1->FieldValues"sde pt"修改代碼:if(Edit2->Text="”) ShowMessage(”對不起，姓名不得為空 ”); return;if(ComboBox1->Text="請選擇") ShowMessage(”對不起，選擇系部”)；return;stude ntsetAn siStri ngan 1="up datesn ame='"+Edit2->Text+"' ,sdept=”'+ComboBox1

22、->Text+"”'an1+= " where sno='"+Edit1->Text+"'"ADOQuery1->SQL->Clear();ADOQuery1->SQ L-> Add(a n1);ADOQuery1->ExecSQL();ShowMessage("修改成功！ ”)；六. 信息刪除f vn41學(xué)生信息刪除慵吏詞粧A學(xué)號查詢近回刪除查詢代碼:An siStri ng an1;if(Edit1->Text="”) ShowMessage(”對不

23、起，學(xué)號不得為空”)；return;an 1=" select * from stude nt where sno='"+Edit1->Text+""' ADOQuery1->SQL->Clear();ADOQuery1->SQ L-> Add(a n1);ADOQuery1-> Open();if (ADOQuery1->RecordCou nt=O ) ShowMessage("對不起，學(xué)號不正確，請重輸入");return;刪除代碼int aa;aa=MessageBox

24、(NULL,"真的要刪除嗎","刪除窗口 ",4);if(aa=6)An siStri ng an 1=" delete from stude nt where sno="'+Edit1->Text+"'"ADOQuery1->SQL->Clear();ADOQuery1->SQ L-> Add(a n1);ADOQuery1->ExecSQL();ShowMessage("刪除成功！ ”)；elsereturn;七. 統(tǒng)計:FlilmT學(xué)生信息統(tǒng)計統(tǒng)計

25、代碼:An siStri ng an1;an 1=" select count(*) as 學(xué)生人數(shù)，avg(2014-year(csrq) as 平均年齡 from student "ADOQuery1->SQL->Clear();ADOQuery1->SQ L-> Add(a n1);ADOQuery1-> Open();if (ADOQuery1->RecordCou nt=O ) ShowMessage(”對不起，目前沒有學(xué)生 ”)；return;八.修改密碼:fforab: 匚 -八:密碼設(shè)置二:*用戶帳號；I 二 0*新岔碼：

26、:if(Edit1->Text="" |Form6->Edit2->Text="”)")；修改密碼代碼： ShowMessage(”對不起，用戶名或密碼不得為空 return;ifEdit3->Text="" |Form6->Edit4->Text="")”); ShowMessage(”對不起，輸入新密碼也不能為空 return; if(Edit3->Text!=Form6->Edit4->Text) ShowMessage("兩次密碼不一致”)； return;ADOQuery1->SQ L->Clear();An siStri ng an 仁"select * from mm"an 1+=" where user1-&quo