采购管理系统3.doc

目 录
一、绪论 1
二、系统总体设计图 1
三、数据库设计 2
（一）cgb表 2
（二）cgdd表 2
（三）cgyxx表 3
（四）dhb表 3
（五）gysxx表 4
（六）kcb表 4
（七）thb表 5
（八）xxdl表 5
四、窗口设计 6
（一）主窗口 6
（二）主窗口代码 6
附录 11
总结 20
致谢 21
参考文献 22

采购管理系统
一、绪论
随着企业的扩大，企业的采购管理使用传统方法的弊端就尤为凸出。采购管理系统是制造业和装配业于上线生产前，供应厂商基本资料的收集和建立前置作业；各项料品及厂商交货进度的规划，透过采购资料维护的功能，使ERP系统可不受物料需求管理系统的控制，并能提供应付帐款、物料库存等系统的资料来源。
大型的采购管理系统是通过采购申请、采购订货、进料检验、仓库收料、采购退货、购货发票处理、供应商管理、价格及供货信息管理、订单管理，以及质量检验管理等功能综合运用的管理系统，对采购物流和资金流的全部过程进行有效的双向控制和跟踪，实现完善的企业物资供应信息管理。
本系统仅是一个简单的采购管理系统，包含六大模块：系统设置模块、采购管理模块、到货管理模块、库存管理模块、退货管理模块、打印模块。模块的具体实现和应用正文中将详细说明。
二、系统总体设计图
后台数据库使用SQL Server 2005数据库，以Visual Basic 6.0作为开发平台，系统总体功能设计如图2.1所示。

图2.1 系统总体功能设计
1 系统设置模块：实现系统的相关操作，比如操作员管理、操作员密码修改、数据备份、数据恢复等。
2 采购管理模块：实现采购管理的相关功能或操作，比如采购员管理、供应商管理、采购材料管理、采购订单管理、订单信息查询等。
3 到货管理模块：实现到货信息的相关功能的管理，比如到货信息维护、到货信息查询等。
4 库存管理模块：实现库存管理相关信息的操作，比如库存信息的维护、库存信息查询、库存信息统计等。
5 退货管理模块：实现退货管理相关信息的操作，比如退货信息维护，退货信息查询等。
6 打印模块：实现打印管理相关功能的实现，比如打印到货信息、打印退货信息、打印库存信息等。
三、数据库设计
（一）cgb表
cgb表必须包含的以下字段：货物编号、货物名称、供应商编号、供应商名称、单价、单位、结算币、采购员编号、采购员姓名、联系人、电话、采购日期、备注等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
货物编号
Decimal
18
否
货物名称
varchar
50
是
供应商编号
Decimal
18
是
供应商名称
varchar
50
是
单价
float

是
单位
varchar
50
是
结算币
varchar
50
是
采购员编号
decimal
18
是
采购员姓名
varchar
50
是
联系人
varchar
50
是
电话
varchar
50
是
采购日期
datetime

是
备注
text

是
表3.1 cgb表
（二）cgdd表
cgdd表必须包含以下字段：单号、货物名称、批号、供应商编号、收货日期、发单时间、单位、币种、单价、数量、金额、备注、是否到货、状态等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
单号
Decimal
18
否
货物名称
Varchar
50
是
批号
Varchar
50
是
供应商编号
Decimal
18
是
收货日期
Datetime

是
发单时间
Datetime

是
单位
Varchar
50
是
币种
Varchar
50
是
单价
Float

是
数量
Int

是
金额
Float

是
备注
Text

是
是否到货
Real

是
状态
Char
10
是
表3.2 cgdd表
（三）cgyxx表
cgxx表应包含以下字段：采购员编号、姓名、性别、年龄、民族、籍贯、学历、电话、现地址等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
采购员编号
Decimal
18
否
姓名
Varchar
50
是
性别
Varchar
50
是
年龄
Int

是
民族
Varchar
50
是
籍贯
Varchar
50
是
学历
Varchar
50
是
电话
Varchar
50
是
现地址
varchar
50
是
表3.3 cgyxx表
（四）dhb表
dhb表应包含以下字段：到货单号、单号、货物名称、批号、供应商编号、收货日期、发单日期、单位、单价、订单数量、报损数量、报溢数量、数量、到货日期、备注、是否到货、状态等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
到货单号
Decimal
18
否
单号
Decimal
18
是
货物名称
Varchar
50
是
批号
Varchar
50
是
供应商编号
Varchar
50
是
收货日期
Datetime

