数据库课程设计员工管理系统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
升级会员 