没有合适的资源?快使用搜索试试~ 我知道了~
职工信息管理系统的设计主要基于Visual Basic(VB)语言,旨在通过具体的项目实践,提高学生运用VB语言进行程序设计的能力。该系统涵盖了基本的编程技能,如控件使用、文件读写和数组操作。在实现上,系统采用模块化设计,包括数据读取、信息显示、数据清除、信息查询、信息修改和数据追加等功能。 系统中,“读取数据”功能通过按钮触发,能够打开预设的文本文件(职工.txt),从中读取职工的编号、姓名、职称和工资等信息,将这些信息存储在数组中,并在程序界面的文本框中进行展示。此操作能有效培养学生在文件操作方面的基本技能。 “清除数据”功能允许用户清除界面上显示的职工信息,为下一次信息显示做准备。查询功能设计为通过职工号或姓名进行数据查找,当用户在对应的文本框输入查询条件后,系统将显示出相应的查询结果。修改功能则是对查询到的信息进行更新,用户可以基于职工号或姓名对信息进行变更,并即时在界面上反映更新结果。而追加数据功能允许用户增加新的职工信息记录到文件中,并在界面上即时显示更新后的完整信息列表。 在程序的源代码中,涉及到了使用VB的基本语法结构,例如定义数组、条件判断和循环控制等。部分源代码示例中,使用了Private Sub和End Sub来定义子程序和结束子程序,体现了程序的模块化和封装性。注释的使用有助于理解程序设计的逻辑和功能,是提高代码可读性和维护性的良好习惯。 整体而言,职工信息管理系统通过集成各种基础编程操作和功能模块,不仅为学生提供了实践VB编程的平台,而且帮助学生理解如何使用编程语言进行数据处理和界面交互设计。
资源推荐
资源详情
资源评论




















格式:pdf 资源大小:2.2MB 页数:333









格式:pdf 资源大小:21.5MB 页数:41

资料内容仅供您学习参考,如有不当之处,请联系改正或者删除。
职工信息管理系统 设计报告
一、 设计思路
1.要达到的目的
培养学生综合利用 VB 语言进行程序设计的能力, 主要是培养学生综合使用基
本控件的、 文件读写、 数组操作等能力。
利用读取数据按钮, 打开选中的数据文件职工.txt, 并从该文件中读取职工职
工号、 姓名、 职称和工资, 保存在数组中, 并显示在文本框中。
� 清除文本框中的职工的信息。
� 在文本框中显示职工的信息。
� 按照职工号查询职工信息, 并显示。
� 按照姓名查询职工信息, 并显示。
� 按照职工号修改职工信息, 并显示。
� 按照姓名修改职工信息, 并显示。
� 追加一条记录数据, 并显示。
2.关键问题的解决
(1)经过”读取数据”按钮应能利用应能利用右侧图示样式窗体形式, 打开选
中的数据文件职工.txt, 并从该文件中读取职工职工号、 姓名、 职称
和工资, 保存在数组中, 并显示在文本框中。
(2)经过”清除数据”按钮应能清除文本框中的内容。
(3)从”按职工号查询”按钮左端文本框输入职工号, 单击”按职工号查询”,

资料内容仅供您学习参考,如有不当之处,请联系改正或者删除。
在窗体大的文本框中显示查询结果。从”按姓名查询”按钮左端文本框
输入姓名, 单击”按姓名查询”按钮, 在窗体大的文本框中显示查询结
果。
(4)从”按职工号修改” ( ”按姓名修改”) 按钮, 在输入对话框中输入职工
号, 对查询到的职工的职工号(姓名)进行修改, 在窗体大的文本框中显
示修改结果。
从输入一条记录后文本框中输入一条记录信息, 单击”追加数据并显示结果”
按钮, 添加到职工.txt 中, 并将追加数据后职工.txt 的信息显示窗体的大文本框
中。
二、 部分程序关键源代码及注释
rivate Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub Command3_Click()
e = True
Unload Me

资料内容仅供您学习参考,如有不当之处,请联系改正或者删除。
End Sub
Private Sub Command4_Click()
List1.Clear
If Text3.Text = "117001" Then
List1.AddItem "张三 117001"
ElseIf Text3.Text = "117002" Then
List1.AddItem "李四 117002"
ElseIf Text3.Text = "117003" Then
List1.AddItem "王五 117003"
ElseIf Text3.Text = "117004" Then
List1.AddItem "王六 117004"
ElseIf Text3.Text = "117005" Then
List1.AddItem "赵七 117005"
ElseIf Text3.Text = "117006" Then
List1.AddItem "李八 117006"
ElseIf Text3.Text = "117007" Then
List1.AddItem "刘九 117007"
ElseIf Text3.Text = "117008" Then
剩余10页未读,继续阅读
资源评论


GeniusID
- 粉丝: 2
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助


最新资源
- 幼儿园毕业设计开题报告.doc
- 过程检查表01.docx
- 22.-英语国际音标卡片打印版(附音标相对的字母组合).doc
- 网络硬盘管理系统设计.doc
- 工程勘察设计工作管理制度.doc
- 高速一品江山监控工程方案.doc
- 质量管理培训内容.doc
- 监理安全责任案例(2006年以前).doc
- 中班社会:六一节“爱心义卖”活动.doc
- 住宅小区项目建设工程勘察合同.doc
- [广西]炼油厂工程钢结构防腐防火施工方案-secret.doc
- c模板施工安全专项方案.doc
- 安徽新省劳动合同范本.doc
- 岩土工程原位测试技术第5章-波速试验.ppt
- 湖南省建设工程施工合同.doc
- 北京市某办公楼工程电气施工组织设计.doc
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈



安全验证
文档复制为VIP权益,开通VIP直接复制
