实验五 开发一个学生信息管理系统Word文档下载推荐.docx

实验五 开发一个学生信息管理系统Word文档下载推荐.docx

《实验五 开发一个学生信息管理系统Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《实验五 开发一个学生信息管理系统Word文档下载推荐.docx（18页珍藏版）》请在冰豆网上搜索。

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）从数据库中读密码语句

AnsiStringan1="

select*frommm"

;

an1+="

whereuser1='

"

+Edit1->

Text+"

'

//定义SQL查询语句

andpassword1='

+Edit2->

ADOQuery1->

SQL->

Add（an1）;

//将SQL语句加入到缓冲区

Open（）;

//执行SQL语句

if（ADOQuery1->

RecordCount==0）//识别是用户名及密码是否正确

{ShowMessage（"

非法用户名或密码"

Return;

7．文件存盘

如图9点文件菜单saveprojectas

图9

文件按默认文件名，选一个新目录保存，如图10

图10

二．综合窗口

菜单的设计

三．信息录入

判断学号是否存在：

void__fastcallTForm3:

:

Edit1Exit（TObject*Sender）

{AnsiStringan1="

select*fromstudentwhere"

sno='

+Edit1->

Clear（）;

Open（）;

if（ADOQuery1->

RecordCount==1）

{ShowMessage（"

对不起，已经存在该学号，请重新输入"

Edit1->

SetFocus（）;

}

增加代码：

AnsiStringrq,xb;

if（Edit1->

Text=="

||Edit2->

）

对不起，学号或密码不得为空"

if（ComboBox1->

请选择系"

对不起，请选择系部"

if（ComboBox2->

请选择"

||ComboBox3->

||ComboBox4->

对不起，请选择出生日期"

rq=ComboBox2->

-"

+ComboBox3->

+ComboBox4->

Text;

if（Form3->

RadioButton1->

Checked==1）

{xb="

男"

else

女"

;

AnsiStringan1="

insertintostudentvalues（"

'

+Form3->

"

Edit2->

+xb+"

+ComboBox1->

+rq+"

）"

ExecSQL（）;

Close（）;

ShowMessage（"

增加成功"

四．信息查询：

查询代码

AnsiStringxb,an1;

an1="

select*fromstudent"

Text!

="

wheresno='

"

Clear（）;

RecordCount==0）

对不起，查无此人请重试！

第一条

First（）;

上一条

Prior（）;

下一条

Next（）;

最后一条

Last（）;

五．学生信息修改

修改中查询代码：

AnsiStringan1;

对不起，学号不得为空"

select*fromstudentwheresno='

对不起，学号不正确，请重输入"

Edit2->

Text=ADOQuery1->

FieldValues["

sname"

];

ComboBox1->

sdept"

修改代码：

if（Edit2->

对不起，姓名不得为空"

对不起，选择系部"

updatestudentsetsname='

sdept='

an1+="

ExecSQL（）;

修改成功！

六．信息删除

删除查询代码：

删除代码

intaa;

aa=MessageBox（NULL,"

真的要删除吗"

"

删除窗口"

4）;

if（aa==6）

{

deletefromstudentwheresno='

删除成功！

七．统计：

统计代码：

AnsiStringan1;

selectcount（*）as学生人数,avg（2014-year（csrq））as平均年龄fromstudent"

对不起，目前没有学生"

八．修改密码：

修改密码代码：

if（Edit1->

||Form6->

对不起，用户名或密码不得为空"

ifEdit3->

Edit4->

对不起，输入新密码也不能为空"

if（Edit3->

=Form6->

Text）

两次密码不一致"

+Form6->

Open（）