📄 +
字号:
NumButtons = 17
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "Preview"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "Export"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "AddNew"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Edit"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "Delete"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "放弃"
Key = "Cancel"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "Refresh"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增行"
Key = "AddCol"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删行"
Key = "DeleteCol"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
EndProperty
EndProperty
End
Begin JackSize.JackResize jkrTree
Height = 5025
Left = 2895
TabIndex = 10
TabStop = 0 'False
Top = 720
Width = 45
_ExtentX = 79
_ExtentY = 8864
End
Begin MSComctlLib.ImageList ilsTlbTre
Left = 960
Top = 2520
_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":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "利率设置.frx":0452
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "利率设置.frx":08A4
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ilsTlb
Left = 200
Top = 2000
_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":0CF6
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "利率设置.frx":1148
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "利率设置.frx":159A
Key = ""
EndProperty
EndProperty
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 660
Left = 0
Top = 0
Width = 3975
_ExtentX = 7011
_ExtentY = 1164
End
End
Attribute VB_Name = "frmIRate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2001.11.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---利率设置
'--------------------------------
Option Explicit
Private Const conMoveLimit = 1000
Private Const m_conBIStyle = 8
Private Const m_conChildBIStyle = 97
Private m_EO As U8FDEso.EntityObject
Private m_OldEO As U8FDEso.EntityObject
Private m_OID As New U8FDEso.OIDObject
Private m_EditStatus As Boolean
Private m_EditCol As Byte '0编辑1增列2删列
Private NodeKey As String
Private PrintTypeList As String
Private PrintSizeList As String
Private SetPrintDataStyleXML_flag As Boolean
Public Property Get EO() As U8FDEso.EntityObject
Set EO = m_EO
End Property
Public Property Set EO(NewEO As U8FDEso.EntityObject)
Set m_EO = NewEO
End Property
Private Sub chkRation_flag_Click()
If Me.chkRation_flag.Value = 1 Then
Me.txtRation_mny.Enabled = True
Me.txtRation_rate.Enabled = True
Else
Me.txtRation_mny.Enabled = False
Me.txtRation_rate.Enabled = False
End If
End Sub
Private Sub chkRation_flag_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
chkRation_flag.Value = Abs(chkRation_flag.Value - 1)
If chkRation_flag.Value = 1 Then Me.txtRation_mny.SetFocus
End If
End Sub
Private Sub cmdAdjustDate_Click()
DisplayCalendar Me.txtAdjustDate, Me.hWnd, Me.picView.left, Me.picView.top
txtAdjustDate.SetFocus
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo ErrHandler
Dim ShiftDown, AltDown, CtrlDown
ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
Select Case KeyCode
Case vbKeyF1
SendKeys "{F1 3}"
Case vbKeyF5
If Me.tlbAction.Buttons("AddNew").Enabled Then
AddNew
End If
Case vbKeyF8
If Me.tlbAction.Buttons("Edit").Enabled Then
Edit
End If
Case vbKeyDelete
If Me.tlbAction.Buttons("Delete").Enabled Then
Delete
End If
Case vbKeyF6
If Me.tlbAction.Buttons("Save").Enabled Then
Save
End If
Case vbKeyZ
If CtrlDown And Me.tlbAction.Buttons("Cancel").Enabled Then
CancelDo
End If
Case vbKeyI
If CtrlDown And Me.tlbAction.Buttons("AddCol").Enabled Then
m_EditCol = 1
AddCol
End If
Case vbKeyD
If CtrlDown And Me.tlbAction.Buttons("DeleteCol").Enabled Then
m_EditCol = 2
DeleteCol
End If
Case vbKeyP
If CtrlDown And Me.tlbAction.Buttons("Print").Enabled Then
If Not InitPrnGrid Then Exit Sub
Print_Doc Me, "Print", TAB_INTRSET
End If
Case vbKeyF4
If CtrlDown Then
Unload Me
End If
End Select
ErrHandler:
Exit Sub
End Sub
Private Sub Form_Load()
Dim objIRateBI As New U8FDBso.clsIRateBI
Dim objEO As U8FDEso.EntityObject
Dim objOID As New U8FDEso.OIDObject
Me.jkrTree.width = 100
m_EditStatus = False
MSImageList_Initialize ilsTlb
MSToolBar_Initialize tlbAction, "Print", TB_PRINT
MSToolBar_Initialize tlbAction, "Preview", TB_PREVIEW
MSToolBar_Initialize tlbAction, "Export", TB_Export
MSToolBar_Initialize tlbAction, "AddNew", TB_AddNew
MSToolBar_Initialize tlbAction, "Edit", TB_Edit
MSToolBar_Initialize tlbAction, "Delete", TB_Delete
MSToolBar_Initialize tlbAction, "Save", TB_Save
MSToolBar_Initialize tlbAction, "Cancel", TB_Cancel
MSToolBar_Initialize tlbAction, "Refresh", TB_Refresh
MSToolBar_Initialize tlbAction, "AddCol", TB_AddCol
MSToolBar_Initialize tlbAction, "DeleteCol", TB_DelCol
MSToolBar_Initialize tlbAction, "Help", TB_HELP
MSToolBar_Initialize tlbAction, "Exit", TB_EXIT
SetPrintDataStyleXML_flag = False
Me.treStyle.LineStyle = tvwRootLines
Me.treStyle.Style = tvwTreelinesPlusMinusPictureText
Me.treStyle.LabelEdit = tvwManual
Me.treStyle.Indentation = 300
Dim i As Integer, j As Integer, RecordCount As Long
Set objEO = objIRateBI.MoveTo(g_sDataSourceName, U8FDEso.esoFirst, m_conBIStyle)
RecordCount = objIRateBI.RecordCount(g_sDataSourceName, objEO)
For i = 1 To RecordCount
If objEO.EOS.count > 0 Then
Me.treStyle.Nodes.Add , , "K" & objEO("irate_id"), objEO("irate_code")
For j = 1 To objEO.EOS.count
Me.treStyle.Nodes.Add "K" & objEO.EOS(j)("irate_id"), tvwChild, "K" & objEO.EOS(j)("irate_b_id"), objEO.EOS(j)("adjust_date")
Next
objOID = objEO("irate_id")
Set objEO = objIRateBI.MoveTo(g_sDataSourceName, U8FDEso.esoNext, m_conBIStyle, objOID)
Else
objIRateBI.Delete g_sDataSourceName, objEO
End If
Next
For i = 1 To treStyle.Nodes.count
If treStyle.Nodes(i).children > 0 Then
treStyle.Nodes(i).Image = 1
Else
treStyle.Nodes(i).Image = 3
End If
Next
If Me.treStyle.Nodes.count > 0 Then
Me.treStyle.Nodes(1).Expanded = True
Me.treStyle.Nodes(1).Image = 2
objOID = mID(Me.treStyle.Nodes(1).key, 2)
Set EO = objIRateBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, m_conBIStyle, objOID)
EO.OID.id = EO(m_EO.SourceOIDField)
If Me.treStyle.Nodes(1).children > 0 Then
Me.treStyle.Nodes(1).child.Selected = True
NodeKey = Me.treStyle.Nodes(1).child.key
m_OID.id = mID(Me.treStyle.Nodes(1).child.key, 2)
End If
Else
Set EO = objIRateBI.Init(g_sDataSourceName, m_conBIStyle)
End If
Set objIRateBI = Nothing
Set objOID = Nothing
Set objEO = Nothing
SetUI
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim iAnswer As VbMsgBoxResult
If EO.State = U8FDEso.esoEdit Or EO.State = U8FDEso.esoAddNew Then
iAnswer = MsgBox("还有尚未保存的数据，保存吗？", vbQuestion + vbYesNoCancel)
If iAnswer = vbNo Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -