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

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

2、(4) 学生信息修改：可以修改已录入的学生相关信息。(5) 学生信息删除：可以按学号删除学生相关信息(提高点，同时删除其它表中该学生相关信息。参考：一.登录窗口的完成用户名退出图1登录窗口精品文档精品文档xtRunComporertDatabaseTnoteJMndowHelp|<None>Slsridaid AddtnMf | Win321 Svaem Dala Access | Data Coritnote DataSnan氐口 T%'A三河国信/菖山BDE ADO | IrterSase Internei | Decision Cubi1? ZU ZZZ? 3ij 3

3、ZLabdl: TLbelOrigin: 1略 32； Seb: 241 x 57图2工具设置分别用标签，文本，按纽来设计，文字更改用见图部分功能提示：1 .表单调用部分：提示：调用下一表单命令Form2->Show();隐藏当前表单命令Form1->Hide();注意要先用include # unit2.h包含2 .提示提示窗口 ： ShowMessage();3 .文本框取值：Form1->Edit1->Text变量取值：'+变量名+”4 .识别为空的情况If(Edit1->Text= " |Edit2->Text=")Sho

4、wMessage("用户名或密码不得为空 ")； 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产AJI shownObject Inspector5 .设置密码属性 能图3属性设置精品文档精品文档图4密码属性6 .数据库的连接：(1)

6、建数据连接：ADO，ADOQuery1->connctionstring(2) 建数据源：Dataaccess->datasource->dataset=ADOquery1见图4RunComponentDatabawToolsWindowHelpNon日二艺1斤一,OSlandardAdditional|Win32Sustem|DataAccess|DalaControls|DataSnaoBDE(ADOj,rteiGaseIr国口*诗髓彝，猾IB反福遢7)精品文档PaenlBiDiv1UIZ15KZUZZZW»Z1Run二ompcinGnt：EjatabaseTo

7、olsWindowHdpJStandardJAdditional|Wti32|System,<None>二电B：登录窗口AccesataControls|DatafinapBDEADO!糕F口SUnitl.cppUIVNETT>SJIr;KUi_Ajn*_rwin'ruunrr口3产。方，。1存个勘 金亍超二I »“！为口StandardAddifitwialWirt32|SvstrnnDataAccsss|Dat4Cortrnlt|DataSnan|BDE|ADD)InlH/圈bjertIriEpcctorADOQiPropertiesEwrtsAcliv

8、eAdEoCalcFieldlshueCacheSizBCcmrandTmBi30匚QFineciicinCornedicin?lTirCui$QrLoc-aliandU/匚lisnt三I登录窗口握胆程序的菖皴所有选择您藉望连接的数据%数况域接星性BHJnitI.cpptilv-ormlFnrml-:"ADDQuery1EDFinectiDnStriHsqGourcsofConnecbcrLU话DataLmkFk足UseConnectionSkiing白-0"ym"肛jhOnnMMnt®tjfca纪工ool&直intfar?&|p.Nor

9、QMierosoftJel400L£DBProviderI-Mt-c?o£ilOLEMiOLEDBProviderDEFrsvidsrFaff西。台七aMinIndexincMierosOLEDBFreviderfarIbtefb虺匕MiOUDBPrflvidir£mrODBCDriMift-FtnTFDRFfinwiKqyAwnT4PqyOLEDE提泱程序MtdliibCat-felpgDBOUDBProviderMediaTogflergedDBOLEDFrcivider足於戒/口口磔，切3IDLE口EPrwidiMr£il«3会包白I国1

10、BE3j07D12195.mdbKskjc.mdb直战范围工P蠹蠢曝接任性iC0Qu«vj提供程序底接高超I所有指定下列谈宣以连发到数据:1I.选择或输入缴据年名稀：£,挣入建录数据庠的信息.R»ctnt要面9我的文档用F名前如：|Adrln|7空白密码mr此许保存窖码区一库找we据女洋名理MI-三文件樊型1)|版仃一4於Amm数据军Mndb)为III图8(3) 从数据库中读密码语句AnsiStringan1="select*frommm"an1+="whereuser1='"+Edit1->Text+&quo

