实验五开发一个学生信息管理系统

1、实验五开发一个小型管理程序进行数据库的管理操作-例学生信息管理系统SQL语言的能力，结合前面所学的SQL语言的相关知识，在-学生信息管理系统：一. 实验目的： 考察学生综合运用C+BUILDER环境下开发一小型的管理系统二. 实验内容：1. 熟悉使用C+BUILDER的表单设计及嵌入式 SQL语言的使用。2. 开发一个学生信息管理系统负责验证学生登录的账户名，密码设计一个登录窗口，年龄、籍贯等）学生信息录入系统主要完成学生信息的录入（学号、姓名、性别、力口至U STUDENT表中。学生信息查询，主要完成可以通过学号、姓名等查证到学生的相关信息（提高点， 也可以查询学生成绩）学生信息修改：可以修

2、改已录入的学生相关信息。学生信息删除：可以按学号删除学生相关信息（提高点，同时删除其它表中该学生 相关信息。参考：一.登录窗口的完成登录窗口图1登录窗口M.t &Ln CpnponcnlposHcl? |典WfiJ"三| 电£ %F 13 IP會引3网3叫 3血"1 丨曲 I 匸 Mu CeIe Uqt1 日DE I ADJ | IrtciSoKl Internet Deeper CubiQ 戸雪耳L典'阿I IB 屋 區圜屢 3 窪匚至1TobolLdbdL TLdLw了an:旧石举】岸号7图2工具设置分别用标签，文本，按纽来设计，文字更改用见图

3、Cttjprt TnEp<rlnr部分功能提示:1.表单调用部分:提示：调用下一表单命令Form2->Show();Form1->Hide();隐藏当前表单命令注意要先用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话卫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属性设置5.设置密码属性 能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.数据库的连接：(1) 建数据连接:(2) 建数据源：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咄己剪玄文件按默认文件名，选一个新目录保存，如图10(3)从数据库中读密码语句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 语句加入到缓冲区ADOQuery1->Open();/执行 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农泊 I曙勒取！ I4图10.综合窗口 菜单的设计urni,:I:规入瞇菽 a询眾入学生息杲入迎才昱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|学生信息录入

15、.学号.；：姓名性别系別清诜择丟:I佶解:出生R期議扎判断学号是否存在: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.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+一整吕雲=) 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關 Fcrm-1学生信息查询篤一爭- 上一爭查询代码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();五. 学生信息修改C+- Forab学生信息修改.姓名遮回修改中查询代码:An siStri ng an1;if(Edit1->Text="") ShowMessage("对不起，学号不得为空”)；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("对不起，学号不正确，请重输入");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学生信息删除慵吏词粧A学号查询近回删除查询代码:An siStri ng an1;if(Edit1->Text="”) ShowMessage(”对不

23、起，学号不得为空”)；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("对不起，学号不正确，请重输入");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;七. 统计:FlilmT学生信息统计统计

25、代码:An siStri ng an1;an 1=" select count(*) as 学生人数，avg(2014-year(csrq) as 平均年龄 from student "ADOQuery1->SQL->Clear();ADOQuery1->SQ L-> Add(a n1);ADOQuery1-> Open();if (ADOQuery1->RecordCou nt=O ) ShowMessage(”对不起，目前没有学生 ”)；return;八.修改密码:fforab: 匚 -八:密码设置二:*用户帐号；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