学生学籍成绩管理系统源程序Word文件下载.docx
- 文档编号:16361485
- 上传时间:2022-11-23
- 格式:DOCX
- 页数:47
- 大小:21.30KB
学生学籍成绩管理系统源程序Word文件下载.docx
《学生学籍成绩管理系统源程序Word文件下载.docx》由会员分享,可在线阅读,更多相关《学生学籍成绩管理系统源程序Word文件下载.docx(47页珍藏版)》请在冰豆网上搜索。
.DisplayZeros=True
.DisplayHorizontalScrollBar=True
.DisplayVerticalScrollBar=True
模块3:
SubMacro1()
Range("
D2:
D60000"
).Select
WithSelection.Validation
.Delete
.AddType:
=xlValidateList,AlertStyle:
=xlValidAlertStop,Operator:
=_
xlBetween,Formula1:
="
团员,党员,预备党员,群众"
.IgnoreBlank=True
.InCellDropdown=True
.InputTitle="
"
.ErrorTitle="
.InputMessage="
.ErrorMessage="
.IMEMode=xlIMEModeNoControl
.ShowInput=True
.ShowError=True
SubMacro2()
J2:
J60000"
本科,专科"
SubMacro3()
K2:
K60000"
在校,休学,毕业"
UserForm1代码:
PrivateSubCommandButton1_Click()
OnErrorGoTodoerror
DimsqlAsString
Setcon=NewADODB.Connection
Setrs=NewADODB.Recordset
con.Open"
Provider=Microsoft.Jet.OLEDB.4.0;
Datasource="
&
ThisWorkbook.Path&
"
\xjcj.mdb"
sql="
select*from用户数据表where用户名='
UserForm1.ComboBox1.Text&
'
rs.Opensql,con,adOpenKeyset,adLockOptimistic
IfUserForm1.ComboBox1.Text="
Then
MsgBox"
用户名不能为空!
UserForm1.ComboBox1.SetFocus
ExitSub
EndIf
IfUserForm1.TextBox2.Text="
密码不能为空!
UserForm1.TextBox2.SetFocus
IfTrim(rs.Fields("
密码"
))=Trim(UserForm1.TextBox2.Text)Then
username=Trim(rs.Fields("
用户名"
))
usergrade=Trim(rs.Fields("
权限"
userpwd=Trim(rs.Fields("
Workbooks.Application.Visible=True
Sheets("
目录"
).Activate
Me.Hide
UnloadMe
Else
密码错误"
TextBox2.Text="
TextBox2.SetFocus
ExitSub
rs.Close
con.Close
Setrs=Nothing
Setcon=Nothing
doerror:
MsgBox"
系统出现错误"
PrivateSubCommandButton2_Click()
ActiveWorkbook.Save
Application.Quit
PrivateSubUserForm_Initialize()
DimiAsInteger
rs.Open"
select*from用户数据表"
con,adOpenKeyset,adLockOptimistic
Fori=1Tors.RecordCount
UserForm1.ComboBox1.AddItemrs.Fields("
)
rs.MoveNext
Nexti
UserForm2代码:
OnErrorResumeNext
Application.ScreenUpdating=False
Setcmd=NewADODB.Command
Setcmd.ActiveConnection=con
IfUserForm2.TextBox1.Text="
OrUserForm2.TextBox2.Text="
OrUserForm2.TextBox3.Text="
更改信息不齐全!
48
EndIf
Ifuserpwd=Trim(UserForm2.TextBox1.Text)Then
IfTrim(UserForm2.TextBox2)=Trim(UserForm2.TextBox3)Then
cmd.CommandText="
update用户数据表set密码='
UserForm2.TextBox2.Text&
where用户名='
username&
cmd.Execute
密码更换成功!
请牢记密码!
Else
确认密码输入有误,请重新输入!
UserForm2.TextBox3.SetFocus
原密码输入错误,请重新输入!
UserForm2.TextBox1.SetFocus
Application.ScreenUpdating=True
rs.Close
UnloadMe
UserForm3代码:
DimyAsInteger
select*from用户数据表where用户名='
UserForm3.TextBox1.Text&
IfUserForm3.TextBox1.Text="
OrUserForm3.TextBox2.Text="
OrUserForm3.TextBox1.Text="
信息不全,请完整填写信息"
IfNotrs.EOFThen
用户名已存在,请重新输入"
cmd.CommandText="
INSERTINTO用户数据表(用户名,密码,权限)VALUES('
Trim(UserForm3.TextBox1.Text)&
'
Trim(UserForm3.TextBox2.Text)&
Trim(UserForm3.ComboBox1.Text)&
)"
cmd.Execute
y=MsgBox("
数据保存成功,是否继续增加"
vbYesNo,"
提示信息!
Ify=vbYesThen
WithUserForm3
.TextBox1.Text="
.TextBox2.Text="
.ComboBox1.Text="
.TextBox1.SetFocus
ElseIfy=vbNoThen
UserForm4代码:
DimyAsString
DimcmdAsADODB.Command
IfTrim(username)=Trim(UserForm4.ComboBox1.Text)Then
当前用户不能删除"
您是否真的删除该用户?
vbYesNo+64,"
提示"
Ify=vbYesThen
delete*from用户数据表where用户名='
UserForm4.ComboBox1.Text&
删除成功"
Me.Hide
UserForm4.ComboBox1.Text="
ComboBox1.AddItemrs.Fields("
ComboBox1.AddItem("
一般用户"
高级用户"
管理员"
UserForm5代码:
DimconAsADODB.Connection
DimrsAsADODB.Recordset
IfUserForm5.TextBox1.Text="
查询条件不能为空!
UserForm5.TextBox1.SetFocus
select*from学生数据表where学号='
UserForm5.TextBox1.Text&
WithUserForm5
.Label24.Caption=rs.Fields("
学号"
.Label19.Caption=rs.Fields("
姓名"
.Label17.Caption=rs.Fields("
性别"
.Label16.Caption=rs.Fields("
政治面貌"
.Label20.Caption=rs.Fields("
入学时间"
.Label21.Caption=rs.Fields("
出生年月"
.Label27.Caption=rs.Fields("
班级代码"
.Label18.Caption=rs.Fields("
专业代码"
.Label26.Caption=rs.Fields("
民族"
.Label25.Caption=rs.Fields("
层次"
.Label23.Caption=rs.Fields("
在校状态"
EndWith
没有找到查询结果"
UserForm5.CommandButton7.Enabled=True
UserForm5.CommandButton8.Enabled=True
UserForm5.CommandButton9.Enabled=True
PrivateSubCommandButton6_Click()
PrivateSubCommandButton7_Click()
IfTrim(UserForm5.Label23.Caption)=Trim("
在校"
)Then
您是否要进行休学处理"
UserForm5.Label23.Caption="
休学"
update学生数据表set在校状态='
UserForm5.Label23.Caption&
where学号='
UserForm5.Label24.Caption&
更新成功"
不能进行休学处理"
UserForm5.CommandButton8.Enabled=False
UserForm5.CommandButton9.Enabled=False
PrivateSubCommandButton8_Click()
休学"
您是否要进行复学处理"
在校"
不能进行复学处理"
UserForm5.CommandButton7.Enabled=False
U
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 学籍 成绩管理系统 源程序