是
发单日期
Datetime

是
单位
Varchar
53
是
单价
Varchar
50
是
订单数量
Float

是
报损数量
Float

是
报溢数量
Float

是
数量
Float

是
到货日期
Datetime

是
备注
Text

是
是否到货
Real

是
状态
varchar
50
是
表3.4 dhb表
（五）gysxx表
gysxx表应包含以下字段：供应商编号、供应商名称、简称、传真、电话、E-mail、联系人、联系人电话、地址等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
供应商编号
Decimal
18

供应商名称
varchar
50
是
简称
varchar
50
是
传真
varchar
50
是
电话
varchar
50
是
E-mail
varchar
50
是
联系人
varchar
50
是
联系人电话
varchar
50
是
地址
varchar
50
是
表3.5 gysxx表
（六）kcb表
kcb表应包含以下字段：货物编号、单号、货物名称、批号、供应商编号、收货日期、单位、单价、数量、报损数量、报溢数量、金额、到货日期、入库日期、状态、备注等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
货物编号
Decimal
18
否
单号
Decimal
18
是
货物名称
varchar
50
是
批号
varchar
50
是
供应商编号
Varchar
50
是
收货日期
Datetime

是
单位
Varchar
53
是
单价
Varchar
50
是
数量
Float

是
报损数量
Float

是
报溢数量
Float

是
金额
Float

是
到货日期
Datetime

是
入库日期
Datetime

是
状态
Varchar
50
是
备注
text

是
表3.6 kcb表
（七）thb表
thb表应包含如下字段：退货单号、单号、货物名称、批号、供应商名称、收货日期、单位、单价、数量、到货日期、货物备注、退货日期、退货原因、状态等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
退货单号
Decimal
18
否
单号
Decimal
18
是
货物名称
Varchar
50
是
批号
Varchar
50
是
供应商名称
Varchar
50
是
收货日期
Datetime

是
单位
Varchar
53
是
单价
Varchar
50
是
数量
Float

是
到货日期
Datetime

是
货物备注
Text

是
退货日期
Datetime

是
退货原因
text

是
状态
varchar
50
是
表3.7 thb表
（八）xxdl表
xxdl表应包含以下字段：Id、用户名、口令、系统维护、采购管理、到货管理、退货管理、库存管理、报表统计等。具体设置如下表：
字段名称
字段类型
字段大小
允许为空
Id
Decimal
18
否
用户名
Varchar
50
是
口令
Varchar
50
是
系统维护
real

是
采购管理
real

是
到货管理
real

是
退货管理
real

是
库存管理
real

是
报表统计
real

是
表3.8 xxdl表
四、窗口设计
（一）主窗口
主窗口包含有如下模块：系统设置、采购管理、到货管理、库存管理、退货管理、打印报表、关闭系统。具体设置如图4.1所示。

图4.1 主窗口
（二）主窗口代码
Dim i As Integer
Dim c
Private Sub CGCLGL_Click()
frm_cgclgl.Show
End Sub

Private Sub CGDDGL_Click()
frm_cgdd.Show
End Sub

Private Sub CGYGL_Click()
frm_cgygl.Show
End Sub

Private Sub CZYGL_Click()
frm_YHGL.Show
End Sub

Private Sub DDXXCX_Click()
frm_ddxx_cx.Show
End Sub

Private Sub DHXX_Click()
If i = 0 Or i > 1 Then '如果i=0 代表窗体启动时首先点击到货菜单
i = i + 2 '步长为2，越过打印库存信息和打印退货信息而引起的错误信息
DataEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"
If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then
DataRep_dhxx.Show
Else
DataEnvironment1.rsCom_dhxx.Close
MsgBox "没有到货信息", 64, "采购管理系统"
End If
ElseIf i = 1 Then
DataEnvironment1.rsCom_dhxx.Close
DataEnvironment1.rsCom_dhxx.Open "select * from Table_dhb"
If DataEnvironment1.rsCom_dhxx.RecordCount > 0 Then
DataRep_dhxx.Show
Else
DataEnvironment1.rsCom_dhxx.Close
MsgBox "没有到货信息", 64, "采购管理系统"
End If
Else
End If
End Sub

Private Sub DHXXCX_Click()
frm_dhxx_cx.Show
End Sub

