企业人事部查询系统

企业理系统
目　　　录
摘 •••••••••••••••••••••••••••••••••••••••••••••••••••• (2)
第章 绪 ••••••••••••••••••••••••••••••••••••••••• (4)
11 摘背景•••••••••••••••••••••••••••••••••••••••• (4)
12 开发工具选择•••••••••••••••••••••••••••••••• (4)
第二章 系统需求分析•••••••••••••••••••••••••••••••• (5)
21 总体需求调查•••••••••••••••••••••••••••••••••• (5)
企业理功•••••••••••••••••• (5)
系统目标调查•••••••••••••••••••••••••••• (5) 数流程分析•••••••••••••••••••••••••••••••(5)
第三章 系统设计••••••••••••••••••••••••••••••••••••••• (6)
31 系统总体结构图•••••••••••••••••••••••••••• (8)
第四章 详细设计•••••••••••••••••••••••••••••••••••••••(9)
•••••••••••••••••••••••••••••••• (9)
修改删户密码•••••••••••••••••••• (12)
删修改界面•••••••••••••••••••••••••••••••(15)
•••••••••••••••••••••••(15)



摘
着信息技术断开展数业务求越越高应聘员种信息进行数字化网络化理成必完善应聘员档案理仅利企业应聘员信息统计理利提高应聘员信息查询速度该系统分账户理模块应聘员档案添加查询修改模块专业民族增删模块数导入导出模块次设计务通开发数库企业理系统采Access等软件开发工具应领域进行调查分析参考种资料进行数库编程实践通组三努力已根成功实现设计务书求设计数库系统够实现般数库理研究数库查询优化问题 文介绍课题开发背景完成功开发程
全文系统设计设计工具选择简介系统功实现等局部组成文中设计企业理系统〞Visual Basic 60 中文版作开发工具台数库采Access 2003企业理系统〞工作员提供信息咨询等效劳信息录入工程齐全完整系统系统灵活表格种信息分门类组成企业理系统方便查询阅读修改
企业理系统方面进行调研完成理系统设计实现根底写篇文

第章 绪
摘背景
企业理系统原手工操作复杂性繁琐工作电脑键盘弹指间轻松完成
开发工具选择
数库系统开发作台Access非常理想选择数库MIS中重支持技术MIS开发程中选择数库理重问题目前数库产品较种产品具特点适范围系统中采Access作台工作系统选数库语言该开发工具具长处
Visual Basic种视化面象条事件驱动方式结构化高级程序设计开发Windows环境种类应程序简单易学效率高功强Windows专业开发工具SDK相媲美 Visual Basic环境利事件驱动编程机制新颖易视化设计工具高效快速开发出Windows环境功强图形界面丰富应软件系统
运VB加Access作台会系统更加完善

第2章 需求分析
21 总体需求调查
企业理功
生产理采购理销售理事理库存理财务理
企业组织结构图
总理
副总
副总
副总
销售部
事部
综合部
财务部
生产部
品部
1车间
2车间
物流部


系统目标
采现软硬件科学理系统开发方案建立企业理系统实现企业理计算机动化
系统应符合企业理制度达操作直观方便实安等求
系统节省您时间会您事半功倍
数流程图
系统数达数准确性数流程分析系统分析中根底环节企业理系统数流程图(21)
数流程图
第3章 系统设计


图12业务流程图

第四章　系统实现

第4章 详细设计
4．1界面设计


系统启动界面设计


图14
图14系统初始界面实现户登陆系统
String name txtNamegetText()trim()
String pass StringvalueOf(txtPasswordgetPassword())
if (nameequals()) {
JOptionPaneshowMessageDialog(this 户名 警告
JOptionPaneWARNING_MESSAGE)
txtNamerequestFocus()
return
}
if (passequals()) {
JOptionPaneshowMessageDialog(this 密码 警告
JOptionPaneWARNING_MESSAGE)
txtPasswordrequestFocus()
return
}
**创立UserTable类象*
UserTable user new UserTable()
usersetUserName(name)
usersetUserPassword(pass)
if (LoginBusinessuserIsRight(user)) {
MainFrm mainfrm new MainFrm()
MainFrmsetFrameMiddle(mainfrm)
mainfrmsetVisible(true)
thisdispose()
} else {
JOptionPaneshowMessageDialog(this 户名密码错误 警告
JOptionPaneWARNING_MESSAGE)
}
}


boolean ret false
Connection con null
PreparedStatement prsm null
ResultSet rs null
**存储sql语句*
String sql select userNameuserPassword from UserTable where userName and userPassword
con ConnectionManagergetCon() 数库取连接
try {
prsm conprepareStatement(sql) 预编译sql语句
prsmsetString(1 usergetUserName())
prsmsetString(2 usergetUserPassword())
rs prsmexecuteQuery()
if (rsnext()) {
ret true
Systemoutprintln(查询成功)
}
} catch (SQLException ex) {
Systemoutprintln(UserTableDao类中checkUser()方法出错 +
exgetMessage())
} finally {
ConnectionManagercloseRet(rs)
ConnectionManagerclosePre(prsm)
ConnectionManagercloseCon(con)
}
return ret

界面设计


图15

图15系统界面菜单编辑器完善界面菜单
Private Sub Form_Load()


End Sub
Private Sub sfgl_Click()

