Ifc>bThenMsgBox("您猜的数字小了,加油加油")
Ifc=bThenMsgBox("您猜对了,恭喜恭喜")
Text1.Text=""
EndSub
PrivateSubCommand3_Click()
End
EndSub
3设计一个登陆界面,包含用户名、密码及文本框,确定按钮,退出按钮,并编写代码实现,用户名和密码正确时弹出对话框,提示“欢迎使用该系统”,否则提示“用户名和密码错误,请重新输入”
截图如下:
写入实现上述内容的一段代码:
DimaAsSingle
DimbAsSingle
PrivateSubCommand1_Click()
a="123"
b="456"
IfText1.Text=aAndText2.Text=bThen
MsgBox("欢迎使用该系统")
Else
MsgBox("密码错误,请重新输入")
EndIf
Text1.Text=""
Text2.Text=""
EndSub
一、实验名称
物流信息技术上机
二、时间
2013年10月12日
三、地点
交通与物流工程实验中心,机房(6207、6205室)
四、指导教师
张良智
五、实验目的
掌握For语句的使用,掌握Do…Loop{While|Until}两种形式的使用。
掌握如何控制循环条件,防止死循环或不循环。
熟练掌握循环条件设置及循环的控制方法。
掌握数组的声明、数组元素的引用,掌握静态数组和动态数组的使用差别,应用数组解决与数组有关的常用问题。
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1、编一程序,显示出所有的水仙花数。
所谓水仙花数是指:
一个三位数的各位数字立方和等于该数字本身。
如:
153=
,因此153是一个水仙花数。
截图如下:
程序源代码为
PrivateSubForm_click()
DimiAsInteger
Fori=100To999
If(i\100)^3+(i\10Mod10)^3+(iMod10)^3=iThenPrinti
Next
EndSub
2、设计一个程序,将用户输入的10个数字进行倒置。
截图如下:
程序源代码为:
PrivateSubForm_click()
DimsAsString
s=InputBox("请输入要倒置的数字","测试")
Ifs<>""Then
s=StrReverse(s)
MsgBoxs
EndIf
EndSub
3、设计一个程序,定义一个5×5的二维数组,随机存放10-60之间的整数,输出内容如下:
1)按矩阵形式输出所有数组元素。
2)在每行结尾输出各行元素之和。
3)在每列的下面输出主对角线上的元素。
截图如下:
程序源代码为:
PrivateSubForm_click()
DimIAsInteger,JAsInteger
DimIntSumHAsInteger
DimIntSj(1To5,1To5)AsInteger
Randomize
ForI=1To5
IntSumH=0
Print"|";
ForJ=1To5
IntSj(I,J)=Int(Rnd()*51+10)
IntSumH=IntSumH+IntSj(I,J)
PrintIntSj(I,J);
NextJ
Print"|";
PrintIntSumH
NextI
ForI=1To5
Print"--";
NextI
Print
Print"";
ForI=1To5
PrintIntSj(I,I);
NextI
Print
Print"";
ForI=1To5
PrintIntSj(6-I,I);
NextI
EndSub
一、实验名称
数据库操作上机
二、时间
2013年10月16日
三、地点
交通与物流工程实验中心,机房(6207、6205室)
四、指导教师
张良智
五、实验目的
理解关系数据库的基本概念,掌握Access数据管理系统的基本操作。
练习建立数据表,熟悉各数据类型的内容。
六、实验用仪器设备
计算机、ACCESS软件
七、实验内容与实验步骤
1ACCESS数据库软件的主要功能有:
(1)新建数据库,截图如下:
图1供应商表设计视图
图2货物表设计视图
图3货物出库表设计视图
图4货物入库表设计视图
图5客户表设计视图
图6运货商设计视图
图7货物表数据视图
图8货物出库表数据视图
图9货物入库表数据视图
一、实验名称
数据库操作上机
二、时间
2013年10月30日
三、地点
交通与物流工程实验中心,机房(6207、6205室)
四、指导教师
张良智
五、实验目的
通过在VB和ACCESS的交互操作,练习高级语言操作数据库的多种方法,重点掌握使用DATA控件、ADODC控件和DATAGRID控件、数据窗体设计器三种方法连接数据库,并了解使用ADO对象编写代码连接数据的方法。
六、实验用仪器设备
计算机、ACCESS软件、VisualBasic软件
七、实验内容与实验步骤
1、使用DATA控件连接数据库
在硬盘的用户盘上建立一个用户目录(如E:
\WORK),用于保存所有实验文件。
启动ACCESS,找到数据库“仓储管理信息系统”,确认有货物表,并已经录入了多条数据。
将“仓储管理信息系统”数据库打开,转化97格式的数据库,取名“仓储管理信息系统-97”,复制到用户目录下。
启动VB,在窗体上加入DATA控件data1,文本框控件text1,保存文件和工程到用户目录下。
设置DATA控件的databasename属性为“仓储管理信息系统97”,设置DATA控件的Recordsource属性为货物表。
设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。
运行程序,查看结果。
修改上述文本框控件的datafield属性,查看结果。
添加其他文本框控件,设置属性,显示更多的货物表内容。
显示多个货物表信息的界面截屏如下:
图10货物出库查询
2、使用ADODC控件连接数据库
在硬盘的用户盘上建立一个用户目录(如E:
\WORK),用于保存所有实验文件。
启动ACCESS,找到数据库“仓储管理信息系统”,确认有货物表,并已经录入了多条数据。
复制到用户目录下。
启动VB,通过菜单工程—部件—控件添加控件MicrosoftADODATACONTROL6.0和MicrosoftDATAgridCONTROL6.0。
通过工具箱加两个控件到窗体上。
设置ADODC的属性,生成—提供程序—MicrosoftJET4.0OLEDB;连接—WLGL—测试连接成功;记录源—命令类型:
2—表名称:
货物表。
设置datagrid控件属性datasource为ADODC1.
运行程序,显示货物表全部内容的界面如下:
图11物资查询
3、使用数据窗体设计器操作数据库
在硬盘的用户盘上建立一个用户目录(如E:
\WORK),用于保存所有实验文件。
启动ACCESS,找到数据库“仓储管理信息系统”,确认有货物表,并已经录入了多条数据。
将“仓储管理信息系统”数据库打开,转化97格式的数据库,取名“仓储管理信息系统97”,复制到用户目录下。
启动VB,通过菜单外接程序—可视化数据管理器,在visdata界面上文件--打开数据库—MicrosoftACCESS-“仓储管理信息系统97”,实用程序--数据窗体设计器—窗体名称:
huowu—记录源:
货物表—添加使用的多个字段到右侧—生成窗体—关闭。
对自动生成的窗体,重新排列位置、设置字体大小,颜色,控件长度等,调整界面美观大方,不留空白,不显拥挤。
运行程序,得到操作数据库的界面设计如下:
图12客户管理表
一、实验名称
物流信息系统开发上机
二、时间
2013年11月13日
三、地点
交通与物流工程实验中心,机房(6207、6205室)
四、指导教师
张良智
五、实验目的
通过编制系统可行性分析报告了解物流信息系统可行性分析的内容,通过系统业务流程图的绘制,熟悉系统业务过程,学会绘制业务流程图;通过界面设计熟练输入设计、输出设计的方法,掌握基本的界面设计方法。
六、实验用仪器设备
计算机、ACCESS、WORD、VB、DiagramDesigner软件
七、实验内容与实验步骤
1系统可行性分析
(1)方案的可行性
本系统方案是适应现代仓储业高效仓储化作业而设计的,且系统界面友好,系统功能比较简单,任何人都可以很快掌握操作原理并使用,不存在太大难度。
(2)技术的可行性
系统的总体架构将采用三层架构模型,数据库采用微软的Access,其工作稳定,功能强大,资源耗费较少,所以能够充分满足目前的需要。
采用VB语言进行编程。
VB是安全的、稳定的、简单的面向对象的编程语言。
因此,开发本系统在技术上是可行的。
(3)经济的可行性?
由于本系统的开发以课程设计为依托,参与人员的目的以学习为主,投入成本比较小。
本系统比较简单且只在本机使用,暂不考虑网络,因而开发费用小。
同时无纸化办公可以节省资源,减少后期资源浪费。
因此,开发本系统在经济上是可行的。
(4)社会的可行性
在社会生产飞速发展的今天,物流己经成为国民经济的支柱,尤其是仓储管理,信息化是发展物流、提高效率的关键。
仓储管理系统数据逻辑设计规范,系统功能健全,数据标准化,可以满足企业物流仓储业务的实际需要,提高仓储工作的效率。
这些需求成为发展物流的关键因素。
因此,本系统在社会上具有可行性。
2.业务流程图
图13入库作业流程图
图14出库作业流程图
图15盘点作业流程图
3.界面设计截图如下:
图16用户登录界面
图17仓储管理系统主界面
图18客户管理界面
图19供应商查询界面
图20供应商管理界面
一、实验名称
物流信息系统开发上机
二、时间
2013年11月28日
三、地点
交通与物流工程实验中心,机房(6207、6205室)
四、指导教师
张良智
五、实验目的
通过系统分析(含业务流程分析和数据流程分析)、系统设计(含数据库设计、界面设计)、系统实施等环节,让学生全面掌握物流信息系统开发的全部内容,并初步掌握一些关键技术,了解系统开发的整体流程。
六、实验用仪器设备
计算机、ACCESS、WORD、VB、DiagramDesigner软件
七、实验内容与实验步骤
(一)系统分析
采购入库时由仓储部门开出会验收通知单,交相关检验人员进行检验(验收标准由使用部门即生产科给定,在本系统中不进行管理),开出验收单,如果验收合格,则进行移仓,并记入仓库台帐,然后财务根据具体情况进行付款操作,当然付款作业并不包括在本仓储管理系统内,本系统仅仅在此预留与财务系统的接口而已;如果验收不合格,则视具体情况进行处理,根据需要进行退货作业,在此本系统只负责退货单的维护。
领料出库有多种形式,生产领料和其他领料如设备维修领料等的领料作业流程和领料单都相同。
领料出库时,由相关检验人员查可用库存量,如果领料量小于可用库存量则进行发料,从而入仓库台账;如果领料单不小于库存量则重新填写领料单并且填写请购单。
(二)系统设计
1.物理配置方案设计
随着信息技术的飞速发展,各种计算机软、硬件产品竞相投向市场。
多种多样的计算机技术产品为信息系统的建设提供了极大的灵活性,其性价比也是五年前甚至是半年前所无法比拟的,使我们可以根据应用的需要灵活选用不同生产者的性能各异的软、硬件产品。
该系统采用Client/Server、Browser/Server结构,采用了最先进的三层结构设计,使应用层和数据库逻辑分离,进而使核心数据库更安全,升级和扩展可不受原系统的局限。
服务器采用Windows2000Server操作系统,数据库是SQLServer2000,中间层服务器和客户端开发语言为VB6.0。
2.系统设计原则
系统设计遵循的原则:
(1)系统的标准化和规范化,系统的标准化和规范化是信息系统建设基本而又关键的一步,要实现信息通讯与共享,必须规范信息技术标准。
(2)系统的实用性、稳定和可靠性,系统建设要以满足工作的业务需求为首要目标,建设方案以实际可接受能力为尺度,避免盲目追求新技术。
系统中的软硬件及信息资源要满足可靠性设计要求,系统必须可靠地长期安全运行,即系统的设计必须在成本可以接受的条件下,从系统结构、设计方案、设备选型、厂商的技术服务与维护响应能力、备件供应能力等方面考虑,使得系统故障发生的可能性尽可能少,对各种可能出现的紧急情况有应急的工作方案和对策。
(3)系统的安全性。
遵循有关信息安全标准,系统具有很强的安全防卫机制,应提供多方式、多层次、多渠道的安全保密措施,防止各种形式与途径的非法侵入和机密信息泄露;同时要有备份机制,保证客户信息的安全。
(4)系统的灵活性和可扩充性。
计算机技术发展迅速,日新月异,系统的设计要保证软件兼容的情况下,利用最小代价,使网络系统结构平滑过渡到新的网络结构体系,可以灵活扩充。
系统能有较强的应变能力,实现程序与处理数据分离,处理数据的变化不需要修改应用程序软件,如表格、数据结构的定义,既满足上级的要求,又满足用户自己的特殊需要,用户可以灵活定义和变化。
3.网络结构
网络主要由企业内部网和信息发布系统两部分组成。
根据企业客户信息管理系统的需求,在网络系统的设计中,采用目前先进成熟的快速以太网技术,以最优的性能价格比实现整个网络系统的高性能和高可靠性。
这样,客户随时随地都可通过公众网访问本信息系统。
网络设计的目标是:
(1)系统采用星型网络结构,因此单机损坏对整个系统无影响;
(2)采用高容错技术,系统可以不间断的运;(3)星型布线使站点不受限制,在站点增加、减少的情况下,系统不停机;(4)采用实用的客户机/服务器和浏览器/服务器结构;(5)服务器采用易于管理的WindowsNT系统;(6)客户端采用方便实用的Windows98、2000和XP。
4.系统软件
(1)操作系统WindowsNTServer。
该系统为各种组织的计算环境提供了一个完整的方案。
从文件/打印操作,到Intranet和Internet服务,关键任务的应用程序支持,所有的服务被嵌入操作系统。
从基本点着手,WindowsNTServer设计成为最具有集成性,完整性和便捷性的服务器操作系统,并提供了对关键任务应用程序所必备的评测性,可靠性和管理性。
(2)数据库系统SQLServer2000。
SQLServer2000是一个综合的分布式管理框架结构,允许你集中地管理组织机构中所有数据库服务器。
通过增强的基于Windows的管理工具和强大的基于服务器的作业日程安排,你可以直观地控制多个服务器,并且实现分布式环境命令构成的远程操作的自动执行。
考虑到与Internet的集成,SQLServer还提供了高性能的Web页面信息访问机制。
它的新组件WebAssistant能使你通过多种方式利用SQL数据推广你的Web服务,允许在一个私有Intranet网或在世界范围网(Internet)的Web上分发公司数据。
(3)客户端系统软件。
客户端操作系统可采用WindowsNTWorkstation4.0或Windows98中文版。
(三)数据库设计
1.使用DATA控件连接数据库
在硬盘的用户盘上建立一个用户目录(如E:
\WORK),用于保存所有实验文件。
启动ACCESS,找到数据库“仓储管理信息系统”,确认有货物表,并已经录入了多条数据。
将“仓储管理信息系统”数据库打开,转化97格式的数据库,取名“仓储管理信息系统-97”,复制到用户目录下。
启动VB,在窗体上加入DATA控件data1,文本框控件text1,保存文件和工程到用户目录下。
设置DATA控件的databasename属性为“仓储管理信息系统97”,设置DATA控件的Recordsource属性为货物表。
设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。
运行程序,查看结果。
修改上述文本框控件的datafield属性,查看结果。
添加其他文本框控件,设置属性,显示更多的货物表内容。
2.使用ADODC控件连接数据库
在硬盘的用户盘上建立一个用户目录(如E:
\WORK),用于保存所有实验文件。
启动ACCESS,找到数据库“仓储管理信息系统”,确认有货物表,并已经录入了多条数据。
复制到用户目录下。
启动VB,通过菜单工程—部件—控件添加控件MicrosoftADODATACONTROL6.0和MicrosoftDATAgridCONTROL6.0。
通过工具箱加两个控件到窗体上。
设置ADODC的属性,生成—提供程序—MicrosoftJET4.0OLEDB;连接—WLGL—测试连接成功;记录源—命令类型:
2—表名称:
货物表。
设置datagrid控件属性datasource为ADODC1.
3.使用数据窗体设计器操作数据库
在硬盘的用户盘上建立一个用户目录(如E:
\WORK),用于保存所有实验文件。
启动ACCESS,找到数据库“仓储管理信息系统”,确认有货物表,并已经录入了多条数据。
将“仓储管理信息系统”数据库打开,转化97格式的数据库,取名“仓储管理信息系统97”,复制到用户目录下。
启动VB,通过菜单外接程序—可视化数据管理器,在visdata界面上文件--打开数据库—MicrosoftACCESS-“仓储管理信息系统97”,实用程序--数据窗体设计器—窗体名称:
huowu—记录源:
货物表—添加使用的多个字段到右侧—生成窗体—关闭。
对自动生成的窗体,重新排列位置、设置字体大小,颜色,控件长度等,调整界面美观大方,不留空白,不显拥挤。
(四)系统实现
(1)实现对供应商管理的代码
PrivateSubcmdAdd_Click()
EndSub
PrivateSubcmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
EndSub
PrivateSubcmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
EndSub
PrivateSubcmdUpdate_Click()
Data1.UpdateRecord
EndSub
PrivateSubcmdClose_Click()
UnloadMe
Form2.Show
EndSub
PrivateSubData1_Error(DataErrAsInteger,ResponseAsInteger)
'这就是放置错误处理代码的地方
'如果想忽略错误,注释掉下一行代码
'如果想捕捉错误,在这里添加错误处理代码
MsgBox"数据错误事件命中错误:
"&Error$(DataErr)
Response=0'忽略错误
EndSub
PrivateSubData1_Reposition()
Screen.MousePo