Private Sub DHXXWH_Click()
frm_dhb.Show
End Sub

Private Sub END_Click()
c = MsgBox("确认要退出采购管理系统吗？", 33, "采购管理系统")
If c = vbOK Then
End
Else
End If
End Sub

Private Sub Form_Activate()
If Check1.Value = 1 Then
STSZ.Enabled = True
ElseIf Check1.Value = 0 Then
STSZ.Enabled = False
Else
End If
If Check2.Value = 1 Then
CGGL.Enabled = True
ElseIf Check2.Value = 0 Then
CGGL.Enabled = False
Else
End If
If Check3.Value = 1 Then
DHGL.Enabled = True
ElseIf Check3.Value = 0 Then
DHGL.Enabled = False
Else
End If
If Check4.Value = 1 Then
THGL.Enabled = True
ElseIf Check4.Value = 0 Then
THGL.Enabled = False
Else
End If
If Check5.Value = 1 Then
XSGL.Enabled = True
ElseIf Check5.Value = 0 Then
XSGL.Enabled = False
Else
End If
If Check6.Value = 1 Then
BBTJ.Enabled = True
ElseIf Check6.Value = 0 Then
BBTJ.Enabled = False
Else
End If
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
i = 0
End Sub

Private Sub GYSGL_Click()
frm_gysgl.Show
End Sub

Private Sub KCTJ_Click()
frm_kctj.Show
End Sub

Private Sub KCXX_Click()
If i = 0 Or i = 1 Then '如果首先点击库存菜单，那么i值变为1，代表首先点击的不是退货菜单
i = i + 1
Else
End If
DataEnvironment1.rsCom_kcxx.Open "select * from Table_kcb"
If DataEnvironment1.rsCom_kcxx.RecordCount > 0 Then
DataRep_kcxx.Show
Else
DataEnvironment1.rsCom_kcxx.Close
i = i + 2 '如果没有打印的信息，i值就跳过1
MsgBox "没有库存信息", 64, "采购管理系统"
End If
End Sub

Private Sub MAXG_Click()
frm_xgmm.Show
End Sub

Private Sub QXSZ_Click()
frm_czysz.Show
End Sub

Private Sub RELOAD_Click()
Unload Me
frm_czydl.Show
End Sub

Private Sub SJBF_Click()
frm_sjbf.Show
frm_sjbf.Text4.Text = StatusBar1.Panels.Item(3).Text
End Sub

Private Sub SJHF_Click()
Dim iTask As Long
MsgBox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"
'调用数据恢复可执行文件
iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)
End
End Sub

Private Sub SYTS_Click()
frm_znsb.Show
End Sub

Private Sub THXX_Click()
If i = 0 Or i = 1 Then '如果首先点击退货菜单，那么I值变为1，代表首先点击的不是退货菜单
i = i + 1
Else
End If
DataEnvironment1.rsCom_thxx.Open "select * from Table_thb"
If DataEnvironment1.rsCom_thxx.RecordCount > 0 Then
DataRep_thxx.Show
Else
DataEnvironment1.rsCom_thxx.Close
i = i + 2 '如果没有打印的信息，I值就跳过1
MsgBox "没有退货信息", 64, "采购管理系统"
End If
End Sub

Private Sub THXXCX_Click()
frm_thxx_cx.Show
End Sub

Private Sub THXXWH_Click()
frm_thgl.Show
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels.Item(2).Text = Format(Now, "yyyy年mm月dd日 hh点mm分ss秒")
End Sub

Private Sub XSXXCX_Click()
frm_kcxx_cx.Show
End Sub

Private Sub XSXXWH_Click()
frm_kcb.Show
End Sub

附录
采购管理系统的运行时截图如下：

