范文一:计算机通信专业
主干学科:信息与通信工程、计算机科学与技术
主要课程:电路理论与应用的系列课程、计算机技术系列课程、信号与系统、电磁场理论、数字系统与逻辑设计、数字信号处理、通信原理等
主要实践性教学环节:包括计算机上机训练、电子工艺实习、电路综合实验 、生产实习、课程设计、毕业设计等,一般要求实践教学环节不少于30周。
主要专业实验:通信原理实验、电子电路实验、数字系统与逻辑设计实验、电磁场实验等
修业年限:四年
授予学位:工学学士
相近专业:电子信息工程
开设院校:
云南大学
西安理工大学
西安建筑科技大学
甘肃理工大学
宁夏大学
新疆大学
北京联合大学
河北大学
河北科技大学
河北师范大学
燕山大学
太原理工大学
内蒙古大学
辽宁大学
沈阳工业大学
鞍山科技大学
辽宁工学院
上海大学
苏州大学
浙江工业大学
安徽大学
福州大学
集美大学
江西师范大学
南昌大学
山东大学
山东工程学院
郑州大学
华南师范大学
五邑大学 北京电子科技学院
中南民族大学
中国人民公安大学
华北电力大学
东北电力学院
上海电力学院
河海大学
中国地质大学
北京邮电大学
北京信息科技大学
长春邮电学院
南京邮电学院
杭州电子科技大学
桂林电子工业学院
重庆邮电学院
电子科技大学
西安电子科技大学
西安邮电学院
大连交通大学
同济大学
中南大学
西南交通大学
兰州交通大学
大连海事大学
上海海事大学
成都气象学院
中国民用航空学院
暨南大学
哈尔滨工程大学
大庆石油学院
北京理工大学
长春理工大学
南京理工大学
西北工业大学
哈尔滨工业大学
东北大学
复旦大学
华东理工大学
东华大学
浙江大学
合肥工业大学
厦门大学
武汉大学
华中科技大学
武汉理工大学
湖南大学
中山大学
重庆大学
四川大学
昆明理工大学
中北大学
贵州大学
南开大学
石油大学
中国传媒大学
天津工程师范学院 河北理工大学 太原科技大学 沈阳建筑大学 延边大学 长春大学 黑龙江大学 哈尔滨理工大学 东北林业大学 上海师范大学 南京大学 扬州大学 江南大学 江苏科技大学 江苏石油化工学院 南京工程学院 南京师范大学 宁波大学 中国计量学院 浙江师范大学 杭州工商大学 安徽工业大学 华侨大学 华东交通大学 南昌航空工业学院 青岛大学 曲阜师范大学 河南理工大学 郑州轻工业学院 河南师范大学 三峡大学 长沙理工大学 深圳大学 广西大学 广西民族学院 四川理工学院 四川师范大学 西北大学 长安大学 西安工程科技学院 陕西理工学院 西北第二民族学院等。
范文二:计算机,专业文献
H.D.D LED (2个孔
) 硬盘指示灯 (有正负之分)
POWER SW (2个孔) 电源开关 (无正负之分)
RESET SW (2个孔) 重启开关 (无正负之分)
POWERLED - (1个孔) POWERLED + (1个孔) 电源指示灯(有正负之分)
POWERLED + (1个孔)
SPEAKER (4个孔) 机箱蜂鸣器 (应该是接最边的那两个孔,可能无正负之分)
这些接头在主板上能找到对应的字母缩写。找找看吧。
主板上两排针的排列好像为
2468
13579
七、认识主板上机箱电源、重启按钮,图解安装方法
连接机箱上的电源键、重启键等是装电脑的最后一步,很多朋友对电源线的安装感到丰常头痛,接下来小编以两款主板为例,详细介绍一下电源键、重启键等的安装方法。
上面两张图片中的一组插槽,便是机箱电源、重启等键的插槽。
(一般情况下红色代表正极,如果不确认在安装时可以查看背部的“+/-”极标识)
上面两张图是机箱中电源、重启、硬盘指示灯和机箱前置报警喇叭的接口。与主板插槽的具体安装方法,请参照下图。
上图便是机箱与主板电源的连接示意图。其中,PWR SW是电源接口,对应主板上的PWR SW接口,RESET 为重启键的接口,对应主板上的RESET 插孔,上面的SPEAKER 为机箱的前置报警喇叭接口,我们可以看到是四针的结构,其中红线的那条线为+5V供电线,与主板上的+5V接口相对应,其它的三针也就很容易的插入了。IDE_LED为机箱面板上硬盘工作指示灯,对应主板上的IDE_LED,剩下的PLED 为电脑工作的指示灯,对应插入主板即可。需要注意的是,硬盘工作指示灯与电源指示灯分为正负极,在安装时需要注意,一般情况下红色代表正极。
主板跳线接法, 也就是主板电源和指示灯的连接 1电源开关连接线
连接电源开关连接线时,先从机箱面板连线上找到标有“power sw”的两针插头,分别是白棕两种颜色,然后插在主板上标有“ pwr sw”或是“RWR”字样的插针上就可以了。
2复位开关连接线
用来热启动计算机用的。连接时,先找到标有“RESET SW”的两针插头,分别是白蓝两种颜色,然后插在主板上标有“Reset sw”或是“RSR”字样的插针上
就可以了。
3电源指示灯连接线
先找到标有“Power LED”的三针插头,中间一根线空两缺,两端分别是白绿两种颜色,然后将它插在主板上标有“PWR LED”或是“P LED”字样的插针上。 提醒:电源开关连接线和复位开关连接线两处在插入时可以不用注意插接的正反问题,怎么插都可以。但由于电源指示灯边接线是采用发光二级管来显示作息的,所以连接是有方向性的。有些主板上会标示“P LED+”和“P LED-”字样,我们只要将绿色的一端对应连接在P LED+插针上,白线连接在P LED-插针上。
4硬盘指示灯连接线
先找到标有“H.D.D.LED”的两头插头,连线分别是白红两种颜色,将它插在主板上标有“HDD LED”或“IED LED”字样的插针上。插时要注意方向性。一般主板会标有“HDD LED+”、“HDD LED-”,将红色一端对应连接在HDD LED+插针上,白色插在标有“HDD LED-”插针上。
5扬声器连接线
先找到“SPEAKER”的四针插头,中间两根线空缺,两端分别是红黑两种颜色,将它插在主板上标有“PEAKER”或是“SPK”字样的插针上。红色插正极,黑色插负极。
实际
电源开关:白色+正极,棕色—负极正反插均可
复位开关:白蓝两种颜色,正反插可随便。
电源开关:绿色的插在P LED+插针上,白色的插在P LED插针上。
硬盘指示灯:绿色插在“PLED+”,白色插在“HDD LED-”插针上。
扬声器:红色插正极,黑色插负极。
把机箱上的那些插头仔细看一下, 基本上会标为以下几种.
1.POWER SW也有叫PW SW的(这个是机箱电源开关, 用于机箱按钮控制通断的), 在主板上会有对应的接口, 插进去即可. 如果不懂可以看说明书, 上面标的非常清楚(以下同). 正负极插反没关系, 不会烧任何东西.
2.RESET SW (机箱复位键), 用于重启电脑. 同样正负极插反也没关系. 不会烧东西.
3.HDD LED有的也叫IDE LED 这个通常用来连接硬盘, 显示硬盘工作状态. 这个插反也仍然没关系, 但硬盘灯不会亮, 如果发现不亮, 调换顺序即可.
4.port + port - 有的只标P+ P-(电源指示灯) 这两根针通常会分开, 中间可能会空一针. 但有的主板是连在一起的. 同样需要参考说明书. 有的机箱连接线则会做在一起, 中间空一针. 插反也没关系, 如果打开电脑电源灯不亮, 调换顺序即
可.
5.speaker 这个是机箱喇叭电源, 用于提示用户各组件工作状态. 通常为两排, 八针设置, 中间缺一针, 可以在主板说明书上找到说明, 有的主板上会有跳线帽, 将其拔掉, 而机箱插头线上会堵住其中一个孔, 插反是不可能插进去的.
6.AUDIO 机箱前置音频插针. 按照说明书也仍然可以轻松插好. 上面会非常清楚地告诉你插针的位置和方向. 如果发现跳线帽将其拔掉. 插反发现不工作同样可以调换方向. 不会损坏硬件. 有的机箱没有前置音频接口, 则不需要考虑.
7. 前置USB 插针(非常重要!!!), 插这个, 你几乎没有机会去试验到底插没插反, 插反以后在你使用USB 设备的时候, 轻则烧坏USB 设备, 重则主板损坏! 所以一定要分清方向.USB 插针和插头为四针设置, 线的排序为VCC(+5V) PORT - PORT + GROND(接地). 在插这个的时候一定要仔细查看说明书, 主板上的USB 插针会按照两排十针设置缺一根. 即上面5针, 下面4针, 有的是相反. 新手插之前首先插缺针的那一排, 只要找到VCC 所对应的插孔就能轻松接好. 主板说明书上会有详细说明, 分清方向. 如果实在没把握就别插了. 免得付出重大代价. 不过有个小小的诀窍, 当你不确定是否插反, 你可以做如下尝试:手抓住USB 连接线, 通电, 开机, 插入USB 设备, 当感觉连接线发热立即将其拔掉.
最后, 大家需要注意的是, 不是主板上的每根针都需要插的, 这主要看你的机箱和你需要的设备而定. 以上介绍的是最常见的接线法. 轻易别拔掉主板上的跳线帽, 除非你需要. 否则可能会造成主板的损坏
范文三:关于计算机(计算机专业英语)
计算机方向
计算机可以分为软件和硬件,很多学计算机都是学习软件,而软件分为系统软件和应用软件。
The computer can be divided into hardware and software, a lot of computer science is learning software, and the software includes system software and application software.
计算机发展方向很多,一个成功的计算机学习者应该具备计算机的各个方向的知识。主学一个方向,其他方向必须有一定了解。
Computer development direction, a successful computer learner
should have computer all directions of knowledge. The main school in one direction, the other direction must have certain understanding.
范文四:[DOC]-计算机图书管理系统毕业论文-所有专业
计算机图书管理系统
摘要
图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。经过分析,使用 Microsoft公司的 Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具,采用面向对象技术,图形化的应用开发环境,尤其是它有一个功能极其强大的集成环境提供级开发人员,使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进,直到形成用户满意的可行系统。本案例开发的是“计算机图书管理系统”.
馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮,尤其对图书
一些学校,图书馆来说,非常重要。在软件开发中,以计算机图书为主,称“计算机图书管理系统”。 计算机图书管理系统能够为用户实现借阅图书、管理等,随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。计算机图书管理系统能够单一定向计算机图书方面,具有实用,精简功能等效率,这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件。因此,开发这样一套管理软件是很有必要.
关键字(Keywords):信息管理系统(MIS)、数据库、Visual Basic6.0、、面向对象(Object)、计算机图书管理系统
目 录 一、数据库设计
(一) 数据库概念????????????????? 1
(二)计算机图书管理系统数据库??????????? 4
(三) 利用data 控件访问数据库?????????? 4
二、计算机图书管理系统数据
(一) 数据库与VB的连接?????????????? .10
(二) 关闭数据对象和连接对象???????????. 10
(三) 显示数据库的内容 ??????????????. 10
(四) 计算机图书管理系统数据流程图 ????????. 10.
三 、计算机图书管理系统2008
(一) 开发计算机图书管理系统的目的 ???????? 12
(二) 开发图书管理系统的思路 ??????????? 12
四、计算机图书管理系统模块设计
(一) 界面设计规范及流程图????????????.13.
(二) 系统窗体汇总 ?????????????.? 13
(三) 主页面设计????????????????? 13
五、软件测试分析报告
(一) 软件信息 ??????????????????.41
(二) 常见系统出错问题及解决???????????? 41.
六、 结束语 …………………………………………………………….. 42
一、 数据库设计( mdb )
(一) 数据的概念
办公软件Office套件中,最为广大用户熟悉的是Word和Excel,因为它们功能强大且方便易用,更因为它们不仅可用于办公,还可用于个人写作和家庭记帐理财等。同为Office套件中一部分的Access,虽然有着同样强大的功能,但使用的人却相对少些,不像Word和Excel那样广泛。事实上,真正用过Access的用户,对其强大功能和灵活应用均称赞有加。 Access 数据库管理系统是Microsoft Office 套件的重要组成部分,适用于小型商务活动,用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库,而且它具有强大的数据管理功能,它可以方便地利用各种数据源,生成窗体(表单),查询,报表和应用程序等。 有结构的数据集合,它与一般的数据文件不同,(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。
Access一种关系式数据库,关系式数据库由一系列表组成,表又由一系列行和列组成,每一行是一个记录,每一列是一个字段,每个字段有一个字段名,字段名在一个表中不能重复。图1是一个“产品”
产品”表由10个记录组成,一个记录占一行,每一个记录由产品ID、产品名称、库存量、表的例子。“
订货量、单价和折扣率6个字段组成。“产品ID”是字段名,其下面的1,2等是字段的值。 表与表之间可以建立关系(或称关联,连接),以便查询相关联的信息。Access数据库以文件形式保存,文件的扩展名是MDB。
Access 数据库由六种对象组成,它们是表、查询、窗体、报表、宏和模块。
1. 表(Table)
表是数据库的基本对象,是创建其他5种对象的基础。表由记录组成,记录由字段组成,表用来存贮数据库的数据,故又称数据表。
2. 数据查询(Query)
查询可以按索引快速查找到需要的记录,按要求筛选记录并能连接若干个表的字段组成新表。 3. 数据窗体(Form)
窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。
4. 数据报表(Report)
报表的功能是将数据库中的数据分类汇总,然后打印出来,以便分析。
5. 数据宏(Macro)
宏相当于DOS中的批处理,用来自动执行一系列操作。Access列出了一些常用的操作供用户选择,使用起来十分方便。
6. 数据模块(Module)
模块的功能与宏类似,但它定义的操作比宏更精细和复杂,用户可以根据自己的需要编写程序。模块使用Visual Basic编程
(二)计算机管图书管理系统数据库
,,,,,计算机管理系统图书管理系统数据库模式定义了数据库的结构、表、关系、域和业务规则。,,数据库模式是一种设计,数据库和应用正是建立在此基础上的。域是一列可能拥有的值的集合。必须为每一个表的每一列确定域。除了数据的物理必填字段外,还需要确定是否有些域对表来说是唯一的。,计算机管理系统图书管理系统数据库模式的最后一个要素是业务规则,它是对需要反映在数据库和数据库应用程序中的业务活动的允许空字符串。业务规则是模式的一个重要部分,因为他们指定了无论什么数据变化到达DBMS引擎,允许的数据值必须满足的允许空字符串。不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序DBMS都应该拒绝。遗憾的是,不同的DBMS产品用不同的方法实施业务规则。在某些情况下,DBMS产品不具备实施必要业务规则的能力,必须以代码形式把它们编入应用程序,
,
(三)利用DATA控件访问数据库,
该软件是利用ACCESS数据库,操作方便,简单。在ACCESS数据库中不需要创建数据连接,因为它是VB中默认的数据库形式。这里的数据库采用Access,用ADO作为连接数据对象。
以归纳为以下几步:
1. 建立Access 数据库
启动Access,建立一个空的数据库ComputerBookmanage,如图8所示。
使用程序设计器建立系统需要的表
图书表:
读者表
用户
借书表:
用户表:
2、连接数据
在Visual Basic环境下,选择“工程”?“引用”命令,在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”,然后单击“确定”按钮,如图:
3.0引用ADO连接数据库
在程序设计的公共模块中,先定义ADO连接对象。语句如下:
Public conn As New ADODB.Connection ' 标记连接对象然后在子程序中,用如下的语句即可打开数据库: Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_
"data source= ComputerBookmanage .mdb" conn.Open connectionstring
4.0 设置ODBC
VB的ADO对象是通过ODBC来访问数据库,所以还要建立ODBC数据引擎接口。打开
控制面板中的“管理工具”?“数据源”(ODBC),出现如图所示的对话框。
图17 ODBC对话框
单击“添加”按钮,出现“创建新数据源”对话框,如图18所示。
5.0创建新数据源”对话框
选择Microsoft Access Driver(*.mdb),单击“完成”按钮,出现如图19所示对话框。
设置连接数据源
在“数据源名”文本框中添加一个名字,单击“确定”按钮完成系统默认连接设置。然后在ODBC对话框中单击“确定”按钮完成ODBC设置。
(四)MDB数据流程图以及数据表
1.基本表:[书籍 ] book
字段 类型 字段大小 必填字段 允许空字符串 管理人员 文本 50 否 是 图书编号 文本 12 是 否 图书名称 文本 16 否 是 作者 文本 8 否 是 出版社 文本 20 否 是 库存量 数字 小数 是 是 入库时间 日期/时间 自动 否 无 2.基本表:[用户表 ] user_table
字段 类型 字段大小 必填字段 允许空字符串 登录名 文本 16 否 是 密码 文本 16 否 是 身份 文本 50 否 是 权限 数字 1 否 是 3.基本表:[读者表]
字段 类型 字段大小 必填字段 允许空字符串 读者姓名 文本 8 是 主键 读者编号 数字 50 是 否 性别 文本 2 否 是 读者类别 文本 50 否 是
工作单位 文本 50 否 是 家庭地址 文本 50 否 否 电话号码 文本 50 自动 自动 登记日期 日期/时间 自动 自动 自动 已借书数量 数字 自动 自动 自动 4.基本表:[职工信息] worker
字段 类型 字段大小 必填字段 允许空字符串 管理人员 文本 50 否 是 工号 数字 50 是 否 姓名 文本 8 否 是 性别 文本 2 否 是 电话 数字 13 否 是 住址
5.基本表:[借阅信息] reader
字段 类型 字段大小 必填字段 允许空字符串 序号 自动编号(长整型) 主键 工号 文本 250
图书编号 文本 250
借阅时间 日期/时间 长日期
ADO中的数据对象通常保存的是查询结果。Record Set是ADO中最复杂的对象,有许多属性和方法。Record Set保存的是一行行的记录,并标有一个当前记录。以下是创建方法:
可以直接利用DATA控件直接绑定,在DATA控件的属性中的RECORDSOURCE对数据表进行连接。
Set Record Set=DB.Openrecordset(sqtStr) 这条语句创建并打开了对象Record Set,其中db是先前创建的链接对象,sqtStr是一个字串,代表一条标准的SQL语句。例如: sqlStr=“SELECT * FROM table1”Set Record Set=DB.Openrecordset(sqtStr),执行后,对象Record Set中就保存了表table1中的所有记录。
二、 计算机图书管理系统数据
,
(一),数据库与VB的连接,
当数据设置好后就应用VB当中去,步骤:新建一个模块命名“,Database,“在Database,,添加代码,,数据库与VB的连接代码(由于代码很长见光盘code目录下,“,database.txt”),
,(二)关闭数据对象和链接对象
在使用了ADO对象之后要关闭它,因为它使用了一定的服务器资源。通过调用方法close实现关闭,然后再释放它。
Record Set.close
Set Record Set=Nothing
/关闭创建的数据对象
mConn.close
Set mConn=Nothing
/关闭创建的链接对象
(三)显示数据库中的内容
利用MSFLEGRID控件来显示数据库中的内容,可以直接通过DATA控件来实现操作,也可以利用代码来完成相关的操作。
sql = "select * from book where 图书信息 ='" & Text1(0).Text & "'"
If sql <> "" Then
Set rs = db.OpenRecordset(sql) (四)计算机图书管理系统数据流程图
三、开发图书管理系统2008
(一)开发计算机图书管理系统的目的
计算机图书馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮,尤其对一些学校,图书馆来说,非常重要。图书馆管理系统能够为用户实现借阅图书、期刊、试卷合订本等,随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件,因此,开发这样一套管理软件是很有必要。
(二)开发计算机图书管理系统的思路
单从这一方面,开发图书管理系统需要从以下几个构思方面着手。
1. 遐想
遐想。即大胆地思维想象,在脑海形成一个框架,怎样去开发,如何去开发,开发有什么好处即影响。开发会遇到什么问题,怎样去解决.
2. 绘图
即将遐想的,用图象勾画出来,呈现模拟系统的功能.
3(准备材料
准备事先制作好材料。如软件中所需要的图片。代码,软件图标(Ico)页面图片(bmp,jpg). 4. 开发
“粮草好了,就动兵马” 意思是现实开发系统(如新建窗体,模块等).
四、计算机图书管理系统模块设计
(一)界面设计规范以及流程图(详细见页面) 主界面:菜单栏、工具条、工作区(本系统采用SSTab页框)、状态栏等。
(二)系统窗体汇总
窗体名称 窗体类型 简要说明 FrmLogIn 启动窗体 系统登陆 Form1 MDI主窗体 系统主窗体 Form2 模式窗体 图书信息录入 Form3 MDI子窗体 职工信息录入 Form4 模式窗体 借书管理 Form5 模式窗体 还书管理 Form6 模式窗体 使用帮助 Frm_sys_set 模式窗体 账号管理 frmAbout 模式窗体 关于软件 frmMsg MDI子窗体 友情提示 名称 类型 模块说明 Database 数据类型 数据连接 xp_canvas 窗体 窗体移动 Xpcmdbutton 按钮 个性按钮 Xphelp 系统 系统帮助 Xptopbuttons 系统 最大化,最小化,关闭 xpcmdbutton1 按钮 借书 Xpcmdbutton2 按钮 还书 Xpcmdbutton3 按钮 图书录入 Xpcmdbutton4 按钮 职工录入 Xpcmdbutton5 按钮 图书查询 Xpcmdbutton6 按钮 借阅查询 …….. ………… …………… (三)主窗体界面设计
主界面的设计采用标准无标题主窗口样式,自上而下依次为:菜单栏、工具条、工作区(本系统采用SSTab页框)、状态栏等。所有系统用户拥有相似的主界面。主界面包含基本的或共享的功能,如书目浏览与检索,基本统计等。代码见code目录下:main.txt
主界面如代码所示:
Option Explicit
'定义查询字段的窗体级变量
'定义查询的字段窗体变量
Dim sfield As String '查询的关键词
Dim seachtext As String
'查询函数定义
'1、桉书号查询则采用具体查询办法
'2、按书名查询则采用模糊查询办法
Function open_seach(table_name As String, sfield As String, seachtext As String) As Integer
Dim sqlstr As String
Dim str As String
'建立数据库连接
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.CursorLocation = adUseClient
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path +
"\data\ComputerBookmanage.mdb" + ";Persist Security Info=False"
con.Open sqlstr
' 查询办法选择
If Option1.Value = True Then
str = "select * from " & table_name & " where " & sfield & "='" & seachtext & "'"
Else
str = "select * from " & table_name & " where " & sfield & " like '" & Trim(" %" & Text1.Text
& "%") & "'"
End If
If Option3.Value = True Then
str = "select * from " & table_name & " where " & sfield & "='" & seachtext & "'"
Else
str = "select * from " & table_name & " where " & sfield & " like '" & Trim(" %" & Text1.Text
& "%") & "'"
End If
rst.Open str, con, adOpenDynamic, adLockOptimistic
rst.Requery
If rst.RecordCount > 0 Then
open_seach = 1 '返回一个值1,代表有查询结果
Else
open_seach = 0 '返回一个值0,代表没有查询结果
End If
End Function
Private Sub Check4_Click() '选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[出版社]"
End Select
End Sub
Private Sub Command1_Click() If rst.BOF = True Then
frmMsg.Show
frmMsg.info.Visible = True
frmMsg.Text1.Text = "已经到达第一条记录了~" Exit Sub
Else
rst.MovePrevious
End If
End Sub
Private Sub Command2_Click() '后一记录
If rst.EOF = True Then
frmMsg.Show
frmMsg.info.Visible = True
frmMsg.Text1.Text = "已经到达最后一条记录了~" Exit Sub
Else
rst.MoveNext
End If
End Sub
Private Sub DataGrid2_Click() Call connect_db
open_connection ("book") '连接book表
tablename = "book"
If privilege = 1 Then '如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,您没有查阅的权限~"
Exit Sub
End If
open_connection ("worker") '连接worker表
tablename = "worker"
open_connection ("record") '连接record表
tablename = "record"
Set DataGrid1.DataSource = rst
End Sub
Private Sub Command4_Click() Dim ret As Integer
If Command4.Caption = "查 询" Then
Command4.Caption = "确 定"
Else
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value
= False Then
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "请选择查询项!"
Exit Sub
End If
If Text1.Text = "" Then
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "请输入查询内容~"
Text1.SetFocus
Exit Sub
End If
seachtext = Trim(Text1.Text)
ret = open_seach(tablename, sfield, seachtext)
If ret = 0 Then
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,没有你要的记录!"
Option1.Value = False
Option2.Value = False
Text1.Text = ""
rst.Close
Set rst = Nothing
Set DataGrid1.DataSource = rst
Command1.Enabled = False '上一条,下一条按钮为灰
Command2.Enabled = False
Command4.Caption = "查 询"
Exit Sub
End If
Command1.Enabled = True
Command2.Enabled = True
Set DataGrid1.DataSource = rst
Text1.Text = ""
Option1.Value = False
Option2.Value = False
Command4.Caption = "查 询"
End If
End Sub
Private Sub DataGrid1_Click() Call connect_db
open_connection ("book") '连接book表
tablename = "book"
If privilege = 1 Then '如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,您没有查阅的权限~"
Exit Sub
End If
open_connection ("worker") '连接worker表
tablename = "worker"
open_connection ("record") '连接record表
tablename = "record"
Set DataGrid1.DataSource = rst End Sub
Private Sub Form_Load()
Option1.Caption = "书号"
Option2.Caption = "书名"
Option3.Caption = "出版社"
Option4.Caption = "作者"
Label2.Caption = frmLogin.Text1.Text
Timer1.Interval = 1000 tablename = "book"
Call connect_db
open_connection ("book") Set DataGrid1.DataSource = rst TabStrip1.Tabs.Item(1) = "图书信息浏览"
TabStrip1.Tabs.Item(2) = "员工信息浏览"
TabStrip1.Tabs.Item(3) = "图书借阅情况浏览" Text1.Text = ""
open_connection ("book") Set DataGrid1.DataSource = rst frmLogin.Show
End Sub
Private Sub Image1_Click() End Sub
Private Sub Option1_Click() Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[图书编码]"
Case "员工信息浏览":
sfield = "[工号]"
Case "图书借阅情况浏览":
sfield = "[图书编码]"
End Select
End Sub
Private Sub Option2_Click() '选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[图书名称]"
Case "员工信息浏览":
sfield = "[姓名]"
Case "图书借阅情况浏览":
sfield = "[工号]"
End Select
End Sub
Private Sub Option3_Click() '选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[出版社]"
End Select
End Sub
Private Sub Option4_Click() '选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[作者]"
End Select
End Sub
Private Sub Text2_Change() Text1.Text = Time
End Sub
Private Sub TabStrip1_Click() Call connect_db
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
open_connection ("book") '连接book表
tablename = "book"
Option1.Caption = "书号"
Option2.Caption = "书名"
Set DataGrid1.DataSource = rst
Case "员工信息浏览":
If privilege = 1 Then '如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,您没有查阅的权限~"
Exit Sub
End If
open_connection ("worker") '连接worker表
Option1.Caption = "工号"
Option2.Caption = "姓名"
tablename = "worker"
Set DataGrid1.DataSource = rst
Case "图书借阅情况浏览":
open_connection ("record") '连接record表
Option1.Caption = "书号"
Option2.Caption = "工号"
tablename = "record"
Set DataGrid1.DataSource = rst End Select
End Sub
Private Sub Timer1_Timer() Label3.Caption = Now
End Sub
Private Sub xpcmdbutton1_Click() Form4.Show
End Sub
Private Sub xpcmdbutton12_Click() Form6.Show
End Sub
Private Sub xpcmdbutton13_Click() frmAbout.Show
End Sub
Private Sub xpcmdbutton14_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub xpcmdbutton15_Click() open_connection "reader"
tablename = "reader"
Set DataGrid1.DataSource = rst End Sub
Private Sub xpcmdbutton2_Click() Form5.Show
End Sub
Private Sub xpcmdbutton3_Click() Form2.Show
End Sub
Private Sub xpcmdbutton4_Click() Form3.Show
End Sub
Private Sub xpcmdbutton5_Click() open_connection ("book")
tablename = "record"
Set DataGrid1.DataSource = rst End Sub
Private Sub xpcmdbutton6_Click() open_connection ("record") tablename = "record"
Set DataGrid1.DataSource = rst End Sub
Private Sub xpcmdbutton7_Click() open_connection ("worker")
tablename = "worker"
Set DataGrid1.DataSource = rst End Sub
Private Sub xpcmdbutton8_Click() Frm_sys_set.Show
End Sub
Private Sub xpmin_Click()
Me.WindowState = 1
End Sub
Private Sub xpclose_Click() Unload Me
frmLogin.Show
End Sub
Private Sub xptopbuttons1_Click() Unload Me
End Sub
Private Sub xptopbuttons2_Click() Me.WindowState = 1
End Sub
1. 用户登陆
该窗体主要完成用户管理登陆功能,也是进入系统的一个重要的门槛,该门槛是有权限限制,根据不
同的用户帐号,功能也截然不同,这就是本系统的一个关键点。(默然读者帐号;reader 密码;008)代
码见code目录下:login.txt
Private Sub Form_Load() '连接用户表
Call open_connection("user_table") xpcmdbutton1.Caption = "登陆"
xpcmdbutton2.Caption = "注销"
End Sub
Private Sub Image1_Click() End Sub
Private Sub xpcmdbutton1_Click() '登录系统
Dim sql As String
If Trim(Text1.Text) = "" Then '如果文本框为空,则给出提示
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "请输入用户登录账号!"
Exit Sub
Else
sql = "select * from user_table where [登录名]='" & Trim(Text1.Text) & "'" '查找用户登录
名
rst.Close
rst.Open sql, con, adOpenDynamic, adLockOptimistic
If rst.RecordCount <= 0="" then="">=>
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "用户名不存在~"
Exit Sub
End If
'用户合法性检测并赋予一定的权限级别
If LCase(Trim(rst![登录名])) = LCase(Trim(Text1.Text)) Then
If Trim(rst![密码]) = Trim(Text2.Text) Then
privilege = rst![权限]
Call check_privage(privilege) '权限分配
Else
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "密码错误,请重新输入~"
Exit Sub
End If
End If
End If
End Sub
Private Sub xpcmdbutton2_Click() '退出系统
End
End Sub
Private Sub xptopbuttons1_Click() End
End Sub
Private Sub xptopbuttons2_Click(Index As Integer)
Me.WindowState = 1
End Sub
如果用户名错误或者密码错误” 友情提示”窗体就会响应,传送信息给用户
提示1
提示2
2.借书
该窗体主要完成读者借阅功能,也是最重要的一项功能,读者借阅图书与职工人员,管理人员才能完成借阅功能,,借阅后系统信息将保存,以便管理员能核对一下,以免出错,假如你已经超过最大的借阅量,系统还会自动提醒管理员该读者已经不能继续借书了。该阅子模块简单,计算机图书综合信息以图书编号归拢在一起,方便借阅。代码见code目录下: borrow.txt
窗体代码:
Option Explicit
Private Sub Command1_Click() '借出图书
Dim sql, sql1, sql2 As String
Dim num As Integer
sql = "select * from record"
sql1 = "select * from worker where [工号]=?"
sql2 = "select * from book where [图书编码]=?"
Dim param1, param2, param3, param4 As ADODB.Parameter Dim cmd1, cmd2, cmd3, cmd4 As ADODB.Command Set cmd1 = New ADODB.Command
Set cmd2 = New ADODB.Command
Set cmd3 = New ADODB.Command
Set cmd4 = New ADODB.Command
Set param1 = New ADODB.Parameter
Set param2 = New ADODB.Parameter Set param3 = New ADODB.Parameter Set param4 = New ADODB.Parameter '工号及书号检测
'检验工号及书号的合法性
With param1
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text1.Text
End With
cmd1.Parameters.Append param1
cmd1.CommandText = sql1
cmd1.CommandType = adCmdText
Set cmd1.ActiveConnection = con
Set rst = cmd1.Execute
If rst.RecordCount <= 0="" then="">=>
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "没有此工号!"
Exit Sub
End If
With param2
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text2.Text
End With
cmd2.Parameters.Append param2
cmd2.CommandText = sql2
cmd2.CommandType = adCmdText
Set cmd2.ActiveConnection = con
Set rst1 = cmd2.Execute
If rst1.RecordCount <= 0="" then="">=>
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "没有此图书编号!"
Exit Sub
End If
sql2 = "select * from record where [图书编码]=?"
rst1.Close
With param3
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text2.Text
End With
cmd3.Parameters.Append param3
cmd3.CommandText = sql2
cmd3.CommandType = adCmdText
Set cmd3.ActiveConnection = con
Set rst1 = cmd3.Execute
'图书状态检测
If rst1.RecordCount > 0 Then
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "此图书已经被借阅~"
Exit Sub
End If
sql1 = "select * from record where [工号]=?"
rst.Close
With param4
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text1.Text
End With
cmd4.Parameters.Append param4
cmd4.CommandText = sql1
cmd4.CommandType = adCmdText
Set cmd4.ActiveConnection = con
Set rst = cmd4.Execute
'规定可借阅图书数目检测
If rst.RecordCount = 0 Then
num = rst.RecordCount + 1
Label3.Caption = str(num)
ElseIf rst.RecordCount <= 3="" then="">=>
num = rst.RecordCount + 1
Label3.Caption = str(num)
ElseIf rst.RecordCount > 3 Then
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "借阅图书已超限(>4)!"
Label3.Caption = str(rst.RecordCount)
Exit Sub
End If
rst.Close
rst.Open sql, con, adOpenDynamic, adLockOptimistic
rst.AddNew
rst![工号] = Text1.Text
rst![图书编码] = Text2.Text
rst![借阅时间] = Date
rst.Update
frmMsg.Show
frmMsg.info.Visible = True
frmMsg.Text1.Text = "借阅成功~"
End Sub
Private Sub Command2_Click() Unload Me
End Sub
Private Sub Form_Load()
Dim sql1, sql2 As String
sql1 = "select * from book" sql2 = "select * from worker" Set rst = New ADODB.Recordset Set rst1 = New ADODB.Recordset Call connect_db
rst.Open sql2, con, adOpenDynamic, adLockOptimistic
rst1.Open sql1, con, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Image1_Click() End Sub
Private Sub xptopbuttons1_Click() Unload Me
End Sub
Private Sub xptopbuttons2_Click() Me.WindowState = 1
End Sub
3. 还书
还书这一环节,也同样关键,用户在知道工号的前提下,只要知道借书信息的图书编号,就能方便的
还书。代码见code目录下: record.txt
Option Explicit
Private Sub Command1_Click() Dim sql1, sql2 As String
Dim num As Integer
'检测用户名及书号正确否
sql1 = "select * from worker where [工号]=?"
sql2 = "select * from book where [图书编码]=?"
Dim param1, param2, param3 As ADODB.Parameter
Dim cmd1, cmd2, cmd3 As ADODB.Command Set cmd1 = New ADODB.Command Set cmd2 = New ADODB.Command Set cmd3 = New ADODB.Command Set param1 = New ADODB.Parameter Set param2 = New ADODB.Parameter Set param3 = New ADODB.Parameter
With param1
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text1.Text
End With
cmd1.Parameters.Append param1
cmd1.CommandText = sql1
cmd1.CommandType = adCmdText
Set cmd1.ActiveConnection = con
Set rst = cmd1.Execute
If rst.RecordCount <= 0="" then="">=>
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "没有此工号!"
Exit Sub
End If
With param2
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text2.Text
End With
cmd2.Parameters.Append param2
cmd2.CommandText = sql2
cmd2.CommandType = adCmdText
Set cmd2.ActiveConnection = con
Set rst1 = cmd2.Execute
If rst1.RecordCount <= 0="" then="">=>
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "没有此图书编号!"
Exit Sub
End If
sql1 = "select * from record where [工号]=?"
With param3
.Direction = adParamInput
.Type = adBSTR
.Size = 8
.Value = Text1.Text
End With
cmd3.Parameters.Append param1
cmd3.CommandText = sql1
cmd3.CommandType = adCmdText
Set cmd3.ActiveConnection = con
Set rst = cmd3.Execute
If rst.RecordCount = 0 Then
num = 0
Label3.Caption = str(num)
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "您没有借阅此图书!"
Exit Sub
Else
num = rst.RecordCount - 1
sql1 = "select * from record where [图书编码]='" & Trim(Text2.Text) & "'" & "and [工号]='" & Trim(Text1.Text) & "'"
Set rst1 = New ADODB.Recordset
rst1.Open sql1, con, adOpenDynamic, adLockOptimistic
If rst1.RecordCount <= 0="" then="">=>
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "您没有借阅此图书!"
Exit Sub
End If
sql1 = "delete from record where [图书编码]='" & Trim(Text2.Text) & "'"
Set rst = New ADODB.Recordset
rst.Open sql1, con, adOpenDynamic, adLockOptimistic
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "还书成功!"
Label3.Caption = str(num)
End If
End Sub
Private Sub Command2_Click() Unload Me
End Sub
Private Sub Form_Load()
Dim sql1, sql2 As String
sql1 = "select * from book" sql2 = "select * from worker" Set rst = New ADODB.Recordset Set rst1 = New ADODB.Recordset Call connect_db
rst.Open sql2, con, adOpenDynamic, adLockOptimistic
rst1.Open sql1, con, adOpenDynamic, adLockOptimistic
End Sub
Private Sub Image1_Click()
End Sub
Private Sub xptopbuttons1_Click() Unload Me
End Sub
Private Sub xptopbuttons2_Click() Me.WindowState = 1
End Sub
4. 图书查询
点击 xpcmdbutton5控件按纽,数据控件将显示 当前 表“BOOK”信息,如管理员,图书编码,图书名
称,作者,出版社等,一目了然,无权限。
程序代码:
Private Sub xpcmdbutton5_Click() open_connection ("book")
tablename = "record"
Set DataGrid1.DataSource = rst End Sub
窗体图:
5. 图书录入
新书录入窗口中显示的是员工必要信息。可供用户增加、修改、删除、显示上一记录、下一记录等功能。向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。当用户想修改某条记录时,只要双击“修改记录”安扭控件中修改要修改的记录,就会自动弹出详细信息窗体,该窗体已经显示了你要得信息,你就可以对其该条记录进行修改了。 本系统的一大特点可以直接在TEXT文本框进行数据修改,修改后,按ENTER键即可完成修改,并保存在数据库”book”表中。代码见光盘code
Entry.txt 目录下:
窗体图:
5. 职工查询
这一功能应用在“xpcmdbutton7”控件上,DataGrid1控件显示职工信息,如职工的工号,姓名,地址等,读者没有查询权限。
代码如下:
Private Sub xpcmdbutton7_Click()
open_connection ("worker")
tablename = "worker"
Set DataGrid1.DataSource = rst
End Sub
窗体图:
6.职工录入
该窗体可供管理员增加、修改、删除、显示上一记录、下一记录员工信息等功能。也同样向数据库中添加新的记录、删除不需要的记录、修改错误的记录、对数据库中的信息进行查询。当管理员想修改某条记录时,只要双击“修改记录”安扭控件中修改要修改的记录,就会自动弹出详细信息窗体,该窗体已经显示了你要得信息,你就可以对其该条记录进行修改了。 也可以直接在TEXT文本框进行数据修改,修改后,按ENTER键即可完成修改,并保存在数据库”worker”表中。代码见光盘code目录下: worker.txt
7. 读者信息
这一功能应用在“xpcmdbutton15”控件上,DataGrid1控件显示职工信息,如读者的姓名,编号,地址,电话号码等,任何人可以查阅直接添加信息。数据出于“"reader" 表中。
代码如下:
Private Sub xpcmdbutton15_Click()
open_connection "reader" tablename = "reader"
Set DataGrid1.DataSource = rst End Sub
窗体图:
8. 使用帮助
该窗体显示帮助信息
窗体图:
9( 帐号管理
帐户管理,即可以添加权限帐户,又可以对权限帐户进行修改或者删除,这里用户权限级别分4种,
关键字:1 .2 .3 .4
1代表数据浏览者;
2:借书管理员;
3:还书管理员;
4:系统管理员;,
修改后,数据将保存在“user_table’表中代码见code目录下:user.txt
10.友情提示
窗体中Text1显示所有错误信息.
窗体图:
说明;Text1 属性 borderstyle为0-None backclor属性跟窗体颜色一样 &H00C0FFFF& 所以上面图片不
见Text1
12.关于软件
显示软件学校、编制人、指导老师等信息.
窗体图:
说明:运行‘系统信息“将会打开电脑的详细信息 如图:
11(其他功能设计
无标题窗体移动
1( 新件一个控件定义为“xp_canvas” 2( 添加一个图片项
3( 然后在控件代码视图添加代码
代码如下见光盘code目录下xp_canvas.txt
4.应用到所需的窗体中
最大化,最小化按钮
5.我的建议是加载控件
上一条 下一条按钮
显示功能代码
Private Sub Command*_Click() '上一记录 If rst.BOF Then
frmMsg.Show
frmMsg.info.Visible = True frmMsg.Text1.Text = "已经到达记录顶端!"
Exit Sub
Else
rst.MovePrevious
End If
End Sub
Private Sub Command*_Click() '下一记录 If rst.EOF Then frmMsg.Show frmMsg.info.Visible = True frmMsg.Text1.Text = "已经到达记录底端! " Exit Sub Else
rst.MoveNext
End If
End Sub
来者信息
1. 也添加一个Label
2. 在form也增加一行代码
代码:Label*.Caption = frmLogin.Text1.Text
显示时间
1.先在被动窗体添加一个 Timer 、Labe、控件
2.在Timer添加代码
Label*.Caption = Now
3,在窗体代码 form 项 增加一行代码
Timer1.Interval = 1000
五、软件测试分析报告
(一) 软件信息
软件名称: 计算机图书管理系统v2010
语言类型: 简体中文
授权类型: 测试版
六 Windows 98/NT/Me/2000/XP cpu:Intel Pentium以上 内存:64M硬
盘或以上:100M空闲空间硬件环境:服务器:PII266 64M 2G以上
客户机:PII133 16M 网卡等
网络带宽:10M以上 运行环境
服务器端:NT6以上,IIS60以上
客户端: IE6.0以上
软件大小: 2.33 MB (建议空间:10MB以上,不包括数据库)
指导老师: 张晓玲
软件作者: 胡廷国
班主任: 刘红
联系信箱: hutingguo51@126.com
开发日期: 2010年10月-2010年11月
结束语
经过一个月的设计和开发,计算机图书馆管理系统基本开发完毕。其功能基本符合需求,能够完成
书籍录入,借阅,查询、统计、用户管理。并提供部分系统维护功能,使管理员能够方便进行数据添加和修改、数据删除等功能。 但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一步改善。
参考文献
《Visual Basic 6.0 使用指南》 作者:BobReselman 等 出版社:电子工业出版社 《中文版Microsoft Office 2003自学通》作者:Ned Snel编著 出版社:机械工业出版社 《Visual Basic 6.0 中文版控件大全》作者:Microsoft 编著 出版社:电子工业出版社 《Visual Basic 6.0 完全自学手册》 作者:仲维俊 编著 机械工业出版社出版 《Visual Basic+Access数据库开发与实例》作者: 刘文涛 编著 出版社:清华大学出版社 《SQL Server 2003 应用与开发范例宝典》作者:明日科技 编著 出版社:人民邮电出版社 《数据库系统概念(原书第5版》 作者:西尔伯沙茨 等著 出版社:机械工业出版社 另外参考 ; 百度知道 洪恩教育 中国VB eNet学院 网易学院 网站
致 谢
在本论文的选题、学习和撰写工作中,我衷心感谢我的导师呼克佑老师几个月以来对我的督促和指导。
他认真的态度一直鼓励我用心钻研所选择的课题资料,是我能顺利、暗示的完成毕业论文。
同时也非常感谢应用信息技术系的各位老师长期以来的关心和指导,老师们一直无微不至的关怀给予了我物质和精神上的支持,再次对老师们的付出表示衷心的谢意,我会在以后的工作岗位用心把握每一次机会,用心学习提高自己的各方面的知识。
最后,在百忙之中对论文进行评审工作的老师们表示诚挚的谢意,各位老师你们辛苦了。
范文五:计算机二级EXCELL所有公式!!
三科成绩是否均超过平均 =IF(AND(C2>AVERAGE($C$2:$C$39),D2>K10AVERAGE($D$2:$D$39),E2>AVERAGE($E$2:$E$39)),TRUE,FALSE) 数学分数位于 80到 100分的人数:=COUNTIF(Sheet1!$D$2:$D$39,
单价 =VLOOKUP(A11,$F$2:$G$5,2,FALSE)
折扣 =IF(B11>=$A$6,$B$6,IF(B11>=$A$5,$B$5,IF(B11>=$A$4,$B$4,$B$3)))
总采购量 =SUMIF(A$11:A$43,I12,B$11:B$43)
出版社名称为“高等教育出版社”的书的种类数:=COUNTIF(D2:D51,
是否闰年 =IF(OR(MOD(A2,400)=0,AND(MOD(A2,4)=0,MOD(A2,100)<>0)),
年 龄 =YEAR(NOW())-YEAR(C2)
升级后号码 =REPLACE(F2,1,4,
是否 >=40男性 =IF(D2>=40,IF(B2=
男性用户数量:=COUNTIF(Sheet1!B2:B37,
商标为上海,瓦数小于 100的白炽灯的平均单价:=DAVERAGE(A1:H17,E1,J2:L3)
产品为白炽灯,其瓦数大于等于 80且小于等于 100的数量:=DSUM(A1:H17,G1,J7:L8)
吸烟部门数:=COUNTIF(B2:E11,
学位 =IF(G3=
笔试成绩比例分 =(I3:I18/3)*60%
面试成绩比例分 =K3:K18*40%
升级员工代码 =REPLACE(B2,3,0,
是否评选高级工程师 IF(I2=
男性员工人数:=COUNTIF(D2:D65,
单价 =HLOOKUP(B9,A$2:C$3,2,FALSE)
应付金额 =IF(HOUR(F9)=0,1,IF(MINUTE(F9)>15,HOUR(F9)+1,HOUR(F9)))*C9
相差温度值 =ABS(B2:B16-C2:C16)
“语文”和“数学”成绩都大于或等于 85的学生人数:=DCOUNTA(A2:K24,B2,M2:N3)
“体育”成绩大于或等于 90的“女生”姓名:=DGET(A2:K24,C2,M7:N8)
“体育”成绩中男生的平均分:=DAVERAGE(A2:K24,I2,M12:M13)
“体育”成绩中男生的最高分:=DMAX(A2:K24,I2,M12:M13)
总销售额 =SUMIF($K$3:$K$44,N3,$L$3:$L$44)
级别 =MID(A3,8,1)
全体 1级考生的考试平均分 : =SUMIF(C3:C57,
10年以后得到的金额:=FV(B3,B5,B4,B2)
预计投资金额:=PV(E3,E4,E2)
预计报销总时间 =INT((F4-E4)/30)
护理天数 =INT(G3-D3)
中级护理天数 >30天的女性人数:=DCOUNTA(A2:I30,A2,K8:M9)
护理级别为高级护理的费用总和:=DSUM(A2:I30,I2,K17:K18)
订书种类数 =4-COUNTBLANK(D3:G3)
结果 1=IF(OR(AND(D3=
按年偿还贷款金额(年末) :=PMT(B4,B3,B2)
第 9个月的贷款利息金额:=IPMT(B4/12,9,B3*12,B2)
出生日期 =CONCATENATE(MID(E3,7,4),
每天折旧值:=SLN(B2,B3,B4*365)
每月折旧值:=SLN(B2,B3,B4*12)
每年折旧值:=SLN(B2,B3,B4)
年龄 =YEAR(NOW())-MID(G3,7,4)
返回结果 =EXACT(L12,M12)
优等生 =IF(AND(C2>AVERAGE(C$2:C$39),D2>AVERAGE(D$2:D$39),E2>AVERAGE(E$2:E$39)),TRUE,FALSE)
统计零件的合格率:=COUNTIF(E3:E50,
起始位置 =FIND(J9,I9)