MicroERP开发技术分享：vsFlexGrid、scriptControl实现工资表自定义列与表间关系计算

开发大型的MIS系统，肯定是离不开第三方控件的，同时也要根据项目需要自己写几个。

MicroERP共用了以下几个控件：

第三方商业控件:

vsFlexGrid：大名鼎鼎的表格控件，不用多说，配合vsPrinter使用

开源的基础上修改和自己写的：

button按钮

cash会计凭证用的金额线

MDITabs MDI窗体

LeftMenu手风琴导航菜单

这里着重说一下vsFlexGrid、scriptControl的使用，以工资模块来说明表格运算及脚本编程示例。

这个控件也不是万能的，比如单元格没有change事件，很淡疼

在工资发放中，最难的就是工资表的自定义字段，某些成熟的软件用了内置上百个字段，然后由用户修改字段属性方式来完成，这里我用了“行转列”的方式，具体实现效果请参见MicroERP中的工资管理模块。

实现原理就是把预设的工资结构在填制工资表时，将表中的行转为工资表中的发放字段，某工资表数据行如下：

基本工资

岗位工资

养老保险

应发工资

应发工资=基本工资+岗位工资-养老保险

实发工资表时，显示为：

员工姓名|基本工资|岗位工资|养老保险|应发工资

员工一.......................

员工二.......................

以VB为例，实现代码如下，其它语言类似

'行转列
Public Sub SetFrame(frameID As Long)

    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, sql As String
    Dim i As Long
    btnSelectEmployee.Enabled = True
   
    sql = "SELECT tbGZItem.ItemName "
    sql = sql & "FROM (tbGZFrame INNER JOIN tbGZFrameDetail ON tbGZFrame.ID = tbGZFrameDetail.FrameID) INNER JOIN tbGZItem ON tbGZFrameDetail.ItemID = tbGZItem.ID "
    sql = sql & "where tbGZFrameDetail.FrameID=" & frameID & " order by tbGZFrameDetail.FOrder"
    On Error GoTo err
    Set cn = GetConnection
    rs.CursorLocation = adUseClient
    rs.Open sql,