总结
论文在撰写过程中，力求将理论与实践结合起来，在对企业物资采购理论进行阐述的同时，配合模拟系统从实际应用和操作技巧上加以说明，以达到对企业物资采购管理系统更深层次的理解和认识。
致谢
在老师的指导和我的努力下，经过一个多月时间，终于将毕业设计完成了。通过此次毕业设计，让我对VB以及运用VB开发软件的全过程有了更深一层的认识，这要求我们要有严密的逻辑思维能力和良好的软件开发能力。开发前的准备工作非常重要，首先应该定义好问题，接着分析其可行性，是否确实可行，再进行分析，设计出大体的框架，并对各模块进一步细化，逐一开发出软件框架。再对软件的各部分进行细节开发。最后将各模块连接起来，进行综合的测试，对错误的进行修改并改进，尽所能地使设计更加完备。
在此次设计中，让我更加掌握了SQL Server2005软件。软件的主体设计全部由Visual Basic做成的。
在此次设计过程中，给我印象最深的是逻辑思维性的重要性，如果事先没有正确的规划好，它就会给我们的课题开发带来严重的麻烦。在这次设计中的结构的合理安排给我们带来了不小的经验教训
参考文献
[1]《新概念Visual Basic 6教程》，北京科海集团公司出品
[2]《Visual Basic数据库开发实例解析》，刘志铭等编著，机械工业出版社
[3]《VB6.0编程实例与技巧》，曾琦主编，国水利水电出版社
[4]《VB6.0实用数据库编程》，张龙志等编著，中国科学技术大学出版社
[5]《VB6.0多媒体开发实例》，清汉计算机工作室编著，机械工业出版社 3、通过活动，使学生养成博览群书的好习惯。
B比率分析法和比较分析法不能测算出各因素的影响程度。√
C采用约当产量比例法，分配原材料费用与分配加工费用所用的完工率都是一致的。Ｘ
C采用直接分配法分配辅助生产费用时，应考虑各辅助生产车间之间相互提供产品或劳务的情况。错
C产品的实际生产成本包括废品损失和停工损失。√
C成本报表是对外报告的会计报表。×
C成本分析的首要程序是发现问题、分析原因。×
C成本会计的对象是指成本核算。×
C成本计算的辅助方法一般应与基本方法结合使用而不单独使用。√
C成本计算方法中的最基本的方法是分步法。X
D当车间生产多种产品时，“废品损失”、“停工损失”的借方余额，月末均直接记入该产品的产品成本
中。×
D定额法是为了简化成本计算而采用的一种成本计算方法。×
F“废品损失”账户月末没有余额。√
F废品损失是指在生产过程中发现和入库后发现的不可修复废品的生产成本和可修复废品的修复费用。Ｘ
F分步法的一个重要特点是各步骤之间要进行成本结转。(√)
G各月末在产品数量变化不大的产品，可不计算月末在产品成本。错
G工资费用就是成本项目。(×)
G归集在基本生产车间的制造费用最后均应分配计入产品成本中。对
J计算计时工资费用，应以考勤记录中的工作时间记录为依据。(√)
J简化的分批法就是不计算在产品成本的分批法。(×)
J简化分批法是不分批计算在产品成本的方法。对
J加班加点工资既可能是直接计人费用，又可能是间接计人费用。√
J接生产工艺过程的特点，工业企业的生产可分为大量生产、成批生产和单件生产三种，X
K可修复废品是指技术上可以修复使用的废品。错
K可修复废品是指经过修理可以使用，而不管修复费用在经济上是否合算的废品。Ｘ
P品种法只适用于大量大批的单步骤生产的企业。×
Q企业的制造费用一定要通过“制造费用”科目核算。Ｘ
Q企业职工的医药费、医务部门、职工浴室等部门职工的工资，均应通过“应付工资”科目核算。Ｘ
S生产车间耗用的材料，全部计入“直接材料”成本项目。Ｘ
S适应生产特点和管理要求，采用适当的成本计算方法，是成本核算的基础工作。(×)
W完工产品费用等于月初在产品费用加本月生产费用减月末在产品费用。对
Y“预提费用”可能出现借方余额，其性质属于资产，实际上是待摊费用。对
Y引起资产和负债同时减少的支出是费用性支出。X
Y以应付票据去偿付购买材料的费用，是成本性支出。X
Y原材料分工序一次投入与原材料在每道工序陆续投入，其完工率的计算方法是完全一致的。Ｘ
Y运用连环替代法进行分析，即使随意改变各构成因素的替换顺序，各因素的影响结果加总后仍等于指标的总差异，因此更换各因索替换顺序，不会影响分析的结果。(×)
Z在产品品种规格繁多的情况下，应该采用分类法计算产品成本。对
Z直接生产费用就是直接计人费用。X
Z逐步结转分步法也称为计列半成品分步法。√

A按年度计划分配率分配制造费用，“制造费用”账户月末(可能有月末余额/可能有借方余额/可能有贷方余额/可能无月末余额)。
A按年度计划分配率分配制造费用的方法适用于(季节性生产企业)

第 22 页 共 23 页