评价指标.frm

用友u8财务源码,用visual basic开发

                                Call setQueryState
                                setTreeview
                                setNoItemState
                            Else
                                b = False
                                Exit Sub
                            End If
                        
                    Else
'                        If Trim(dxItemSG1.TextMatrix(credstat.selRow, 1)) = "" And Trim(dxItemSG1.TextMatrix(credstat.selRow, 2)) = "" Then
'                            If credstat.selRow = dxItemSG1.Rows - 1 Then
'                                Sqlstr = "delete from Fd_creEvaPara where itemName='" & credstat.itemName & "' and "
'                                Sqlstr = Sqlstr & "standard='" & credstat.dxzbitem(credstat.selRow - 1, 1) & "'"
'                                Con.BeginTrans
'                                Con.Execute Sqlstr
'                                Con.CommitTrans

                                dxItemSG1.RemoveItem credstat.selRow
'                                b = False
'                                ExitSub
'                            Else
'                                sqlstr = "delete from FD_creEvapara where itemname='" & credstat.itemName & "'"
'                                sqlstr = sqlstr & " and standard='" & dxItemSG1.TextMatrix(credstat.selRow, 1) & "'"
'                                Con.Execute sqlstr
'                                Con.CommitTrans
                                credstat.modified = True
                                b = True
                                Call setModifyBtn
'                            End If
                    End If
'                    copyDxzbToarray credstat
'                    LoadArrayToGrid credstat, dxItemSG1
'                    credstat.Dxzbsm = dxItemSG1.Rows - 1
                    credstat.selRow = dxItemSG1.Rows - 1
                    Optdxzb.Value = True
            Case vbNo
               Exit Sub
            End Select
    End If
        If b Then
            MsgBox "记录删除成功"
       Else
            MsgBox "删除操作失败！"
       End If
       Exit Sub
error0:
    con.RollbackTrans
    MsgBox "删除操作失败！"
End Sub
'设置查询状态界面
Private Sub setQueryState()
    credstat.ModifyState = 0
    credstat.modified = False
    FraInpFormu.Visible = False
    Lblmsg.Visible = False
    TxtitemName.Enabled = False
    TxtcalFormula.Enabled = False
    TxtstanValue.Enabled = False
    TxtcalMarkFormu.Enabled = False
    TxtdlMemo.Enabled = False
    Txtdxmemo.Enabled = False
    dxItemSG1.ReadOnly = True
    Frame2.Enabled = False
    With tlbTool
        .Buttons("print").Enabled = True
        .Buttons("preview").Enabled = True
        .Buttons("Output").Enabled = True
        .Buttons("Add").Enabled = True
        .Buttons("Modify").Enabled = True
        .Buttons("Delete").Enabled = True
        .Buttons("addColumn").Enabled = False
        .Buttons("delColumn").Enabled = False
        .Buttons("Cancel").Enabled = False
        .Buttons("Save").Enabled = False
        .Buttons("Help").Enabled = True
        .Buttons("Exit").Enabled = True
    End With
    
End Sub
'设置修改按钮状态
Private Sub setModifyBtn()
    With tlbTool
        .Buttons("print").Enabled = False
        .Buttons("preview").Enabled = False
        .Buttons("Output").Enabled = False
        .Buttons("Add").Enabled = False
        .Buttons("Modify").Enabled = False
        .Buttons("Delete").Enabled = False
'        If credstat.ItemType = 1 Then
            .Buttons("addColumn").Enabled = False
            .Buttons("delColumn").Enabled = False
'            .Buttons("addColumn").Visible = False
'            .Buttons("delColumn").Visible = False
'        Else
'            .Buttons("addColumn").Enabled = False
'            .Buttons("delColumn").Enabled = False
'            .Buttons("addColumn").Visible = True
'            .Buttons("delColumn").Visible = True
'         End If
        .Buttons("Cancel").Enabled = True
        .Buttons("Save").Enabled = True
    End With
End Sub
'设置打印按钮状态
Private Sub setPrnBtn()
    tlbTool.Enabled = False
