实验五开发一个学生信息管理系统Word下载.docx
- 文档编号:14831672
- 上传时间:2022-10-25
- 格式:DOCX
- 页数:17
- 大小:355.73KB
实验五开发一个学生信息管理系统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"
//----------------------------------------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 开发 一个 学生 信息管理 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)