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()
Data1.Recordset.AddNew
EndSub
PrivateSubcmdDelete_Click()
'假如删除记录集的最后一条记录
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
EndSub
PrivateSubcmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
EndSub
PrivateSubcmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark=Data1.Recordset.LastModified
EndSub
PrivateSubcmdClose_Click()
UnloadMe
Fo