课程设计说明书
设计题目：专 业：设 计 人：
物流管理信息系统之订单管理子系统设计 _____ ______
山东科技大学
2014年 月 日
课程设计任务书
学院 机械电子工程学院 专业 班级 2011-2 姓名
二、课程设计内容与要求：
（1）设计一套订单管理系统，要求能完成基本的订单录入、修改、删除 （2）系统分为管理员登录与用户登录两大方向_______________________ （3）可注册新用户，用户信息，管理员信息可修改___________________ ________________________________________________________________ 三、课程设计应解决主要问题：
（1）主窗体与各个分窗体结构设计________ _______________________ （2）程序与数据库的连接_________________________________________ （3）各窗体具体代码编写_____________________________________ ___ ________________________________________________________________ 四、课程设计相关附件（如：图纸、软件等）
（1）课程设计说明书一份 （2）存有设计内容的光盘一张______________________________________ ________________________________________________________________ ________________________________________________________________ 五、任务发出日期： 2013-12-23 _ 课程设计完成日期： 2014-1-4
指导教师签字：_______________ 系主任签字：_____________
一、课程设计题目：物流管理信息系统之订单管理子系统设计
指导教师对课程设计的评语
指导教师签字：
_____年____月____日
目 录
1．课题简介………………………………………………………3 1.1 课题研究目的和意义………………………………………3 1.2 课题主要研究内容…………………………………………3 2．系统分析………………………………………………………4 2.1 业务流程图…………………………………………………4 2.2 用户需求分析………………………………………………4 2.3 系统功能设计………………………………………………6 3．系统设计………………………………………………………6 3.1 总体设计……………………………………………………6 3.2 详细设计……………………………………………………7 3.3 数据结构设计………………………………………………7 4．系统实施……………………………………………………9 4.1 系统首界面…………………………………………………………9 4.2 登录界面 …………………………………………………………11 4.3新用户注册界面……………………………………………………13 4.4提示完善个人信息界面……………………………………………15 4.5用户完善个人信息界面……………………………………………17 4.6用户登录界面………………………………………………………19 4.7用户查看个人信息界面……………………………………………24
4.8用户完善个人信息界面……………………………………………26 4.9管理员登录界面……………………………………………………28 4.10 管理员信息修改界面 …………………………………………33 4.11 管理员查看用户信息界面 ……………………………………35 6．使用说明……………………………………………………37 7．参考资料……………………………………………………37
1.课题简介
1.1课题研究目的和意义
在科学技术日新月异的今天，计算机已逐步渗入各个领域，随着互联网的普及，我们进入了信息化的时代，人们只要在家中轻点几下鼠标就能轻松获得各种信息，并且能够购买到自己需要的商品，既摆脱了时间和空间的限制又节约了大量的时间。商品销售订单管理系统正是在这种情况下诞生并逐渐发展起来的，它已成为我们进行商品交易中不可缺少的部分。
本系统是在分析了现行商品管理中存在的问题的基础上，结合信息管理系统开发的概念、结构及系统开发的基本原理和方法，开发的一套企业商品订单管理系统。该系统目的在于同时满足销售方与用户进行订单管理，进而满足经营管理运作流程。并且操作方便、功能强大，即便操作者对计算机知识一窍不通也可以熟练使用该系统，一用就会。
1.2 课题研究的主要内容
企业订单管理系统主要完成的内容包括：
系统登录控制。必须使用用户名和密码登录后才能使用系统。
产品信息浏览。浏览系统中所有的产品信息，可以使用指定的关键词查询相应的产品，并通过报表的形式将查询结果输出。
产品信息管理。管理订单中所使用的产品信息，可以浏览、增加、修改和删除产品信息。
订单信息管理。管理订单信息，可以浏览、增加、修改和删除订单信息，在增加订单时需要使用的产品信息和客户信息必须首先通过产品信息管理和客户信息管理功能添加。
客户信息浏览。浏览系统中所有的客户信息，可以使用指定的关键字查询相应的客户，并且可以使用报表的形式将查询结果输出。
客户信息管理。管理下订单时客户信息，可以浏览、增加、修改和删除客户信息。
用户权限管理。本系统中实现了简单的用户权限管理，普通用户仅能修改密码，而管理员用户则可以添加、修改、删除用户。
利用系统分析和设计原理，采用面向对象的编程方法，通过用Visual Basic 6.0编写企业订单管理系统，用SQL Server 2000进行数据库建设与管理，实现了企业订单管理的自动化和信息化 2.系统分析 2.1业务流程图 .
2.2用户需求分析
设计任何定制化产品都是一个“翻译”的过程。我们需要把浮现在客户脑海中的模糊想法、愿望挖掘出来，并“翻译”成满足他们需求的现实产品。这个“翻译”过程的第一步就是理解用户的需求。设计最好的订单处理系统对于需要一个电路设计工具的客户来说毫无意义。我们首先制定了一个计划，其中包含挖掘客户需求的一系列步骤。遵循这些步骤能更好地理解客户需求，但在一些项目中我们不需要遵循所有的步骤。举例来说，如果客户是单个人且需求很明确时，我们就不需要进行“搞清谁是谁”与“头脑风暴”了。当客户的数据需要保密时，我们就不能“尝试客户的工作”了。在另一些项目中，调整这些步骤的顺序会更为
合适。例如我们可能在去拜访客户和观察他们工作之前先进行“头脑风暴”。 我们需要思考，向客户问些什么问题可以帮助我们了解项目的目标和要求。
以下几个方面的问题可以作为起始点。 1）功能与目标。
(1).系统应该做些什么 (2）.为什么你想建这个系统 (3).系统看上去应该是怎样的 (4).需要些什么报表
(5).用户需要自己定义新报表吗 (6).系统的操作者会是谁 2）数据需求：
这些问题是为了弄清项目的数据需求。。 (1).系统界面上需要展现哪些数据 (2).这些数据应该由谁来提供 (3).这些数据是如何关联的
(4).这些工作现在是如何处理的?数据来自哪里? (5).数据完整性： 3）数据库完整性约束。
(1).哪些数据是必须填写的(一条客户记录必须有电话信息吗)
(2).数据的有效域是什么?(电话号码是否有格式规定?地址数据应有多长) (3).系统中是否必须在定义了客户之后才能下订单
(4).系统要求多高的可用性等级(系统需要7×24的可用性吗?数据的备份频率要多高)
4）安全性：
这些问题能帮助我们了解客户对权限控制与审计方面的需求。 (1).是否每个用户都需要一个不同的密码
(2).是否需要控制不同的用户所能访问的数据( 销售代表有权限看到客户的信用卡账号，但订单录入专员却不能)
(3).存储在数据库中的数据是否需要加密
(4).谁做了什么操作是否需要记录以便于审计( 记录销售代表提高客户级别的操作，在需要时可以追溯操作的原因) 2.3系统功能设计
主要功能就是给用户带来信息的沟通，交流的便捷。订单管理系统的主要功能是通过统一订单提供用户整合的一站式员工供应链服务。订单管理系统物流管理链条中的不可或缺的部分，通过对订单的管理和分配，使和运输管理有机的结合，稳定有效地实现物流管理中各个环节充分发挥作用，使仓储、运输、订单成为一个有机整体，满足信息化的需求。
订单管理是对商户下达的各种指令进行管理、查询、修改、打印等功能，同时将业务部门处理信息反馈至商户。订单管理系统一般包括：订单处理，订单确认等。
3.系统设计 3.1总体设计
该系统为了两大部分：用户登录后的界面，管理员登录后的界面。
3.2 详细设计
class类：实现数据库的连接字符串 Register类：实现用户注册
Login 类：登录窗口类，用户登录时选择用户角色，进入员工操作界面。管理员登录时则进入相应的界面进行订单信息操作。
main类：实现系统功能的类，实现各模块的功能。如订单基本信息录入，订单提交，订单退订。删除订单信息，修改订单信息，查看订单信息。
Main类：用户操作界面，在此用户可以查看订单的信息，且可以订单的提交和退订。
Adm 类：管理员操作页面，在此管理员可以查看和处理所有客户订单信息，可以查看客户基本信息以及个人信息。
UserInfo 类：显示用户信息、用于管理员对客户的信息查询和处理。
3.3数据结构设计
用户表属性：
用户表：
商品表属性：
商品表：
管理员信息表属性：
管理员信息表：
订单信息表属性：
订单信息表：
4.程序实施 4.1 主体窗口
Private Sub MDIForm_Load() Dim X0 As Long
Dim Y0 As Long '让窗体居中 X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - Me.Width) / 2
Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0 End Sub
Private Sub mfdljm_Click() dljm.Show Unload Me End Sub
Private Sub mfexit_Click() End End Sub 4.2登录界面
Private Sub Command1_Click()
Static micount As Integer '用于记录输入密码次数
Dim sqlstr As String
sqlstr = \"select * from 用户信息表 where 用户名='\" & Text1 & \" '\" Adodc1.RecordSource = sqlstr Adodc1.Refresh
If Adodc1.Recordset.BOF Then '若没有找到符合where条件的记录 MsgBox \"姓名错误，重新输入\警告\" Text1.Text = \"\"
Text1.SetFocus 'text1获得焦点 Else
If Adodc1.Recordset.Fields(\"密码\") = Text2 Then yhjm.Show Unload Me Else
MsgBox \"密码错误，重新输入\警告\" Text2.Text = \"\" Text2.SetFocus End If End If
micount = micount + 1 If micount = 3 Then Unload Me End Sub
Private Sub cmdcancel_click() Unload Me End Sub
Private Sub Command2_Click()
Static micount As Integer '用于记录输入密码次数 Dim sqlstr As String
sqlstr = \"select * from 管理员信息表 where 管理员姓名='\" & Text1 & \" '\" Adodc2.RecordSource = sqlstr
Adodc2.Refresh
If Adodc2.Recordset.BOF Then '若没有找到符合where条件的记录 MsgBox \"用户名错误，重新输入\警告\" Text1.Text = \"\"
Text1.SetFocus 'text1获得焦点 Else
If Adodc2.Recordset.Fields(\"密码\") = Text2 Then glyjm.Show Unload Me Else
MsgBox \"密码错误，重新输入\警告\" Text2.Text = \"\" Text2.SetFocus End If End If
micount = micount + 1 If micount = 3 Then Unload Me End Sub
Private Sub Command3_Click() zcxyh.Show End Sub
Private Sub Command4_Click() Dim x As Integer
x = MsgBox(\"确认退出？\提示\") If x = vbOK Then Unload Me MDIForm1.Show
ElseIf x = vbCancel Then dljm.Show
End If End Sub
4.3.新用户注册界面
Private Sub Command1_Click() Dim sqlstr As String If Text1 = \" \" Then
MsgBox \"请输入用户名！\确认密码\" Text1.SetFocus Exit Sub Else
sqlstr = \"select * from 用户信息表 where 用户名='\" & Text1 & \"'\" Adodc1.RecordSource = sqlstr
Adodc1.Refresh '判断用户名是否已存在 If Adodc1.Recordset.EOF = False Then
MsgBox \"用户已存在，请重新输入\检验用户名\"
Text1 = \"\" Text1.SetFocus Exit Sub End If End If
'判断两次密码是否一致 If Text2 <> Text3 Then
MsgBox \"两次输入密码不一致，请重新输入\ Text2 = \"\": Text3 = \"\" Text2.SetFocus Exit Sub
ElseIf Text2 = \"\" Then
MsgBox \"密码不能为空\检验密码\" Text2.SetFocus Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(\"用户名\") = Trim(Text1) Adodc1.Recordset.Fields(\"密码\") = Trim(Text2) Adodc1.Recordset.Update Me.Hide
MsgBox \"注册已成功，请尽快完善个人信息\" tswsyhxx.Show End If End Sub
Private Sub Command2_Click() zcxyh.Hide dljm.Show End Sub
4.4.提示完善个人信息界面
检验密码\"
Private Sub Command1_Click() wsyhxx.Show Unload Me End Sub
Private Sub Command2_Click() Dim x As Integer
x = MsgBox(\"确认退出？\提示\") If x = vbOK Then Unload Me dljm.Show
ElseIf x = vbCancel Then Unload Me tswsyhxx.Show
End If End Sub
4.5.用户完善个人信息界面
Private Sub Command1_Click() Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text5 & \"'\"
x = MsgBox(\"确定要修改当前记录吗？\确定\") If x = vbYes Then
wsyhxx.Adodc1.Recordset.Fields(\"性别\") = Text1
wsyhxx.Adodc1.Recordset.Fields(\"年龄\") = Text2 wsyhxx.Adodc1.Recordset.Fields(\"工作\") = Text3 wsyhxx.Adodc1.Recordset.Fields(\"联系电话\") = Text4 wsyhxx.Adodc1.Recordset.Fields(\"密码\") = Text5 wsyhxx.Adodc1.Recordset.Fields(\"用户名\") = Text7 wsyhxx.Adodc1.Recordset.Update wsyhxx.Adodc1.Refresh End If
MsgBox \"修改成功\" End Sub
Private Sub Command2_Click()
x = MsgBox(\"未完善信息，现在退出？\提示\")
If x = vbOK Then Unload wsyhxx ElseIf x = Cancel Then wsyhxx.Show End If Exit Sub
End Sub
Private Sub Command3_Click() Dim str As String
str = \"select 用户信息表.* From 用户信息表\"
str = str & \" where 用户信息表.用户名 = '\" & Text6 & \"'\" Adodc1.RecordSource = str Adodc1.Refresh End Sub
4.6.用户登录界面
Private Sub Command1_Click() Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields(\"用户名\") = Text11.Text Adodc2.Recordset.Fields(\"商品号\") = Text1.Text Adodc2.Recordset.Fields(\"数量\") = Text2.Text Adodc2.Recordset.Fields(\"价格\") = Text3.Text Adodc2.Recordset.Fields(\"ID\") = Text10.Text
Adodc2.Recordset.Fields(\"订单号\") = Text12.Text Adodc2.Recordset.Fields(\"联系电话\") = Text4.Text Adodc2.Refresh
MsgBox (\"订单已经成功添加\") End Sub
Private Sub Command2_Click() Dim str As String
str = \"select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text9 & \"'\" Adodc2.RecordSource = str Adodc2.Refresh End Sub
Private Sub Command3_Click() Text11.Text = \"\" Text1.Text = \"\" Text2.Text = \"\" Text3.Text = \"\" Text10.Text = \"\" Text12.Text = \"\"
Text4.Text = \"\" End Sub
Private Sub Command4_Click()
If Adodc2.Recordset.EOF = True Or Adodc2.Recordset.BOF = True Then MsgBox \"请选择要修改的行\" Exit Sub End If
Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text9 & \"'\"
x = MsgBox(\"确定要修改当前记录吗？\If x = vbYes Then
yhjm.Adodc2.Recordset.Fields(\"用户名\") = Text11.Text yhjm.Adodc2.Recordset.Fields(\"商品号\") = Text1.Text yhjm.Adodc2.Recordset.Fields(\"数量\") = Text2.Text yhjm.Adodc2.Recordset.Fields(\"价格\") = Text3.Text yhjm.Adodc2.Recordset.Fields(\"ID\") = Text10.Text yhjm.Adodc2.Recordset.Fields(\"订单号\") = Text12.Text yhjm.Adodc2.Recordset.Fields(\"联系电话\") = Text4.Text
确定\")
yhjm.Adodc2.Recordset.Update yhjm.Adodc2.Refresh MsgBox \"成功修改数据!!\" End If End Sub
Private Sub Command5_Click() Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text9 & \"'\"
x = MsgBox(\"确实要删除当前记录吗？\If x = vbYes Then Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext ElseIf Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast Else
Adodc2.Refresh
MsgBox (\"订单已经成功删除\") End If
确定\")
End Sub
Private Sub Command6_Click() cxyhxx.Show End Sub
Private Sub Command7_Click() Dim x As Integer
x = MsgBox(\"确认退出？\If x = vbOK Then dljm.Show Unload yhjm
ElseIf x = vbCancel Then yhjm.Show End If End Sub
4.7.用户查看个人信息界面
提示\")
Private Sub Command1_Click() Dim str As String
str = \"Select 用户信息表.* From 用户信息表\"
str = str & \" where 用户信息表.用户名 = '\" & Text1 & \"'\" Adodc1.RecordSource = str Adodc1.Refresh End Sub
Private Sub Command2_Click() Dim x As Integer
x = MsgBox(\"确认退出？\提示\") If x = vbOK Then
yhjm.Show Unload Me
ElseIf x = vbCancel Then cxyhxx.Show End If End Sub
Private Sub Command3_Click() xgyhxx.Show End Sub
4.8.用户完善个人信息界面
Private Sub Command1_Click() Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text5 & \"'\"
x = MsgBox(\"确定要修改当前记录吗？\确定\") If x = vbYes Then
wsyhxx.Adodc1.Recordset.Fields(\"性别\") = Text1 wsyhxx.Adodc1.Recordset.Fields(\"年龄\") = Text2
wsyhxx.Adodc1.Recordset.Fields(\"工作\") = Text3 wsyhxx.Adodc1.Recordset.Fields(\"联系电话\") = Text4 wsyhxx.Adodc1.Recordset.Fields(\"密码\") = Text5 wsyhxx.Adodc1.Recordset.Update wsyhxx.Adodc1.Refresh End If
MsgBox \"修改成功\" End Sub
Private Sub Command2_Click() x = MsgBox(\"修改未成功\提示\") Unload xgyhxx Exit Sub End Sub
Private Sub Command3_Click() Dim str As String
str = \"select 用户信息表.* From 用户信息表\"
str = str & \" where 用户信息表.用户名 = '\" & Text6 & \"'\" Adodc1.RecordSource = str Adodc1.Refresh
End Sub
4.9.管理员登录界面
Private Sub Command1_Click() Dim str As String
str = \"select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text1 & \"'\" Adodc1.RecordSource = str Adodc1.Refresh End Sub
Private Sub Command2_Click()
Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text1 & \"'\"
x = MsgBox(\"确实要删除当前记录吗？\确定\") If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else
Adodc1.Refresh
MsgBox (\"订单已经成功删除\") End If End Sub
Private Sub Command3_Click() Dim x As Integer
x = MsgBox(\"确认退出？\If x = vbOK Then
提示\")
dljm.Show Unload glyjm
ElseIf x = vbCancel Then glyjm.Show End If End Sub
Private Sub Command4_Click() yhxxcx.Show End Sub
Private Sub Command5_Click()
If Adodc1.Recordset.EOF = True Or Adodc1.Recordset.BOF = True Then MsgBox \"请选择要修改的行\" Exit Sub End If
Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text5 & \"'\"
x = MsgBox(\"确定要修改当前记录吗？\确定\") If x = vbYes Then
glyjm.Adodc1.Recordset.Fields(\"用户名\") = Text2.Text glyjm.Adodc1.Recordset.Fields(\"商品号\") = Text3.Text glyjm.Adodc1.Recordset.Fields(\"数量\") = Text4.Text glyjm.Adodc1.Recordset.Fields(\"价格\") = Text5.Text glyjm.Adodc1.Recordset.Fields(\"ID\") = Text6.Text glyjm.Adodc1.Recordset.Fields(\"订单号\") = Text7.Text glyjm.Adodc1.Recordset.Fields(\"联系电话\") = Text8.Text glyjm.Adodc1.Recordset.Update glyjm.Adodc1.Refresh MsgBox \"成功修改数据!!\" End If End Sub
Private Sub Command6_Click() Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(\"用户名\") = Text2.Text Adodc1.Recordset.Fields(\"商品号\") = Text3.Text Adodc1.Recordset.Fields(\"数量\") = Text4.Text Adodc1.Recordset.Fields(\"价格\") = Text5.Text Adodc1.Recordset.Fields(\"ID\") = Text6.Text
Adodc1.Recordset.Fields(\"订单号\") = Text7.Text Adodc1.Recordset.Fields(\"联系电话\") = Text8.Text Adodc1.Recordset.Update Adodc1.Refresh
MsgBox (\"订单已经成功添加\") End Sub
Private Sub Command7_Click() Text2 = \"\" Text3 = \"\" Text4 = \"\" Text5 = \"\" Text6 = \"\" Text7 = \"\" Text8 = \"\" End Sub
Private Sub Command8_Click() xgglyxx.Show End Sub
4.10.管理员信息修改界面
Private Sub Command1_Click() Dim str As String
str = \"Select 订单信息表.* From 订单信息表\"
str = str & \" where 订单信息表.ID = '\" & Text5 & \"'\"
x = MsgBox(\"确定要修改当前记录吗？\确定\") If x = vbYes Then
Adodc1.Recordset.Fields(\"性别\") = Text1 Adodc1.Recordset.Fields(\"年龄\") = Text2 Adodc1.Recordset.Fields(\"工作\") = Text3 Adodc1.Recordset.Fields(\"联系电话\") = Text4 Adodc1.Recordset.Fields(\"密码\") = Text5 Adodc1.Recordset.Update Adodc1.Refresh End If
End Sub
Private Sub Command2_Click() Dim x As Integer
x = MsgBox(\"确认退出？\提示\") If x = vbOK Then glyjm.Show Unload Me
ElseIf x = vbCancel Then xgglyxx.Show End If End Sub
Private Sub Command3_Click() Dim str As String
str = \"select 管理员信息表.* From 管理员信息表\" str = str & \" where 管理员信息表.ID = '\" & Text6 & \"'\" Adodc1.RecordSource = str Adodc1.Refresh End Sub
Private Sub Command4_Click() Text2 = \"\" Text3 = \"\" Text4 = \"\" Text5 = \"\" Text1 = \"\" End Sub
4.11.管理员查看用户信息界面
Private Sub Command1_Click() Dim str As String
str = \"Select 用户信息表.* From 用户信息表\"
str = str & \" where 用户信息表.用户名 = '\" & Text1 & \"'\" Adodc1.RecordSource = str Adodc1.Refresh End Sub
Private Sub Command2_Click() Dim x As Integer
x = MsgBox(\"确认退出？\提示\") If x = vbOK Then glyjm.Show
Unload Me
ElseIf x = vbCancel Then yhxxcx.Show End If End Sub
Private Sub Form_Load() Dim X0 As Long
Dim Y0 As Long '让窗体居中 X0 = Screen.Width Y0 = Screen.Height X0 = (X0 - Me.Width) / 2 Y0 = (Y0 - Me.Height) / 2 Me.Move X0, Y0 End Sub
5.使用说明
该系统在安全性方面的控制管理员登陆窗口，必须使用合法密码才能进入系统，使非管理人员不能进入，从而保证了系统的安全性。用户名，用户密码，管理员姓名，管理员密码均在数据库中存放。
系统实现对企业订单信息的经营管理的维护，主要实现了数据的输入、查询、修改、删除和打印等一系列功能，再功能方面，包括添加或删除用户，保存信息，更新信息、打印信息等
系统数据具备了很强的稳定性、移植性、扩充性和安全性。使得底层对数据库的操作也因此而显得更为合理和快捷。系统的运行效率大为提高。因此系统的运行可靠性的。
系统完全采用图形户用户操作界面，能让用户很容易了解和掌握系统的使用方法。这使得系统具备了很好的交互性和可操作性。在功能的界面实现方面，系统采用菜单式操作和命令按钮操作相结合的方式，使操作非常的简单、方便。
6.参考资料
<1>《现代物流信息系统》 牛东来 编著 清华大学出版社
<2>《物流管理信息系统理论与案例》 李苏剑 游战清 郑利强编著 电子工业出版社
<3>《管理信息系统实用教程》王恩波 孙玉珊 岳桦 编著 电子工业出版社 <4>《软件工程》高诚 车进辉 曹哲 编著 中国水利水电出版社
<5>《基于VB和SQL的数据库编程技术》刘志妩 张焕君 马秀丽等 编著 清华大学出版社
<5>《Visual FoxPro数据库应用实例完全解析》贾凤波 杨树青 杨玉顺 编著 人民邮电出版社2006年8月第1版
<6>《数据库应用基础Visual FoxPro6.0应用与开发技术》秦卫平 耿植林 方娇莉 郑陵潇 编著 重庆大学出版社
因篇幅问题不能全部显示，请点此查看更多更全内容