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

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

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

提示：

调用下一表单命令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;

rq=ComboBox2->

-"

+ComboBox3->

+ComboBox4->

Text;

if（Form3->

RadioButton1->

Checked==1）

{xb="

男"

else

女"

;

AnsiStringan1="

insertintostudentvalues（"

'

+Form3->

"

Edit2->

+xb+"

+ComboBox1->

+rq+"

）"

ExecSQL（）;

Close（）;

ShowMessage（"

增加成功"

四．信息查询：

查询代码

if（Edit1->

Text!

="

）

and"

if（Edit2->

sname='

。

其它代码自己补齐

year（csrq）>

1900"

RecordCount==0）

对不起，没有你要查的同学"

五．学生信息修改

修改中查询代码：

if（Form3->

Text=="

请查询输入学号"

请查询输入要查询的学号"

selectsno,sname,sex,sdept,year（csrq）asnn,month（csrq）as"

yy,day（csrq）asrrfromstudentwhere"

//为各个变量赋值

Text=ADOQuery1->

FieldValues["

sno"

];

Edit2->

sname"

AnsiStringxb;

xb=ADOQuery1->

sex"

if（xb=="

{RadioButton1->

Checked=true;

{RadioButton2->

ComboBox1->

sdept"

]

ComboBox2->

nn"

];

ComboBox3->

yy"

ComboBox4->

rr"

修改代码：

AnsiStringxb,rq;

if（RadioButton1->

Checked==true）

{xb="

Text+'

-'

updatestudentset"

+Edit2->

sex='

"

sdept='

csrq='

wheresno='

ShowMessage（an1）;

ExecSQL（）;

修改成功"

六．信息删除

删除查询代码：

if（Text=="

+Form4->

DBGrid1->

DataSource=DataSource1;

删除代码

intaa;

aa=MessageBox（NULL,"

真的要删除该生记录吗？

"

询问窗口"

4）;

if（aa==6）

{ADOQuery1->

deletefromstudentwhere"

ShowMessage（"

删除成功"

{return;

七．统计：

统计代码：

selectcount（sno）asxsrsfromstudent"

Label2->

Caption="

学生人数"

Label3->

Caption=ADOQuery1->

xsrs"

//---------------------------------------------------------------------------

selectavg（grade）aspjcjfromsc"

平均成绩"

pjcj"

//----------------------------------------