工资或人事管理安全技术综合实验指导书

VisualBasic程序设计综合实验的目的和要VisualBasicVisualBasicVisualBasic一、实验的目上机实验主要是为了验证自己所编写的程序的正确性，帮助理解VisualBasic的语则，训练对问题的分析及算法设计能力。总的来看，实验的目的有以下几个VisualBasic的程序开发集成环境。VisualBasicVisualBasic为程序错误是无法避免的，而且随着应用程序代码量的增加,出现错误的概率会成倍增长。为了发现和改正程序中的错误,各种程序设计语言都提供了自己的调试工上机实验可能是惟一的途径。与其他语言相比，VisualBasic序调试技术，只有通过多次上机实验，才能真正掌握。当编译出现“出错信息”正确运行，培养分析问题、解决问题的能力。加深课堂讲授和书本内容的理解。课堂讲授主要介绍语言的一些基本语则和注意事项，这些内容都很重要，但枯燥无味，而且很难记住。通过上机实验来掌握、理解语则是学习计算机程序设计的有效方法。通过多次有针对性的上机实验，可以逐步加深对语则的理解，从而达到灵活运用和培养程序设计能力的目的。计算机软件的开发过程，提高学习VisualBasic程序设计的。二、实验的基本经常有同学到机房后，还不知道今天要做什么，通常按照上的例题输入程度型、字符型等VisualBasic预习实验步骤，对实验步骤 一些问题进行思考，并给出初步的解决ａ.VisualBasicｂ.果无语法错误，使用多组数据进试，分析其输出结果是否与预期的结果相符，如三、实验报告的整理与编 VisualBasic程序的运行情况（包括对不同测试数据的运行结果这是实验报告中最重要的一项，也是最容易忽视的一项。实验过大量的工作是程序调试，在调试过会遇到各种各样的问题，每解决一个问题就能积累一点经四、培养良好的程序设计风if、for、dowhileTotalSum须能正确地操作才有价值。但是，对一个程序来说，仅仅当提供正确的输入时才能或连续运行；它必须很“耐用”,能够经得起偶然的或故意的错误使用。对于初学一．目的和任

人事管理系通过简单的数据库的操作，实现企事业单位的人事的管理。人事管理系ACCESS2003。使用户和项目人员明确系统的功能、应用范围。任务：1：实现人事管理管理的信息化管2：实现人事管理的基础要3：硬件环境：CPU：CⅡ1.7G256M软件环境：WindowsXP操作系统，officeAccess数据库系统。软件编程使用VisualBasic6.0中文版。三．程序流开始界面是始于登陆界面“frmlog”，当用户键入用户名和的时候，系统过“”选项进行新用户的，同样，用户的资料保存到数据库中的“用户”表四．数据库设（一）建立8存放员工6存放员工8存放员工6存放员工存放用户（二可以用很多建立数据库的方法创建。在B中创建Access数据库步骤：窗口，在菜单中选择［文件］－［新建］－［Access］-〉Version7.0MDB，在框里输入要创建的数据库名称基本信息表.mdb，单击保存按钮。”表结构框中填入相应的表名单击[添加字段]按钮可为表添加字段在添加字段”数据库的技术（三）ADODATA控件是VB提供的一个ActiveX控件，可以实现连接数据库功能。VB中Access步骤：选择菜单中［工程］－［部件］选项，在部件框里选中［ADODataControl6.0］,然后单击［应用］按钮。这时可在面板中看到ADODataADODataAdodc1,选择控件并单击右键，选择［ADODC属性，启动属性页框，可以由三种不同的方式连接单击［生成］按钮，出现［数据属性］框。在提供程序页中选Jet4.0OLEDBProvider,单击下一步。［…。连接页中2中用户名称输入Admin。单击［测试连接］按钮，可以测试连接数据库是否成功。如成功，单击［确定］按钮。ADODATA控件成功地连接了“基本信息表通过RecordSource属性连接表单击Adodc1RecordSource*from基本信息表,单击［确定］ADODATA控件具有存取数据库数据的能要显示数据可以用DataGrid控件选择菜单中［工程］－［部件］选项，在部件框里选中［“Adodc1DataGrid五．窗体设（frmlog）使用数据库的连接，使用户的用户名和都可以在数据库里进行和修改。另外，还有新用户的功能，使新的用户，可以通过本窗体进行小in用户的主操作菜单窗体其封面设置典雅现代时尚，具有青春的朝气和，象征这青春飞扬的我们的灿基本资料表窗体PrivateSubCommand1_Click()'Adodc1.ConnectionString="Provider=.Jet.OLEDB.4.0;DataSource=G:\vb\源程序\基本信息表.mdb;PersistSecurityInfo=False" mandType=adCmdText'Adodc1.RecordSource"select*fromAdodc1.Recordset.Fields(Text1.TextAdodc1.Recordset.Fields("")=Text2.TextAdodc1.Recordset.Fields("")=Text3.TextAdodc1.Recordset.Fields("部门")=Text4.TextAdodc1.Recordset.Fields(Text5.TextAdodc1.Recordset.Fields(Text6.TextText1.Enabled=TrueText1.Text=""Text2.Enabled=TrueText2.Text=""Text3.Enabled=TrueText3.Text=""Text4.Enabled=TrueText4.Text=""Text5.Enabled=TrueText5.Text=""Text6.Enabled=TrueText6.Text=""EndSubPrivateSubCommand2_Click()IfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastEndPrivateSubCommand4_Click()Adodc1.RecordSource"select*fromwhereText1.Tex