📄 结算计息参照.frm
字号:
VERSION 5.00
Begin VB.Form frmSettleRef
BorderStyle = 4 'Fixed ToolWindow
Caption = "结算方式"
ClientHeight = 2925
ClientLeft = 45
ClientTop = 285
ClientWidth = 4845
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2925
ScaleWidth = 4845
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.ListBox lstReturn
Height = 2400
ItemData = "结算计息参照.frx":0000
Left = 60
List = "结算计息参照.frx":0007
TabIndex = 2
Top = 60
Width = 4725
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 365
Left = 2542
Style = 1 'Graphical
TabIndex = 1
Top = 2520
Width = 1080
End
Begin VB.CommandButton cmdOK
Caption = "确认(&OK)"
Default = -1 'True
Height = 365
Left = 1222
Style = 1 'Graphical
TabIndex = 0
Top = 2520
Width = 1080
End
End
Attribute VB_Name = "frmSettleRef"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public RefType As Byte
Public SelectName As String
Private Sub CmdCancel_Click()
If RefType = 0 Then '凭证
frmVchStyle.PzCode = ""
ElseIf RefType = 7 Then '结算方式
frmVchInput.ReferenceID = ""
ElseIf RefType = 8 Then '计息方式
frmVchInput.ReferenceID = ""
ElseIf RefType = 10 Then '摘要
frmVchInput.ReferenceID = ""
ElseIf RefType = 11 Then '币别
frmVchInput.ReferenceID = ""
ElseIf RefType = 12 Then '贷款性质
frmVchInput.ReferenceID = ""
End If
Unload Me
End Sub
Private Sub cmdOK_Click()
If RefType = 0 Then '凭证
frmVchStyle.PzCode = mID(Me.lstReturn.List(Me.lstReturn.ListIndex), InStrRev(Me.lstReturn.List(Me.lstReturn.ListIndex), "】") + 1)
ElseIf RefType = 7 Then '结算方式
frmVchInput.ReferenceID = Trim(Right(Me.lstReturn.List(Me.lstReturn.ListIndex), 100))
ElseIf RefType = 8 Then '计息方式
frmVchInput.ReferenceID = Me.lstReturn.ListIndex
ElseIf RefType = 10 Then '摘要
frmVchInput.ReferenceID = Me.lstReturn.List(Me.lstReturn.ListIndex)
ElseIf RefType = 11 Then '币别
frmVchInput.ReferenceID = Me.lstReturn.List(Me.lstReturn.ListIndex)
ElseIf RefType = 12 Then '贷款性质
frmVchInput.ReferenceID = Me.lstReturn.ListIndex
End If
Unload Me
End Sub
Private Sub Form_Load()
Dim CalcType(3) As String
CalcType(0) = "到期内利息挂账不计复利，逾期时对本金及结欠利息计复利"
CalcType(1) = "到期内利息计复利，逾期时对本金及结欠利息计复利"
CalcType(2) = "到期内利息挂账不计复利，逾期时只对本金计逾期利息"
CalcType(3) = "利随本清"
Dim LoanFlag(1) As String
LoanFlag(0) = "普通贷款"
LoanFlag(1) = "自动还款贷款"
Screen.MousePointer = vbHourglass
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim SQL As String
If RefType = 0 Then '凭证
Me.Caption = "凭证"
Me.lstReturn.clear
con.Open g_sDataSourceName
SQL = "select csign,ctext from dsign order by [csign]"
rec.Open SQL, con, adOpenDynamic
With rec
If Not rec.EOF Then
.MoveFirst
Do While Not .EOF
Me.lstReturn.AddItem "【" & ![ctext] & "】" & ![cSign]
If SelectName = ![cSign] Then
lstReturn.Selected(lstReturn.NewIndex) = True
End If
.MoveNext
Loop
End If
.Close
End With
Me.cmdOK.Enabled = IIf(lstReturn.ListCount > 0, True, False)
If lstReturn.ListCount > 0 And lstReturn.SelCount = 0 Then lstReturn.Selected(0) = True
Set con = Nothing
ElseIf RefType = 7 Then '结算方式
Me.Caption = "结算方式"
Me.lstReturn.clear
con.Open g_sDataSourceName
SQL = "select cSSCode,cSSName from SettleStyle where bSSEnd=1 order by [cSScode]"
rec.Open SQL, con, adOpenDynamic
With rec
If Not rec.EOF Then
.MoveFirst
Do While Not .EOF
Me.lstReturn.AddItem ![cSSName] & String(100, " ") & ![cSSCode]
If SelectName = ![cSSName] Then
lstReturn.Selected(lstReturn.NewIndex) = True
End If
.MoveNext
Loop
End If
.Close
End With
Me.cmdOK.Enabled = IIf(lstReturn.ListCount > 0, True, False)
If lstReturn.ListCount > 0 And lstReturn.SelCount = 0 Then lstReturn.Selected(0) = True
Set con = Nothing
ElseIf RefType = 8 Then '计息方式
Me.Caption = "计息方式"
Me.lstReturn.clear
For i = 0 To 3
Me.lstReturn.AddItem CalcType(i)
If SelectName = CalcType(i) Then lstReturn.Selected(lstReturn.NewIndex) = True
Next
If lstReturn.ListCount > 0 And lstReturn.SelCount = 0 Then lstReturn.Selected(0) = True
ElseIf RefType = 10 Then '摘要
Me.Caption = "常用摘要"
Me.lstReturn.clear
con.Open g_sDataSourceName
'sql = "select GL_bdigest.ctext,code.ccode_name from GL_bdigest,code where GL_bdigest.ccode=code.ccode order by GL_bdigest.i_id"
SQL = "select GL_bdigest.ctext from GL_bdigest order by GL_bdigest.i_id"
rec.Open SQL, con, adOpenDynamic
With rec
If Not rec.EOF Then
.MoveFirst
Do While Not .EOF
Me.lstReturn.AddItem ![ctext] '& "(" & ![cSSCode] & ")"
If SelectName = ![ctext] Then
lstReturn.Selected(lstReturn.NewIndex) = True
End If
.MoveNext
Loop
End If
.Close
End With
Me.cmdOK.Enabled = IIf(lstReturn.ListCount > 0, True, False)
If lstReturn.ListCount > 0 And lstReturn.SelCount = 0 Then lstReturn.Selected(0) = True
Set con = Nothing
ElseIf RefType = 11 Then '币别
Me.Caption = "币别"
Me.lstReturn.clear
arrCurr = GetAllCurrencyNames
For i = 0 To UBound(arrCurr) - 1
Me.lstReturn.AddItem arrCurr(i)
If SelectName = arrCurr(i) Then
lstReturn.Selected(lstReturn.NewIndex) = True
End If
Next
'con.Open g_sDataSourceName
'
'sql = "select cexch_name from exch group by cexch_name"
'
'rec.Open sql, con, adOpenDynamic
'
'With rec
' If Not rec.EOF Then
' .MoveFirst
' Do While Not .EOF
' Me.lstReturn.AddItem ![cexch_name] '& "(" & ![cSSCode] & ")"
' If SelectName = ![cexch_name] Then
' lstReturn.Selected(lstReturn.NewIndex) = True
' End If
' .MoveNext
' Loop
' End If
' .Close
'End With
Me.cmdOK.Enabled = IIf(lstReturn.ListCount > 0, True, False)
If lstReturn.ListCount > 0 And lstReturn.SelCount = 0 Then lstReturn.Selected(0) = True
Set con = Nothing
ElseIf RefType = 12 Then '贷款性质
Me.Caption = "贷款性质"
Me.lstReturn.clear
For i = 0 To 1
Me.lstReturn.AddItem LoanFlag(i)
If SelectName = LoanFlag(i) Then lstReturn.Selected(lstReturn.NewIndex) = True
Next
If lstReturn.ListCount > 0 And lstReturn.SelCount = 0 Then lstReturn.Selected(0) = True
End If
Screen.MousePointer = vbDefault
End Sub
Private Sub lstReturn_DblClick()
cmdOK_Click
End Sub
Private Sub lstReturn_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
cmdOK_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -