物流信息系统课程设计报告

物流信息系统课程设计报告

课程设计名称： “好粥道”销售管理系统的开发

班级：物流111

南京工程学院

2014 年 01 月

前言... 3

一、系统开发过程... 3

（一）订单处理模块的开发... 4

（二）发货处理模块的开发... 4

（三）补充库存模块的开发... 5

（四）销售模块的开发... 5

二、系统开发源代码... 6

（一）登陆界面代码... 6

（二）主界面代码... 8

（三）订单处理... 11

（四）发货处理... 13

（五）补充库存... 15

（六）销售查询... 18

三、系统开发结果... 22

四、收获和体会... 23

（一）季文婷... 23

（二）王帆... 24

（三）耿汉东... 26

（四）耿久春... 27

（五）黄佳舟... 28

（六）何飞... 29

（七）小组体会... 30

附每个小组成员工作业绩... 32

前言：

“好粥道”管理信息系统在经过系统规划，系统分析，系统设计等一系列工作之后，最终确定了系统的总体结构，运行模式，数据代码等各方面的内容。由于将整个系统开发出来较为复杂，所以本次开发过程中仅对信息系统中的销售模块进行详细开发与设计。销售模块中共有订单处理、发货处理、补充库存和销售查询四个子模块，涉及店铺销售活动的多个方面，通过信息化的处理方式，希望能够提高“好粥道”在销售方面的效率，及时补充库存，及时查询当天的销售情况，从而实现“好粥道”整体运营结构的优化。

一、系统开发过程

