企业人事部查询系统.docx
《企业人事部查询系统.docx》由会员分享，可在线阅读，更多相关《企业人事部查询系统.docx（19页珍藏版）》请在冰豆网上搜索。
企业人事部查询系统
企业管理系统
目 录
摘要••••••••••••••••••••••••••••••••••••••••••••••••••••
（2）
第一章绪论•••••••••••••••••••••••••••••••••••••••••（4）
1.1摘要背景••••••••••••••••••••••••••••••••••••••••（4）
1.2开发工具的选择••••••••••••••••••••••••••••••••（4）
第二章系统需求与分析••••••••••••••••••••••••••••••••（5）
2.1总体需求调查••••••••••••••••••••••••••••••••••（5）
2.1.1企业的管理功能••••••••••••••••••（5）
2.1.2系统目标调查••••••••••••••••••••••••••••（5）2.2系统数据流程分析•••••••••••••••••••••••••••••••（5）
第三章系统设计•••••••••••••••••••••••••••••••••••••••（6）
3.1系统总体结构图••••••••••••••••••••••••••••（8）
第四章详细设计•••••••••••••••••••••••••••••••••••••••（9）
4.1界面设计••••••••••••••••••••••••••••••••（9）
4.2修改和删除用户和密码••••••••••••••••••••（12）
4.3删除修改界面•••••••••••••••••••••••••••••••（15）
4.4系统数据库设计结果•••••••••••••••••••••••（15）
摘要
随着信息技术的不断发展，我们对数据和业务的要求越来越高，因此对应聘人员的各种信息进行数字化和网络化的管理也成为必要。
一个完善的应聘人员档案管理不仅有利于企业对应聘人员信息的统计和管理，且有利于提高应聘人员信息查询速度。
该系统分为账户管理模块，应聘人员档案添加、查询、修改模块，专业、民族增删模块，数据的导入、导出模块。
本次设计任务是通过开发一个数据库企业管理系统，采用VB6.0和Access等软件为开发工具；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。
通过我们一个小组三个人的共同努力，已经基本上成功地实现了设计任务书的要求。
使得设计的数据库系统能够实现一般数据库的管理。
我们研究了数据库的查询优化问题.论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。
全文由系统设计、设计工具选择与简介、系统功能的实现等几部分组成。
文中所设计的“企业管理系统”是使用VisualBasic6.0中文版作为开发工具，后台数据库则采用Access2003。
“企业管理系统”为工作人员提供信息咨询等服务。
信息录入项目齐全、完整、系统。
系统灵活使用表格对各种信息分门别类，组成企业管理系统，可以方便地查询、阅读、修改、和使用。
在对企业管理系统各个方面进行调研后，在完成管理系统的设计与实现的基础上,写下这篇论文。
第一章绪论
1.1摘要背景
企业管理系统使原本手工操作的复杂性、繁琐工作在电脑键盘弹指之间就可轻松完成。
1.2开发工具的选择
数据库系统的开发，作为后台的Access是一个非常理想选择。
数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用X围，在本系统中主要采用Access作为后台工作,本系统选用的数据库语言，该开发工具具有很多长处。
VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。
它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
运用VB在加上Access作为其后台，会使系统更加完善。
第2章需求分析
2.1总体需求调查
2.1.1企业的管理功能
生产管理、采购管理、销售管理、人事管理、库存管理、财务管理。
如图1.1企业组织结构图
2.1.2系统目标
采用现有的软硬件及科学的管理系统开发方案，建立企业管理系统，实现企业管理的计算机自动化。
系统应符合企业管理制度，并达到操作直观、方便、实用、安全等要求。
本系统不但可以节省您的时间，而且会使您事半功倍。
2.2系统数据流程图
系统的数据是要达到数据的准确性，数据流程分析是系统分析中的基础环节。
企业管理系统的数据流程如图（2-1）
《数据流程图》
第3章系统设计
图1.2业务流程图
第四章 系统实现
第4章详细设计
4．1界面设计
4.1.1系统启动界面设计
图1-4
图1-4是本系统的初始界面，其实现的是用户登陆系统。
Stringname=txtName.getText（）.trim（）;
Stringpass=String.valueOf（txtPassword.getPassword（））;
if（name.equals（""））{
JOptionPane.showMessageDialog（this,"用户名","警告",
JOptionPane.WARNING_MESSAGE）;
txtName.requestFocus（）;
return;
}
if（pass.equals（""））{
JOptionPane.showMessageDialog（this,"密码","警告",
JOptionPane.WARNING_MESSAGE）;
txtPassword.requestFocus（）;
return;
}
/**创建UserTable类的对象*/
UserTableuser=newUserTable（）;
user.setUserName（name）;
user.setUserPassword（pass）;
if（LoginBusiness.userIsRight（user））{
MainFrmmainfrm=newMainFrm（）;
MainFrm.setFrameMiddle（mainfrm）;
mainfrm.setVisible（true）;
this.dispose（）;
}else{
JOptionPane.showMessageDialog（this,"用户名或密码错误！
！
","警告",
JOptionPane.WARNING_MESSAGE）;
}
}
booleanret=false;
Connectioncon=null;
PreparedStatementprsm=null;
ResultSetrs=null;
/**存储sql语句*/
Stringsql="selectuserName,userPasswordfromUserTablewhereuserName=?
anduserPassword=?
";
con=ConnectionManager.getCon（）;//与数据库取得连接
try{
prsm=con.prepareStatement（sql）;//预编译sql语句
prsm.setString（1,user.getUserName（））;
prsm.setString（2,user.getUserPassword（））;
rs=prsm.executeQuery（）;
if（rs.next（））{
ret=true;
System.out.println（"查询成功！
"）;
}
}catch（SQLExceptionex）{
System.out.println（"UserTableDao类中的checkUser（）方法出错了"+
ex.getMessage（））;
}finally{
ConnectionManager.closeRet（rs）;
ConnectionManager.closePre（prsm）;
ConnectionManager.closeCon（con）;
}
returnret;
4.1.2主界面的设计
图1-5
图1-5为系统的主界面其用菜单编辑器完善了主界面的菜单。
PrivateSubForm_Load（）
mzgl.Hide
dljm.Show
EndSub
PrivateSubsfgl_Click（）
mzgl.Hide
yfgl.Show<显示登陆药房管理系统>
EndSub
4.1.3医院药房管理系统界面
图1-6
该界面显示了本系统要实现的药品信息维护、查询等功能。
PrivateSubwh_Click（）
Form3.Show<显示药品进销存信息的添加、修改、删除功能界面>
EndSub
PrivateSubcx_Click（）
Form6.Show<显示药品进销存信息与相关金额的查询功能界面>
EndSub
PrivateSubnote_Click（）
Shell"notepad.exe",1<此为方便于管理者的记事本辅助功能>
EndSub
PrivateSubjsq_Click（）
Shell"calc.exe",1<此为方便于管理者的计算器辅助功能>
EndSub
PrivateSubtjyh_Click（）
Form9.Show<显示添加用户界面>
EndSub
PrivateSubggmm_Click（）
Form8.Show<显示更改密码界面>
EndSub
4.2修改和添加用户和密码
4.2.1添加用户
输入用户名、密码、确认密码点确认就可以了非常容易实现。
PrivateSubmand1_Click（）*此代码说明用户添加完用户名和密码后进*行确认的功能*
IfText1.Text=""OrText2.Text=""Then
MsgBox"请输入用户名或密码"
Else
IfText2.Text=Text3.TextThen
Form9.Adodc1.Recordset.AddNew
Form9.Adodc1.Recordset.Fields（"user"）=Text1.Text
Form9.Adodc1.Recordset.Fields（"passwd"）=Text2.Text
Form9.Adodc1.Recordset.Update
MsgBox"用户添加成功"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Form9.Adodc1.Refresh
Else:
MsgBox"两次输入的密码不同，请重新输入"
Text2.Text=""
Text3.Text=""
EndIf
EndIf
EndSub
PrivateSubmand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Left=（Screen.Width-Width）/2
27
Top=（Screen.Height-Height）/2
EndSub
4.2.2修改密码
当用户改完原密码和用户口令后进行确认的代码:
PrivateSubmand1_Click（）
OnErrorResumeNext
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find"user='"&username&"'"
IfAdodc1.Recordset.Fields（"passwd"）.Value=Text1.TextThen
IfText2.Text=Text3.TextThen
Adodc1.Recordset.Fields（"passwd"）.Value=Text2.Text
Adodc1.Recordset.Update
MsgBox"密码修改成功！
",vbInformation,"信息"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Else
MsgBox"新密码与验证码不一致！
",vbCritical,"错误"
Text1.Text=""
Text2.Text=""
Text3.Text=""
28
Else
MsgBox"原密码不正确！
",vbCritical,"错误"
Text1.Text=""
Text2.Text=""
Text3.Text=""
EndIf
EndSub
PrivateSubmand2_Click（）
UnloadMe
EndSub
退出代码,可以回到上一层界面:
PrivateSubForm_Load（）
Left=（Screen.Width-Width）/2
Top=（Screen.Height-Height）/2
Adodc1.Refresh
EndSub
4.3添加、修改界面
图1-7
实现的功能：
当有药品的进库，出库，库存信息改变时，可以此处完成相关的添加、修改、删除操作，并及时将相关信息显示在此界面上。
PrivateSubOption1_Click（）
IfOption1.Value=TrueThen
Adodc1.RecordSource="select库存药品.药品ID,药品名称,保质期,现储备量,进货管理.进货价,进货价*现储备量as库存药品金额from进货管理,库存药品where进货管理.药品ID=库存药品.药品ID"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
EndIf
EndSub
PrivateSubOption2_Click（）
IfOption2.Value=TrueThen
Adodc2.RecordSource="select进货管理.药品ID,药品名称,进货价,进货量,进货日期,进货价*进货量as进货金额from进货管理,销售管理where进货管理.药品ID=销售管理.药品ID"
Adodc2.Refresh
SetDataGrid1.DataSource=Adodc2
EndIf
EndSub
PrivateSubOption3_Click（）
IfOption3.Value=TrueThen
Adodc3.RecordSource="select销售管理.药品ID,药品名称,零售价,销售量,销售时间,零售价*销售量as销售金额from销售管理,进货管理where进货管理.药品ID=销售管理.药品ID"
Adodc3.Refresh
SetDataGrid1.DataSource=Adodc3
EndIf
EndSub
<此部分是当点击不同的Option按扭时，上面的DataGrid控件显示不同表的药品信息。
添加和删除按扭可打开新的窗体来实现其功能，删除记录时只要直接在DataGrid表里选中它删就可以了。
为了方便，把这些功能都做到一个界面上了。
>
PrivateSubmand1_Click（）
OnErrorResumeNext
IfText1.Text=""Then
MsgBox"请输入药品ID先！
"
ElseIfForm3.Option1.Value=TrueThen
IfText13.Text=""OrText14.Text=""Then
MsgBox"请把药品信息添加全先，药品ID为数字，无信息可用字符“－”代替！
"
Else
Form3.Adodc1.Recordset.AddNew
Form3.Adodc1.Recordset.Fields（"药品ID"）=Text1.Text
Form3.Adodc1.Recordset.Fields（"现储备量"）=Text13.Text
Form3.Adodc1.Recordset.Fields（"保质期"）=Text14.Text
Form3.Adodc1.Recordset.Update
Text1.Text=""
Text13.Text=""
Text14.Text=""
MsgBox"添加成功！
"
EndIf
ElseIfForm3.Option2.Value=TrueThen
IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""Or_
Text5.Text=""OrText6.Text=""OrText7.Text=""OrText8.Text=""Or_
Text9.Text=""_
Then
MsgBox"请把药品信息添加全先，药品ID为数字，无信息可用字符“－”代替！
"
Else
Form3.Adodc2.Recordset.AddNew
Form3.Adodc2.Recordset.Fields（"药品ID"）=Text1.Text
Form3.Adodc2.Recordset.Fields（"药品分类"）=Text2.Text
Form3.Adodc2.Recordset.Fields（"药品名称"）=Text3.Text
Form3.Adodc2.Recordset.Fields（"规格型号"）=Text4.Text
Form3.Adodc2.Recordset.Fields（"单位"）=Text5.Text
Form3.Adodc2.Recordset.Fields（"进货价"）=Text6.Text
Form3.Adodc2.Recordset.Fields（"进货量"）=Text7.Text
Form3.Adodc2.Recordset.Fields（"进货日期"）=Text8.Text
Form3.Adodc2.Recordset.Fields（"药品产地"）=Text9.Text
Form3.Adodc2.Recordset.Update
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
MsgBox"添加成功！
"
EndIf
ElseIfForm3.Option3.Value=TrueThen
IfText1.Text=""OrText10.Text=""OrText11.Text=""OrText12.Text=""Then
MsgBox"请把药品信息添加全先，药品ID为数字，无信息可用字符“－”代替！
"
Else
Form3.Adodc3.Recordset.AddNew
Form3.Adodc3.Recordset.Fields（"药品ID"）=Text1.Text
Form3.Adodc3.Recordset.Fields（"零售价"）=Text10.Text
Form3.Adodc3.Recordset.Fields（"销售量"）=Text11.Text
Form3.Adodc3.Recordset.Fields（"销售时间"）=Text12.Text
Form3.Adodc3.Recordset.Update
Text1.Text=""
Text10.Text=""
Text11.Text=""
Text12.Text=""
MsgBox"添加成功！
"
EndIf
EndIf
EndSub
PrivateSubText8_Click（）
Text8.Text=Date
EndSub
PrivateSubmand1_Click（）
OnErrorResumeNext
IfText1.Text=""Then
MsgBox"药品ID不可以为空的！
"
Else
IfForm3.Option1.Value=TrueThen
Form3.Adodc1.Recordset.Fields（"药品ID"）=Text1.Text
Form3.Adodc1.Recordset.Fields（"现储备量"）=Text13.Text
Form3.Adodc1.Recordset.Fields（"保质期"）=Text14.Text
MsgBox"修改成功！
"
Form3.Adodc1.Recordset.Update
Else
IfForm3.Option2.Value=TrueThen
Form3.Adodc2.Recordset.Fields（"药品ID"）=Text1.Text
Form3.Adodc2.Recordset.Fields（"药品分类"）=Text2.Text
Form3.Adodc2.Recordset.Fields（"药品名称"）=Text3.Text
Form3.Adodc2.Recordset.Fields（"规格型号"）=Text4.Text
Form3.Adodc2.Recordset.Fields（"单位"）=Text5.Text
Form3.Adodc2.Recordset.Fields（"进货价"）=Text6.Text
Form3.Adodc2.Recordset.Fields（"进货量"）=Text7.Text
Form3.Adodc2.Recordset.Fields（"进货日期"）=Text8.Text
Form3.Adodc2.Recordset.Fields（"药品产地"）=Text9.Text
MsgBox"修改成功！
"
Form3.Adodc2.Recordset.Update
Else
IfForm3.Option3.Value=
升级会员 