End Sub
'设置增行按钮状态
Private Sub setAddColumnBtn()
    With tlbTool
        .Buttons("print").Enabled = False
        .Buttons("preview").Enabled = False
        .Buttons("Output").Enabled = False
        .Buttons("Add").Enabled = False
        .Buttons("Modify").Enabled = False
        .Buttons("Delete").Enabled = False
        .Buttons("Cancel").Enabled = True
        .Buttons("Save").Enabled = True
    End With
End Sub

Private Sub cmdComma_Click()
'    If Lastinput = "/" Then
'        Lastchar = Lastchar & "."
'    End If
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, pos) + "." + mID(TxtcalMarkFormu.Text, pos + 1)
'    str = Trim(TxtcalMarkFormu.Text) & "."
    'strcalMark = strcalMark & "."
'    cmdComma.Enabled = False
'    cmdRealValue.Enabled = False
'    cmdstanValue.Enabled = False
'    cmdStanMark.Enabled = False
'    Dim numi
'    For numi = 0 To 9
'        cmdnum(numi).Enabled = True
'    Next
'    '置操作数按钮状态
'    cmdoprPlus.Enabled = False
'    cmdoprMinus.Enabled = False
'    cmdoprTime.Enabled = False
'    cmdoprDiv.Enabled = False
'    '置括号按钮状态
'    cmdoprLBracket.Enabled = False
'    cmdoprRBracket.Enabled = False
'    oprcount = 0
    
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
    TxtcalMarkFormu.SelStart = pos + 1
    'TxtcalMarkFormu.SelStart = Len(str)
End Sub

Private Sub cmdnum_Click(Index As Integer)
'        If Lastinput = "/" Then
'            If Len(Lastchar) = 0 Then
'                If Index = 0 Then
'                    cmdComma.Enabled = True
'                    Lastchar = Lastchar & Index
'                    Call disableAll
'                 End If
'            Else
'                Lastchar = Lastchar & Index
'                Call numclick
'            End If
'        Else
'            Call numclick
'        End If
'        str = str + CStr(Index)
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + CStr(Index) + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
        
'        str = Trim(TxtcalMarkFormu.Text) & CStr(Index)
'        strcalMark = strcalMark + CStr(Index)
        TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
        TxtcalMarkFormu.SelStart = pos + 1
'        TxtcalMarkFormu.SelStart = Len(str)
'        TxtcalMarkFormu.SetFocus
        Lastinput = "pa"
End Sub
Private Sub disableAll()
    cmdRealValue.Enabled = False
    cmdstanValue.Enabled = False
    cmdStanMark.Enabled = False
    Dim numi
    For numi = 0 To 9
        cmdnum(numi).Enabled = False
    Next
    '置操作数按钮状态
    cmdoprPlus.Enabled = False
    cmdoprMinus.Enabled = False
    cmdoprTime.Enabled = False
    cmdoprDiv.Enabled = False
    '置括号按钮状态
    cmdoprLBracket.Enabled = False
    cmdoprRBracket.Enabled = False
    oprcount = 0
    
End Sub
Private Sub numclick()
    cmdRealValue.Enabled = False
    cmdstanValue.Enabled = False
    cmdStanMark.Enabled = False
    Dim numi
    For numi = 0 To 9
        cmdnum(numi).Enabled = True
    Next
    '置操作数按钮状态
    cmdoprPlus.Enabled = True
    cmdoprMinus.Enabled = True
    cmdoprTime.Enabled = True
    cmdoprDiv.Enabled = True
    '置括号按钮状态
    cmdoprLBracket.Enabled = False
    If bL > 0 And oprcount > 0 And Lastinput <> "lb" Then
        cmdoprRBracket.Enabled = True
    Else
        cmdoprRBracket.Enabled = False
    End If
    oprcount = 0
    
End Sub

'除法按钮处理
Private Sub cmdoprDiv_Click()
'    If Len(Lastchar) <> 0 Then
'        If Abs(getnumber(Lastchar)) = Abs(0) Then
'            MsgBox "除数不能为0！", vbCritical, "输入错误"
'            Call delzero
'            Exit Sub
'        End If
'    End If
'    Lastchar = ""
'    str = str + "/"
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + "/" + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
'    str = Trim(TxtcalMarkFormu.Text) + "/"
    'strcalMark = strcalMark + "/"
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
   TxtcalMarkFormu.SelStart = pos + 1
