管理系统中计算机应用实验报告册

管理系统中计算机应用实验报告册课程编号：准考证号：姓名：完成时间：实验成绩：年月日实验一创立数据库及表一、实验目的：了解VisualFoxPro6.0的界面及运行环境掌握创立数据库、数据表及视图的方法掌握编辑修改和查询统计的方法二、实验内容1．创立数据库、数据表及视图2．对数据表进行编辑修改和查询统计三、实验步骤1．数据库的创立主菜单“文件〞——“新建〞——“数据库〞类型——“新建文件〞——“创立〞——输入数据库名GDZC〔固定资产管理系统〕——保存,如图1-1所示。图1-1数据库创立系统自动翻开包含了新建数据库文件的“数据库设计器〞等待下一步操作。如图1-2所示。图1-2数据库设计器2．数据表的创立在数据库GDZC中，创立一个表ZCXY，结构为ZCXY〔SBH,SBM,GGXH,YZ,SL,DW,BMH〕。翻开数据库GDZC的“数据库设计器〞窗口，单击工具栏中“新建表〞按钮，如图1-3所示。然后在对话框中单击“新建表〞，翻开“表设计器〞，逐条描述字段信息，保存，如图1-4所示。图1-3新建表窗口图1-4数据库表的创立3．视图的创立创立表ZCXY的视图，其中包含设备号〔SBH〕，原值〔YZ〕和数量〔SL〕三个字段。——新建——视图——新建文件——视图设计器〔图1-5〕——添加表或视图——添加——选择可用字段列表中的字段——关闭——保存，如图1-6所示。图1-5视图设计器图1-6视图的建立4．对表的操作1〕数据库表中数据的输入在主菜单中单击“文件〞，翻开文件的下拉菜单，单击“翻开〞，弹出如图1-7所示对话框。图1-7数据库表的翻开以只读方式翻开数据表ZCXY。在主菜单的“视图〞下拉菜单中，单击“追加记录〞，在表中出现一条新的空白记录，输入具体数据。如图1-8所示。图1-8数据的追加2〕浏览数据表记录在主菜单中翻开“显示〞下拉菜单，单击浏览，如图1-9所示。图1-9数据浏览窗口图1-10数据表的浏览

实验二数据字典的创立一、实验目的了解数据字典的含义学习掌握数据字典的创立方法。二、实验内容为教材P170图6-14所绘制的数据流图编制数据字典三、实验步骤将图6-14上的信息按照表中要求进行填写，形成数据字典。表1条目名称编号说明来源去向组成数据量存取频度存取方式数据存储分类汇总表保存全部设备的按部门汇总表周末更新统计表表、随机查询、计提折旧部门号、设备号、计量单位、数量、原值、规格型号、录入人、审核人、折旧年限、摘要5001/周批处理数据存储计提折旧保存每次折旧日期计提折旧输出报表设备号、计量单位、月折旧额、年折旧额、累计折旧额、净值、折旧日期5001/月自动处理数据存储固定资产文件固定资产信息主文件周末更新各种处理设备号、设备名、原值、规格型号、保质期、折旧年限500随机多种表2条目名称说明来源去向组成数据流量数据流按单位查询按使用部门分类查询设备信息固定资产卡片文件随机查询部门、设备号、计量单位、数量、原值10/天数据流按日期查询按购置日期查询设备信息固定资产卡片文件随机查询设备号、计量单位、数量、原值、录入日期10/天

实验三类和表单实验目的掌握类和表单的创立掌握利用表单建立输入窗口的方法掌握对话框窗口的建立方法实验内容创立类和表单利用表单建立输入窗口对话框窗口的建立方法三.实验步骤1、创立类在新建窗口中，选择类，单击新建文件按钮，翻开“新建类〞窗口，在对话框中输入类名为公司，选择“派生于〞工具栏基类TOOLBAR，并将自定义类存储于“新建类库〞中，如图3-1所示。图3-1定义存储类单击确定关闭对话框窗口，弹出类设计器窗口，如图3-2所示。图3-2类设计器添加按钮、标签和文本框后，显示如图3-3所示。为类中各对象添加相应的属性值及方法和程序。图3-3添加按钮、标签和文本框2、创立表单1〕翻开表单设计器，新建一个空白表单，如图3-4所示。图3-4表单设计器单击“查看类〞按钮，在弹出的窗口中点击“添加〞，翻开对话框窗口，如图3-5所示。图3-5添加窗口翻开自定义类GGL.VCX后，表单控件变为如图1-6形式。单击自定义类按钮，在菜单相应位置添加自定义工具栏，如图3-7所示。图3-6表单控件图3-7添加自定义工具栏3、利用表单建立输入1〕创立空白界面翻开表单设计器，对表单标题栏进行修改，设置表单属性。窗口如图3-8所示。Closeable：.F.—假；MaxButton：.F.—假MinButton：.F.—假；Moveable：.F.—假ControlBox：.F.—Caption：固定资产主件录入图3-8空白的表单界面2〕添加数据环境输入界面需要与固定资产ZCSY表建立联系，将其作为表单的数据环境添加到表单对象中。如图3-9所示。图3-9添加数据环境3〕为表单添加控件将数据环境中表ZCSY的相应字段拖到表单的适当位置，并且修改和调整它们的显示形式，TAB键顺序。结果如图3-10所示。图3-10表单添加控件4〕创立按钮单击表单控件工具栏中的命令按钮控件，创立向前、向后、插入和退出四个按钮，如图3-11所示。图3-11添加控件四个按钮的单击事件方法程序如下：向前按钮Click方法：

