西华大学职工信息管理系统实训说明书VB.docx
- 文档编号:12685516
- 上传时间:2023-04-21
- 格式:DOCX
- 页数:61
- 大小:2.58MB
西华大学职工信息管理系统实训说明书VB.docx
《西华大学职工信息管理系统实训说明书VB.docx》由会员分享,可在线阅读,更多相关《西华大学职工信息管理系统实训说明书VB.docx(61页珍藏版)》请在冰豆网上搜索。
西华大学职工信息管理系统实训说明书VB
数学与计算机学院
课程设计说明书
课程名称:
windows程序设计实践
课程代码:
6015019
题目:
职工信息管理系统
年级/专业/班:
201X级信科X班
学生姓名:
XX
学 号:
310201X07010211X
开始时间:
201X年6月5日
完成时间:
201X年6月15日
课程设计成绩:
学习态度及平时成绩(30)
技术水平与实际能力(20)
创新(5)
说明书撰写质量(45)
总分(100)
指导教师签名:
年月日
摘要
设计职工信息管理系统,职工信息包括职工号、姓名、性别、年龄、学历、工资、住址、电话等(职工号不重复)。
试设计一职工信息管理系统,使之能提供以下功能:
1系统以菜单方式工作,2职工信息录入功能(职工信息用文件保存)--输入,3职工信息浏览功能--输出,4查询和排序功能:
A按姓名查询B按职工号查询等,5职工信息删除、修改功能。
关键词:
职工信息,工作,功能
1引言
1.1VB语言
是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。
从任何标准来说,VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。
它源自于BASIC编程语言。
VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
1.2VB语言的发展
1991年,微软公司推出了VisualBasic1.0版,这设计最初是由阿兰·库珀(AlanCooper)完成的。
后面四年,微软也不失时机地接连推出VB2.0,VB3.0,4.0三个版本。
2007年12月,微软推出了vb2008Beta2(v9),在代码输入上可比VB2005快很多,在非特殊的情况下,VB2008会自动开启、自动完成关键字,而且支持最新的.NETFramework3.5Beta2。
1.3任务与分析
试设计一职工信息管理系统,使之能提供以下功能:
1系统以菜单方式工作,2职工信息录入功能(职工信息用文件保存)--输入,3职工信息浏览功能--输出,4查询和排序功能:
A按姓名查询B按职工号查询等,5职工信息删除、修改功能。
2设计方案
2.1整体设计方案
为了只让有权的工作者修改职工信息,首先设计了登陆页面,没有登录账号、密码的的认识进不去的,让用户在最短的时间内能找到需要的功能,我们在首页设计了菜单,用户可以方便进入功能界面。
2.1.1管理员登陆界面的程序代码(form6)
此界面为了让只有拥有管理员账号,密码的人员登录,保护用户信息安全,还有让其中一个有权的管理员实现管理员的增加。
PrivateSubaqtc_Click()
Form6.Hide'用户退出
EndSub
PrivateSubCommand1_Click()
'以下实现管理员登陆
DimConnAsNewADODB.Connection'注意要引用"工程"-"引用"-找到"MicrosoftActiveXDataObject2.6
DimRsAsNewADODB.Recordset
Dimstr1AsString
str1=App.Path+"\db\db1.mdb"'数据库地址
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+str1
zh=zh.Text
SQL="select*fromglwhere账号='"+zh+"'"'用sql查找相应账号的密码
Rs.OpenSQL,Conn,1,1'打开sql
Text1.Text=Rs("姓名")'存放管理员姓名,以便后面的窗体使用
mz1=Form6.Text1.Text
Ifmm.Text=Rs("密码")Then'判断密码的正确性
Form1.Show
Else
t1="您输入的密码错误,请重新输入!
"
t2="提示;"
X=MsgBox(t1,1,t2)
mm.SetFocus'若密码错误则mm得到焦点
mm.Text=""'密码的文本清空
EndIf
Rs.Close
EndSub
PrivateSubCommand2_Click()
'以下实现管理员增加管理员的登录
DimConnAsNewADODB.Connection'注意要引用"工程"-"引用"-找到"MicrosoftActiveXDataObject2.6
DimRsAsNewADODB.Recordset
Dimstr1AsString
str1=App.Path+"\db\db1.mdb"
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+str1
zh=zh.Text
SQL="select*fromglwhere账号='"+zh+"'"
Rs.OpenSQL,Conn,1,1
Text1.Text=Rs("姓名")'存放管理员姓名,以便后面的窗体使用
mz1=Form6.Text1.Text
Ifmm.Text=Rs("密码")Then'判断密码的正确性
Form7.Show
Else
t1="您输入的密码错误,请重新输入!
"
t2="提示;"
X=MsgBox(t1,1,t2)
mm.SetFocus
mm.Text=""
EndIf
Rs.Close
EndSub
PrivateSubForm_Load()
Command2.Visible=False
Text1.Visible=False'让存放管理员名字的文本框不可见
DimConnAsNewADODB.Connection'注意要引用"工程"-"引用"-找到"MicrosoftActiveXDataObject2.6
DimRsAsNewADODB.Recordset
Dimstr1AsString
str1=App.Path+"\db\db1.mdb"
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+str1
SQL="selectdistinct账号fromgl"
Rs.OpenSQL,Conn,1,1
WhileNotRs.EOF
zh.AddItem(Rs("账号"))'把管理员的所有账号存放在zh中
Rs.MoveNext
Wend
Rs.Close
EndSub
PrivateSubzh_LostFocus()
t="123456"'只有此账号的管理员才能看到增加管理员按钮
Ifzh.Text=tThen
Command2.Visible=True
Else
Command2.Visible=False
EndIf
EndSub
2.1.2管理员增加页面代码(form7)
此页面主要实现管理员信息添加,还有判断管理员账号输入
是否符合要求。
PrivateSubCommand1_Click()
'以下实现管理员添加
DimConnAsNewADODB.Connection'注意要引用"工程"-"引用"-找到"MicrosoftActiveXDataObject2.6
DimRsAsNewADODB.Recordset
Dimstr1AsString
str1=App.Path+"\db\db1.mdb"
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+str1
zh1=zh.Text
mm1=mm.Text
xm1=xm.Text
SQL="select*fromglwhere账号='"+zh1+"'"'判断账号是否存在
Rs.OpenSQL,Conn,1,3
IfRs.RecordCount=0AndLen(mm.Text)<>0AndLen(mm.Text)<=6Then'判断密码不是为空,是小于6位,而且账号在数据库中不存在方能注册
Rs.AddNew
Rs("账号")=zh1
Rs("密码")=mm1
Rs("姓名")=xm1
MsgBox("注册成功")
Else
t1="您输入的账号已经存在或密码长度不符合,请重新输入:
"
t2="提示"
X=MsgBox(t1,1,t2)
EndIf
Rs.Update
Rs.Close
IfLen(mm.Text)=0AndLen(mm.Text)>=6Then'判断密码是不是为空,是否小于6位
Label7.Visible=True
EndIf
EndSub
PrivateSubCommand2_Click()
Form6.Show'返回管理员登陆首页
Form7.Hide
EndSub
PrivateSubForm_Load()
mz.Caption=Form6.Text1.Text'引用form6里面text1的名字
Label6.Visible=False'让提示信息的label不可见
Label7.Visible=False
EndSub
PrivateSubzh_LostFocus()
'判断账号是否是6个长度,是否是数字,是否含有”.“
IfLen(zh.Text)<>6OrIsNumeric(zh.Text)=FalseOrInStr(zh.Text,".")>0Then
Label6.Visible=True'若不符合要求则提示格式不对,请重新输入!
Beep’响铃
Else
Label6.Visible=False
EndIf
EndSub
2.1.3管理职工信息首页(form1)
此界面主要实现主菜单功能,用户可以通过不同的方式进入各个功能页面。
PublicSubanlcx_Click()
Form4.Show'菜单实现按年龄查询
CallForm4.anlcx_Click'引用form4中的
EndSub
PrivateSubanlsc_Click()
Form5.Show'菜单实现按年龄修改
CallForm5.anlsc_Click
EndSub
PrivateSubanlxg_Click()
Form3.Show'菜单实现按年龄查询修改
CallForm3.anlxg_Click'引用form4中的public程序
EndSub
PublicSubaxlcx_Click()
Form4.Show'菜单实现按学历查询
Callform4.axlcx_Click()
EndSub
PrivateSubaxlsc_Click()
Form5.Show'菜单实现按学历查询删除
CallForm5.axlsc_Click
EndSub
PrivateSubaxlxg_Click()
Form3.Show'菜单实现按学历查询修改
CallForm3.axlxg_Click
EndSub
PublicSubaxmcx_Click()
Form4.Show'菜单实现按姓名查询
CallForm4.axmcx_Click
EndSub
PrivateSubaxmsc_Click()
Form5.Show'菜单实现按姓名查询删除
CallForm5.axmsc_Click
EndSub
PrivateSubaxmxg_Click()
Form3.Show'菜单实现按姓名查询修改
CallForm3.axmxg_Click
EndSub
PublicSubazghcx_Click()
Form4.Show'菜单实现按职工号查询
CallForm4.azghcx_Click
EndSub
PrivateSubazghsc_Click()
Form5.Show'菜单实现按职工号查询删除
CallForm5.azghsc_Click
EndSub
PrivateSubazghxg_Click()
Form3.Show'职工信息修改页面
CallForm3.azghxg_Click
EndSub
PrivateSubForm_Load()
mz.Caption=Form6.Text1.Text'引用form6里面text1的名字,实现界面对此用户的欢迎
EndSub
PrivateSubLabel3_DblClick()
Form2.Show'实现职工信息添加页面
EndSub
PrivateSubLabel4_DblClick()
Form4.show’到职工信息查询页面
EndSub
PrivateSubLabel5_DblClick()
Form3.Show'职工信息修改页面
EndSub
PrivateSubLabel6_Click()
Form5.Show'职工信息删除页面
EndSub
PrivateSubxmmhcx_Click()
Form4.Show'菜单实现按模糊姓名查询
CallForm4.xmmhcx_Click
EndSub
PrivateSubzgxxsr_Click()
Form2.Show'菜单实现进入职工信息输入
EndSub
2.1.4职工信息录入界面(form2)
此界面主要实现实现职工信息的录入,可以判断和提示各个输入字符是否符合要求并给出温馨提示。
Dimp(64,2)AsString
Dimq(12,2)AsString'通用定义
PrivateSubCommand1_Click()'以下实现添加员工信息
DimConnAsNewADODB.Connection'注意要引用"工程"-"引用"-找到"MicrosoftActiveXDataObject2.6
DimRsAsNewADODB.Recordset
Dimstr1AsString
str1=App.Path+"\db\db1.mdb"
Conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+str1
IfOption1.Value=TrueThen
xb1="男"
Else
xb1="女"
EndIf
zgh1=zgh2.Text
xm1=xm2.Text
nl1=nl2.Text
xl1=xl2.Text
gz1=gz2.Text
zz1=Trim(zz2.Text)
lxdh1=Trim(lxdh2.Text)
qqh1=QQh2.Text
byxx1=byxx2.Text
gzz1=gzz2.Text
jg1=sf2.Text&""&cs2.Text
jrgsnf1=jrgsnf2.Text
SQL="select*fromzgxxwhere职工号='"+zgh1+"'"
Rs.OpenSQL,Conn,1,3
IfRs.RecordCount=0AndLen(zgh2.Text)=8AndIsNumeric(zgh2.Text)=TrueAndInStr(zgh2.Text,".")=0Then'判断职工号是不是符合要求:
格式和是否存在
'以下实现添加
Rs.AddNew
Rs("职工号")=zgh1
Rs("姓名")=xm1
Rs("性别")=xb1
Rs("年龄")=nl1
Rs("学历")=xl1
Rs("工资")=gz1
Rs("住址")=zz1
Rs("联系电话")=lxdh1
Rs("QQ号")=qqh1
Rs("毕业学校")=byxx1
Rs("工作组")=gzz1
Rs("籍贯")=jg1
Rs("进入公司的年份")=jrgsnf1
MsgBox("保存成功")
Else
t1="您输入的职工号已经存在或是格式有误,请重新输入:
"
t2="提示"
X=MsgBox(t1,1,t2)
EndIf
Rs.Update
Rs.Close
EndSub
PrivateSubCommand2_Click()
Form1.Show'返回首页
Form2.Visible=False
EndSub
PublicSubcsnf2_LostFocus()’数字型且不能有小数点
nl2.Text=Year(Date)-csnf2.Text'实现年龄和出生年份的联动
IfIsNumeric(csnf2.Text)=FalseOrInStr(csnf2.Text,".")>0ThenLabel17.Visible=True
Beep
Else
Label17.Visible=False
EndIf
IfLen(csnf2.Text)=0Then
Label17.Visible=False
EndIf
EndSub
PrivateSubForm_Activate()
mz.Caption=Form6.Text1.Text'引用form6里面text1的名字
zgh2.SetFocus
EndSub
PublicSubForm_Load()
Label16.Visible=False
Label17.Visible=False
Label18.Visible=False
Label19.Visible=False
Label20.Visible=False
Dima(10)AsString
a
(1)=1980
a
(2)=1981
a(3)=1982
a(4)=1983
a(5)=1984
a(6)=1985
a(7)=1986
a(8)=1987
a(9)=1988
a(10)=1989
Fori=1To10
csnf2.AddItem(a(i))'出生年份的预选添加
Nexti
csnf2.Text=a
(1)
nl2.Text=Year(Date)-a
(1)
Dimb(7)AsString
b
(1)="小学"
b
(2)="初中"
b(3)="高中"
b(4)="专科"
b(5)="本科"
b(6)="研究生"
b(7)="博士"
Fori=1To7
xl2.AddItem(b(i))
Nexti
xl2.Text=b(5)'学历的预先添加
Dimc(7)AsString
c
(1)=2000
c
(2)=2500
c(3)=3000
c(4)=3500
c(5)=4000
c(6)=4500
c(7)=5000
Fori=1To7
gz2.AddItem(c(i))'工资的预先添加
Nexti
gz2.Text=c(4)
Dimd(8)AsString
d
(1)="A1"
d
(2)="A2"
d(3)="B1"
d(4)="B2"
d(5)="C1"
d(6)="C2"
d(7)="D1"
d(8)="D2"
Fori=1To8
gzz2.AddItem(d(i))
Nexti
gzz2.Text=d
(1)
Dime(10)AsString
e
(1)="2000"
e
(2)="2001"
e(3)="2002"
e(4)="2003"
e(5)="2004"
e(6)="2005"
e(7)="2006"
e(8)="2007"
e(9)="2008"
e(10)="2009"
Fori=1To10
jrgsnf2.AddItem(e(i))'进入公司的预先添加
Nexti
jrgsnf2.Text=e(5)
q(1,1)="四川省"
q(1,2)="1"
q(2,1)="湖南省"
q(2,2)="2"
q(3,1)="贵州省"
q(3,2)="3"
q(4,1)="河北省"
q(4,2)="4"
q(5,1)="山西省"
q(5,2)="5"
q(6,1)="辽宁省"
q(6,2)="6"
q(7,1)="吉林省"
q(7,2)="7"
q(8,1)="黑龙江省"
q(8,2)="8"
q(9,1)="江苏省"
q(9,2)="9"
q(10,1)="浙江省"
q(10,2)="10"
q(11,1)="安徽省"
q(11,2)="11"
q(12,1)="福建省"
q(12,2)="12"
Fori=1ToUBound(q,1)
sf2.AddItem(q(i,1))'实现省份的预先添加
Nexti
sf2.Text=q(1,1)
p(1,1)="1"
p(1,2)="泸州"
p(2,1)="1"
p(2,2)="德阳"
p(3,1)="2"
p(3,2)="长沙"
p(4,1)="2"
p(4,2)="荆州"
p(5,1)="3"
p(5,2)="贵阳"
p(6,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 西华 大学 职工 信息管理 系统 说明书 VB
![提示](https://static.bdocx.com/images/bang_tan.gif)