开发大型的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, cn, adOpenStatic, adLockReadOnly

With fg
        .Clear
        .Rows = 1
        .Cols = rs.RecordCount + 3
        For i = 3 To .Cols - 1
            .ColWidth(i) = 1300
            .ColAlignment(i) = flexAlignRightCenter
        Next i
        
        .TextMatrix(0, 1) = "EmpID"
        .TextMatrix(0, 2) = "员工姓名"

.Cell(flexcpAlignment, 0, 1, 0, .Cols - 1) = flexAlignCenterCenter
        .ColWidth(0) = 300
        .ColHidden(1) = True

For i = 0 To rs.RecordCount - 1
            .TextMatrix(0, i + 3) = rs.Fields("ItemName").Value
            .ColKey(i + 3) = rs.Fields("ItemName").Value
            rs.MoveNext
        Next i
    End With
    
    Exit Sub
err:
    If rs.State <> adStateClosed Then rs.Close
    Set rs = Nothing
    If cn.State <> adStateClosed Then cn.Close
    Set cn = Nothing

MsgBox err.Description, vbCritical, "SetFrame"
End Sub

注意,.ColKey(i + 3) = rs.Fields("ItemName").Value,这句是重点。

下在是在工资表编辑时,根据字段定义,来自动计算公式列和所得税列的值

Private Sub fg_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
    Dim formula As String '公式
    Dim funCol As String '需要计算的列
    Dim i As Integer
    Dim s As Single
    Dim q As Single
    
    If Col = 2 Then Cancel = True
    On Error GoTo err
    If Row <> 0 Then

If GetEditMode(fg.ColKey(Col)) = "公式计算" Then
            funCol = "fg.TextMatrix(" & Row & "," & Col & ")="
            
            formula = GetFormula(mFrameID, GetItemID(fg.ColKey(Col)))
            
            '例:基本工资+补贴-保险
            '将公式替换成行列索引
            For i = 3 To fg.Cols - 1
                formula = Replace(formula, fg.ColKey(i),
"fg.ValueMatrix(" & Row & ", " & fg.colIndex(fg.ColKey(i))
& ")")
            Next i
            formula = funCol & formula
    
            ScriptControl1.Reset
            ScriptControl1.AddObject "fg", fg
            ScriptControl1.ExecuteStatement formula
            
        ElseIf GetEditMode(fg.ColKey(Col)) = "所得税" Then
            txtYF.Text = Trim(GetINIstr(gAppPath & "option.ini", "system", "yffield"))
            '应发工资
            s = Val(fg.TextMatrix(Row, fg.colIndex(txtYF.Text)))
            '起征点
            q = Val(GetINIstr(gAppPath & "option.ini", "system", "gztax"))
            If s <= q Then
                fg.TextMatrix(Row, Col) = "0"
            Else
            '全月应纳税所得额
                fg.TextMatrix(Row, Col) = GetTax(s - q)
            End If
            
            
        End If
    End If
    
    Exit Sub
err:
    MsgBox err.Description, vbExclamation, "fg_BeforeEdit"
End Sub

注意:formula = Replace(formula, fg.ColKey(i), "fg.ValueMatrix(" &
Row & ", " & fg.colIndex(fg.ColKey(i)) & ")"),这句是重点。

工资表结构预定义:

工资数据录入,下图的各列除基本工资和岗位工资外,其它列为自动计算出的数值:

有看不懂的或需要代码的可能联系我

http://www.tshuake.com/microerp