yfglShow <显示登陆药房理系统>
End Sub
医院药房理系统界面
图16
该界面显示系统实现药品信息维护查询等功
Private Sub wh_Click()
　　<显示药品进销存信息添加修改删功界面>
End Sub

Private Sub cx_Click()
　　<显示药品进销存信息相关金额查询功界面>
End Sub

Private Sub note_Click()
Shell notepadexe 1　　<方便理者记事辅助功>
End Sub
Private Sub jsq_Click()
Shell calcexe 1　　　<方便理者计算器辅助功>
End Sub
Private Sub tjyh_Click()
　　　　　　<显示添加户界面>
End Sub
Private Sub ggmm_Click()
　　　　　<显示更改密码界面>
End Sub


4添加户
输入户名密码确认密码点确认非常容易实现


Private Sub Command1_Click() *代码说明户添加完户名密码进* 行确认功*
If Text1Text Or Text2Text Then
MsgBox 请输入户名密码
Else
If Text2Text Text3Text Then




MsgBox 户添加成功
Text1Text
Text2Text
Text3Text

Else MsgBox 两次输入密码请重新输入
Text2Text
Text3Text
End If

End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Left (ScreenWidth Width) 2
27
Top (ScreenHeight Height) 2
End Sub


4 修改密码

户改完原密码户口令进行确认代码
Private Sub Command1_Click()
On Error Resume Next


Adodc1RecordsetFind user＇ & username & ＇

If Adodc1RecordsetFields(passwd)Value Text1Text Then

If Text2Text Text3Text Then





MsgBox 密码修改成功 vbInformation 信息

Text1Text
Text2Text
Text3Text

Else

MsgBox 新密码验证码致 vbCritical 错误

Text1Text
Text2Text
Text3Text

28


Else
MsgBox 原密码正确 vbCritical 错误


Text1Text
Text2Text
Text3Text

End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
退出代码回层界面
Private Sub Form_Load()
Left (ScreenWidth Width) 2
Top (ScreenHeight Height) 2

End Sub


添加修改界面


图 17
实现功：药品进库出库库存信息改变时处完成相关添加修改删操作时相关信息显示界面
Private Sub Option1_Click()
If Option1Value True Then
Adodc1RecordSource select 库存药品药品ID药品名称保质期现储藏量进货理进货价进货价*现储藏量 as 库存药品金额 from 进货理库存药品 where 进货理药品ID 库存药品药品ID

Set DataGrid1DataSource Adodc1
End If
End Sub

Private Sub Option2_Click()
If Option2Value True Then
Adodc2RecordSource select 进货理药品ID药品名称进货价进货量进货日期进货价*进货量 as 进货金额 from 进货理销售理 where 进货理药品ID 销售理药品ID

Set DataGrid1DataSource Adodc2
End If
End Sub

Private Sub Option3_Click()
If Option3Value True Then
Adodc3RecordSource select 销售理药品ID药品名称零售价销售量销售时间零售价*销售量 as 销售金额 from 销售理进货理 where 进货理药品ID 销售理药品ID

Set DataGrid1DataSource Adodc3
End If
End Sub
<局部点击Option扭时面DataGrid控件显示表药品信息添加删扭翻开新窗体实现功删记录时直接DataGrid表里选中删方便功做界面 >


Private Sub Command1_Click()
On Error Resume Next
If Text1Text Then

MsgBox 请输入药品ID先

ElseIf Form3Option1Value True Then
If Text13Text Or Text14Text Then
MsgBox 请药品信息添加全先药品ID数字信息字符－〞代
Else







Text1Text
Text13Text
Text14Text

MsgBox 添加成功
End If

ElseIf Form3Option2Value True Then

If Text1Text Or Text2Text Or Text3Text Or Text4Text Or _
Text5Text Or Text6Text Or Text7Text Or Text8Text Or _
Text9Text _
Then

MsgBox 请药品信息添加全先药品ID数字信息字符－〞代
Else












Text1Text
Text2Text
Text3Text
Text4Text
Text5Text
Text6Text
Text7Text
Text8Text
Text9Text
MsgBox 添加成功
End If
ElseIf Form3Option3Value True Then

If Text1Text Or Text10Text Or Text11Text Or Text12Text Then
MsgBox 请药品信息添加全先药品ID数字信息字符－〞代
Else






Text1Text
Text10Text
Text11Text
Text12Text
MsgBox 添加成功
End If
End If
End Sub

Private Sub Text8_Click()
Text8Text Date
End Sub

Private Sub Command1_Click()
On Error Resume Next
If Text1Text Then
MsgBox 药品ID空

Else
If Form3Option1Value True Then



MsgBox 修改成功

Else
If Form3Option2Value True Then









MsgBox 修改成功

Else
If Form3Option3Value True Then




MsgBox 修改成功

End If
End If
End If
End If
End Sub

表：admin
字段名称
数类型
说明
*user_id
文
户名
User_pwd
文
户密码
表：basicinfo
字段名称
数类型
说明
*ID
动编号

Sid
文
工号
Sname
文
姓名
Ssex
文
性
Sage
文
年龄
Spost
文
职位

文
学历

数字
工作时间
Syearly salary
数字
年薪
spdph
文
奖惩情况
Sphone
数字
联系
photo
OLE象
图片


文档香网(httpswwwxiangdangnet)户传

《香当网》用户分享的内容，不代表《香当网》观点或立场，请自行判断内容的真实性和可靠性！
该内容是文档的文本内容，更好的格式请下载文档