11、t;"'定义SQL查询语句an1+="andpassword1='"+Edit2->Text+""'ADOQuery1->SQL->Add(an1);将SQL语句加入到缓冲区ADOQuery1->Open();执行SQL语句if(ADOQuery1->RecordCount=0)/识别是用户名及密码是否正确ShowMessage("非法用户名或密码")；Return;7 .文件存盘如图9点文件菜单saveprojectasIrtclucle LJniit Hdr一一Prl

12、irtt.JX Ex*Close9篌 Close AllStands rdQdrhti 0 门与1 V/in：至J E喙biSystemM env bsS izedble n""国 B ord>BrlconsIB ordei'S tyle R nrHi*rA/iHlI«EditProjectopen.Open ProjeicitB.ReopenCtrldhFl 1A 此+F1 1图9文件按默认文件名，选一个新目录保存，如图10图10综合窗口菜单的设计rj口空雪33面13灯I口-IT各一片StandardlAjidiliayilV/jri32lSuit

13、esDalu片ccw*lDataConbokl口口他3m1EDE|ADO|InteiE|"V亶丁国A国IB亚国海鼻菖口宜宴IMemiter喇字王隹思肯包京货口hjet±Impertort+lromiZPiapertiesEveEsAetionAtoCheckFakemaPaiieMlioLineAeducmaPtntBitmapBredkCaptionChecksdDsfAdtEnabledGiouplndexHelpConlexiHintIrnadridtesKNameRadolternShoitCutGubMenulmagTagVisible(NonejTjtWorB录

14、Hue00false(None0bus录入修改直定业跺睢护KD-'哥：)rlForniZ->MalnMenul修改查询删除莘护退出.录入学生信息录入课程信息录入选课信息建立菜革三.盖I息录入丁信息录入',生J/j|J»CRacboCUtonl：出生日期向返叵增加判断学号是否存在: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("对不起，已经存在该学号，请重新输入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("增力口成功")；四.信息查询:查询代码AnsiStringan1="select*fromstudentwhere"if(Edit1->Text!=”an1

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

19、cordCount=0)ShowMessage("对不起，没有你要查的同学");return;五.学生信息修改修改中查询代码：if（Form3->Edit1->Text="请查询输入学号"）ShowMessage（"请查询输入要查询的学号"）;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();/为各个变量赋值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("修改成功");六.信息删除删除查询代码：if(Text="")ShowMessage("请查询输入要查询的学号");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,"真的要删除该生记录吗？","询问窗口",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;七.统计:统计代码：ADOQuery1->SQL->Clear();AnsiStringan1="selectcount(sno)asxsrsfromstuden

27、t"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2->Caption="学生人数"Label3->Caption=ADOQuery1->FieldValues"xsrs"/ADOQuery1->SQL->Clear();AnsiStringan1="selectavg(grade)aspjcjfromsc"ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2-&g

28、t;Caption="平均成绩"Label3->Caption=ADOQuery1->FieldValues"pjcj"/ADOQuery1->SQL->Clear();AnsiStringan1="selectcount(cno)askczsfromcourse":ADOQuery1->SQL->Add(an1);ADOQuery1->Open();Label2->Caption="课程总数"Label3->Caption=ADOQuery1->Fiel

29、dValues"kczs"八.修改密码：修改密码代码：if(Edit1->Text=""|Form6->Edit2->Text="")ShowMessage("对不起，用户名或密码不得为空");return;ifEdit3->Text=""|Form6->Edit4->Text="")ShowMessage("对不起，输入新密码也不能为空");return;if(Edit3->Text!=Form6->Edit4->Text)ShowMessage("两次密码不一致");return;ADOQ