MicroERP开发技术分享:vsFlexGrid、scriptControl实现工资表自定义列与表间关系计算的更多相关文章

  1. MicroERP开发技术分享:技术选型

    为什么要想起开发一个近似一套完整的ERP软件呢,原因有二:一是想在空闲时间把以前的进销存软件丰富一下,结果越搞越大了:二是这些年光搞C#了,不想把VB6忘光了 非微软的东西还真没时间去学,也有主要原因 ...

  2. iOS开发技术分享(1)— iOS本地数据存储

    iOS开发技术分享(1)— iOS本地数据存储 前言: 我本是一名asp.net程序员,后来加入了iOS游戏开发队伍,到现在也有一年多的时间了.这一年来,每天都干到2.3点钟才睡觉,不为别的,只为了学 ...

  3. Docker原理(开发技术分享转发)

    Docker原理Docker是啥Docker是一个程序运行.测试.交付的开放平台,Docker被设计为能够使你快速地交付应用.在Docker中,你可以将你的程序分为不同的 基础部分,对于每一个基础部分 ...

  4. javac选项以递归方式编译给定目录下的所有Java文件 - IT屋-程序员软件开发技术分享社区

    http://www.it1352.com/539276.html #Linux $ find -name“* .java”> sources.txt $ javac @ sources.txt ...

  5. SDNLAB技术分享(四):利用ODL下发流表创建VxLAN网络

    邓晓涛,当前就职于江苏省未来网络创新研究院,是CDN团队的一名研发人员,主要从事SDN相关的研发相关工作.曾就职于三星电子于先行解决方案研发组任高级工程师.思科系统于云协作应用技术部(CCATG)任工 ...

  6. fir.im Weekly - 2016 移动开发技术大回顾

    2016 年是移动技术发展迅速的一年,认认真真回顾这一年必不可少.@移动开发前线 的 这篇 2016移动开发技术巡礼 ,精心盘点了 2016 年 移动开发技术大事件,分为 iOS/Android平台篇 ...

  7. 爱奇艺技术分享:爱奇艺Android客户端启动速度优化实践总结

    本文由爱奇艺技术团队原创分享,原题<爱奇艺Android客户端启动优化与分析>. 1.引言 互联网领域里有个八秒定律,如果网页打开时间超过8秒,便会有超过70%的用户放弃等待,对Andro ...

  8. fir.im Weekly - 新开发时代,需要什么样的技术分享

    "2016年,当我们迎来了如Xcode 8.Swift 3.SiriKit.Android N.Android Instant Apps.React Native等诸多移动开发技术.开发工具 ...

  9. Excel阅读模式/单元格行列指示/聚光灯开发 技术要点再分享

    1. 引言 文题中所谓技术要点再分享,本意是想在大神Charltsing Liu的博文“简单介绍Excel单元格行列指示的实现原理(俗称聚光灯功能)”的基础上写一点个人开发体会.写本文的初衷有三点,一 ...

随机推荐

  1. 微信小程序-视图数据绑定

    数据绑定 在逻辑层设置数据例如: Page({ data: { message: 'Hello MINA!' } })//设置了一个属性,名称是message 值为Hello MINA! 在视图显示数 ...

  2. Android高级控件--AdapterView与Adapter

    在J2EE中提供过一种非常好的框架--MVC框架,实现原理:数据模型M(Model)存放数据,利用控制器C(Controller)将数据显示在视图V(View)上.在Android中有这样一种高级控件 ...

  3. activity通过onActivityResult间数据交互

    首先要创建2个activity 分别为MainActivity和OneActiivity MainActivity代码如下: package com.tp.soft.app; import andro ...

  4. Linux-ubuntu指令使用积累(长期更新)

    alias cat cd cp ls mkdir mv rm sudo tar chmod       1. sudo 系统管理指令.放在其它指令之前使用,允许普通用户在root权限下执行部分或者全部 ...

  5. What is SSL and what are Certificates?

    Refer to http://www.tldp.org/HOWTO/SSL-Certificates-HOWTO/x64.html The content 1.2. What is SSL and ...

  6. MySQL 数据库的导入 导出

    window下 1.导出整个数据库 mysqldump -u root -p smart_anju > Mysmart_anju.sql 2.导出一个表 mysqldump -u root -p ...

  7. --------------- Target-----------------

    熟悉Java EE相关技术和框架(包括Java语言/Struts/Spring/iBatis/hibernet等):熟悉熟悉Spring,Struts,iBatis及至少一种Java 应用服务器如to ...

  8. SPSS数据分析—主成分分析

    我们在分析问题的时候,为了准确全面的反映问题,常常收集很多变量,这些变量之间往往具有相关性,导致存在大量的重复信息,直接使用的话,不但模型非常复杂,而且所引起的共线性问题会使模型准确度降低. 对此,我 ...

  9. 使用Jmeter进行HTTP接口测试

    这几天学习了一下使用Jmeter进行HTTP接口测试,这个也是后面进行性能测试的基础吧 安装运行请自行搜索,下载地址:http://jmeter.apache.org/download_jmeter. ...

  10. lamp搭建,thinkphp安装

    有几天没有记录学习进度了,简单回顾一下:前天由于不熟悉linux的安装操作,以及遇上了各种问题花了将近6小时搭建好了lamp,然而在中途学习修改配置时误改了启动的图形文件,导致了昨天开机时图形界面无法 ...