学生信息管理系统代码Word文档格式.docx
- 文档编号:17809198
- 上传时间:2022-12-10
- 格式:DOCX
- 页数:17
- 大小:16.30KB
学生信息管理系统代码Word文档格式.docx
《学生信息管理系统代码Word文档格式.docx》由会员分享,可在线阅读,更多相关《学生信息管理系统代码Word文档格式.docx(17页珍藏版)》请在冰豆网上搜索。
select*from用户表where用户名='
"
&
usna&
"
'
rst.Openmysql,cn
Ifrst.EOFThen
MsgBox"
用户名不存在!
cn.Close
Text1.Text="
Text2.Text="
Text1.SetFocus
Else
IfTrim(rst("
密码"
))=Trim(Text2.Text)Then
管理界面.Show
i=i+1
Ifi<
3Then
用户名或密码错误!
vbOKOnly+vbExclamation,"
警告"
该用户已被锁定!
EndIf
EndSub
PrivateSubCommand2_Click()
Text1.Text="
Text2.Text="
Text3.Text="
EndSub
2、管理界面代码:
PrivateSubSinsert_Click()
添加学生信息.Show
PrivateSubSselect_Click()
查询学生信息.Show
PrivateSubsustu_Click()
查询更新学生信息.Show
PrivateSubxgmm_Click()
修改密码.Show
PrivateSubyhzc_Click()
用户注册.Show
3、查询学生信息代码:
IfCombo1.Text<
>
Then
select*from学生信息表where系别='
Trim(Combo1.Text)&
没有学生!
Combo1.Text="
WithMSFlexGrid1
.TextMatrix(0,1)="
学号"
.TextMatrix(0,2)="
姓名"
.TextMatrix(0,3)="
性别"
.TextMatrix(0,4)="
年龄"
.TextMatrix(0,5)="
系别"
.TextMatrix(0,6)="
班级"
MSFlexGrid1.Rows=1'
每次查询自动定位到第一行
DoWhileNotrst.EOF
.Rows=.Rows+1
.CellAlignment=8
.TextMatrix(.Rows-1,1)=rst.Fields("
)
.TextMatrix(.Rows-1,2)=rst.Fields("
.TextMatrix(.Rows-1,3)=rst.Fields("
.TextMatrix(.Rows-1,4)=rst.Fields("
.TextMatrix(.Rows-1,5)=rst.Fields("
.TextMatrix(.Rows-1,6)=rst.Fields("
rst.MoveNext
Loop
EndWith
ElseIfCombo2.Text<
select*from学生信息表where班级='
Trim(Combo2.Text)&
ElseIfText1.Text<
select*from学生信息表where学号='
Trim(Text1.Text)&
Else
请输入查询条件!
EndIf
Combo1.Text="
Combo2.Text="
PrivateSubCommand3_Click()
修改学生信息.Show
EndSub'
修改学生信息
PrivateSubCommand4_Click()
deletefrom学生信息表where学号='
Text1.Text&
删除成功!
PrivateSubForm_Load()
Combo1.AddItem"
信息服务学院"
电子信息工程系"
Combo2.AddItem"
40821P"
40811P"
40822P"
40721P"
4、添加学生信息代码
DimsexAsString
rst.Close
该学生信息已存在!
Text3.Text="
Combo2.Text="
Option1.Value=False
IfText1.Text="
请输入学号!
ExitSub
IfText2.Text="
请输入姓名!
Text2.SetFocus
IfText3.Text="
请输入年龄!
Text3.SetFocus
IfOption1.ValueThen
sex="
男"
女"
xh=Trim(Text1.Text)
xm=Trim(Text2.Text)
xb=sex
nl=Trim(Text3.Text)
xofy=Trim(Combo1.Text)
bj=Trim(Combo2.Text)
mysql="
insertinto学生信息表(学号,姓名,性别,年龄,系别,班级)values('
xh&
'
xm&
xb&
nl&
xofy&
bj&
)"
rst.Openmysql,cn
MsgBox("
信息添加成功!
5、修改密码:
DimcnAsNewADODB.Connection
IfText1.Text="
请输入密码!
请输入新密码!
请确认输入的新密码!
IfText2.Text=Text3.TextThen
xmm=Trim(Text2.Text)
update用户表set密码='
xmm&
where用户名='
登陆.Text1.Text&
密修改成功!
6、修改学生信息代码:
信息修改成功!
7、用户注册代码:
请输入用户名!
请再次输入密码!
sryhm=Trim(Text1.Text)
srmm=Trim(Text2.Text)
insertinto用户表(用户名,密码)values('
sryhm&
srmm&
用户添加成功!
EndSub'
添加用户
重置按钮
PrivateSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 信息管理 系统 代码