$说明: C:\Users\Administrator\AppData\Roaming\Tencent\Users\2789869941\QQ\WinTemp\RichOle\[RVH%(WTTZ6@C{ZCDRDQ03M.jpg$ “好粥道”销售系统模块中包含四个子模块，分别为订单处理、发货处理、补充库存和销售查询。在开发之初，我们首先进行系统登陆及采购主模块的界面和程序设计。系统登陆主要包含用户名和密码验证两个部分，进入系统后会看到主界面，包括订单处理、发货处理、补充库存、销售查询、退出系统和注销六个按钮，前四个按钮点击后可进入各自的操作界面，点击“退出系统”，即可立即结束系统运行。点击注销，即可退出当时的登入。

图1 “好粥道”销售管理系统登陆界面

图2 “好粥道”销售管理系统主界面

（一）订单处理模块的开发

“好粥道”销售管理信息系统订单处理界面共包括订单信息、订单号、成品存量表三个部分。在订单处理模块中首先将数据库中的商品信息代码导入到成品存量表部分，然后通过索引，将选定的商品的信息分别导入到相对应的Text文本框中，从而减少输入量。在商品信息部分里选好商品之后，在订单信息界面点击消费者订购的商品，点击确定按钮将输入订单数量。点击确定按钮生成订单号和具体订单。点击“总计”按钮可以直观的看到本次订单的具体数额。

图3 订单处理界面

（二）发货处理模块的开发

发货处理模块包括待发货订单号，商品编号，商品代码，商品名称，发货数量五个部分。点击待发货订单号的下拉菜单，选中其中的一个订单，则系统自动显示商品编号，商品代码，商品名称和发货数量，最后点击“发货”按钮，则在发货登记表中可以看到发货记录。通过此模块的合理运行，大大提高了发货处理的效率。

图4 发货处理界面

（三）补充库存模块的开发

补充库存模块包括商品编号，商品名称，商品代码，补充数量，补货登记表，成品存量表，缺货登记表7个部分。在商品编号一栏中，直接输入要补货的商品的标号，然后按“Enter”按钮，系统直接显示出商品名称，商品代码，经目测核实无误后，输入补充数量，然后点击“补充库存按钮”，显示补货成功。我们可以直观的从补货登记表中查到补货记录，在成品存量表中可以直观的看到补货后各个商品的库存量，在缺货登记表中，我们可以及时的发现不足的商品，做出及时的补货，从而提高补货模块运行的效率。

图5 补充库存界面

（四）销售模块的开发

销售查询模块主要是销售记录的查询，它包括按日期查询，按产品查询，按订单号查询三个部分。如果按日期查询，则在日期中选择一个要查询业务的日期，然后点击“日期查询”按钮。如果按产品查询，则在产品信息中选择一个要查询的产品，然后点击“产品查询”按钮。如果按订单号查询，则在订单号中选择一个要查询的订单号，然后点击“订单查询”按钮。最后的结果都在右边的方框中显示出来。

图6 按日期查询界面

图7 按产品查询

图8 按订单号查询

二、系统开发源代码

（一）登陆界面代码

Private Sub Form_Load() '设置窗体大小

Label2.Top = 2000

Label2.Height = 500

Label2.Width = 2000

Label2.Left = 3000

Label3.Top = 20## + Label2.Height + 500

Label3.Height = 500

Label3.Width = 2000

Label3.Left = 3000

Combo1.Top = Label2.Top

Combo1.Width = 2500

Text2.Top = Label3.Top

Text2.Height = Label3.Height

Text2.Width = Combo1.Width

Combo1.Left = 5500

Text2.Left = Combo1.Left

Command1.Left = Label2.Left

Command2.Left = Combo1.Left + (Combo1.Width - Command1.Width)

Command1.Default = True '按回车键登陆

Label4.Caption = Date

Label4.Width = 1800

Dim mpath$, mlink$ '加载登陆信息表

mpath = App.Path

If Right(mpath, 1) <> "\" Then mpath = mpath + "\"

mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"

mlink = mlink + "data source=" + mpath + "物流信息系统.mdb"

Adodc1.ConnectionString = mlink

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "登陆表"

Adodc1.Refresh

Adodc1.Recordset.MoveFirst

k = 0

Do While Not Adodc1.Recordset.EOF

k = k + 1

ReDim Preserve user(k)

user(k).name = Adodc1.Recordset.Fields("用户名")

user(k).kw = Adodc1.Recordset.Fields("密码")

Adodc1.Recordset.MoveNext

Loop

For i = 1 To UBound(user)

Combo1.AddItem user(i).name

Next i

Adodc1.Visible = False

End Sub

Private Sub Form_Resize() '使窗体大小不可改变

Form1.Height = 7000

Form1.Width = 11500

Form1.Picture = LoadPicture(App.Path + "\操作界面.jpg")

Combo1.SetFocus

End Sub

（二）主界面代码

Private Sub Cancellation_Click()

Unload Me

Load Form1

Form1.Show

Form1.Text2 = ""

Form1.Text2.SetFocus

End Sub

Private Sub Command1_Click()

Unload Me

Load Form3

Form3.Show

End Sub

Private Sub Command2_Click()

Unload Me

Load Form7

Form7.Show

End Sub

Private Sub Command3_Click()

Unload Me

Load Form5

Form5.Show

End Sub

Private Sub Command4_Click()

Unload Me

Load Form6

Form6.Show

End Sub

Private Sub Command5_Click()

End

End Sub

Private Sub Command6_Click()

Unload Me

Load Form1

Form1.Show

Form1.Text2 = ""

Form1.Text2.SetFocus

End Sub

Private Sub Deliver_Click()

Unload Me

Load Form5

Form5.Show

End Sub

Private Sub exit_Click()

End

End Sub

Private Sub Form_Resize()

Form2.Height = 8000

Form2.Width = 9700

Form2.Picture = LoadPicture(App.Path + "\操作界面.jpg")

Label4.Caption = Date

Label4.Width = 1800

Image1.Picture = LoadPicture(App.Path + "\好粥道.jpg")

End Sub

Private Sub menu_Click()

Unload Me

Load Form3

Form3.Show

End Sub

Private Sub pay_Click()

Unload Me

Load Form4

Form4.Show

End Sub

Private Sub Summary_Click()

Unload Me

Load Form7

Form7.Show

End Sub

Private Sub Supplement_Click()

Unload Me

Load Form6

Form6.Show

End Sub

（三）订单处理

Private Sub Form_Load()

Dim mpath$, mlink$ '连接数据库

k = 0

mpath = App.Path

If Right(mpath, 1) <> "\" Then mpath = mpath + "\"

mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"

mlink = mlink + "data source=" + mpath + "物流信息系统.mdb"

Adodc1.ConnectionString = mlink

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "成品存量表"

Adodc1.Refresh

Adodc2.ConnectionString = mlink

Adodc2.CommandType = adCmdTable

Adodc2.RecordSource = "销售登记表"

Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then

Adodc2.Recordset.MoveLast

total = Adodc2.Recordset.Fields("销售总额")

Else

total = 0

End If

Do While Not Adodc1.Recordset.EOF '读取商品信息，加入组合框

k = k + 1

ReDim Preserve good(k)

good(k).number = Adodc1.Recordset.Fields("商品编号")

good(k).name = Adodc1.Recordset.Fields("商品名称")

good(k).Code = Adodc1.Recordset.Fields("商品代码")

good(k).shul = Adodc1.Recordset.Fields("商品数量")

good(k).jiage = Adodc1.Recordset.Fields("商品价格")

Adodc1.Recordset.MoveNext

Loop

For i = LBound(good) To UBound(good)

com = good(i).number & "/" & good(i).Code & "/" & good(i).name & "/￥" & Str(good(i).jiage) & "/" & Str(good(i).shul)

Combo1.AddItem com

Next i

Adodc2.Visible = False

Command5.Enabled = False

End Sub

Private Sub Form_Resize()

Form3.Height = 10000

Form3.Width = 17000

Form3.Picture = LoadPicture(App.Path + "\操作界面.jpg")

Text1 = ""

Text2 = ""

Label3.Caption = Date

Label3.Width = 1800

Adodc1.Refresh

For i = 0 To 4

DataGrid1.Columns(i).Width = 1000

Next i

DataGrid1.Width = 5500

Adodc1.Width = DataGrid1.Width

End Sub

Private Sub List1_DblClick() '取消订单

j = Val(List1.Text)

List1.RemoveItem List1.ListIndex

If j = UBound(menu) Then

ReDim Preserve menu(j - 1)

Exit Sub

Else

For i = j To UBound(menu) Step -1

menu(j) = menu(j + 1)

Next i

End If

ReDim Preserve menu(UBound(menu) - 1)

End Sub

（四）发货处理

Private Sub Form_Load()

Dim mpath$, mlink$

Dim k As Integer

mpath = App.Path

If Right(mpath, 1) <> "\" Then mpath = mpath + "\"

mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"

mlink = mlink + "data source=" + mpath + "物流信息系统.mdb"

Adodc1.ConnectionString = mlink

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "缺货登记表"

Adodc2.ConnectionString = mlink

Adodc2.CommandType = adCmdTable

Adodc2.RecordSource = "发货登记表"

Adodc3.ConnectionString = mlink

Adodc3.CommandType = adCmdTable

Adodc3.RecordSource = "成品存量表"

Adodc4.ConnectionString = mlink

Adodc4.CommandType = adCmdTable

Adodc4.RecordSource = "销售登记表"

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

Adodc4.Refresh

nome

End Sub

Private Sub Form_Resize()

Form5.Height = 11000

Form5.Width = 17000

Form5.Picture = LoadPicture(App.Path + "\操作界面.jpg")

Label7.Caption = Date

Label7.Width = 1800

Adodc1.Width = 9000

Adodc2.Width = Adodc1.Width

DataGrid1.Width = Adodc1.Width

DataGrid2.Width = Adodc1.Width

Adodc3.Visible = False

Adodc4.Visible = False

For i = 0 To 4

DataGrid1.Columns(i).Width = 1400

Next i

DataGrid1.Width = 7500

Adodc1.Width = DataGrid1.Width

DataGrid2.Columns(0).Width = 1100

For i = 1 To 6

DataGrid2.Columns(i).Width = 1000

Next i

DataGrid2.Width = 7500

Adodc2.Width = DataGrid2.Width

End Sub

（五）补充库存

Private Sub Form_Load()

Dim mpath$, mlink$

mpath = App.Path

If Right(mpath, 1) <> "\" Then mpath = mpath + "\"

mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"

mlink = mlink + "data source=" + mpath + "物流信息系统.mdb"

Adodc1.ConnectionString = mlink

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "成品存量表"

Adodc2.ConnectionString = mlink

Adodc2.CommandType = adCmdTable

Adodc2.RecordSource = "补货登记表"

Adodc3.ConnectionString = mlink

Adodc3.CommandType = adCmdTable

Adodc3.RecordSource = "缺货登记表"

Adodc1.Refresh

Adodc2.Refresh

Adodc3.Refresh

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Adodc1.Refresh

Adodc1.Recordset.Find "商品编号=" & "'" & Val(Text1) & "'"

Text4 = Adodc1.Recordset.Fields("商品名称") '逐个赋值

Text2 = Adodc1.Recordset.Fields("商品代码")

Text3.SetFocus

Else

Exit Sub

End If

End Sub

Private Sub Form_Resize()

Form6.Height = 12000

Form6.Width = 20000

Form6.Picture = LoadPicture(App.Path + "\操作界面.jpg")

Label5.Caption = Date

Label5.Width = 1800

Adodc1.Refresh

Adodc2.Refresh

For i = 0 To 4

DataGrid1.Columns(i).Width = 1000

Next i

DataGrid1.Width = 5875

Adodc1.Width = DataGrid1.Width

For i = 0 To 5

DataGrid2.Columns(i).Width = 1000

Next i

DataGrid2.Width = 6500

Adodc2.Width = DataGrid2.Width

For i = 0 To 4

DataGrid3.Columns(i).Width = 1000

Next i

DataGrid3.Width = 5500

Adodc3.Width = DataGrid3.Width

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Adodc1.Refresh

Adodc1.Recordset.Find "商品代码=" & "'" & UCase(Text2) & "'"

Text1 = Adodc1.Recordset.Fields("商品编号")

Text4 = Adodc1.Recordset.Fields("商品名称")

Text2 = Adodc1.Recordset.Fields("商品代码")

Text3.SetFocus

Else

Exit Sub

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

Command1.SetFocus

End Sub

（六）销售查询

Option Base 1

Dim good() As goods

Dim sale() As sales

Private Sub back_Click()

Unload Me

Load Form2

Form2.Show

End Sub

Private Sub duqu()

Dim bool As Boolean, bool2 As Boolean

k = 0 '读取成品存量信息

m = 0

bool = False

Adodc2.Refresh

Do While Not Adodc2.Recordset.EOF

k = k + 1

ReDim Preserve good(k)

good(k).number = Adodc2.Recordset.Fields("商品编号")

good(k).name = Adodc2.Recordset.Fields("商品名称")

good(k).Code = Adodc2.Recordset.Fields("商品代码")

Adodc2.Recordset.MoveNext

Loop

For i = LBound(good) To UBound(good)

com1 = good(i).number & " / " & good(i).Code & " / " & good(i).name

Combo1.AddItem com1

Next i

Adodc1.Refresh '读取消费记录

Do While Not Adodc1.Recordset.EOF

m = m + 1

ReDim Preserve sale(m)

sale(m).menuNO = Adodc1.Recordset.Fields("订单编号")

sale(m).number = Adodc1.Recordset.Fields("商品编号")

sale(m).name = Adodc1.Recordset.Fields("商品名称")

sale(m).Code = Adodc1.Recordset.Fields("商品代码")

sale(m).riqi = Adodc1.Recordset.Fields("销售日期")

Adodc1.Recordset.MoveNext

bool = True

Loop

If bool Then

For i = LBound(sale) To UBound(sale)

If Combo2.ListCount = 0 Then

Combo2.AddItem sale(i).menuNO

Else

bool2 = True

For j = 0 To Combo2.ListCount - 1

If Combo2.List(j) = sale(i).menuNO Then bool2 = False

Next j

If bool2 Then Combo2.AddItem sale(i).menuNO

End If

Next i

End If

End Sub

Private Sub cancelation_Click()

Unload Me

Load Form1

Form1.Show

Form1.Text2 = ""

Form1.Text2.SetFocus

End Sub

Private Sub Combo1_Click()

Command2.SetFocus

End Sub

Private Sub Combo2_Click()

Command4.SetFocus

End Sub

Private Sub Command1_Click()

Adodc1.Refresh '按日期查询销售记录

x = DTPicker1.Value

If x <> "" Then

Adodc1.Recordset.Filter = "销售日期=" & "'" & x & "'"

End If

End Sub

Private Sub Command2_Click()

Adodc1.Refresh '按产品信息查询销售记录

x = Left(Combo1.Text, 2)

If x <> "" Then

Adodc1.Recordset.Filter = "商品编号=" & "'" & x & "'"

End If

End Sub

Private Sub Command3_Click()

Combo1.Text = ""

Combo2.Text = ""

Adodc1.Refresh

End Sub

Private Sub Command4_Click()

Adodc1.Refresh '按订单号查询销售记录

x = Combo2.Text

If x <> "" Then

Adodc1.Recordset.Filter = "订单编号=" & "'" & x & "'"

End If

End Sub

Private Sub DTPicker1_GotFocus()

Command1.SetFocus

End SubPrivate Sub Form_Load()

Dim mpath$, mlink$ '联系数据库

mpath = App.Path

If Right(mpath, 1) <> "\" Then mpath = mpath + "\"

mlink = "Provider=Microsoft.Jet.OLEDB.4.0;"

mlink = mlink + "data source=" + mpath + "物流信息系统.mdb"

Adodc1.ConnectionString = mlink

Adodc1.CommandType = adCmdTable

Adodc1.RecordSource = "销售登记表"

Adodc1.Refresh

Adodc2.ConnectionString = mlink

Adodc2.CommandType = adCmdTable

Adodc2.RecordSource = "成品存量表"

Adodc2.Refresh

Adodc2.Visible = False

Label4.Caption = Date

Form7.Picture = LoadPicture(App.Path + "\操作界面.jpg")

DTPicker1.Value = Date

duqu

For i = 0 To 9

DataGrid1.Columns(i).Width = 800

Next i

DataGrid1.Width = 12500

Adodc1.Width = DataGrid1.Width

DataGrid1.Columns(0).Width = 1200

DataGrid1.Columns(1).Width = 1200

DataGrid1.Columns(4).Width = 1150

DataGrid1.Columns(2).Width = 800

DataGrid1.Columns(3).Width = 800

DataGrid1.Columns(5).Width = 800

DataGrid1.Columns(6).Width = 800

End Sub

三、系统开发结果

本组为“好粥道”校园粥店开发销售管理信息系统。目的是使“好粥道”在销售过程中能够方便的处理客户的订单，查询订单上的粥库存是否可以供货，同时也可以从系统中统计出哪种粥出售的畅销，便于店铺在进行销售之前可以做到货源充足。

本信息系统开发界面一共有如下按钮：订单处理、发货处理、补充库存、销售查询、注销、退出七个按钮。在界面的左上角有系统功能菜单和注销两个按钮。在系统功能菜单按钮中有订单处理、支付结算、发货处理、补充库存、销售查询几个功能按钮。“好粥道”的财务人员、管理者在登陆系统后，可以点击上述按钮进行操作，下面对每个按钮的功能进行简述。

订单处理：消费者选择好所要购买的粥时，系统中就会记录下这些粥的名字，操作员点击总计按钮就可以计算出粥的总价。如果操作员输入错误，则可以点击重置按钮进行修改。点击销售记录，系统就会记录下订单的信息，点击发货处理后，后台就可以让前台进行发货。

发货处理：发货处理界面有待发货订单号、商品编号、商品代码、商品名称、发货数量、发货、补充库存、注销、返回按钮。在订单处理结束后，订单的信息就会转到发货处理环节，待发货订单号中记录顾客购买商品的订单号，点击一个订单号，则商品编号、商品代码、商品名称、发货数量就会自动跳出相应的数据。核实无误后就可以点击发货。否则点击补充库存进行补货。

在补充库存界面中，有商品编号、商品名称、商品代码、补充定量。操作员只要在前面三个按钮中输入一个，则其他两空的结果也会相应跳出。输入要补货的数量后，点击补充库存按钮就可以进行库存的补充了。点击补货成功，则可以确定补货成功了。补充库存界面中还有补货登记表、成品存量表、缺货登记表三张表格。补充登记表中可以看出所补充的商品的信息。成品存量表中可以看到库存里所有商品的信息，缺货登记表中记录着哪些商品缺货。如果这些商品得到补充了，则缺货存量表中的记录就会删除，同时成品存量表中也会反映商品数量的变动状况。

销售查询：在销售处理界面可以查询销售商品的信息。改功能可以按产品信息查询、查询日期查询和订单号查询。记录就会显示在右侧的表格中。在该模块里，管理员可以查询到具体每一天的销售记录，也可以知道每种商品的具体销量。

将本信息系统应用到“好粥道”校园店中可以精确地统计出每种粥品的销售量，可以避免出现销售短缺或者剩粥的浪费，节约成本。可以及时补充库存，不会出现供不应求的情况。可以做到订单及时处理，销售及时登记，并且依据销售登记表确定下次的商品数量，避免造成不必要的浪费。总之，将信息系统与实际业务结合可以提高业务处理的效率

四、收获和体会

（一）

在这次为期一周的物流信息系统开发设计实验中，我主要负责的是界面设计，运行系统，以及查找错误等工作，以及在制作后期和小组成员一起修改代码使得窗体大小和表格大小适中，美观便于查看。在这短短的一周内，我们遇到了重重困难，在克服种种困难后，我学到了很多书本上没有的知识和自我学习的技能。

在最初的界面设计中，我负责在VB的操作界面上摆几个控件，然后调整这些控件的大小，改正这些控件的名称等简单操作，在代码编写完成后，因为我是整个小组的组长，所以由我来给组员演示系统的运作流程，我按照系统界面的提示和小组开发人员的提示，一部部地运行系统，将完整的过程展现给个个组员看，在系统运行过程中，经常遇到系统报错的结果，我和系统开发人员共同探讨，分析报错的原因，然后说出自己的想法，最终在经过多次尝试后，系统又正常运行了，这期间有收获成功的喜悦，更有在此过程中和同学共同讨论问题，分析问题，成功解决问题的成就感。不过我对系统开发一些核心的步骤还是觉得自己心有余而力不足，虽然我已经学过VB，并且已经获得了全国和江苏省的计算机二级证书，但是在这样的实际操作中，还是显得自己有很多不足，所以我觉得在以后的学习过程中，还是应该要学的扎实，能够活用所学知识，在实际中要有可用之处。

在这次实验中，让我感受最深的还是人多力量大。我们小组一共有六个人，我是组长，在每次进行开发设计时，我们小组都事先召开一个简短的会议，对即将开发的模块，大家给出自己的意见，然后综合出来，制定一个合理可行的方案，然后由系统开发人员进行对系统的开发。人多力量大，想的就比个人会周全的多，在代码设计的时候，由一位主要负责代码的编辑，其余人在旁边给出合理建议，在系统运行报错的时候给出自己的看法和修改建议，不断修改，直到系统正常运行为止。

另外，我很荣幸的成为了我们小组的组长，虽然只是一个小组的组长，但麻雀虽小，五脏俱全。一开始压力还真不小，因为有好多东西，包括知识和软件有些我们根本就没接触过，更别说会使用了，所以小组一起学习使用这些新的软件，在这过程中，我不仅培养了我的领导才能，也培养了我自主协作学习的能力，掌握新技术，学习新知识的能力。看到自己有这样的收获，非常满意。

在这里非常感谢我的组员，在一起学习探讨了一周的时间，虽然很短，但是收获很大，有些东西我们在课堂是不能获得的，只有在类似这样的实践中才会获得。我还要感谢朱老师能给我们这样的一次宝贵的实验机会，让我们接触这么多新的东西，给我们自主学习的机会，提升自己的机会。

实验结束了，在收获成果的喜悦的同时，也为自己的能力的提升感到快乐，在今后的学习中，我要结合实际，将学到的知识最大可能的运用到实际生活中去，这样才能真正的做到学以致用。

（二）

通过这次历时一周的物流系统课程设计中，我们“好粥道”的六个小组成员各自分工合作共同完成此次的设计任务。我的任务贯穿整个开发的始末，由于我对VB不是非常了解，在实际的操作过程中遇到很大的阻碍不知道从何做起，因此我改为对VB的辅助设计、运行以及完善和相关的界面设计，负责我们组每个成员的感想体会以及建议，进行汇总最后辅助开发的主要人员开发设计；在开发人员完成开发后经过调试运行和老师的指导后再次汇总建议对系统进行完善。通过此次学习我学到了很多东西：

订单处理。通过此次的系统开发我明白了在订单处理的这个模块的设计，它包括VB的调用程序，Messagebox窗口的弹出以及列表框List.index的应用，通过调动弹出和整合简化程序，使界面一目了然清晰易于理解。

缺货处理。缺货处理这一模块是我们组系统开发的核心，只有保证缺货通知的准确及时才能做出针对性的补货，提高运作效率保证系统顺利运转。通过学习我了解了在这一模块中的数据库设计主要涉及多个程序之间的联合调用，由库存信息发出缺货通知。

补货处理。在这一模块中，做出补货的措施主要有两个依据：一个是缺货通知，即由库存信息直接发出的补货通知；而是根据售货人员根据粥品种的畅销程度，自己预测而主动进行的提前库存补货。

在这次课程设计中，我们组的项目虽然不是一个大企业只是一个经营早点的店铺，规模不大但物流的各个过程都具备，虽然小但是运作过程也不像表面那么简单，老师的指导和同学之间的交流帮助让我了解了系统的运作全过程。这次课程设计让我受益匪浅，不仅设计出了程序，而且让我对这些知识有了总体的认识，频繁的使用VB的各个控件使我对它们的了解更近一步。在课程设计过程中，我们不断发现错误，不断改正，不断领悟，不断获取。最终的检测调试环节，本身就是在践行“过而能改，善莫大焉”。这次课程设计终于顺利完成了，在设计中遇到了很多问题，最后在老师的指导下，终于游刃而解。在今后学习实践过程中，一定要做到不懈努力，不能遇到问题就想到要退缩而要迎难而上解决问题，只有这样，才收获成功收获喜悦！

这次的课程设计整个过程虽然充满了挑战性但又很充实，也许我们做出的物流信息系统还不是很完善还有很多不足，但我们面对自己的成果依旧很开心。我们的思维不够开阔，没有或很少真正体会过物流的整个运作，对系统的认知有一定的不足，但这不妨碍我们前进的脚步，反而激起了我们不断求知的欲望不断探索丰富我们的知识提升我们的技能。这次课程设计不仅培养了我独立思考、动手操作的能力，在各种其它能力上也都有了提高。更重要的是，我们学会了很多学习的方法，对于我们的将来也有很大的帮助。从理论到实践，不仅可以巩固以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正了解事物的本质，从而提高自己的实际动手能力和独立思考的能力。

最后，团队之间的合作也很重要，团结就是力量，在组成员的帮助下我有疑惑的地方都最终拨的云开见月明，取其所长弥补自身的不足，不断充实自己提高自己的专业素养。在以后的日常生活中我会做到学以致用，将理论和实践相结合，迎难而上努力学习！

（三）

在本次物流信息系统的开发中，在为期一周的课程设计中，虽然其中有很多的困难，但是在开发过程中，克服种种困难也让我学到了很多。我承担的是系统的开发人员，对系统前期设计工作的功能要求，开发符合要求的信息系统。一方面需要对前期工作做好衔接，另一方面要根据老师的建议不断完善自己的程序。这是一项很艰苦的工作，但是确实让我学习到很多道理。

首先，任何事都比想象中困难，任何事情都需要自己亲手去做。看到别人开发的系统，功能齐全，方便又实用。但是自己开发时发现根本不是那么一回事。自己动手去做的时候，有时候貌似别人看来很简单的事情，自己怎么都做不对。可能别人点拨一下就通了，可是自己琢磨时却又老是出问题。自己写出的程序，要么就是直接报错了，要么就是没出现自己想要的结果。需要自己反复看书，反复调试。整个开发过程中的难度，可能在别人眼里看来很简单，但是自己做的时候真的需要下一番功夫的。

其次，“纸上得来终觉浅，绝知此事要躬行”。VB是我们已经学过的知识，而且班上的同学基本也都过了全国的计算机二级考试。但是要说到自己运用VB语言区编写程序的话，那就不是那么简单的事情了。拿到课本上的程序，自己就着书编写，反而出问题。“书到用时方恨少”，到我们自己运用的时候，才发现我们学习的知识是那么的匮乏，根本不够用。很多东西必须要自己继续认真学习才能提升自己。

再次，“万事开头难”。在我们的开发过程中需要自己学习数据库的相关知识，而数据库的知识是我们之前不曾学过的，对我们来说是完全陌生的知识。我把数据库的教材从图书馆借回来，才发现自己根本看不下去，没有人的指导下，一个人对着枯燥的计算机课本，是很难真正学习的。何况当我对着课本操作还总是报错的时候，实在是很无助的。有时候想班上总有同学自己会研究好的，到时候把别人的东西拿过来用就行了。但是后来没办法，自己逼着自己看书，后来发现当自己看进去了，后面的知识自然水到渠成。感觉不像第一次看的时候那么困难了。所以，“万事开头难”，自己坚持下去就好。

最后，团队很重要，合作很重要，团队合作同样很重要。我自己写的程序有很多时候自己很难发现其中的不足和问题，这时候需要我的团队共同帮助我，大家一起发现问题，提出解决问题的方案。季文婷、王帆和黄佳舟等队友在开发过程中大家共同协作，共同克服苦难才完成了朱老师交给我们的任务。除此之外，刚开始大家都不怎么懂，都自己做自己的东西，结果每一组总有那么几个小问题需要解决，各组的程序都不很完善，后来我在和别人交流的过程中发现大家都做得很好，大家都有自己的特色，只要大家相互协作一下，总能拿出解决问题的方案。我和栾成飞、张鹏他们交流的过程中，确实为我解决了很多问题，大家在合作中共同受益，共同完成朱老师交给的任务。所以我认为在此次的开发过程中，团队合作是大家圆满完成任务的保证。

这次的开发虽然已经结束了，但是带给我们的却让我受益一生。在今后的学习中，更加刻苦，更加扎实，更加努力。

（四）

在这次的实验中，我主要负责“好粥道”的系统设计中的技术系统的设计，随着信息技术的发展，多种多样的计算机技术产品为信息系统的建设提供了极大的便利，可以应用的需求选择性能各异的软、硬件以及网络系统。技术系统的设计包含的内容就是要对未来的信息系统的软件和硬件配置设计、网络通行系统等惊喜详细的设计和选择。

在这一次的实验中让我懂得了许多，一项系统的开发到运行需要方方面面的知识与队友之间的相互协作，其他队友所负责的部分我自己也不太了解，我只能详细描述一下我自己所负责的技术系统的设计方面的感受，

计算机硬件的选择；由于“好粥道”的店面相对较小，运营的规模也不是太大，所以从成本和经济方面考虑。主要有主机、外存、终端与外设，根据店面方面的实际需求，还增加了打印机等其他辅助设备。也许这样还不能完全满足客户的实际要求，但可以在运行中不断改善，慢慢的适应客户的要求。只有不断地调试才可以正式运行，就像一个人处于陌生的坏境是只要不断的尝试与改善慢慢的适应最终就会融于这个大环境中。

计算机的软件配置；操作系统、数据库管理系统、开发语言以及软件工具。采用VB进行开发，鉴于自己团队的整体实力有限，只能开发销售系统方面的部分，而且还是以简单为主。虽然自己没有参与数据库系统的设计，但是从他们的过程来看还是比较“艰难”的。让我知道计算机系统技术的每一小步的改善是多么“艰巨”，每一个“新东西”的出现，其研发人是经过许多努力和汗水才取得的最终成果。

网络方面；采用的是局域网，便于产品的销售与资金的收取核对。网络的覆盖范围是整个校园就可以了。信息的吞吐量符合顾客要求。响应的时间也相对快捷，对于顾客订单反应能力也比较迅速。

这次试验还让我懂得了许多，比如对新知识和新技术的学习和灵活运用的能力，严谨周密的思维模式和组织管理和协调能力，面对突发事件的反应能力。其中在开发过程中队员的协调与相互合作是非常重要的。有时团队个人能力简单相加还会得到1+1.>2的效果。

在学习与日常生活中难免需要学习一些新东西与新知识，这时我们就需要勇往直前，不怕困难，团队合作共同解决一系列我们所遇到的问题。

（五）

在这次物流信息系统设计开发过程中，我主要负责一开始U/C矩阵和模块结构图的编制与制作，以及后来的系统说明等工作，在后期的代码设计部分，我在小组同学完成的基础上，修改代码使得窗体的大小，表的大小适中，符合美观要求。

在这次学习实验过程中，我学到了很多书本上没有的东西。首先是一开始在编制U/C矩阵的时候，我对U/C矩阵完全不了解，根本不懂U/C矩阵表示的东西是什么，我通过对书本上U/C矩阵的内容进行重读，以及上网搜索了相关U/C矩阵的知识，我开始对我接下来所做的内容半知半解。当我真正开始编辑的时候又遇到麻烦了，因为我对编制U/C矩阵的Visio根本没接触过，所以我必须重新对Visio学习。我通过网上教程和自己对这个软件的摸索，慢慢的画出了书本上那张表的样子。在这个过程中我不仅学习到了在课堂上学不到的东西，更给我带来了成功的喜悦。在之后的模块结构图编制过程中，又遇到了Visio的新问题，与之前的编制的东西完全不同，所以我又得重新开始摸索，在这个过程中，我与队友耿汉东相互琢磨Visio的用法，与各种模块图的编制形式与方法，最终取得了成功，成功编制出了预期的图表。

其次在编辑代码的过程中，虽然我们学过VB，并且也通过了全国计算机二级，但是通过这次的实验来看，才发现我们学的真的很肤浅，真正要用到实际中，才发现自己啥都不会，也可能是自己忘得差不多了，后来队友编写代码完成后，教我如何改变窗体和表格的大小，我渐渐的开始对以前学的VB的内容回忆起来，最终在同学的帮助下，我学会了如何去改写代码使得窗体和表格大小调整，使表格完全符合美观要求。

通过这次试验，我知道了团队合作的力量是无限的，因为在此过程中，我们遇到了很多我们从没接触过的知识，软件和技术，我们通过多种学习途径对这些我们未知的领域逐步探索，我们小组有六个人，在组长的带领下，合理分工，分配任务，最终取得了不错的效果，各项工作进展顺利。我们在做实验之前首先会集合小组成员开会，各自谈一下自己实验的相关思路，然后我们在做实验时都会考虑到小组其他成员的思路，我们要保证我们各自所做的实验集合起来能保证系统的正常运行，这就要求我们在实验过程中要保持高度的团队精神，以团队效益放在首位。只要大家相互协作一下，总能拿出解决问题的方案大家在合作中共同受益，共同完成朱老师交给的任务。所以我认为在此次的开发过程中，团队合作是大家圆满完成任务的保证。

实验结束了，在这次实验中，我们收获了成功完成系统开发的喜悦，也学到了很多书本上没有的知识，让我们受益终身，在今后的学习中，应该更加努力，与实际相结合的学习。

（六）

我们小组实验的项目是好粥道小卖部物流信息系统的设计，我们小组的实验非常复杂，包括很多的程序设计，包括采购，货物入库，加工，以及货物出库和库存查询，所以在系统设计的过程中，我们用到了很多的数据库知识和物流信息系统知识，我们只好借助图书馆和网络来学习这使我们获益匪浅，我对服务业和物流信息系统有了进一步的了解。

我在这次试验中体会最深的是团队合作的重要性，我们小组由六个人组成，我们首先选择了一个小组长，然后小组长对我们进行任务分配，但是因为我们小组成员所做的部分是不一样的，但是他们之间确实相关联的，所以我在做实验之前首先会集合小组成员开会，各自谈一下自己实验的相关思路，然后我们在做实验时都会考虑到小组其他成员的思路，我们要保证我们各自所做的实验集合起来能保证系统的正常运行，这就要求我们在实验过程中要保持高度的团队精神，我想这也是老师要求我们做这次实验的一个重要的原因吧，我相信通过像这样的实验可以使我们不断地进步，在我们走向工作岗位之后，这对我们是受益无穷的。

感谢老师给了我这个宝贵的机会，让我学到了许多东西，经过之前学到的理论知识，再结合这次实训所学到的东西，我加深了对物流信息的理解和了解。因为这次实训是理论知识和实际操作相结合，在实践中学到了运用我能在这次实训过程中受益匪浅。通过各种不同角色的体验，让我能够熟悉工作流程，达到了实训的目的。经过实训，我对物流信息系统有了一定的了解和认识，并将这些理论与实际的操作相结合，在实践中提高了运用知识的能力。通过这次实训实践，使我不仅学到了经验，开阔了视野，拓宽了思路，提升了理念，更重要的是，通过实践，使我深入地了解了企业物流信息系统建设的现状、方法、和步骤;充分认识到了物流信息系统建设的重要性和必要性，让我对物流有了新的认识。因为在实践中反思，总会发现自己的不足，在实践中研究，再实践，不断循环，不断更新，不断提升和发展，从而达到追求完美的境界。所以通过此次实训，学到了宝贵的实践经验，强化了我的操作技能。

这次实训也体现了团队力量的重要性，很多工作的完成需要大家一起努力、一起合作，才能胜利的完成。这次实训，深化了对现代物流理论的理解，进一步体会到理论与实操的差别，也体会到理论与实践结合的乐趣，让我感到了一种满足感，觉得自己能够从中获取真正有价值的知识与技能。希望在今后的学习和实践过程中，我都能将所学知识学以致用。最后还要感谢学校和指导老师给予我们这次难得的机会，谢谢指导老师对我们的悉心指导。

（七）小组体会

（1）订单处理。通过此次的系统开发我明白了在订单处理的这个模块的设计，它包括VB的调用程序，Messagebox窗口的弹出以及列表框List.index的应用，通过调动弹出和整合简化程序，使界面一目了然清晰易于理解。

（2）缺货处理。缺货处理这一模块是我们组系统开发的核心，只有保证缺货通知的准确及时才能做出针对性的补货，提高运作效率保证系统顺利运转。通过学习我了解了在这一模块中的数据库设计主要涉及多个程序之间的联合调用，由库存信息发出缺货通知。

（3）补货处理。在这一模块中，做出补货的措施主要有两个依据：一个是缺货通知，即由库存信息直接发出的补货通知；而是根据售货人员根据粥品种的畅销程度，自己预测而主动进行的提前库存补货。

附每个小组成员工作业绩

相关推荐

物流信息系统课程设计报告

专栏推荐