📄 评价指标.frm
字号:
Index = 3
Left = 1200
TabIndex = 38
Top = 240
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "2"
Height = 255
Index = 2
Left = 840
TabIndex = 37
Top = 240
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "1"
Height = 255
Index = 1
Left = 480
TabIndex = 36
Top = 240
Width = 255
End
Begin VB.CommandButton cmdnum
Caption = "0"
Height = 255
Index = 0
Left = 120
TabIndex = 35
Top = 240
Width = 255
End
End
Begin VB.CommandButton cmdoprRBracket
Caption = ")"
Height = 255
Left = 1680
TabIndex = 16
Top = 2160
Width = 255
End
Begin VB.CommandButton cmdoprLBracket
Caption = "("
Height = 255
Left = 1200
TabIndex = 15
Top = 2160
Width = 255
End
Begin VB.CommandButton cmdoprDiv
Caption = "/"
Height = 255
Left = 1680
TabIndex = 14
Top = 1680
Width = 255
End
Begin VB.CommandButton cmdoprTime
Caption = "*"
Height = 255
Left = 1200
TabIndex = 13
Top = 1680
Width = 255
End
Begin VB.CommandButton cmdoprMinus
Caption = "-"
Height = 255
Left = 1680
TabIndex = 12
Top = 1200
Width = 255
End
Begin VB.CommandButton cmdoprPlus
Caption = "+"
Height = 255
Left = 1200
TabIndex = 11
Top = 1200
Width = 255
End
Begin VB.CommandButton cmdStanMark
Caption = "标准分"
Height = 255
Left = 240
TabIndex = 10
Top = 2160
Width = 735
End
Begin VB.CommandButton cmdstanValue
Caption = "标准值"
Height = 255
Left = 240
TabIndex = 9
Top = 1680
Width = 735
End
Begin VB.CommandButton cmdRealValue
Caption = "实际值"
Height = 255
Left = 240
TabIndex = 8
Top = 1200
Width = 735
End
Begin VB.Frame Frame3
Caption = "运算符"
Height = 1695
Left = 1080
TabIndex = 32
Top = 960
Width = 975
End
Begin VB.Frame Frame4
Caption = "项目"
Height = 1695
Left = 120
TabIndex = 33
Top = 960
Width = 975
End
Begin VB.Label Lblmsg
Caption = "“实际值、标准值、标准分“三项至少包含一项"
Height = 615
Left = 240
TabIndex = 47
Top = 240
Width = 1695
End
End
Begin MSComctlLib.ImageList ilsTlb
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "评价指标.frx":001C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "评价指标.frx":046E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "评价指标.frx":08C0
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label1
Caption = "评价指标名称："
Height = 255
Left = 2640
TabIndex = 21
Top = 255
Width = 1335
End
End
Begin MSComctlLib.Toolbar tlbTool
Align = 1 'Align Top
Height = 540
Left = 0
Negotiate = -1 'True
TabIndex = 0
Top = 0
Width = 9405
_ExtentX = 16589
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 16
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "打印"
Key = "print"
Description = "printBut"
Object.ToolTipText = "打印"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "预览"
Key = "preview"
Description = "prePrnBut"
Object.ToolTipText = "预览"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "输出"
Key = "Output"
Description = "OutputBtn"
Object.ToolTipText = "输出"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "Add"
Description = "AddBtn"
Object.ToolTipText = "增加评价指标"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "修改"
Key = "Modify"
Description = "ModifyBtn"
Object.ToolTipText = "修改评价指标"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "删除"
Key = "Delete"
Description = "DeleteBtn"
Object.ToolTipText = "删除当前记录"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "保存"
Key = "Save"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "放弃"
Key = "Cancel"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "增行"
Key = "addColumn"
Description = "BtnaddColumn"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "删行"
Key = "delColumn"
Description = "delColumn"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
Description = "HelpBtn"
Object.ToolTipText = "帮助"
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
Description = "ExitBtn"
Object.ToolTipText = "退出"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmEstItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团股份有限公司
' 系统名称：信用评价
' 功能说明：信用评价指标增删改界面
' 作者：罗涛
' 时间：2002-05-15
Option Explicit
Dim duplicate As Boolean
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqlstr As String
Dim ItemName As String
'Dim credstat As Credstate_Stru
'以下变量为编辑公式的状态变量
Dim str As String '公式字符串
Dim Lastinput As String '上次输入种类
Dim Lastchar As String '上次输入
Dim strcalMark As String '公式对应的实际计算公式
Dim cpara(2) As String '中文参数名
Dim epara(2) As String '实际参数名
Dim oprcount, bL As Integer '操作符，左括号个数
Dim pos As Integer
Dim curNodeIndex As Long
Dim precol As Long '当前列的前一列
Dim xmlInit As Boolean
'设置删除操作后的界面状态
Private Sub SetdeleteState()
TxtitemName.Text = ""
TxtcalFormula.Text = ""
TxtstanValue.Text = ""
TxtcalMarkFormu.Text = ""
TxtdlMemo.Text = ""
Txtdxmemo.Text = ""
dxItemSG1.clear
FraInpFormu.Visible = False
credstat.ItemName = ""
credstat.ModifyState = 0
credstat.selcol = 0
credstat.selRow = 0
Call setQueryState
End Sub
'设置参数按钮状态
Private Sub paraclick()
'置参数按钮状态
Lastinput = "pa"
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 And oprcount > 0 And Lastinput <> "lb" Then
cmdoprRBracket.Enabled = True
Else
cmdoprRBracket.Enabled = False
End If
oprcount = 0
End Sub
'设置操作符按钮状态
Private Sub oprclick()
oprcount = 1
'置参数按钮状态
cmdRealValue.Enabled = True
cmdstanValue.Enabled = True
cmdStanMark.Enabled = True
Dim numi
For numi = 0 To 9
cmdnum(numi).Enabled = True
Next
'置操作数按钮状态
cmdoprPlus.Enabled = False
cmdoprMinus.Enabled = False
cmdoprTime.Enabled = False
cmdoprDiv.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -