一个基于excel vba的部门管理系统的设计与实现

《一个基于excel vba的部门管理系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一个基于ExcelVBA的部门管理系统的设计与实现导读：就爱阅读网友为您分享以下“一个基于ExcelVBA的部门管理系统的设计与实现”的资讯，希望对您有所帮助，感谢您对92to.com的支持!一个基于ExcelVBA的部门管理系统的设计与实现一、实验目的：通过本项目实践，掌握数据制作的添加、删除、更新和查询基本方法的应用。二、实验意义：以Excel作为数据库，制作一个部门管理模块，通过界面操作，进行方便地部门管理。对以后的相关数据管理应用具有一定的参考性和实用性。三、模块开发技术１、列表框ListIn

2、dex（索引）方法及属性ColumnCount(列数)，RowSource(数据源)的运用２、数据精确查询应用；6３、ActiveWorkbook.Save(工作表保存方法)的应用；４、Rows.Delete(删除记录方法)应用；５、窗体加载事件的应用。四、实验步骤：请先完成程序填空１、打开DepartmentInfo.xls文件，进入VBE环境，并插入一个用户窗体。界面设计如图１所示：图１部门管理系统界面设计该界面包括两个框架控件，一个外列表框控件，三个标签控件，三个文字框控件和五个命令按钮控件。框

3、架控件、标签控件和命令按钮控件通过其Caption属性更改文字，其中五个命令按钮还要将其属性中的“名称”属性的文字改成与“Caption”文字相同，这样在编写代码时就不会乱了。２、编写窗体加载事件。双击窗体(注意：不能对准窗体中的某个控件双击)，即窗体中除控件以外的空白地方。进入代码编写，首先在定义两个全局变量：DimcsAsLongDimrsAsLong然后在通用栏下拉框中选择UserForm，在右边栏下拉框中选择Initialize，则自动生成：6PrivateSubUserForm_Initia

4、lize()EndSub在Sub与EndSub之间输入如下代码：Worksheets(cs=Worksheets(rs=Worksheets(ListBox1.ColumnCount=csListBox1.RowSource=Worksheets(rs&Worksheets(cs=Worksheets(r=Worksheets(ListBox1.ColumnCount=csListBox1.RowSource=Worksheets(rs&３、双击“查询”按钮，在在Sub和EndSu

5、b之间输入如下代码：IfTextBox1.Text=ThenMsgBox请输入需要查询部门的编号ExitSubEndIfWithWorksheets(rs=Worksheets(Fori=2TorsIf.Cells(i,3)=TextBox1.TextThenTextBox1.Text=.Cells(i,3)TextBox2.Text=.Cells(i,1)TextBox3.Text=.Cells(i,2)ExitForEndIfNextEnd6With４、双击“添加”按钮，在Sub和End

6、Sub之间输入如下代码：DimncsAsLongncs=Worksheets(增加新一行WithWorksheets(.Cells(ncs,3)=TextBox1.Text.Cells(ncs,1)=TextBox2.Text.Cells(ncs,2)=TextBox3.TextEndWithActiveWorkbook.Save‘保存数据CallUserForm_Initialize‘调用窗体加载事件，重新加载数据，以显示新添加的数据。TextBox1.Text=清空文字框中的文本TextBo

7、x2.Text=TextBox3.Text=５、双击“删除”按钮，在Sub和EndSub之间输入如下代码：cs=ListBox1.ListIndex+1‘获取鼠标点击列表框的记录Ifcs=0ThenMsgBox请选择一条数据ExitSubEndIfRows(cs+1).Delete‘删除当前选定的记录６、双击“更新”按钮，写出退出窗口代码。IfTextBox1.Text=””andTextBox2.Text=MsgBox请先进行相应的数据查询EndIfCells(cs,3)=TextBo

8、x1.TextCells(cs,1)=TextBox2.TextCells(cs,2)=TextBox3.Text6ActiveWorkbook.Save‘保存更新数据UserForm_Initialize‘调用窗体加载事件以显示更新后的数据７、双击“退出”按钮，添加窗体退出代码(略)UnloadMe８、运行上节课的添加菜单知识，为该窗口做一个菜单放在Excel菜单栏中。在工程窗口中双击“ThisWorkbook”打开代码编辑窗口，建立两个过程，代码如下