进销存管理系统实战精编版.docx
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《进销存管理系统实战精编版.docx》由会员分享,可在线阅读,更多相关《进销存管理系统实战精编版.docx(33页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、最新资料推荐最新精品资料整理推荐,更新于二二一年一月十七日2021年1月17日星期日16:19:17进销存管理系统实战 序 如今企业管理软件种类繁多,从最初的财务软件到进销存财务一体,到现在的ERP(企业资源计划)、CRM(客户资源管理)等,单从技术来说,它的基础还是以数据为中心的,各种分析报告、财务报表等无不源于实际业务中产生的记录,所以本文考虑从初学者的角度出发来讲解进销存的初步知识,希望读者能从中总结出经验来。 一个项目的实施首先要做好前期规划,这是必需的,也是非常重要的,如果这个没做好,那么修改代码将是一件非常麻烦、痛苦的事。本例仅从技术的实现讲解,首先确定需要实现的功能,其次进行数据
2、库的设计。 主要模块如下: (1) 初始化,也就是基本资料的录入,其中分为商品资料、供应商资料、客户、业务员、商品类别、 员工档案、支付方式、库房资料 (2)进货管理,包括进货单录入以及查询功能(按时间、商品编号、商品名称、数量、业务员、 供应商、支付方式等,应分为汇总及明细) (3)销售管理,基本同上,不同的是供应商改为客户即可 (4)库存管理,包括即时库存明细(汇总)、查询、库存盘盈整(本文略)等。 (5)财务管理,包括销售收益、支出、销售额明细(汇总)、应收、应付、已付、应付、费用明细(汇总)等 (6)其他,包括定单管理、预测分析、整理数据、备份数据等功能(略) (见数据库设计) 本文内
3、容依次为:进货管理(frmjhgl)、销售管理(frmxsgl)、财务管理(frmcwgl)、查找商品(frmfindsp)、 查询记录及打印模块(modprint)。(如图一) 尾:怎么样,一个比较实用的进销存管理程序产生了。限于篇幅,笔者只能刊登几个基础模块,当然这个程序及思路可能另大型软件公司的程序员不屑一顾,这就需要读者们自行根据实际来添加所需功能了。 数据库设计 做这类程序其关键在于数据库的操作,下面列出本程序中的所用数据库的结构,以便大家阅读方便: 表名 col1=依次为字段名、字段类型、长度等。 数据库内容: 仓库 Col1=编号 Char Width 10 Col2=仓库名称
4、Char Width 8 Col3=所属类别 Char Width 8 Col4=备注 Char Width 20 费用 Col1=编号 Char Width 10 Col2=日期 Date Col3=摘要 Char Width 40 Col4=金额 Currency Col5=付款方式 Char Width 4 Col6=备注 Char Width 20 付款方式 Col1=编号 Char Width 10 Col2=付款方式 Char Width 4 Col3=备注 Char Width 20 供应商 Col1=编号 Char Width 10 Col2=名称 Char Width 20
5、Col3=联系人 Char Width 8 Col4=电话 Char Width 20 Col5=传真 Char Width 20 Col6=邮政编码 Char Width 12 Col7=地址 Char Width 50 Col8=Email Char Width 20 Col9=网址 Char Width 20 Col10=税号 Char Width 50 Col11=帐号 Char Width 50 Col12=开户行 Char Width 50 Col13=备注 Char Width 20 进货记录 Col1=商品编号 Char Width 10 Col2=商品名称 Char Widt
6、h 20 Col3=单位 Char Width 4 Col4=存放仓库 Char Width 8 Col5=数量 Integer Col6=单价 Currency Col7=金额 Currency Col8=业务员 Char Width 8 Col9=进货单号 Char Width 20 Col10=日期 Date Col11=供应商 Char Width 30 Col12=付款方式 Char Width 10 Col13=备注 Char Width 20 客户 Col1=编号 Char Width 10 Col2=名称 Char Width 20 Col3=联系人 Char Width 8
7、Col4=电话 Char Width 20 Col5=传真 Char Width 20 Col6=邮政编码 Char Width 12 Col7=地址 Char Width 50 Col8=Email Char Width 30 Col9=网址 Char Width 30 Col10=税号 Char Width 50 Col11=帐号 Char Width 50 Col12=开户行 Char Width 50 Col13=信誉度 Char Width 10 Col14=备注 Char Width 20 库存 Col1=商品编号 Char Width 10 Col2=商品名称 Char Widt
8、h 20 Col3=单位 Char Width 4 Col4=数量 Integer Col5=仓库 Char Width 8 类别 Col1=编号 Char Width 10 Col2=类别名称 Char Width 20 Col3=备注 Char Width 20 商品 Col1=编号 Char Width 10 Col2=名称 Char Width 20 Col3=单位 Char Width 4 Col4=类别 Char Width 8 Col5=进货价 Currency Col6=销售价 Currency Col7=供应商 Char Width 20 Col8=备注 Char Width
9、 20 销售记录 Col1=商品编号 Char Width 10 Col2=商品名称 Char Width 20 Col3=单位 Char Width 4 Col4=存放仓库 Char Width 8 Col5=数量 Integer Col6=单价 Currency Col7=金额 Currency Col8=业务员 Char Width 8 Col9=出货单号 Char Width 20 Col10=日期 Date Col11=客户 Char Width 20 Col12=付款方式 Char Width 4 Col13=备注 Char Width 20 业务员 Col1=编号 Char Wi
10、dth 10 Col2=姓名 Char Width 8 Col3=所属部门 Char Width 20 Col4=个人电话 Char Width 20 Col5=家庭住址 Char Width 20 Col6=身份证号码 Char Width 40 Col7=备注 Char Width 20 员工档案 Col1=编号 Char Width 10 Col2=姓名 Char Width 8 Col3=姓别 Char Width 2 Col4=所属部门 Char Width 20 Col5=工种 Char Width 10 Col6=上工时间 Char Width 20 Col7=身份证号码 Cha
11、r Width 40 Col8=个人电话 Char Width 20 Col9=家庭住址 Char Width 40 Col10=Email Char Width 20 Col11=婚否 Bit Col12=生日 Date Col13=爱好 Char Width 10 Col14=忠诚度 Char Width 10 Col15=备注 Char Width 20 一:进货管理 此模块的技术关键是在保存记录上,在为“销售记录”表中存数据时应同时向“库存记录”表添加,如果有此商品则在原有的基础上进行加法运算,否则添加新记录。在销售管理中原理也是这样,不过如果库存里没有此类商品就不允许用户进行销售操作
12、。 frmjhgl(进货管理)模块中所有控件的相关设置: (1)TextBox:本模块共用8个文本框,其Name属性分别为: txtname(商品名称)、txtliang(数量)、txtdanjia(单价)、txtbianhao(商品编号)、txtjhdata(操作日期)、txtjine(金额)、txtjine(金额)、txtshuiq(税前金额)、txtshui(税率) datasource属性分别为:data1,datafield为空。 另添加三个combobox控件(cmbcj、cmbywy、 cmbjie), 用来显示厂家、业务员及结算方式(即结、欠付等) (2)四个command控件
13、,name属性分别为:cmdaddnew、cmdsave、cmdcancel、cmdquit。caption属性分别为:新单、保存、取消、退出 代码: Dim zxh As Boolean 判断用户输入数据是否为空 Private Sub addywy()为combobox控件添加内容 Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & jxc.mdb) Set rs = db.OpenRecordset(业务员) While Not rs.EOF cmbywy.AddItem rs.Fields(业务
14、员名称).Value rs.MoveNext Wend rs.Close Set rs = Nothing db.Close Set db = Nothing End Sub Private Sub addcj() Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path & jxc.mdb) Set rs = db.OpenRecordset(厂家) While Not rs.EOF cmbcj.AddItem rs.Fields(厂家名称).Value rs.MoveNext Wend rs.Close Se
15、t rs = Nothing db.Close Set db = Nothing End Sub Private Sub notnull() If txtbianhao.Text = Then zxh = True MsgBox 商品编号不能为空, vbInformation, 试图添加空记录 End If If txtname.Text = Then zxh = True MsgBox 商品名称不能为空, vbInformation, 试图添加空记录 End If If txtliang.Text = Then zxh = True MsgBox 数量不能为空, vbInformation,
16、 试图添加空记录 End If End Sub Private Sub cmdaddnew_Click() Data1.Recordset.AddNew txtjhdata.Text = Date cmdsave.Enabled = True cmdcancel.Enabled = True cmdaddnew.Enabled = False End Sub Private Sub cmdcancel_Click() Data1.Recordset.CancelUpdate cmdaddnew.Enabled = True cmdsave.Enabled = False cmdcancel.E
17、nabled = False End Sub Private Sub cmdsave_Click() Dim field_value$, txtliang_value$ Dim jhbh$, ccbh$, jhna$ cmdaddnew.Enabled = True cmdsave.Enabled = False cmdcancel.Enabled = False On Error GoTo err txtliang_value = txtliang.Text jhbh = txtbianhao.Text jhna = txtname.Text Call notnull If zxh = Tr
18、ue Then Data1.Recordset.CancelUpdate Else 执行 Me.MousePointer = 11 Data1.Recordset.Update 必须初始化绑定字段 txtdanjia.datafield = txtjhdata.datafield = txtjine.datafield = cmbcj.datafield = cmbywy.datafield = cmbjie.datafield = 向库存添加 Data1.RecordSource = 即时库存 Data1.Refresh Data1.Recordset.MoveFirst While ccb
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 进销存 管理 系统 实战 精编
![提示](https://www.taowenge.com/images/bang_tan.gif)
限制150内