物流信息系统实验报告
- 格式：docx
- 大小：54.79 KB
- 文档页数：19
下载文档原格式
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
启动VB，在窗体上加入DATA控件data1，文本框控件text1，保存文件和工程到用户目录下。
设置DATA控件的databasename属性为“仓储管理信息系统97”，设置DATA控件的Recordsource属性为货物表。设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。
2车辆调度安排：随时掌握司机以及车辆的动态，对车辆进行合理的安排，截图如下：
3车辆资料设置：将车辆以及司机的资料电子化，方便、快捷的对车辆信息进行及时的更新，来对车辆的信息做到进一步的完善，截图如下：
4密码修改：对密码进行简单的修改工作，截图如下：
5货物托运管理：进行货物托运的各项内容设置，比如对托运的货物进行增减，承运单位的各种信息，以及收货单位的各种信息，截图如下：
Dim a As Single
Private Sub Command1_Click()
a = Int(Rnd * 90) + 10
End Sub
Private Sub Command2_Click()
Dim b As Single
Dim c As Single
c = a
b =
If c < b Then MsgBox ("您猜的数字大了，加油加油")
启动VB,通过菜单 工程—部件—控件添加控件Microsoft ADO DATA CONTROL和Microsoft DATAgrid CONTROL。通过工具箱加两个控件到窗体上。
设置ADODC的属性，生成—提供程序—Microsoft JETOLE DB；连接—WLGL—测试连接成功；记录源—命令类型：2—表名称：货物表。设置datagrid控件属性datasource为ADODC1.
3 使用钢材行业物流管理软件，获知其主要功能有：
1审核报损出库单：对报损物品进行备注与审核，截图如下：
2查询存款单，截图如下：
一、实验名称
物流信息技术上机
二、时间
2013年9月18日
三、地点
交通与物流工程实验中心，机房（6207、6205、6103室）
四、指导教师
刘建磊
五、实验目的
熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程；掌握基本语句的使用；掌握表达式的正确书写方法及函数、运算符的正确使用；掌握逻辑表达式及关系表达式的正确书写形式，掌握IF语句单行和块书写格式及其正确使用。
运行程序，查看结果。修改上述文本框控件的datafield属性，查看结果。添加其他文本框控件，设置属性，显示更多的货物表内容。
显示多个货物表信息的界面截屏如下：
图10货物出库查询
2、使用ADODC控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。复制到用户目录下。
截图如下：
写入实现上述内容的一段代码:
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
a = "123"
b = "456"
If= a And= b Then
MsgBox ("欢迎使用该系统")
Else
MsgBox ("密码错误，请重新输入")
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1编一程序，程序运行的初始界面如图所示，当用户在文本框中输入姓名，例如输入“张三”，单击“确定”按钮，则程序的运行情况如图1-2所示，如果单击“结束”按钮，即结束程序运行。
源代码：
Private Sub Command1_Click()
= False
= ""
End Sub
Private Sub Command2_Click()
End
End Sub
2设计一个猜数字游戏软件，点击出题按钮，产生一个10到99的随机数，然后在文本框中由用户输入数字，如果结果不对，应提示是大了，还是小了，否则提示正确。运行界面如图3-1所示。
程序源代码为：
Randomize
For I = 1 To 5
IntSumH = 0
Print "|";
For J = 1 To 5
IntSj(I, J) = Int(Rnd() * 51 + 10)
IntSumH = IntSumH + IntSj(I, J)
Print IntSj(I, J);
Next J
Print "|";
End If
= ""
= ""
End Sub
一、实验名称
物流信息技术上机
二、时间
2013年10月12日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实ห้องสมุดไป่ตู้目的
掌握For语句的使用,掌握Do…Loop{While|Until}两种形式的使用。掌握如何控制循环条件，防止死循环或不循环。熟练掌握循环条件设置及循环的控制方法。掌握数组的声明、数组元素的引用,掌握静态数组和动态数组的使用差别,应用数组解决与数组有关的常用问题。
If c > b Then MsgBox ("您猜的数字小了，加油加油")
If c = b Then MsgBox ("您猜对了，恭喜恭喜")
= ""
End Sub
Private Sub Command3_Click()
End
End Sub
3 设计一个登陆界面，包含用户名、密码及文本框，确定按钮，退出按钮，并编写代码实现，用户名和密码正确时弹出对话框，提示“欢迎使用该系统”，否则提示“用户名和密码错误，请重新输入”
运行程序，得到操作数据库的界面设计如下：
图12客户管理表
Print IntSumH
Next I
For I = 1 To 5
Print "－－";
Next I
Print
Print " ";
For I = 1 To 5
Print IntSj(I, I);
Next I
Print
Print " ";
For I = 1 To 5
Print IntSj(6 - I, I);
For i = 100 To 999
If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub
2、设计一个程序，将用户输入的10个数字进行倒置。
截图如下：
程序源代码为：
Private Sub Form_click()
七、实验内容与实验步骤
1ACCESS数据库软件的主要功能有：
（1）新建数据库，截图如下：
图1 供应商表设计视图
图2 货物表设计视图
图3 货物出库表设计视图
图4 货物入库表设计视图
图5 客户表设计视图
图6 运货商设计视图
图7 货物表数据视图
图8 货物出库表数据视图
图9 货物入库表数据视图
一、实验名称
数据库操作上机
Next I
End Sub
一、实验名称
数据库操作上机
二、时间
2013年10月16日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
理解关系数据库的基本概念，掌握Access数据管理系统的基本操作。练习建立数据表，熟悉各数据类型的内容。
六、实验用仪器设备
计算机、ACCESS软件
除以上功能外，该物流管理系统软件还具有货物验收管理、客户资料设置、司机资料设置等。
使用物流物流管理系统软件，获知其主要功能有：
1物资入库单填写：主要记录物资的编号、数量、名称等项目，截图如下：
2物资出库单填写：主要内容和入库单的大体相同，截图如下：
3用户管理：通过密码设置来进行用户的识别与管理，截图如下：
2）在每行结尾输出各行元素之和。
3）在每列的下面输出主对角线上的元素。
截图如下：
程序源代码为：
Private Sub Form_click()
Dim I As Integer, J As Integer
Dim IntSumH As Integer
Dim IntSj(1 To 5, 1 To 5) As Integer
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1、编一程序，显示出所有的水仙花数。所谓水仙花数是指：一个三位数的各位数字立方和等于该数字本身。如：153= ，因此153是一个水仙花数。
截图如下：
程序源代码为
Private Sub Form_click()
Dim i As Integer
二、时间
2013年10月30日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
通过在VB和ACCESS的交互操作，练习高级语言操作数据库的多种方法，重点掌握使用DATA控件、ADODC控件和DATAGRID控件、数据窗体设计器三种方法连接数据库，并了解使用ADO对象编写代码连接数据的方法。
启动VB,通过菜单 外接程序—可视化数据管理器，在visdata界面上文件--打开数据库—Microsoft ACCESS-“仓储管理信息系统97”,实用程序--数据窗体设计器—窗体名称:huowu—记录源：货物表—添加使用的多个字段到右侧—生成窗体—关闭。
对自动生成的窗体，重新排列位置、设置字体大小，颜色，控件长度等，调整界面美观大方，不留空白，不显拥挤。
运行程序，显示货物表全部内容的界面如下：
图11物资查询
3、使用数据窗体设计器操作数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统97”，复制到用户目录下。
物流信息系统实验报告
实 验 报 告书
课程名称：物流信息系统
学生姓名：学 号：
所在班级：所在系（部）：物流工程系
指导教师：
实验学期：2013~2014学年第一学期
山东交通学院交通与物流工程
一、实验名称
物流信息系统认识上机
二、时间
2013年9月14日
三、地点
交通与物流工程实验中心，机房（6207、6205、6103室）
六、实验用仪器设备
计算机、ACCESS软件、VisualBasic软件
七、实验内容与实验步骤
1、使用DATA控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统-97”，复制到用户目录下。
Dim s As String
s = InputBox("请输入要倒置的数字", "测试")
If s <> "" Then
s = StrReverse(s)
MsgBox s
End If
End Sub
3、设计一个程序，定义一个5×5的二维数组，随机存放10-60之间的整数，输出内容如下：
1）按矩阵形式输出所有数组元素。
四、指导教师
刘建磊
五、实验目的
通过一般的物流信息系统软件的实际操作，认识这类软件的常见主要功能，了解物流过程中的库存管理、运输管理、配送管理流程，学会这类软件的基本操作。
六、实验用仪器设备
计算机、相关物流信息系统软件
七、实验内容与实验步骤
1使用物流管理系统软件，获知其主要功能有：
1部门资料设置：对部门资料进行增加、删除、修改、查询等操作，截图如下：
设置DATA控件的databasename属性为“仓储管理信息系统97”，设置DATA控件的Recordsource属性为货物表。设置文本框控件的datasource属性为data1,设置文本框控件的datafield属性为货物名称。
2车辆调度安排：随时掌握司机以及车辆的动态，对车辆进行合理的安排，截图如下：
3车辆资料设置：将车辆以及司机的资料电子化，方便、快捷的对车辆信息进行及时的更新，来对车辆的信息做到进一步的完善，截图如下：
4密码修改：对密码进行简单的修改工作，截图如下：
5货物托运管理：进行货物托运的各项内容设置，比如对托运的货物进行增减，承运单位的各种信息，以及收货单位的各种信息，截图如下：
Dim a As Single
Private Sub Command1_Click()
a = Int(Rnd * 90) + 10
End Sub
Private Sub Command2_Click()
Dim b As Single
Dim c As Single
c = a
b =
If c < b Then MsgBox ("您猜的数字大了，加油加油")
启动VB,通过菜单 工程—部件—控件添加控件Microsoft ADO DATA CONTROL和Microsoft DATAgrid CONTROL。通过工具箱加两个控件到窗体上。
设置ADODC的属性，生成—提供程序—Microsoft JETOLE DB；连接—WLGL—测试连接成功；记录源—命令类型：2—表名称：货物表。设置datagrid控件属性datasource为ADODC1.
3 使用钢材行业物流管理软件，获知其主要功能有：
1审核报损出库单：对报损物品进行备注与审核，截图如下：
2查询存款单，截图如下：
一、实验名称
物流信息技术上机
二、时间
2013年9月18日
三、地点
交通与物流工程实验中心，机房（6207、6205、6103室）
四、指导教师
刘建磊
五、实验目的
熟悉VB的系统环境，了解VB程序的编写、保存和编译的方法过程；掌握基本语句的使用；掌握表达式的正确书写方法及函数、运算符的正确使用；掌握逻辑表达式及关系表达式的正确书写形式，掌握IF语句单行和块书写格式及其正确使用。
运行程序，查看结果。修改上述文本框控件的datafield属性，查看结果。添加其他文本框控件，设置属性，显示更多的货物表内容。
显示多个货物表信息的界面截屏如下：
图10货物出库查询
2、使用ADODC控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。复制到用户目录下。
截图如下：
写入实现上述内容的一段代码:
Dim a As Single
Dim b As Single
Private Sub Command1_Click()
a = "123"
b = "456"
If= a And= b Then
MsgBox ("欢迎使用该系统")
Else
MsgBox ("密码错误，请重新输入")
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1编一程序，程序运行的初始界面如图所示，当用户在文本框中输入姓名，例如输入“张三”，单击“确定”按钮，则程序的运行情况如图1-2所示，如果单击“结束”按钮，即结束程序运行。
源代码：
Private Sub Command1_Click()
= False
= ""
End Sub
Private Sub Command2_Click()
End
End Sub
2设计一个猜数字游戏软件，点击出题按钮，产生一个10到99的随机数，然后在文本框中由用户输入数字，如果结果不对，应提示是大了，还是小了，否则提示正确。运行界面如图3-1所示。
程序源代码为：
Randomize
For I = 1 To 5
IntSumH = 0
Print "|";
For J = 1 To 5
IntSj(I, J) = Int(Rnd() * 51 + 10)
IntSumH = IntSumH + IntSj(I, J)
Print IntSj(I, J);
Next J
Print "|";
End If
= ""
= ""
End Sub
一、实验名称
物流信息技术上机
二、时间
2013年10月12日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实ห้องสมุดไป่ตู้目的
掌握For语句的使用,掌握Do…Loop{While|Until}两种形式的使用。掌握如何控制循环条件，防止死循环或不循环。熟练掌握循环条件设置及循环的控制方法。掌握数组的声明、数组元素的引用,掌握静态数组和动态数组的使用差别,应用数组解决与数组有关的常用问题。
If c > b Then MsgBox ("您猜的数字小了，加油加油")
If c = b Then MsgBox ("您猜对了，恭喜恭喜")
= ""
End Sub
Private Sub Command3_Click()
End
End Sub
3 设计一个登陆界面，包含用户名、密码及文本框，确定按钮，退出按钮，并编写代码实现，用户名和密码正确时弹出对话框，提示“欢迎使用该系统”，否则提示“用户名和密码错误，请重新输入”
运行程序，得到操作数据库的界面设计如下：
图12客户管理表
Print IntSumH
Next I
For I = 1 To 5
Print "－－";
Next I
Print " ";
For I = 1 To 5
Print IntSj(I, I);
Next I
Print " ";
For I = 1 To 5
Print IntSj(6 - I, I);
For i = 100 To 999
If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub
2、设计一个程序，将用户输入的10个数字进行倒置。
截图如下：
程序源代码为：
Private Sub Form_click()
七、实验内容与实验步骤
1ACCESS数据库软件的主要功能有：
（1）新建数据库，截图如下：
图1 供应商表设计视图
图2 货物表设计视图
图3 货物出库表设计视图
图4 货物入库表设计视图
图5 客户表设计视图
图6 运货商设计视图
图7 货物表数据视图
图8 货物出库表数据视图
图9 货物入库表数据视图
一、实验名称
数据库操作上机
Next I
End Sub
一、实验名称
数据库操作上机
二、时间
2013年10月16日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
理解关系数据库的基本概念，掌握Access数据管理系统的基本操作。练习建立数据表，熟悉各数据类型的内容。
六、实验用仪器设备
计算机、ACCESS软件
除以上功能外，该物流管理系统软件还具有货物验收管理、客户资料设置、司机资料设置等。
使用物流物流管理系统软件，获知其主要功能有：
1物资入库单填写：主要记录物资的编号、数量、名称等项目，截图如下：
2物资出库单填写：主要内容和入库单的大体相同，截图如下：
3用户管理：通过密码设置来进行用户的识别与管理，截图如下：
2）在每行结尾输出各行元素之和。
3）在每列的下面输出主对角线上的元素。
截图如下：
程序源代码为：
Private Sub Form_click()
Dim I As Integer, J As Integer
Dim IntSumH As Integer
Dim IntSj(1 To 5, 1 To 5) As Integer
六、实验用仪器设备
计算机、VisualBasic软件
七、实验内容与实验步骤
1、编一程序，显示出所有的水仙花数。所谓水仙花数是指：一个三位数的各位数字立方和等于该数字本身。如：153= ，因此153是一个水仙花数。
截图如下：
程序源代码为
Private Sub Form_click()
Dim i As Integer
二、时间
2013年10月30日
三、地点
交通与物流工程实验中心，机房（6207、6205室）
四、指导教师
张良智
五、实验目的
通过在VB和ACCESS的交互操作，练习高级语言操作数据库的多种方法，重点掌握使用DATA控件、ADODC控件和DATAGRID控件、数据窗体设计器三种方法连接数据库，并了解使用ADO对象编写代码连接数据的方法。
启动VB,通过菜单 外接程序—可视化数据管理器，在visdata界面上文件--打开数据库—Microsoft ACCESS-“仓储管理信息系统97”,实用程序--数据窗体设计器—窗体名称:huowu—记录源：货物表—添加使用的多个字段到右侧—生成窗体—关闭。
对自动生成的窗体，重新排列位置、设置字体大小，颜色，控件长度等，调整界面美观大方，不留空白，不显拥挤。
运行程序，显示货物表全部内容的界面如下：
图11物资查询
3、使用数据窗体设计器操作数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统97”，复制到用户目录下。
物流信息系统实验报告
实 验 报 告书
课程名称：物流信息系统
学生姓名：学 号：
所在班级：所在系（部）：物流工程系
指导教师：
实验学期：2013~2014学年第一学期
山东交通学院交通与物流工程
一、实验名称
物流信息系统认识上机
二、时间
2013年9月14日
三、地点
交通与物流工程实验中心，机房（6207、6205、6103室）
六、实验用仪器设备
计算机、ACCESS软件、VisualBasic软件
七、实验内容与实验步骤
1、使用DATA控件连接数据库
在硬盘的用户盘上建立一个用户目录（如E:\WORK），用于保存所有实验文件。启动ACCESS，找到数据库“仓储管理信息系统”,确认有货物表，并已经录入了多条数据。将“仓储管理信息系统”数据库打开，转化97格式的数据库，取名“仓储管理信息系统-97”，复制到用户目录下。
Dim s As String
s = InputBox("请输入要倒置的数字", "测试")
If s <> "" Then
s = StrReverse(s)
MsgBox s
End If
End Sub
3、设计一个程序，定义一个5×5的二维数组，随机存放10-60之间的整数，输出内容如下：
1）按矩阵形式输出所有数组元素。
四、指导教师
刘建磊
五、实验目的
通过一般的物流信息系统软件的实际操作，认识这类软件的常见主要功能，了解物流过程中的库存管理、运输管理、配送管理流程，学会这类软件的基本操作。
六、实验用仪器设备
计算机、相关物流信息系统软件
七、实验内容与实验步骤
1使用物流管理系统软件，获知其主要功能有：
1部门资料设置：对部门资料进行增加、删除、修改、查询等操作，截图如下：