主题：[分享]仓库管理系统

先预留几楼

下面我们来进入软件窗体的一些解讲吧

此主题相关图片如下：f.png

首先我们来看仓库模块、菜单上有外购入库、和生产领料，不论我点击哪个，其他跳出来的窗体都是同一个，但是窗体的标题会自动从菜单中读取。

但是外购入库的窗体上有供应商、生产领单上不需要啊，这时我们的单据配置表就起作用了，自动来判断哪些字段该显示，哪些字段为必填字段。

 

 

项目加截事件中

添加以下代码，实现自动读取从内部函数表中的记录，来生成内部函数，以方便调用，通过数据表来保存内部函数代码

Dim drs As new List(Of DataRow)
drs = DataTables("内部函数").sqlSelect("")
For Each dr As DataRow In  drs
    Functions.remove(dr("名称"))
    Functions.Add(dr("名称"),dr("代码")  )
    Functions.Complie()
Next

 

 

窗体打开后 afterload的代 码

 

_ckmc =e.Form.Name

Dim r As Row =Tables("出入库单主表").AddNew()
r("单据类型")= _djlx
Tables(e.Form.Name & "_制单表").Filter ="单据编号='" & r("单据编号") & "'  "

Functions.Execute("打开")  （此处执行的内部函数，打开窗体后，自动记录下某个用户，几点几分，登录了这个窗体）
Functions.Execute("窗口")  
Functions.Execute("打开制单")（表头必填，表体必填的字段自动着色，不允许填写的字段自动锁定）

 
此主题相关图片如下：1.png

''''''表头显示字段/表头必填字段

Dim dra As DataRow = DataTables("单据配置表").Find("单据类型='" & _djlx & "' and 窗口名称='" & _ckmc & "' ")
_btzd  = "|" & dra("单据体必填字段") & "|"        '''''''''

r("方向")=dra("方向")

Dim xszd As String = dra("单据头显示列")
Dim btzd As String = dra("单据头必填字段")
For Each c As WinForm.Control In e.Form.Controls
    If btzd.Contains(c.Name)=True Then
        c.BackColor = Color.yellow (表头必填字段为黄色)
    End If
   
    If Typeof c Is WinForm.ComboBox=True Or  Typeof c Is WinForm.Label=True Or Typeof c Is WinForm.DateTimePicker =True Then
        If   xszd.Contains(c.Name.Trim("_"))=True  Or c.Name.Contains("选单号")=True  Or c.Name.Contains("源单类型")=True Or c.Name.Contains("方向")=True  Then
            c.Visible =True
        Else
            c.Visible =False
        End If
    End If
Next
''''''表头显示字段/表头必填字段

 

Dim lx As WinForm.Label = e.Form.Controls("外购入库")
lx.Text = _djlx
lx.Visible =True
e.Form.Text = _djlx

2016年11月1日新增单设置功能

通过窗体来设置每张单据，修改单据配置表，来显示单据头和单据体要显示的字段和必填字段，以及列宽

 

此主题相关图片如下：1.png

窗体里的datacolchanged事件中增加以下代码

 

Dim ctmc As WinForm.ComboBox = e.Form.Controls("窗口名称")
Dim djlx As WinForm.ComboBox = e.Form.Controls("单据类型")
Dim btbt As WinForm.ComboBox = e.Form.Controls("表头表体")

If btbt.Value="表头" Then
   
    If e.DataCol.Name = "是否显示" Or e.DataCol.Name = "是否必填" Then
       
        Dim s As String
        Dim m As String
        For Each r As Row In Tables(e.Form.name & "_table1").Rows
            If r("是否显示") = True Then
                s = s & r("字段") & "|"
            End If
            If r("是否必填") = True Then
                m= m & r("字段") & "|"
            End If
           
        Next
        s=s.Trimend("|")
        m=m.Trimend("|")
       
        Dim dr As DataRow
        dr = DataTables("单据配置表").SQLFind( "窗口名称 = '" & ctmc.Value & "' and 单据类型 = '" & djlx.Value & "'" )
        If dr IsNot Nothing Then
            dr("单据头显示列") = s
            dr("单据头必填字段") = m
            dr.Save
        End If
    End If
ElseIf btbt.Value="表体" Then
   
    Dim s As String
    Dim m As String
    For Each r As Row In Tables(e.Form.name & "_table1").Rows
        If r("是否显示") = True Then
            s = s & r("字段") & "|" & r("宽度") & "|"
        End If
        If r("是否必填") = True Then
            m= m & r("字段") & "|"
        End If
       
    Next
    s=s.Trimend("|")
    m=m.Trimend("|")
   
    Dim dr As DataRow
    dr = DataTables("单据配置表").SQLFind( "窗口名称 = '" & ctmc.Value & "' and 单据类型 = '" & djlx.Value & "'" )
    If dr IsNot Nothing Then
        dr("单据体显示列") = s
        dr("单据体必填字段") = m
        dr.Save
    End If
    '
End If

 

此主题相关图片如下：aa.jpg


此主题相关图片如下：bbb.jpg


此主题相关图片如下：ccc.jpg

看来移动的光纤真的有问题，OK，谢谢反溃，我会想办法解决

1.比如说K3里的投料单变更，K3系统里的变更太死板，如果车间多领料了，根本就没有办法变更下来，必须先退料后才能变更，

此主题相关图片如下：1.png

 

 

此主题相关图片如下：2.png

 

 

此主题相关图片如下：3.png

重新换了个数据源应该可以了

请问你要实现什么功能

这个需求很简单啊