zxy.docx

zxy.docx

《zxy.docx》由会员分享，可在线阅读，更多相关《zxy.docx（15页珍藏版）》请在冰豆网上搜索。

zxy

登陆界面:

DimmyConAsNewADODB.Connection/zxy连接数据库/

DimmyRsAsNewADODB.Recordset/zxy操作数据/

DimzongAsInteger/zxy定义变量zong类型是整数型,且为外部变量/

PrivateSubCommand1_Click（）

DimsqldlAsString/zxy定义变量sqldl类型是字符串/

DimsfAsString/zxy定义变量sf类型是字符串/

Ifzong=3Then/zxy若用户输入的次数超过三次，则自动退出/

UnloadMe/zxy卸载自己（卸载当前窗体）/

ExitSub

EndIf

myCon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=信息.mdb;"/zxy打开数据库/

IfTrim（Text1.Text=""）Then/zxyTrim功能除去字符串开头和末尾的空格或其他字符。

函数执行成功时返回删除了string字符串首部和尾部

空格的字符串，发生错误时返回空字符串（""）。

如果任

何参数的值为NULL，Trim（）函数返回NULL。

/

MsgBox"没有输入用户名,请输入!

",vbOKOnly+vbExclamation,"警告"

Text1.SetFocus/zxy为textbox1赋焦点（就是光标在文本框里）/

Text2.Text=""/zxy自动激发Text2_TextChanged事件/

myCon.Close/zxy关闭数据库/

zong=zong+1/zxy累加输入次数/

ExitSub

EndIf

'myRs.CursorType=adOpenKeyset/zxy键集游标。

尽管从您的记录集不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，键集游标与动态游标相似。

仍然可以看见其他用户更改的数据。

/

'myRs.LockType=adLockOptimistic/zxy键集游标。

尽管从您的记录集不能访问其他用户删除的记录，但除无法查看其他用户添加的记录外，键集游标与动态游标相似。

仍然可以看见其他用户更改的数据。

/

sqldl="select*from用户资料where用户名='"&Text1.Text&"'"/zxy在用户资料表中查

找用户名与Text1

中相同的数据/

myRs.Opensqldl,myCon/zxy打开数据库中的”sqldl”表,连接数据库中的object/

IfmyRs.EOF=TrueThen/zxy“EOF”指在操作系统决定资料源无更多的资料可读取。

资料源通常称为档案或串流。

/

MsgBox"没有这个用户,请重新输入用户名!

",vbOKOnly+vbExclamation,"警告"

Text1.SetFocus

Text1.Text=""

Text2.Text=""

myRs.Close/zxy关闭记录集/

myCon.Close/zxy关闭数据库/

zong=zong+1/zxyzong计数自增1/

ExitSub

EndIf

IfmyRs.Fields（"密码"）<>Trim（Text2.Text）Then

MsgBox"密码不正确,请重新输入!

",vbOKOnly+vbExclamation,"警告"

Text2.SetFocus

myRs.Close

myCon.Close

zong=zong+1

ExitSub

EndIf

IfmyRs.Fields（"身份"）<>Combo1.TextThen

MsgBox"身份不正确,请重新选择!

",vbOKOnly+vbExclamation,"警告"

Combo1.SetFocus

myRs.Close

myCon.Close

zong=zong+1

ExitSub

EndIf

sf=myRs.Fields（"身份"）/zxy给sf赋值/

myRs.Close

myCon.Close

XingMing=Text1.Text

UnloadMe

Frm_Main.Show/zxy通过身份验证则显示主窗体/

Ifsf="管理员"Then/zxy如果sf值为”管理员”/

Frm_Main.Mun_LiulanUser.Enabled=True/zxyLiulanUser值为真/

admin=1

Else

Frm_Main.Mun_LiulanUser.Enabled=False/zxyLiulanUser（浏览用户）值为假/

Frm_Main.Mun_DelUser.Enabled=False/zxyDelUser（删除用户）值为假/

Frm_Main.Mun_AddUser.Enabled=False/zxyAddUser（增加用户）值为假/

Frm_Main.Mun_AddClass.Enabled=False/zxyAddClass（增加班级）值为假/

Frm_Main.Mun_AddDangA.Enabled=False/zxyAddDangA（增加档案）值为假/

Frm_Main.Mun_ShezGrean.Enabled=False/zxyShezGrean（设置系统）值为假/

Frm_Main.Mun_AddChengJ.Enabled=False/zxyAddChengJ（增加成绩）值为假/

Frm_Main.Mun_ChengJWeiG.Enabled=False/zxyChengJWeiG（成绩违规）值为假/

Frm_Main.Mun_AddJiaoF.Enabled=False/zxyAddJiaoF（增加交费）值为假/

Frm_Main.Mun_ClassCount.Enabled=False/zxyClassCount（班级增加）值为假/

Frm_Main.Mun_DandACount.Enabled=False/zxyDandACount（档案增加）值为假/

Frm_Main.Mun_GreanCount.Enabled=False/zxyGreanCount（系统增加）值为假/

Frm_Main.Mun_ChengJCount.Enabled=False/zxyChengJCount（成绩增加）值为假/

Frm_Main.Mun_JiaoFCount.Enabled=False/zxyJiaoFCount（班级增加）值为假/

admin=0

EndIf

'Ifsf="管理员"Then

'admin=1

'Else

'admin=0

'EndIf

EndSub

PrivateSubCommand2_Click（）

DimanwAsInteger/zxy定义变量anw类型是整数型/

anw=MsgBox（"确定要退出系统吗？

",vbYesNo,"请问"）

Ifanw=6Then

UnloadMe

Else

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndIf

EndSub

PrivateSubForm_Load（）

zong=0

Text1.Text=""

Text2.Text=""

Combo1.Text=""

Combo1.AddItem（"管理员"）

Combo1.AddItem（"用户"）

EndSub

PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=13Then

Text2.SetFocus

EndIf

EndSub

主窗口:

PrivateSubMDIForm_Load（）/zxy从注册表中获取窗体的位置、大小/

EndSub

PrivateSubMun_About_Click（）

frm_About.Show1/zxy显示”关于”对话框/

EndSub

PrivateSubMun_AddChengJ_Click（）

Frm_AddChengJ.Show1/zxy显示”添加成绩”对话框/

EndSub

PrivateSubMun_AddClass_Click（）

Frm_AddClass.Show1/zxy显示”添加班级”对话框/

EndSub

PrivateSubMun_AddDangA_Click（）/zxy显示”添加档案”对话框/

Frm_AddDangA.Show1

EndSub

PrivateSubMun_AddJiaoF_Click（）

Frm_AddStruJF.Show1/zxy显示”添加交费”对话框/

EndSub

PrivateSubMun_AddUser_Click（）

Frm_AddUser.Show1/zxy显示”添加用户”对话框/

EndSub

PrivateSubMun_ChengJCount_Click（）

Frm_CountChengJ.Show1/zxy显示”成绩增加”对话框/

EndSub

PrivateSubMun_ChengJWeiG_Click（）/zxy显示”成绩违规”对话框/

Frm_StruWeiG.Show1

EndSub

PrivateSubMun_ChenJCount_Click（）

Frm_CountChengJ.Show1/zxy显示”成绩增加”对话框/

EndSub

PrivateSubMun_ClassCount_Click（）

Frm_CountClass.Show1/zxy显示”班级增加”对话框/

EndSub

PrivateSubMun_Czsm_Click（）

frm_ShuoMing.Show1/zxy显示”课程设置”对话框/

EndSub

PrivateSubMun_DandACount_Click（）

Frm_CountDangA.Show1/zxy显示”档案增加”对话框/

EndSub

PrivateSubMun_DelUser_Click（）

Frm_DelUser.Show1/zxy显示”删除用户”对话框/

EndSub

PrivateSubMun_Exit_Click（）/zxy显示”退出系统”对话框/

DimanwAsInteger/zxy定义变量anw类型是整数型/

