12.4 工资管理系统 12.1.1 实例简介工资管理程序的主要任务是根据本单位当月的在册职工，按各有关工资项目的数据分别求出每个人的实发工资。为了财会管理的需要，每月还要打印出各种必要的工资报表。为了完成上述任务，本系统应当满足以下需求：首先，能够存储每个职工当月的工资信息，包括部门、编号、姓名、基本工资、岗位津贴、职务补贴、奖金、房租、水电、实发工资等数据。其次，应当具备增加人员、删除人员、修改数据、报表打印及退出系统等功能。最后完成的应用程序的界面如图12-1所示。图12-1应用程序的界面12.4.2 预习要求本实例涉及以下知识点：l 多文档界面的制作l “可视化数据管理器”的使用l “数据报表设计器”的使用l Access数据库的建立l 数据源的概念l 登录对话框的使用l 在工程中添加“数据环境”的方法l 文本框对象的DataSource属性l 文本框对象的DataField属性l ADO控件的使用l ADO对象的方法和属性l 控件数组的使用12.4.3设计思路对工资管理程序进行分析后，可知该系统的系统功能模块应如图12-2所示。图12-2工资管理系统的功能模块为简单起见，可只用数据库(db1.mdb)中的一个数据表(GZB)来记录所有的数据，其结构如表11-1所示。表11-1 数据表的结构字 段 名 称类型字 段 长 度索引部门文本4编号文本8有(无重复)姓名文本4基本工资数字整型岗位津贴数字整型职务补贴数字整型奖金数字整型房租数字单精度型水电数字单精度型实发工资数字单精度型可以使用VB提供的“可视化数据管理器(VisData)”或是直接在Access中建立数据库以及其中的数据表。在VB中建立如图12-3所示的应用程序窗体，作为“增加人员”、“删除人员”、“修改人员”以及其他几个模块的主窗体。为方便起见，应将该窗体设置为MDI窗体。图12-3应用程序主窗体通常情况下，信息管理系统无论大小，都要具有一定的安全特性。在本工资管理程序中，使用如图12-4所示的登录对话框对用户的身份进行检查，若回答的口令不正确，将立即退出工资管理系统。图12-4应用程序中的登录对话框在数据库应用程序的设计中，首先要建立数据源，也就是应用程序要访问和操作的对象。所谓的数据源，其实是一个数据结构，其中指明了要操作的数据库文件、数据表及其使用 的驱动程序。在数据源正确连接后，就可以建立各个模块(增加、删除、修改、报表、打印等)，实现相应的操作。图12-5多模块中使用文本框控件数组绑定数据信息如图12-5所示，在多数模块窗体中，由于使用文本框控件数组显示数据库中的各种信息，因此要将文本框与数据库中的数据信息绑定到一起，这时可通过设置文本框对象的DataSource属性和DataField属性来实现。为了更方便地浏览数据表中的记录信息，在相关模块的窗体中使用了ADO控件。最后，为了方便地打印报表，使用了VB中的“数据报表设计器”。应该指出的是，本实例程序虽然功能简单，但它同时又是一个典型的数据库应用程序。在数据库应用程序的设计中，有非常多的基本概念需要理解，也有一些方法需要掌握，相关问题我们将在技术专题中说明。另外，由于本实例程序分为多个模块，在设计步骤中，我们将以模块为顺序进行说明，其中既包含了模块的设计步骤，又包含了有关的程序代码。12.4.4 设计步骤1. 主控模块的设计在主控模块中，使用了MDI窗体作为整个应用程序的主窗体。(1) 建立界面在VB集成开发环境中，首先将系统建立的缺省窗体删除，然后添加一个MDI窗体作为应用程序的主窗体，具体操作步骤如下。步骤1：单击“工程”菜单中的“移除Form1.frm”命令。步骤2：单击“工程”菜单中的“添加MDI窗体”命令，并将该窗体的名称属性Name设置为main。步骤3：单击“文件”菜单中的“保存工程”命令，将新工程保存为“工资管理.vbp”。步骤4：单击“文件”菜单中的“保存Form1”命令，将主窗体保存为“main.frm”。步骤5：主窗体建立后，在该窗体中添加两个图片框Picture1和Picture2。在Picture1对象中添加一个标签对象Label1；在Picture2对象中添加一个命令按钮数组Command1(0)Comm and1(6)，如图12-6所示。图12-6 MDI窗体的设计(2) 设置对象的属性在该窗体中，一共包含11个对象：1个MDI窗体对象main，2个图片框对象Picture1、Pictu re2，1个标签对象Label1，7个命令按钮对象Command1(0)Command1(6)。它们的属性设置如表11-2所示。表11-2主窗体中对象的属性设置对 象 名属 性 名属 性 值说 明mainCaption工程管理系统设置应用程序的标题栏Picture1Align1-Align Top将图片框显示在窗体的上部BorderStyle0-None取消图片框边框的显示Picture2Align1-Align Top将图片框显示在窗体的上部BorderStyle0-None取消图片框边框的显示Label1AutosizeTrue设置标签自动调整大小以满足内容的显示Caption工程管理系统设置标签中显示的字体Command1(0)Caption增加设置命令按钮上显示的内容Command1(1)Caption修改设置命令按钮上显示的内容Command1(2)Caption批处理设置命令按钮上显示的内容Command1(3)Caption删除设置命令按钮上显示的内容Command1(4)Caption浏览设置命令按钮上显示的内容Command1(5)Caption打印设置命令按钮上显示的内容Command1(6)Caption退出设置命令按钮上显示的内容(3) 设计代码编写MDI窗体的Load事件代码，使应用程序启动后显示“登录”对话框，并同时打开数据环境。Private Sub MDIForm_Load()Me.ShowfrmLogin.Show 1DataEnvironment1.Recordsets(1).OpenEnd Sub编写MDI窗体的QueryUnload事件代码，使其在退出应用程序时给出提示。Private Sub MDIFormQueryUn_Load(Cancel As Integer, UnloadMode As Integer)a = MsgBox(退出吗?,vbOKCancle + vbDefaultButton1)If a = vbOK ThenUnload MeElsecancle = TrueEnd IfEnd Sub编写命令按钮控件数组的Click事件代码。Private Sub Command1_Click(Index As Integer)If Forms.Count 1 ThenUnload Forms(Forms.Count - 1)End IfSelect Case IndexCase 0 显示增加模块子窗体frmADD.ShowCase 1 显示修改模块子窗体frmMOD.ShowCase 2 显示批处理模块子窗体frmBAT.ShowCase 3 显示删除模块子窗体frmDEL.ShowCase 4 显示浏览模块子窗体frmBRO.ShowCase 5 显示打印模块子窗体frmPRN.ShowCase 6 退出应用程序Unload MeEnd SelectEnd Sub2登录对话框的设计在应用程序中，登录对话框负责检查用户的合法性。(1) 建立界面建立登录对话框的步骤为：步骤1：单击“工程”菜单中的“添加窗体”命令，出现如图12-7所示的“添加窗体”对话框。图12-7“添加窗体”对话框 步骤2：在“添加窗体”对话框中选择“登录对话框”，然后单击“打开”按钮，即可在当前的工程中添加一个“登录对话框”窗体：frmLogin.frm，如图12-8所示。图12-8登录对话框窗体 (2) 修改代码打开“登录对话框”窗体的代码窗口，可以发现其中已经包含了一些VB源代码，要对这些代码进行修改，以实现应用程序的相应功能。修改“取消”按钮的Click事件代码如下。Private Sub cmdCancel_Click()设置全局变量为 falseLoginSucceeded = FalseUnload Me退出应用程序EndEnd Sub修改“确定”按钮的Click事件代码如下。Private Sub cmdOK_Click()检查正确的密码If txtPassword = “1” ThenLoginSucceeded = TrueUnload MeElseMsgBox 无效的密码，请重试!, , 登录Me.SetFocusSendKeys Home+EndEnd IfEnd Sub为简单起见，本程序的用户密码暂时设置为“1”。3. 建立数据库文件在Access 2000中，建立数据库文件F:db1.mdb，其中包含一个表GZB，操作步骤如下。步骤1：启动Access 2000数据库管理软件。步骤2：在如图12-9所示的对话框中，选择“空Access数据库”单选项，然后单击“确定”按钮，并在随后出现的对话框中选择数据库文件所在的磁盘(例如F:)和数据库文件的名称(例如db1.mdb)。图12-9Access的“新建”对话框 步骤3：在Access 2000中，根据表11-1中的数据结构，建立如图12-10所示的工资表。图12-10建立工资表4. 在工程中添加“数据环境”在工程中添加“数据环境”的步骤为：步骤1：在“工程”菜单中，单击“添加Data Environment”，打开数据环境设计器，同时也为工程添加了一个数据环境DataEnvironment1。DataEnvironment1中包含一个连接对象“Connection1”，如图12-11所示。图12-11数据环境设计器步骤2：用鼠标右键单击“Connection1”，在弹出的快捷菜单中选择“属性”命令，打开“数据链接属性”对话框，如图12-12所示。图12-12 “数据链接属性”对话框步骤3：在如图12-12所示的“提供者”选项卡中，选择“Microsoft Jet 4.0 OLE DB Provider”。在“连接”选项卡(图12-13)中，用鼠标单击“选择或输入数据库名称”框右边的“”按钮，选择所需的数据库路径和名字(F:db1.mdb)，其他设置保持不变。