如果你平时有许多同学和朋友的信息，试试在计算机上编写一个我这样的通讯录。非常方便的哟。 先新建一个工程，在“工具箱->右键->部件”添加“Microsoft windows common control 60”，然后在窗体上添加五个标签，“标题”分别为 “姓名、电话、Oicq、E-Mail、地址”；添加一个文本框（text1）, 然后[复制/粘贴4次]使其成为控件数组；添加一个Listview控件(Listview1),在其属性框中，添加五个“列首”，“文本”值分别为“姓名、电话、Oicq、E-Mail、地址”，“查看属性”为 “3-lvwReport”, 选中“整行选择”，取消“隐藏选择”；添加两个按钮，其标题属性分别为“添加”、“删除”。添加如下代码：

Option Explicit

Dim fileName As String

Private Sub Command1_Click()

’将文本框中的信息添加到列表框中

Dim i As Integer

With ListView1ListItemsAdd()

Text = Text1(0)

For i = 1 To 4

SubItems(i) = Text1(i)

Next i

End With

End Sub

Private Sub Command2_Click()

’删除列表框中信息

If ListView1ListItemsCount > 0 Then

If MsgBox("真的要删除吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then

ListView1ListItemsRemove ListView1SelectedItemIndex

End If

End If

End Sub

Private Sub Form_Load()

Dim tpStr As String, i As Integer

fileName = AppPath & "＼datatxt"

If Dir(fileName) <> "" Then

’加载数据

Open fileName For Input As #1

Do While Not EOF(1)

With ListView1ListItemsAdd()

For i = 0 To 4

Line Input #1, tpStr

If i = 0 Then

Text = tpStr

Else

SubItems(i) = tpStr

End If

Next i

End With

Loop

Close #1

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer

Dim tpList As ListItem

’保存数据

Open fileName For Output As #1

For Each tpList In ListView1ListItems

Print #1, tpListText

For i = 1 To 4

Print #1, tpListSubItems(i)

Next i

Next tpList

Close #1

End Sub

Dim Rs As New Recordset

ConnConnectionString = "DBQ=" & VBAppPath & "\数据库mdb" & ";DRIVER={Microsoft Access Driver (mdb)};"

ConnOpen

LogonPasss = LogonPassText

Set Rs = ConnExecute("Select UserID From UserAccounts Where MasterRight>0 And Accounts='" & Replace(UserNameText, "'", "''") & "' And LogonPass='" & LogonPassText & "'")

If Not RsEOF Then

RsClose: Set Rs = Nothing

ConnClose: Set Conn = Nothing

Unload Me

Form11Show

Else

MsgBox "对不起,您的用户名密码不正确", vbCritical, "错误!"

RsClose: Set Rs = Nothing

ConnClose: Set Conn = Nothing

End If

vb不是系统软件，而是应用软件。因为应用软件是运行在操作系统之上的。比如说：WINDOWS系统就是系统软件，是底层的、必须要安装的软件。如果你的电脑上不安装WINDOWS操作系统，那么其他的各种应用软件（VB、VC、MSOFFICE等等）都无法运行和使用。VisualBasic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。

库存管理系统 --------------摘要--------------

仓库管理是本世纪中期发展起来的一门新兴学科。它最早产生于二战时期的美国，五十年代中期，仓库概念传人日本，并得到快速发展。时至今日，仓库管理已成为西方企业管理中不可或缺的一部分，在许多国家得到了广泛的研究与应用。总的说来，仓库管理就是通过采购、仓储、综合、出库、配送等活动，解决物资供需之间存在的时间、空间、数量、品种价格等方面的矛盾，以此衔接社会生产的各环节，从而确保生产的顺利进行。实现仓库管理现代化的根本途径是信息化、系统化

MCIROSPFT公司的 VB 60开发工具,有各种各种面向对象的控件,。我们将在VB 60中使用ADO控件连接Access数据库，将存在数据库的信息通过界面显示出来，并进行修改，查询等操作。关键字：控件、窗体、表。

-------------前言--------------

仓储综合并不是新的概念，而仓库的概念就相对新的多，几乎成为最时髦的概念之一。全国各地都在筹建仓库中心，巨大的产业格局正在形成，第三方仓库方面的讨论，社会分工理论又一次支持我们细分新的产业。

在这里我们所要理解的是仓库所产生背景，仓库原本是由企业自己管理的问题，当企业规模或影响足够大时，才产生出对第三方仓库的需求，因此分析生产企业的仓库，能让我们更清楚理解在处理仓库时那些是需要关注的问题，对第三仓库的要求到底是什么。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对仓库进行管理,具有着手工管理所无法比拟的优点例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高商场货物管理的效率,也是科学化、正规化管理的重要条件。

因此，开发这样一套管理软件成为很有必要的事情,下面我们谈谈其开发过程和所涉及到的问题及解决方法。

第一章1．1 企业仓库的基本观念

储存与综合问题由来已久，在人们只是分段来考虑这些问题时，所观察到的是孤立的仓库管理和综合管理。经济全球化的进程和信息技术的运用，使我们开始用更为系统的观念来看待储存与综合问题，从而有了仓库的概念，也有了配送中心的概念。

仓库业由此成为目前最为热门的发展方向之一，在仓库方面的进步业将有助于建立更好的信用体系，为电子商务奠定良好的运行基础。仓库水平的提升将加速经济的运行速度，减少装卸、仓存不仅直接减少生产成本，其效应还回扩散到生产企业、百货商业、以及千家万户的消费者。

在企业内部，降低库存、缩短生产周期也对其仓库管理提出更高要求。生产企业的仓库体系的形成，将使企业能更精细的管理到从材料到生产、从生产到出库各个环节的流动资产状况，帮助企业认识到仓库在企业生产过程中的成本因素。

企业仓库也因为全球经济的形成，向国外投资的增长而变得更加复杂，甚至需要第三方仓库公司合作，才能处理好有关问题。这些会在这段时间的讨论中提到。

■资金流、信息流与仓库的关系

在现代企业管理中，引进了资金流、信息流和仓库管理的概念，所谓“流”就是不孤立地看问题，不把企业运行当成是一个一个独立的部门，要以全局的观念、动态的观念来观察企业的运行。在这种观念的管理之下，企业的运行才具有效率，不致因为某个人的惰性而阻碍决策的完成，企业的执行力也因之得到提升。

资金流所反映的是企业的整体发展状况，也是企业运行的燃烧体系，为企业的运行提供动力和能量。对于资金流的关注，反映出企业是如何管理各个环节的效益产出的，去掉那些无效益的环节，才能防止企业失血，我们知道资金断流甚至为使企业有如失血过多的病人不具备生存的能力。

信息流的观念为企业的决策和执行建立出完整的体系，产生于生产线上、客户反馈和供应商报告中，为企业描述出生存环境的状态。信息流的不畅，会使企业的决策和执行机构瘫痪，而关注信息流，才是保持企业耳聪目明的正确方法。

企业仓库的管理意义，在于消除任何不必要的存储环节，加快生产的运行。我们清楚地知道，库存积压意味着资金流动不畅，就如一个人消化不良一样，要小健康发展几乎没有可能。

那么我们便可清楚：资金流恰如血液、信息流有如感官、而仓库则是消化吸收能量的过程。

■企业仓库的目标与价值

无论从宏观的角度还是微观的角度，加速周转时创造财富最有效的方法和途径，所以才形成了速度制胜的观念，对资金流、信息流和仓库的研究完全有可能发展出速度经济学，来研究企业的运行速度如何成为核心竞争力的一大要素。

在社会分工的仓库领域，仓库的重要目标是消灭库存，把从起运地到目的地之间的所有运行工具都充分利用起来，实现最短送达方案，包括路途最短、时间最短和费用最低的综合目标。在企业内部的仓库体系中，则有帮助企业实现JIT生产，或称即时生产的目标，减少企业的库存成本和费用。

我们可以观察到一个现象，跨国公司在进行配件采购时，往往将需要库存时间的配件交给下游厂家来做，而安排出来的收货时间，正好能满足自己的JIT生产计划，而同时他们在谈判中从来不把库存成本考虑在内。

实际上他们是将库存成本转移了出去，所采用的方法便是建立自己的仓库体系，进行所谓的供应链管理。

■企业仓库的管理范围

在第三方仓库中，货物的综合、装卸、储存是通过向客户提供服务而体现出来的，管理内容比较明确。在企业内部，仓库并不完全交给一个中央管理部门来负责，是多个部门集体协商进行管理的，比较完善的做法也只是有企业的管理部门提出相应的管理流程。

在企业仓库的管理流程中，仓库的界定也有许多困难，比如车间内部的配料仓库、或半成品仓的管理，一般来讲是独立的，并不需要更高部门介入。在企业范围这个大的系统框架下，车间内部的管理并不一定要外露到更高的层次上。

企业仓库可以研究生产车间的这些过程，但更重要的管理点应该放在采购、出库和生产部门之间的物料转移过程。特别是在企业发展到需要跨地区采购、跨地区生产的情况下，其仓库管理就更含有具体的内容。

特别关注到是物品在不同部门之间传送的过程，与第三方仓库所要关注的物权转移将有很大的区别。在第三方仓库中，需要特别注意处理物权转移的相关单证，而企业内的仓库则更多是关注于效率的。1．2 如何开发企业仓库管理系统

我们使用VB做开发语言，Access关系型数据库作为后台。我们将在VB 60中使用ADO控件连接Access数据库，将存在数据库的信息通过界面显示出来，并进行修改，查询等操作。

系统的前期设计

1 应用程序设计结构

1 建立数据库,基本资料就存放在其中

通过Access建立数据库

2 用VB开发出界面连接数据库

使用ADO控件的连接数据库，通过 DATAGRID 和 TEXT显示出来。

3 在应用程序中用查询和统计等手段对数据库的资料进行处理，得到有效的数据，分析管理情况，得出结论和措施，然后就可以通过措施，达到管理提高效率的目的。

2 多用户登陆问题

a 建立模块，Module1

b 在模块中申明变量 Public jibie

c 在数据库建立用户表，存放用户名和密码，然后输入多个用户

d 通过ADO代码连接到数据库。

E 通过SQL语句 判断是否用户数据库有。

F 如果没有则退出。

G 如果有 通过SQL语句判断是否密码正确。

H 如果正确则发送数据库的该用户名到公共变量 jibie = myrs("jibie")

I 通过变量决定各个用户的权限。3 组合查询

实现：将查询的字段也设为变量嵌入到SQL中语句如下：

ss2 = Text2Text

ss3 = Text3Text

ss4 = Text4Text

ss5 = Text5Text

Adodc1RecordSource = "SELECT FROM jiating where " + ss2 + "='" + ss4 + "' and " + ss3 + "='" + ss5 + "'"

Adodc1Refresh可以任意输入字段，任意的进行查询

你需要些系统的核心代码是说需要图书管理系统的核心代码,还是操作系统的核心代码

图书管理系统的核心代码就是你实现管理的代码,,比如查询,添加,删除,这些都是核心代码

如果你是要操作系统核心代码,那么就没法了找不到(多说一句,当年微软泄露了一些操作系统代码,但是只有部分人有)

基于VB的图书管理系统设计

摘要:图书馆信息管理系统是学校中常用的系统，它从图书的入库登记到查询浏览，从读者的管理到图书的

借阅，形成了一个整体自动化管理模式。本文以学校的图书馆为例，系统主要有三个方面的内容：图书管理、图书借

阅和信息查询。论文设计从这三个方面展开，开发了一套完整的图书馆信息管理系统。

关键词:信息管理系统;VB;ACCESS2003;读者;借阅一、引言

当今时代是飞速发展的信息时代。在各行各业中离不开

信息处理，这正是计算机被广泛应用于信息管理系统的环境。

计算机的最大好处在于利用它能够进行信息管理。使用计算

机进行信息控制，不仅提高了工作效率，而且大大提高了其安

全性。

一个现代化的图书馆在正常运营中总是面对大量的读者

信息，书籍信息以及两者相互作用产生的借书信息，还书信

息。面对图书馆数以万计的图书，纷繁复杂的读者信息，频繁

更替的借还书信息，传统的直接方法不但管理出现漏洞，造成

损失。

因此有一个智能化、系统化、信息化的图书管理系统十分

重要的。充分利用计算机的功能实现对读者管理、书籍管理，

借阅管理等自动化控制，将会使图书馆的工作大大减弱。方便

友好的图形界面、简便的操作、完善的数据库管理，将会使得

图书馆系统极大限度的应用于现代化图书管理中。

总的来说，缺乏系统，规范的信息管理手段。尽管有的图

书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，

资源闲置问题比较突出，这就是管理信息系统的开发的基本

环境。

二、图书管理系统设计

（一）图书管理系统总体规划

建立一个图书情报计算机系统，所需要的条件概括起来

是四个字，即“硬，软，库，人”。“硬”是指计算机主机及其他外

围设备；“软”是指计算机系统软件和应用软件，包括操作系统

软件，数据库管理软件和实现图书馆自动化的应用软件；“库”

是指文献，数据库；“人”包括领导，高级系统分析师，系统分析

和设计师，程序设计师，操作员和使用人员。

因此，图书管理系统可以按照用户权限和实现功能的不

同分为两部分：外部学生对数据库的查阅访问和内部管理人

员对图书记录的管理维护。但是，这两部分都调用的是同一数

据库，只不过内部管理人员能实现所有管理功能，而外部学生

访问数据库时，一些功能被屏蔽，只能进行查阅。系统功能图

如1所示。

（二）应用需求分析

1需求描述分析

图书管理系统需要满足来自三方面的需求，这三个方面

分别是图书借阅者、图书馆工作人员和图书馆管理人员。图

书借阅者的需求是查询图书馆所存的图书、个人借阅情况及

个人信息的修改；图书馆工作人员对图书借阅者的借阅及还

书要求进行操作，同时形成借书或还书报表给借阅者查看确

认；图书馆管理人员的功能最为复杂，包括对工作人员、图书

借阅者、图书进行管理和维护，及系统状态的查看、维护并生

成催还图书报表。

事实上，需求分析是数据库开发中最难的任务之一。因

为，第一，系统本身是可变的，用户的需求必须不断调整，使之

与这种变化相适应。第二，用户很难说清某部分工作的功能处

理过程。所以，设计人员必须认识到：在整个需求分析以及系

统设计过程中，用户参与的重要性，通过各种方法展开调查分

析。

2需求分析的步骤

需求分析大致可分为三步来完成，即需求信息的收集、分

析整理和评审通过，这里简要介绍前两步。

（1）需求信息的收集

需求信息的收集又称为系统调查。为了充分地了解用户

可能提出的要求，在调查研究之前，要做好充分的准备工作，

要了解调查的目的、调查的内容和调查的方式。

（2）需求信息的分析整理

要想把收集到的信息（如文件、图表、票据、笔记）转化为

下一阶段设计工作可用的形式信息，必须对需求信息做分析

整理的工作。

三、图书管理系统应用程序设计

（一）用户登录窗体的实现

本窗体是为三种不同的用户（一般用户，工作人员，管理

员）提供选择以进入不同的模块，满足不同用户的需求。在登

陆界面，点击确定进入身份验证窗口，此窗口以确定用户以何

种身份进入，以此确定用户的权限。本人数据库建立了两个用

户，分别为：管理员，密码：1111和张三，密码：198352。选择身

份进入后，将进入该系统的运行界面。

（二）借书窗体的实现

借书窗体的主要功能是方便读者借阅书籍，分为书籍信

息和读者信息，可以依据读者编号和读者姓名实行操作。借书

管理里面添加借书信息和查询借书信息。如添加借书信息，图

书信息管理。可以选择书名，编号，图书类别，作者和出版社点

击确定后，会显示图书的相应信息，如果是你所需要的书籍，

点击借这本书就可以了。

（三）还书窗体的实现

借书窗体的主要功能是方便读者进行还书，可以按照读

者信息还书，也可以按照书籍信息还书，可以按照读者信息，

分别选择读者编号和读者姓名，进行查询。也可以按照书籍信

息，分别选择图书编号和图书名进行查询。

（四）查询窗体的实现

1查询借书信息

该查询可以查询己借图书和未借图书，可以依据读者姓名

进行查询，查询的结果会显示出来。见图2查询借书信息窗

口。2查询读者信息

该查询可以依据读者姓名，读者编号，读者种类进行你所

需要的查询，见图3查询读者信息。

四、总结

本设计为图书管理系统，是以图书馆，用户，管理员等的

实际情况为基础，是数据库系统的开发。把它们转变为有效的

数据库设计，把设计转变为实际的数据库，并且这些数据库带

有功能完备、高效能的应用。

因此本人结合开放式图书馆的要求，对数据库管理系统、

VB应用程序设计，VB数据库技术进行了较深入的学习和应

用，主要完成对图书管理系统的需求分析、功能模块划分、数

据库模式分析，并由此设计了数据库结构和应用程序。系统运

行结果证明，本文所设计的图书管理系统可以满足借阅者、图

书馆管理员的需要。

参考文献:

[1]李光明Visual Basic 60编程实例[M]北京：冶金工业出版社,

2004

[2]刘炳文精通VISUAL BASIC 60入门与提高[M]北京：人民邮电

出版社,2003

[3]MicrosoftVisual Basic 60中文版控制大全[M]北京：电子工业出

版社,2002

[4]Kin WModern Database System[M]New York:ACM Press,1995