开发一个学生信息管理系统.doc

本文档系作者精心整理编辑，实用价值高。实验五开发一个小型管理程序进行数据库的管理操作-例学生信息管理系统一 实验目的：考察学生综合运用SQL语言的能力，结合前面所学的SQL语言的相关知识，在C+BUILDER环境下开发一小型的管理系统-学生信息管理系统：二实验内容：1 熟悉使用C+BUILDER的表单设计及嵌入式SQL语言的使用。2 开发一个学生信息管理系统 学生信息管理系统 信息录入信息查询信息修改信息删除 （1） 设计一个登录窗口，负责验证学生登录的账户名，密码（2） 学生信息录入系统主要完成学生信息的录入（学号、姓名、性别、年龄、籍贯等）加到STUDENT表中。（3） 学生信息查询，主要完成可以通过学号、姓名等查证到学生的相关信息（提高点，也可以查询学生成绩）（4） 学生信息修改：可以修改已录入的学生相关信息。（5） 学生信息删除：可以按学号删除学生相关信息（提高点，同时删除其它表中该学生相关信息。参考：一登录窗口的完成 图1 登录窗口 图2 工具设置分别用标签，文本，按纽来设计，文字更改用见图3部分功能提示：1.表单调用部分：提示：调用下一表单命令 Form2-Show(); 隐藏当前表单命令 Form1-Hide(); 注意要先用include # unit2.h包含2提示 提示窗口: ShowMessage();3 文本框取值： Form1-Edit1-Text 变量取值： “ + 变量名+” 4 识别为空的情况If(Edit1-Text=”|Edit2-Text=”) ShowMessage(用户名或密码不得为空); return; 图3 属性设置5 设置密码属性能 图4密码属性6 数据库的连接：（1） 建数据连接：ADO ADOQuery1- connctionstring（2） 建数据源： Dataaccess-datasource-dataset =ADOquery1见图4 图5 图6 图7 图8（3） 从数据库中读密码语句AnsiString an1=select * from mm; an1+= where user1=+ Edit1-Text+; /定义SQL查询语句 an1+= and password1=+Edit2-Text+; ADOQuery1-SQL-Add(an1); /将SQL语句加入到缓冲区 ADOQuery1-Open(); /执行SQL语句 if (ADOQuery1-RecordCount=0) /识别是用户名及密码是否正确 ShowMessage(非法用户名或密码); 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-SQL-Clear(); ADOQuery1-SQL-Add(an1); ADOQuery1-Open() ; if(ADOQuery1-RecordCount=1) ShowMessage(对不起，已经存在该学号，请重新输入); Edit1-SetFocus() ; return; 增加代码：AnsiString rq,xb; rq=ComboBox2-Text+-+ComboBox3-Text+-+ComboBox4-Text; if(Form3-RadioButton1-Checked=1) xb=男; else xb=女 ; AnsiString an1=insert into student values( ; an1+= +Form3-Edit1-Text+ ,; an1+= +Form3-Edit2-Text+ ,; an1+= +xb+ ,; an1+= +ComboBox1-Text+ ,; an1+= +rq+) ; ADOQuery1-SQL-Add(an1); ADOQuery1-ExecSQL(); ADOQuery1-Close(); ShowMessage(增加成功);四信息查询： 查询代码 AnsiString an1=select * from student where ; 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-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,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-FieldValuessno; Edit2-Text=ADOQuery1-FieldValuessname; AnsiString xb; xb=ADOQuery1-FieldValuessex; if(xb=男) RadioButton1-Checked=true; if(xb=女) RadioButton2-Checked=true;ComboBox1-Text=ADOQuery1-FieldValuessdept ComboBox2-Text=ADOQuery1-FieldValuesnn ; ComboBox3-Text=ADOQuery1-FieldValuesyy ; ComboBox4-Text=ADOQuery1-FieldValuesrr ; 修改代码：AnsiString xb,rq; if(RadioButton1-Checked=true) xb=男; else xb=女; rq=ComboBox2-Text+-+ComboBox3-Text+-+ComboBox4-Text; ADOQuery1-SQL-Clear(); AnsiString an1= update student set ; an1+= sno=+ Edit1-Text+ ,; an1+= sname=+ Edit2-Text+ ,; an1+= sex=+xb+, ; an1+= sdept=+ComboBox4-Text+ ,; an1+= csrq=+rq+; an1+= where sno=+ Edit1-Text+; ADOQuery1-SQL-Add(an1); ShowMessage(an1); ADOQuery1-ExecSQL() ; ShowMessage(修改成功);六信息删除删除查询代码：if(Text=) ShowMessage(请查询输入要查询的学号); return; ADOQuery1-SQL-Clear(); AnsiString an1=select * from student where ; an1+= sno=+Form4-Edit1-Text+; ADOQuery1-SQL-Add(an1); ADOQuery1-Open(); DBGrid1-DataSource=DataSource1;删除代码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-ExecSQL();ShowMessage(删除成功); DBGrid1-DataSource=DataSource1; else return;七统计：统计代码： ADOQuery1-SQL-Clear(); AnsiString an1=select count(sno) as xsrs from student ; ADOQuery1-SQL-Add(an1); ADOQuery1-Open(); Label2-Caption=学生人数; Label3-Caption=ADOQuery1-FieldValuesxsrs;/- ADOQuery1-SQL-Clear(); AnsiString an1=select avg(grade) as pjcj from sc ; ADOQuery1-SQL-Add(an1); ADOQuery1-Open(); Label2-Caption=平均成绩; Label3-Caption=ADOQuery1-FieldValuespjcj;/- ADOQuery1-SQL-Clear(); AnsiString an1=select count(cno) as kczs from course ; ADOQuery1-SQL-Add(an1); ADOQuery1-Open(); Label2-Caption=课程总数; Label3-Caption=ADOQuery1-FieldValueskczs八修改密码：修改密码代码：if(Edit1-Text= |Form6-Edit2-Text=) ShowMessage(对不起，用户名或密码不得为空); return; ifEdit3-Text= |Form6-Edit4-Text=) ShowMessage(对不起，输入新密码也不能为空); return; if(Edit3-Text!=Form6-Edit4-Text) ShowMessage(两次密码不一致); return; ADOQuery1-SQL-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) ShowMessage(对不起，用户名或密码错误，请重试); return; ADOQuery1-SQL-Clear() ; an1=update mm set password1=+Form6-Edit3-Text+ ; an1+= where user1=+Form6-Edit1-Text+; ADOQuery1-SQL-Add(an1); ShowMessage(an1); ADOQuery1-ExecSQL();