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

gdandy

好东西！不错....

zhouccnp

学习一下，谢谢

leijan

学习中

mikelaoliu

回答 20楼   是我的原创 在这里开源的
回答 18楼   “客户订单”的状态栏“已领料“  是个 LABEL   如果发料后 锁定订单 普通权限不允许修改 要是还没发料  LOAD form时 label.visible=false  在源代码窗口中显示 是可以看到的

jg198

学习了，谢谢

mikelaoliu

3月15日
注意 在这个ERP系统中  要把表单头 和表单身 在数据库中 分开 保存
你问为什么？当然是让 数据库的 单个表数据量小一点  C/S 结构中数据流量 小一点
（数据库 我没有做任何触发器  图省事了 ）
表单头 和表单身 在数据库中 分开 保存  互相之间的联系 就是 表单号 字段
下面继续以13楼的 form_dd 做例子
先说 formdd_load 的源程序
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2‘这一段 是让你的程序窗口 显示在屏幕中间
Text7.Visible = False
Command1.Enabled = False

Adodc1.Visible = False
Adodc2.Visible = False
Label14.Visible = False
Label21.Visible = False
Label22.Visible = False
Label15.Caption = user
Command13.Visible = False
Command5.Visible = False
Combo2.Text = ""
Combo2.Visible = False

DT1.Value = Date
DT2.Value = Date + 14    ’此处默认交货期 为订单日延后14天
Label16.Caption = "CO" & Format(Now, "YYMMDD") & Format(Time, "HHMMSS")‘最偷懒的订单号自动生成办法 是C0+年月日+时分秒   呵呵呵呵
Text4.Text = ""
Label11.Caption = ""
Label12.Caption = ""
Label18.Caption = ""
Label23.Caption = ""
Combo1.Text = ""

Adodc1.ConnectionString = db '把所有客户添加到COMBO1中’用ADODC 来连接数据库 DB 已经在公用模块中声明了
Adodc1.RecordSource = "select 客户名称 from tb_kh"
Adodc1.Refresh
X = Adodc1.Recordset.RecordCount
If X > 0 Then
For i = 1 To X
Combo1.AddItem (Adodc1.Recordset.Fields("客户名称"))
If i < X Then Adodc1.Recordset.MoveNext
Next
End If







MS1.Row = 1’给MSFLEXGRID控件初始化
MS1.Col = 1
MS1.Cols = 15
MS1.ColWidth(0) = 12 * 25 * 1.5 '设置单元格格式,
MS1.ColWidth(1) = 12 * 25 * 4
MS1.ColWidth(2) = 12 * 25 * 5
MS1.ColWidth(3) = 12 * 25 * 4
MS1.ColWidth(4) = 12 * 25 * 3
MS1.ColWidth(5) = 12 * 25 * 2.5
MS1.ColWidth(6) = 12 * 25 * 2
MS1.ColWidth(7) = 12 * 25 * 3
MS1.ColWidth(8) = 12 * 25 * 3
MS1.ColWidth(9) = 12 * 25 * 3
MS1.ColWidth(10) = 12 * 25 * 2
MS1.ColWidth(11) = 12 * 25 * 2
MS1.ColWidth(12) = 12 * 25 * 2.5
MS1.ColWidth(13) = 12 * 25 * 2.5
MS1.ColWidth(14) = 12 * 25 * 10



MS1.FixedRows = 1: MS1.FixedCols = 1

MS1.TextMatrix(0, 0) = "序号"
MS1.TextMatrix(0, 1) = "产品编号"
MS1.TextMatrix(0, 2) = "产品名称"
MS1.TextMatrix(0, 3) = "电源供应"
MS1.TextMatrix(0, 4) = "气源供应"
MS1.TextMatrix(0, 5) = "功率KW"
MS1.TextMatrix(0, 6) = "颜色"
MS1.TextMatrix(0, 7) = "进料口mm"
MS1.TextMatrix(0, 8) = "出料口mm"
MS1.TextMatrix(0, 9) = "包装"

MS1.TextMatrix(0, 10) = " 数量"
MS1.TextMatrix(0, 11) = " 单位"
MS1.TextMatrix(0, 12) = "单价"
MS1.TextMatrix(0, 13) = "小计"
MS1.TextMatrix(0, 14) = " 序列号"












For i = 1 To 10               呵呵 给每一个MS1标个行号  默认10行
MS1.TextMatrix(i, 0) = i
Next


Combo2.Width = MS1.CellWidth               让COMBO2 浮自MSFLEXDRID 上
Combo2.Left = MS1.CellLeft + MS1.Left
Combo2.Top = MS1.CellTop + MS1.Top


Text7.Text = "" '在msflexgrid上搞个TEXT 奶奶的想了很久 个破MSFLEXGRID 只读个毛 SHIT
Text7.Width = MS1.CellWidth: Text7.Height = MS1.CellHeight
Text7.Left = MS1.CellLeft + MS1.Left
Text7.Top = MS1.CellTop + MS1.Top      这一段 是精华  用它来实现 向MSFLEXGRID 中输入 数据   为什么？（因为MSFLEXGRID 是免费的 呵呵 ）

End Sub

mikelaoliu

整个  全部贴出来估计要超过 2000楼啊

资深    我现在实现诺言 在这里开源了啊  希望你可以看到  好久不见你上群了

mikelaoliu

到了2500楼 源码打包 有需要的朋友 可以下载
争取做 ERP100 第一高楼

puww

对小企业来说，值得参考一下LZ的成果

yyh7711

很有意思！！
楼主继续！

neterp

頂一頂

mikelaoliu

这几天 忙着写PDM没时间上传  见谅

eii

应该先来点需求分析吧。一来就上源代码了。

pagekathy

不错不错,只是提点小建议,把控件的名称改成一个比较有意义的,比如说存放客户的COMBO改为cmbCustomer,这样在读程序的时候会比较清楚,如果写成combo1就不知道它对应的是什么.

tkgglsk

顶一下

0505044068

期待中！！！！！

xiaoping4083

大哥，你一次发多一点，发在附件里面也可以呀，2500楼，是不是有两位小数点精确的。