IF!BOF()SKIP-1ELSEGOTOPENDIF向后按钮Click方法：

IF!EOF()SKIP1ELSEGOBOTTOMENDIF插入按钮Click方法：

SELEZCSYAPPENDBLACK退出按钮Click方法：

CLOSALL运行表单结果如图3-12所示。图3-12运行表单结果窗口4、对话框窗口的建立方法创立一个系统说明的窗口，使得系统运行时，通过下拉菜单或工具栏翻开该对话框。1〕翻开新建窗口，选择文件类型为表单，单击新建文件按钮，翻开表单设计器，如图3-14所示。图3-14表单设计器2〕在表单的适当位置插入两个标签按钮，分别为固定资产管理系统，版本：V1.00。对标签的字体、字号进行设置，如图3-15所示。图3-15标签的设置

实验四报表实验目的了解报表的组成：报表布局和数据源掌握报表的创立掌握报表的输出实验内容 进行报表的创立报表的输出方法——预览的实现实验步骤1．报表的创立利用报表向导创立报表。在VF的主窗口单击“新建〞按钮，翻开“新建〞窗口，选择“报表〞类型，单击“报表向导〞按钮，如图4-1，4-2所示。图4-1报表向导选择图4-2报表向导在数据库和表选项中选择ZCXY。在字段选项中选择设备号、数量、原值，如图4-3所示。图4-3选择字段点击Next，进入数据分组界面，如图4-4所示，只有按照分组字段建立索引后才能正确分组，本例中不需要定制分组选项。图4-4分组界面点击NEXT,进入报表样式设置，如图4-5所示，依次点击NEXT，一直到设置完成，如图4-6到4-8所示。图4-5报表样式选择图4-6报表布局设置图4-7排序字段窗口图4-8报表完成窗口2．报表的输出翻开报表布局文件，在布局〔图4-9〕中单击鼠标右键翻开快捷菜单，单击“预览〞选项，屏幕上弹出预览窗口，如图4-10所示。图4-9报表布局图4-10预览窗口在预览窗口出现时，会自动弹出一个“打印预览〞工具栏，如图4-11所示，通过这个工具栏用户可以随时选择预览页面、预览显示比例。图4-11打印预览窗口

实验五简单应用程序系统实验目的了解简单应用程序系统的创立过程掌握简单应用程序系统的创立方法二、实验内容创立一个简单应用程序系统——固定资产管理系统，编程实现有关的功能，主要实现以下模块：1． 创立登陆界面2．创立菜单3．创立某个功能模块三、实验步骤登陆界面的创立翻开表单设计器，然后，在表单的适当位置和插入三个标签控件，使得标签的caption属性分别为：请输入口令，请输入用户名，和空。再插入一个文本框，一个组合框和两个命令按钮，两个命令按钮的标题属性caption为确认和退出。如图5-1所示。图5-1登陆界面设计其中，命令按钮确认的单击事件Click的方法如下：IFLOWER(THISFORM.TEXT1.VALUE)="zx11"AND(LOWER(THISFORM.TEXT2.VALUE)="张三"ORLOWER(THISFORM.TEXT2.VALUE)="李四")THISFORM.LABEL3.CAPTION="欢送使用本系统！"ELSETHISFORM.LABEL3.CAPTION="口令错误，重新输入。"THISFORM.TEXT1.VALUE=""THISFORM.TEXT2.VALUE=""Z=Z+1IFZ=3THISFORM.LABEL3.CAPTION="你无权使用本系统！"THISFORM.TEXT1.ENABLED=.F.THISFORM.TEXT2.ENABLED=.F.ENDIFENDIF命令按钮的退出的单击事件的方法为：图5-2登陆界面运行窗口图5-3正确登陆界面图5-4错误登陆界面菜单的创立在VF的主窗口单击工具栏的“新建〞按钮，翻开“新建〞窗口，选择建立“菜单〞类型的文件，单击“新建文件〞，弹出对话框，如图5-5所示。图5-5菜单创立窗口单击“菜单〞按钮，翻开“菜单设计器〞对话框窗口，如图5-6所示在“菜单级〞下拉列表框中，逐行在“菜单名称〞列的各文本框中输入第一级菜单的菜单项名称。然后为每个菜单项的〞结果〞选择“子菜单〞。在新建中创立下一级菜单。如图5-7所示。图5-6一级菜单的创立图5-7二级菜单的创立折旧处理模块的创立利用表单创立如5-8图所示的计提折旧界面。图5-8折旧界面折旧按钮的单击事件程序如下：

USEZJYY=YEAR(RQ)MM=MONTH(RQ)RR=DAY(RQ)JS1=0JS=0IFYEAR(DATE())=YYJS=MONTH(DATE())-MMELSEJS1=YEAR(DATE())-YYJS=(12-MM)+12*(JS1-1)+MONTH(DATE())ENDIFREPLZJWITH.T.,RQWITHDATE()IFJS>1ANDDAY(DATE())<20REPLRQWITHCO