学生成绩管理系统实验报告Word格式.docx
- 文档编号:18488645
- 上传时间:2022-12-17
- 格式:DOCX
- 页数:30
- 大小:6.77MB
学生成绩管理系统实验报告Word格式.docx
《学生成绩管理系统实验报告Word格式.docx》由会员分享,可在线阅读,更多相关《学生成绩管理系统实验报告Word格式.docx(30页珍藏版)》请在冰豆网上搜索。
进入的主界面如图:
代码设计:
登录窗体代码:
PrivateSubCommand1_Click()
DimSQLAsString
DimRS_LOGINAsNewADODB.Recordset
IfTrim(Text1.Text)="
"
OrTrim(Text2.Text)="
Then
MsgBox"
输入的用户或者密码不能为空,请重新输入!
vbOKOnly+vbExclamation
Text1.SetFocus
Else
SQL="
SELECT*FROMUSERINFOWHEREUSERNAME='
&
Text1.Text&
"
'
RS_LOGIN.OpenSQL,CONN,adOpenKeyset,adLockPessimistic
IfRS_LOGIN.EOF=TrueThen
系统没有该用户,请重新输入!
IfTrim(Text2.Text)=Trim(RS_LOGIN.Fields
(1))Then
USERNAME=Trim(Text1.Text)
UnloadMe
MDIForm1.Show
输入用户密码有误,请重新输入!
Text2.Text="
Text2.SetFocus
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
UnloadMe
PrivateSubForm_Load()
DimCONNECTIONSTRINGAsString
CONNECTIONSTRING="
PROVIDER=MICROSOFT.JET.OLEDB.4.0;
_
DATASOURCE=.\STUREPORT.MDB"
CONN.OpenCONNECTIONSTRING
下面是主窗体的代码:
PrivateSubMenubjxscj_Click()
Form9.Show
PrivateSubMenubjxsxx_Click()
Form6.Show
PrivateSubMenuczxscj_Click()
Form10.Show
PrivateSubMenuczxsxx_Click()
Form7.Show
PrivateSubMenuscyh_Click()
Form3.Show
PrivateSubMenutcxt_Click()
End
PrivateSubMenutjxscj_Click()
Form8.Show
PrivateSubMenutjxsxx_Click()
Form5.Show
PrivateSubMenutjyh_Click()
Form2.Show
PrivateSubMenuxgmm_Click()
Form4.Show
PrivateSubMenuzx_Click()
CONN.Close
Form1.Show
MDIForm1.Hide
运行如图:
2.用户管理界面:
添加用户如图:
代码:
DIMRS_CHECKASNEWADODB.RECORDSET
DimRS_NEWAsNewADODB.Recordset
OrTrim(Text3.Text)="
新的用户名,密码和确认密码不能为空!
Text3.Text="
ExitSub
IfTrim(Text2.Text)<
>
Trim(Text3.Text)Then
密码和确认密码不一致,请重新输入!
SELECT*FROMUSERINFOWHEREUSERNAME='
RS_NEW.OpenSQL,CONN,adOpenKeyset,adLockPessimistic
While(RS_NEW.EOF=False)
IfTrim(RS_NEW.Fields(0))=Trim(Text1.Text)Then
该用户已经存在,请重新输入!
Text1.Text="
RS_NEW.MoveNext
Wend
RS_NEW.AddNew
RS_NEW.Fields(0)=Trim(Text1.Text)
RS_NEW.Fields
(1)=Trim(Text2.Text)
RS_NEW.Update
RS_NEW.Close
新用户已经添加成功,请确认返回!
删除用户:
运行如图
代码如下:
Adodc1.Recordset.Delete
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveNext
Form3.Hide
修改用户密码:
DimRS_CHANGEAsNewADODB.Recordset
旧密码,新密码和确认密码不能为空,请重新输入!
Else
USERNAME&
RS_CHANGE.OpenSQL,CONN,adOpenKeyset,adLockPessimistic
IfTrim(RS_CHANGE.Fields
(1))<
Trim(Text1.Text)Then
旧密码不正确,请重新输入!
RS_CHANGE.Fields
(1)=Trim(Text2.Text)
RS_CHANGE.Update
RS_CHANGE.Close
密码修改成功,请牢记您的密码!
vbOKOnly+vbExclamation,"
3.学生信息管理界面:
学生信息的添加:
PrivateSubCombo1_Click()
Combo2.Clear
DimSQL2AsString
DimRS2AsNewADODB.Recordset
SQL2="
SELECTDISTINCTCLASSFROMSTUINFOWHERESPECIALTY='
Trim(Combo1.Text)&
RS2.OpenSQL2,CONN,adOpenKeyset,adLockPessimistic
DimRECORDAsString
ForI=0ToVal(RS2.RecordCount)-1
RECORD=Trim(RS2.Fields(0).Value)
RS2.MoveNext
Combo2.AddItemRECORD
NextI
RS2.Close
Combo1.Enabled=True
Combo2.Enabled=True
Combo3.Enabled=True
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text1.Text="
Text2.Text="
Text3.Text="
Command3.Enabled=True
Command1.Enabled=False
DimSQL1AsString
DimRS1AsNewADODB.Recordset
SQL1="
SELECTDISTINCTSPECIALTYFROMSTUINFO"
RS1.OpenSQL1,CONN,adOpenKeyset,adLockPessimistic
ForI=0ToVal(RS1.RecordCount)-1
RECORD=Trim(RS1.Fields(0).Value)
RS1.MoveNext
Combo1.AddItemRECORD
RS1.Close
Form5.Hide
PrivateSubCommand3_Click()
IfCombo1.Text="
OrCombo2.Text="
OrCombo3.Text="
OrText1.Text="
Or_
OrText3.Text="
MsgBox"
学生各项信息不能为空,请返回重新输入!
vbOKOnly+vbCritical
DimRSAsNewADODB.Recordset
SQL="
SELECT*FROMStuInfoWHERESTUNO='
Trim(Text1.Text)&
ANDspecialty='
RS.OpenSQL,CONN,adOpenDynamic,adLockPessimistic
IfRS.EOF=FalseThen
该学生信息已经录入,请输入其他学生信息!
Text1.SetFocus
RS.AddNew
RS.Fields("
SPECIALTY"
)=Trim(Combo1.Text)
CLASS"
)=Trim(Combo2.Text)
STUNO"
)=Trim(Text1.Text)
NAME"
)=Trim(Text2.Text)
TEL"
)=Trim(Text3.Text)
SEX"
)=Trim(Combo3.Text)
RS.Update
RS.Close
学生信息添加成功!
vbOKOnly+vbInformation
Command1.Enabled=True
Command3.Enabled=False
Combo1.Enabled=False
Combo2.Enabled=False
Combo3.Enabled=False
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Combo3.AddItem"
男"
女"
Combo1.AddItem"
计算机应用技术"
办公自动化"
学生信息的编辑(包括删除、修改):
Adodc1.Recordset.MoveFirst
Command2.Enabled=True
IfAdodc1.Recordset.BOFThen
Command2.Enabled=False
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
PrivateSubCommand4_Click()
PrivateSubCommand5_Click()
IfCommand5.Caption="
修改记录"
Command5.Caption="
保存记录"
Command4.Enabled=False
Text5.Enabled=True
Text4.Enabled=True
Text6.Enabled=True
Command4.Enabled=True
Text5.Enabled=False
Text4.Enabled=False
Text6.Enabled=False
Adodc1.Recordset.Update
PrivateSubCommand6_Click()
PrivateSubCommand7_Click()
PrivateSubCommand8_Click()
学生信息的查询:
no"
Adodc1.RecordSource="
select*fromstuinfowherestuNo='
Adodc1.Refresh
ExitSub
ElseIfCombo1.Text="
name"
select*fromstuinfowherename='
sex"
select*fromstuinfowheresex='
tel"
select*fromstuinfowheretellike'
%"
%'
specialty"
select*fromstuinfowherespecialtylike'
class"
select*fromstuinfowhereclasslike'
No"
Name"
Sex"
Tel"
Specialty"
Class"
4.学生成绩的管理界面
学生成绩的添加:
RECORD
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 成绩管理系统 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)