欢迎新手一起和我 DIY ERP（此贴必为精华）

mikelaoliu

本贴为 DIY 一个简单ERP系统的 日记 每日更新
欢迎 和我一样的新手 全程参与 一起成长

需要的一些基础知识 ：
1:有实际管理经验 有ISO9000 全局流程观念者佳
   （如果没有管理经验  DIY ERP 就没有任何基础和目标）
2：SQL  SERVER 2000  
3：VB 6.0


好了 下面我们开始

此贴 只为和我一样的新手准备 还请老鸟 不要打击学习热情

mikelaoliu

首先 假定一个 公司背景 和 组织结构
机械设备制造企业  包含设计开发
包含   销售  采购 设计 生管 制造 品保 仓储物流  7大核心部门 及人事后勤 等附属部门

mikelaoliu

整体流程 按产品走向 设计

设计（产品图纸 和 BOM 录入作业指导书录入）
销售（录入订单）
生管（运行 MRP 利用BOM自动计算订单 物料需求 到货时间 预计生产时间 生产线及物料预占用）
采购 （按生成的 物料需求 下采购订单）
生管 （按订单交货期 排生产计划 包括 人员安排 设备占用 作业指导书上传 物料到货计划）
仓储物流 （按到货计划 收货暂存）
品保 （IQC 检验）
仓储物流 （按IQC检验结果 正式入库 或 退货 或换货 结果通知采购）
制造（按生产计划 中领料计划 领料）
设计（首件产品验证 检验作业指导书）
仓储物流（按生产计划 中领料计划 发料）
制造 （在线暂存原料统计  半成品统计  暂存成品统计 返修统计 生产进度统计 工时耗用）
品保 （QA巡检记录， QC终检记录，OQC出货检验记录 不良统计 检验工时）
仓储物流 （生产损耗补领 生产成品入库 销售成品出库 销售不良退库  售后维修出库）
应收  应付

mikelaoliu

接下来 该把你的 电脑安装 下列软件
1：windows XP   (呵呵 其实98 也可以 就是 不稳定）
2：SQL SERVER 2000 SP4 企业版 （不要告诉我你找不到）
3：VB 6.0 （必须要装啊 否则接下来的编程 就没办法了）
4：office  (包含word execl 就可以 含PROJECT 和 VISO 就更好了 生产计划要用到 甘特图 ）
硬件：
5：Adobe abcort 8.0以上  呵呵 这套ERP 含有一个小PDM    用它的PDFfile控件来显示图纸、

一台服务器  （配置好点的电脑就好了 内存要大一点）
一台客户机  （普通的就好）
TP-LINK 的54M 无线路由 （为什么用TP的 应为内置了花生壳  为后来的 远程访问做准备）

我们要做的 ERP 是局域网内 为 C/S 结构   外网访问为B/S 结构  两种架构 都可以学到
不理解B/S  C/S  ?
没关系  那是唬人的  慢慢跟我一起学

mikelaoliu

接下来的工作是 把3楼的这些 涉及到的 表单 文件化
这一点 异常重要
因为 你只有 明确了 每份文件涉及到的字段 才能在SQL数据库中建立准确的 字段 和 相互 数据 关系


对传统ERP的实施顾问来讲  这也是最关键的一步 俗称 企业实地调研

mikelaoliu

file:///d:/2.bmp


来点实际的   先在VB6 中建一个 登陆窗口  
包含 ADODC1
COMBO1
TEXT1
COMMAND1  COMMAND2
背景自己用喜欢的就好

mikelaoliu

在SQL 中建数据库CCCC  再见表 tb_user  表里建字段  用户名，密码
VB6建公用模块 写以下代码
Public Sub Main()
db = "driver={SQL server};server=mike;UID=sa;database=cccc"
frmLogin.Show

End Sub



VB 6 中frmLogin登陆框写以下代码
Private Sub Command1_Click()
Adodc1.ConnectionString = db
Adodc1.RecordSource = "select * from tb_user where 用户名='" & Combo1.Text & "'"
Adodc1.Refresh
i = Adodc1.Recordset.RecordCount
If i > 0 Then
If Text2.Text = Adodc1.Recordset.Fields("密码") Then
Form_main.Show
user = Combo1.Text

Unload Me
Else
test = test + 1' 判断密码输错3次退出
   If test >= 3 Then
   MsgBox "用户名或密码不正确,系统退出！"
   End
   Else
   MsgBox "用户名或密码不正确,请重试！"
   Text2.Text = ""
   End If
End If
End If

End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
Adodc1.ConnectionString = db
Adodc1.RecordSource = "select * from tb_user "
Adodc1.Refresh
i = Adodc1.Recordset.RecordCount
test = 0
Adodc1.Visible = False
For X = 1 To i
Combo1.AddItem (Adodc1.Recordset.Fields("用户名"))
If X < i Then Adodc1.Recordset.MoveNext
Next


Text2.Text = ""

End Sub

mikelaoliu

注意这一句  db = "driver={SQL server};server=mike;UID=sa;database=cccc"
其中  server=mike  是server的计算机名 你也可以写IP  例如 server=192.168.0.101 当然数据库 有密码的话 也要注明 PWD=******

mikelaoliu

刚才图片好像看不见

mikelaoliu

好像 只有我发言 哎

mikelaoliu

现在做录入订单的功能
在SQL 数据库CCCC中建表 TB_GDBT （用来保存订单的表头）  和 tb_gdbs（用来保存订单的表身）

mikelaoliu

现在做录入订单的功能
在SQL 数据库CCCC中建表 TB_GDBT （用来保存订单的表头）  和 tb_gdbs（用来保存订单的表身）

mikelaoliu

再VB 中建一个from_dd 窗体

mikelaoliu

3月 14 日   记号

mikelaoliu

主界面

kdfjs

难道传说中的ERP就是这样完成的嘛

Y.C.Yang

有点精华的味道！

cisyshu

再VB 中建一个from_dd 窗体21132
mikelaoliu 发表于 2009-3-14 14:15

“客户订单”的状态栏显示“已领料”，是表示什么意思？

mujik2008

很有意思！！
楼主继续！

20029388

关注中，这个不是原创吧@