'    Call oprclick
'    Lastinput = "/"
'    TxtcalMarkFormu.SetFocus
End Sub
'左括号按钮处理
Private Sub cmdoprLBracket_Click()
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + "(" + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
'    str = Trim(TxtcalMarkFormu.Text) + "("
'    strcalMark = strcalMark + "("
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
    TxtcalMarkFormu.SelStart = pos + 1
'    cmdoprPlus.Enabled = False
'    cmdoprMinus.Enabled = False
'    cmdoprTime.Enabled = False
'    cmdoprDiv.Enabled = False
'    cmdoprLBracket.Enabled = True
'    cmdoprRBracket.Enabled = False
'    bL = bL + 1
'    TxtcalMarkFormu.SetFocus
'    Lastinput = "lb"
End Sub
'减号按钮处理
Private Sub cmdoprMinus_Click()
'    If Len(Lastchar) <> 0 Then
'        If Abs(getnumber(Lastchar)) = Abs(0) Then
'            MsgBox "除数不能为0！", vbCritical, "输入错误"
'            Call delzero
'            Exit Sub
'        End If
'    End If
'    Lastchar = ""
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + "-" + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
'    str = Trim(TxtcalMarkFormu.Text) + "-"
    'strcalMark = strcalMark + "-"
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
   TxtcalMarkFormu.SelStart = pos + 1
'    Call oprclick
'    TxtcalMarkFormu.SetFocus
'    MsgBox ""
'    Lastinput = "op"
End Sub
'+号
Private Sub cmdoprPlus_Click()
'    If Len(Lastchar) <> 0 Then
'        If Abs(getnumber(Lastchar)) = Abs(0) Then
'            MsgBox "除数不能为0！", vbCritical, "输入错误"
'            Call delzero
'            Exit Sub
'        End If
'    End If
'    Lastchar = ""
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + "+" + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
'    str = Trim(TxtcalMarkFormu.Text) + "+"
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
    TxtcalMarkFormu.SelStart = pos + 1
'    Call oprclick
'    TxtcalMarkFormu.SetFocus
'    Lastinput = "op"
End Sub
'右括号按钮处理
Private Sub cmdoprRBracket_Click()
'    If Len(Lastchar) <> 0 Then
'        If Abs(getnumber(Lastchar)) = Abs(0) Then
'            MsgBox "除数不能为0！", vbCritical, "输入错误"
'            Call delzero
'            Exit Sub
'        End If
'    End If
'    Lastchar = ""
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + ")" + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
'  str = Trim(TxtcalMarkFormu.Text) + ")"
'    strcalMark = strcalMark + ")"
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus
    DoEvents
    TxtcalMarkFormu.SelStart = pos + 1
'    bL = bL - 1
'    cmdRealValue.Enabled = False
'    cmdstanValue.Enabled = False
'    cmdStanMark.Enabled = False
'    Dim numi
'    For numi = 0 To 9
'        cmdnum(numi).Enabled = False
'    Next
'
'    cmdoprPlus.Enabled = True
'    cmdoprMinus.Enabled = True
'    cmdoprTime.Enabled = True
'    cmdoprDiv.Enabled = True
'
'    cmdoprLBracket.Enabled = False
'    If bL > 0 Then
'        cmdoprRBracket.Enabled = True
'    Else
'        cmdoprRBracket.Enabled = False
'    End If
'    TxtcalMarkFormu.SetFocus
'    Lastinput = "br"
End Sub
'乘法
Private Sub cmdoprTime_Click()
'    If Len(Lastchar) <> 0 Then
'        If Abs(getnumber(Lastchar)) = Abs(0) Then
'            MsgBox "除数不能为0！", vbCritical, "输入错误"
'            Call delzero
'            Exit Sub
'        End If
'    End If
'    Lastchar = ""
    pos = TxtcalMarkFormu.SelStart
    str = left(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart) + "*" + mID(TxtcalMarkFormu.Text, TxtcalMarkFormu.SelStart + 1)
'    str = Trim(TxtcalMarkFormu.Text) + "*"
'    strcalMark = strcalMark + "*"
    TxtcalMarkFormu.Text = Trim(str)
    TxtcalMarkFormu.SetFocus