数据库课程设计员工管理系统Word文档下载推荐.docx
- 文档编号:19718692
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:26
- 大小:446.25KB
数据库课程设计员工管理系统Word文档下载推荐.docx
《数据库课程设计员工管理系统Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《数据库课程设计员工管理系统Word文档下载推荐.docx(26页珍藏版)》请在冰豆网上搜索。
2.2E-R模型
2.3关系模型
(1)员工信息(员工号、姓名、性别、年龄、电话)
(2)包月客户信息(包月客户号、姓名、性别、年龄、联系电话、服务号)
(3)散户信息(散户号、姓名、性别、年龄、服务号)
(4)服务信息(服务号、服务名、价格)
(5)注册信息(用户名,密码)
2.4表结构设计
图一员工信息
图二包月客户信息
图三散户信息
图四服务信息
图五密码表
3、系统各功能模块的详细设计
(1)首先是欢迎界面,如下图:
源代码:
PrivateSubPicture1_Click()
Form1.Show
UnloadMe
EndSub
这样设置的话,鼠标点击图片就能进入登陆页面。
(2)登录窗体,如下图
源代码:
DimmiCountAsInteger
PrivateSubCommand1_Click()
DimsqlstrAsString
sqlstr="
Select*From密码表Where用户名='
"
&
Text1.Text&
"
'
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"
用户名错误,重新输入"
vbExclamation,"
警告"
Text1.Text="
Text1.SetFocus
Else
IfAdodc1.Recordset.Fields("
密码"
)=Text2Then
MDIForm1.Show
UnloadMe
Else
密码错误,重新输入"
Text2.Text="
Text2.SetFocus
EndIf
EndIf
miCount=miCount+1
IfmiCount=3ThenUnloadMe
PrivateSubCommand2_Click()
PrivateSubCommand3_Click()
Form2.Show
(3)主窗体,如下图:
PrivateSub包月查询_Click()
Form9.Show
PrivateSub包月客户_Click()
Form4.Show
PrivateSub服务_Click()
Form10.Show
PrivateSub散户_Click()
Form5.Show
PrivateSub退出_Click()
End
PrivateSub新用户注册_Click()
Form6.Show
PrivateSub员工_Click()
Form7.Show
PrivateSub员工查询_Click()
Form12.Show
(4)注册新用户窗体,在两次密码一致并且用户名不重复的情况下,注册才会成功,点击重置,可以清空文本框,进行重新输入。
窗体如下图:
注册成功时,如下图:
IfText1="
Then
请输入用户名!
确认用户名"
Text1.SetFocus
ExitSub
sqlstr="
Select*from密码表where用户名='
Text1&
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
用户名已存在,请重新输入!
检验用户名"
Text1="
IfText2<
>
Text3Then
二次输入的密码不一致,请重新输入"
检验密码"
Text2="
:
Text3="
Text2.SetFocus
ElseIfText2="
密码不能为空!
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("
用户名"
)=Trim(Text1)
)=Trim(Text2)
Adodc1.Recordset.Update
Me.Hide
成功注册新用户!
vbInformation,"
添加用户"
Text1="
Text2="
Text3="
MDIForm1.Show
(5)数据管理中的包月客户窗体,如下图:
图5.1
点击图5.1的添加按钮,如下图:
图5.2
Adodc1.Recordset.AddNew
Command1.Enabled=False
Command10.Enabled=False
Command4.Enabled=True
Command2.Enabled=True
PrivateSubCommand10_Click()
x=MsgBox("
确实要删除当前记录吗?
vbYesNo+vbQuestion,"
确认"
)
Ifx=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
PrivateSubCommand11_Click()
Command1.Enabled=True
Command10.Enabled=True
Command4.Enabled=False
Command2.Enabled=False
Form3.Show
PrivateSubCommand4_Click()
Adodc1.Recordset.Update
PrivateSubCommand5_Click()
Adodc1.Recordset.MoveFirst
Command5.Enabled=False
Command6.Enabled=False
Command7.Enabled=True
Command8.Enabled=True
Label7.Caption="
记录:
Adodc1.Recordset.AbsolutePosition&
/"
Adodc1.Recordset.RecordCount
PrivateSubCommand6_Click()
Adodc1.Recordset.MovePrevious
Command5.Enabled=False
Command6.Enabled=False
PrivateSubCommand7_Click()
Adodc1.Recordset.MoveNext'
记录指针移到下一条记录
Command5.Enabled=True
Command6.Enabled=True
IfAdodc1.Recordset.EOFThen'
如果记录指针移到了末记录之后
Adodc1.Recordset.MoveLast'
则记录指针移到末记录上
Command7.Enabled=False
Command8.Enabled=False
PrivateSubCommand8_Click()
Adodc1.Recordset.MoveLast'
移到末记录
Command6.Enabled=True
Label6.Caption="
PrivateSubCommand9_Click()
DimnAsInteger
n=Text7.Text
Adodc1.Recordset.Moven
PrivateSubForm_Load()
点击图5.2的包月客户信息修改,出现如下窗体:
图5.3
IfAdodc1.Recordset.EOFOrAdodc1.Recordset.BOFThen
请选择要修改的行"
Form8.Show'
显示Form2
Form3.Hide'
隐藏Form1
选定图5.3某行,点击修改记录,出现如下窗体,更改文本框中信息,点击更新,即更改成功:
图5.4
Form3.Adodc1.Recordset.Fields("
包月客户号"
)=Text1.Text
姓名"
)=Text2.Text
性别"
)=Text3.Text
年龄"
)=Text4.Text
联系电话"
)=Text5.Text
服务号"
)=Text6.Text
Form3.Adodc1.Recordset.Update
Form3.Adodc1.Refresh
UnloadForm8
Text1.Text=Form3.Adodc1.Recordset.Fields("
Text2.Text=Form3.Adodc1.Recordset.Fields("
Text3.Text=Form3.Adodc1.Recordset.Fields("
Text4.Text=Form3.Adodc1.Recordset.Fields("
Text5.Text=Form3.Adodc1.Recordset.Fields("
Text6.Text=Form3.Adodc1.Recordset.Fields("
(6)数据管理的散户窗体如下图:
Command3.Enabled=True
Command3.Enabled=False
Command4.Enabled=False
Label5.Caption="
Command2.Enabled=True
n=Text5.Text
Command7.Enabled=False
Command8.Enabled=False
(7)员工窗体源代码如下:
PrivateSubCommand3_Cl
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 课程设计 员工 管理 系统