主题：审批流程设计相关

老师，我有个审核流程表，结构如下：

此主题相关图片如下：qq截图20200318150427.png

有个测试表，表中有个审批状态列，提交审批后，审批状态 = 审批流程表中的“提交申请状态”

我想做一个通用审批窗口，每次执行审批时，先根据“测试表”中的审批状态，在审批流程表中找到对应的流程，审批完，“测试表”中的审批状态就等于对应审批流程的状态。直到审批状态为审批完成，请老师指教一下应该怎么写通用的“审核窗口”中通过的按钮代码。

好的，谢谢老师，我改为竖表试试，不会再请教。

老师，表结构我修改了，请老师看看。这个流程我弄完了分享出来，论坛这方面太少了，会做的都不愿意分享出来。

 

老师，下一步的流程状态怎么写呢？

Dim dr As Row = Tables(vars("editTable")).Current
Dim ds  As  DataRow = DataTables("审核流程表").SQLFind("表名称 = '"& vars("editTable")&"'") '找出编号为03的产品
If ds IsNot Nothing Then  '如果找到的话

    If dr("审批状态") = ds("审核状态") Then
        If _UserPost = ds("二级审核") Then
            msgbox(_UserPost)
            Dim dw As Row = Tables("审核意见表").AddNew()
            dw("表名称")= vars("editTable")
            dw("审核部门")= _UserGroup
            dw("审核人")= _UserXingMing
            dw("审核日期")= Date.Now
            dw("审核意见")= e.Form.Controls("TextBox1").text
            dw("ID")= dr("ID")
            dr("审批状态") = ds("二级审核状态")
        Else
            MessageBox.Show("你没有审核资格","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            e.Cancel = True
        End If
    End If
Else
    MessageBox.Show("该表未加入审批流程,请给管理员联系","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    e.Cancel = True
End If

此主题相关图片如下：qq截图20200323161518.png

请老师指导一下这个表这样设计有没优化的地方？

使用上没什么问题，主要是在设计流程时，这样有点点不方便。

流程1是提交的状态，流程2是一级审核人及审核后的状态。

这样好像不太方便

老师，想根据审核流程表，动态生成这样的流程图？每个流程不一样，写成通用的请老师空的时候帮忙写一下，谢谢！我这个是全代码写，不通用。

 

此主题相关图片如下：qq截图20200324101327.png

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim fnt As New Font("宋体",10)
Dim msg As String = "1"
g.DrawString(msg,fnt,Brushes.Red,33,24)  '审批流程编号
g.DrawEllipse(Pens.Blue,28,20,20,20)  '左,上

Dim g1 As Graphics = p.Graphics
Dim fnt1 As New Font("宋体",10)
Dim msg1 As String = "提交申请"
g1.DrawString(msg1,fnt,Brushes.Black,10,45)  'l

Dim g2 As Graphics = p.Graphics
g2.DrawLine(Pens.Black,60,30,120,30)  'x起点距左,y起点距上,x终点距左,y终点距上
g2.DrawLine(Pens.Black,110,25,120,30)  'x起点距左,y起点距上,x终点距左,y终点距上
g2.DrawLine(Pens.Black,110,35,120,30)  'x起点距左,y起点距上,x终点距左,y终点距上

Dim g3 As Graphics = p.Graphics
Dim fnt3 As New Font("宋体",10)
Dim msg3 As String = "2"
g3.DrawString(msg3,fnt,Brushes.Red,136,24)  'x距左 ,y起点距上
g3.DrawEllipse(Pens.Blue,132,20,20,20)  'x起点距左,y起点距上,x圆半径,y圆半径

Dim g4 As Graphics = p.Graphics
Dim fnt4 As New Font("宋体",10)
Dim msg4 As String = "财务部制单"
g4.DrawString(msg4,fnt,Brushes.Black,107,45)  'x距起点,y距上 

p.Repaint()

审核流程表结构如下：

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

老师流程和流程间的距离怎么来控制写成通用的呢，还麻烦老师写一个

再麻烦老师写写这个，我删除一个中间流程，本表的流程编号后面的自动减1

比如我删除6，后面的7边为6，删除5,6改成5,7改成6

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

老师，我用Select时没问题，用sqlSelect删除后保存，然后在加载，审核流程表中的流程编号也没修改过来呢，是什么问题？

 

Dim dr1 As Row =   Tables(vars("editTable")).Current
Dim drs As List(Of DataRow) = DataTables(vars("editTable")).sqlSelect("表名称 = '"& dr1("表名称") & "'","流程编号")
For i As Integer = 0 To drs.count -1
    drs(i)("流程编号") = i+1
Next
DataTables(vars("editTable")).Save
DataTables(vars("editTable")).load