anw=MsgBox（"确定要退出系统吗？

",vbYesNo,"提示！

"）/zxy给anw赋值并

输出提示/

Ifanw=6Then/zxy如果anw值为6然后继续执行下一条语句/

UnloadMe/zxy卸载自己（卸载当前窗体）/

EndIf

EndSub

PrivateSubMun_FindChengJ_Click（）

Frm_FindChengJ.Show1/zxy显示”查询成绩”对话框/

EndSub

PrivateSubMun_FindClass_Click（）

Frm_FindClass.Show1/zxy显示”查询班级”对话框/

EndSub

PrivateSubMun_FindDangA_Click（）

Frm_FindDangA.Show1/zxy显示”查询档案”对话框/

EndSub

PrivateSubMun_FindGrean_Click（）

Frm_FindGrean.Show1/zxy显示”查询系统”对话框/

EndSub

PrivateSubMun_FindJiaoF_Click（）

Frm_FindStruJF.Show1/zxy显示”查询交费”对话框/

EndSub

PrivateSubMun_GreanCount_Click（）

Frm_CountGrean.Show1/zxy显示”系统用户增加”对话框/

EndSub

PrivateSubMun_JiaoFCount_Click（）

Frm_CountJiaoF.Show1/zxy显示”交费增加”对话框/

EndSub

PrivateSubMun_LiulanUser_Click（）

Frm_LiulanUser.Show1/zxy显示”浏览用户”对话框/

EndSub

PrivateSubMun_Possword_Click（）

Frm_UpdatePass.Show1/zxy显示”修改密码”对话框/

EndSub

PrivateSubMun_ShezGrean_Click（）

Frm_SheZGrean.Show1/zxy显示”设置系统”对话框/

EndSub

PrivateSubMun_UpLogin_Click（）/zxy显示”重新登陆”对话框/

IfMsgBox（"若重新登录，所有窗体都将关闭！

是否重新登录？

",vbQuestion+vbYesNo+vbDefaultButton2,"重新登录"）=vbYesThen

UnloadMe

Frm_Login.Show/zxy检查有没有相关的控件/

EndIf

EndSub

增加班级:

DimmyConAsNewADODB.Connection/zxy连接数据库/

DimmyRsAsNewADODB.Recordset/zxy操作数据/

PrivateSubCommand1_Click（）/zxy显示命令控件窗口1/

DimNianJi,ZhuanYe,RenShu,FuDaoYuan,BeiZuAsString/zxy定义变量NianJi,

ZhuanYe,RenShu,

FuDaoYuan,BeiZu

类型是字符串/

NianJi=Text1.Text/zxy给NianJi赋值为Text1.text中内容下同/

ZhuanYe=Text2.Text

RenShu=Text3.Text

FuDaoYuan=Text4.Text

BeiZu=Text5.Text

Command1.Enabled=True

IfTrim（NianJi）=""OrTrim（ZhuanYe）=""OrTrim（RenShu）=""OrTrim（FuDaoYuan）=""Then/zxy如果NianJi,ZhuanYe,RenShu,

FuDaoYuan,BeiZu为空,则/

MsgBox"班级资料不能为空,请填写完整！

"

ExitSub

EndIf

myCon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=信息.mdb;"/zxy打开数

据库中

相关表

myRs.Open"select*from班级表where年级='"&Trim（Text1.Text）&"'and专业='"&Trim（Text2.Text）&"'",myCon/zxy打开数据库中的计数集,在班级表中查找年

级与Text1中相同的数据以及专业与Text2

中的数据/

IfmyRs.EOF=FalseThen/zxy“EOF”指在操作系统决定资料源无更多的资料可读取。

资料源通常称为档案或串流。

/

MsgBox"该班级已经存在，请重新输入！

"

myRs.Close/zxy关闭记录集/

myCon.Close/zxy关闭数据库/

Text1.SetFocus/zxy为textbox1赋焦点（就是光标在文本框里）/

ExitSub

EndIf

myRs.Close

myRs.Open"班级表",myCon,3,2/zxy打开数据库中的表“班级表”,mycon是连接数

据库的object,3和2都是游标/

myRs.AddNew/zxy声明了一个名为myrs的记录集对象变量，然后

利用这个变量对数据库进行添加新记录/

myRs.Fields（"年级"）=Text1.Text/zxy赋值语句下同/

myRs.Fields（"专业"）=Text2.Text

myRs.Fields（"人数"）=Text3.Text

myRs.Fields（"辅导员"）=Text4.Text

IfText5.Text=""Then/zxy如果”备注”中为空,则/

myRs.Fields（"备注"）=""

Else

myRs.Fields（"备注"）=Text5.Text

EndIf

myRs.Update/zxy计数集刷新/

myRs.Close

myCon.Close

MsgBox"添加成功!

"

Adodc1.RecordSource="select*from班级表orderby年级"/zxy从数据库中读取/

Frm_AddClass.Adodc1.Refresh/zxyRefresh指重新绘制,刷新窗口/

Frm_AddClass.DataGrid1.Refresh/zxyDataGrid1.Refresh指控件邦定Adodc1/

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

EndSub

PrivateSubCommand2_Click（）/zxy显示命令控件窗口2/

DimNianJi,xi,RenShu,FuDaoYuan,BeiZuAsString/zxy定义变量NianJi,

Xi,RenShu,

FuDaoYuan,BeiZu

类型是字符串/

NianJi=Text1.Text/zxy给NianJi赋值为Text1.text中内容下同/

ZhuanYe=Text2.Text

RenShu=Text3.Text

FuDaoYuan=Text4.Text

BeiZu=Text5.Text

IfTrim（NianJi）=""OrTrim（ZhuanYe）=""OrTrim（RenShu）=""OrTrim（FuDaoYuan）=""Then/zxy如果NianJi,ZhuanYe,RenShu,

FuDaoYuan为空,则/

MsgBox"请填写要删除班级的资料！

"

ExitSub

EndIf

IfmyCon.State=1Then

myCon.Close

EndIf

myCon.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=信息.mdb;"/zxy打开数

据库中

相关表

DimnAsInteger/zxy定义变量n类型是整数型/

myRs.Open"select*from班级表where年级='"&Trim（Text1.Text）&"'",myCon,3,2

n=MsgBox（"您确定要删除吗？

",vbYesNo,"提示"）

Ifn=6Then/zxy6为用户输入vbyes的返回值/

myRs.Delete/zxy删除计数集中n/

myRs.Close

myCon.Close

EndIf

'MsgBox"您确定要删除吗？

",vbYesNo,"提示"

Adodc1.RecordSource="select*from班级表orderby年级"

Frm_AddClass.Adodc1.Refresh

Frm_AddClass.DataGrid1.Refresh

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

EndSub

PrivateSubCommand3_Click（）/zxy显示命令控件窗口3/

UnloadMe/zxy卸载自己（卸载当前窗体）/

EndSub

PrivateSubDataGrid1_Click（）/zxyDataGrid控件能显示一系列行和列来表示Recordset

对象的记录和字段。

可以使用DataGrid来创建一个

允许最终用户阅读和写入到绝大多数数据库的应用程

序。

/

Frm_AddClass.Adodc1.RecordSource="select*from班级表where年级='"&Trim（DataGrid1.Row）&"'"

Text1.Text=Frm_AddClass.Adodc1.Recordset.Fields（"年级"）

Text2.Text=Frm_AddClass.Adodc1.Recordset.Fields（"专业"）

Text3.Text=Frm_AddClass.Adodc1.Recordset.Fields（"人数"）

Text4.Text=Frm_AddClass.Adodc1.Recordset.Fields（"辅导员"）

Text5.Text=Frm_AddClass.Adodc1.Recordset.Fields（"备注"）

Command1.Enabled=False

Command2.Enabled=True

EndSub

PrivateSubForm_Load（）/zxy加载窗体中的初始化数据/

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

'Frm_AddClass.Adodc1.Refresh

'Frm_AddClass.