📄 选项.frm
字号:
Height = 255
Index = 1
Left = 1560
TabIndex = 31
Top = 120
Width = 1335
End
End
Begin VB.Frame fra2
BorderStyle = 0 'None
Height = 375
Left = 120
TabIndex = 27
Top = 480
Width = 4695
Begin VB.OptionButton opt2
Caption = "升序"
Height = 255
Index = 0
Left = 120
TabIndex = 29
Top = 120
Value = -1 'True
Width = 1335
End
Begin VB.OptionButton opt2
Caption = "降序"
Height = 255
Index = 1
Left = 1560
TabIndex = 28
Top = 120
Width = 1335
End
End
End
Begin VB.CheckBox chkAutoReturn
Caption = "日记账后自动归还内部贷款(一般贷款)"
Height = 285
Left = 405
TabIndex = 25
Top = 585
Width = 3690
End
End
Begin VB.CommandButton cmdApply
Caption = "应用(&A)"
Height = 330
Left = 4095
TabIndex = 22
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 330
Left = 2775
TabIndex = 21
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "确定(&O)"
Default = -1 'True
Height = 330
Left = 1455
TabIndex = 20
Top = 3960
Width = 1095
End
Begin ComctlLib.TabStrip tabOption
Height = 3750
Left = 90
TabIndex = 0
Top = 90
Width = 5280
_ExtentX = 9313
_ExtentY = 6615
_Version = 327682
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
NumTabs = 5
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "通用"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "报警"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "对账单"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab4 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "利息计算"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab5 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "自动还款"
Key = ""
Object.Tag = ""
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_iCurFrame As Long
Private m_iAlarmDays As Long
Private m_bAutoAlarm As Boolean
Private m_EO As U8FDEso.EntityObject
Private objEOS As U8FDEso.entities
Private objVchDefBI As New U8FDBso.clsVchDefBI
Private NodeKey As String
Private m_Apply 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 chkAlarm_Click()
If Me.chkAlarm.Value = 1 Then
Me.treStyle.Visible = True
Me.lblDay.Visible = True
Me.txtDay.Visible = True
Me.updDay.Visible = True
Else
Me.treStyle.Visible = False
Me.lblDay.Visible = False
Me.txtDay.Visible = False
Me.updDay.Visible = False
End If
End Sub
Private Sub chkAutoReturn_Click()
If Me.chkAutoReturn.Value = 1 Then
Me.fra.Enabled = True
Me.opt1(0).Enabled = True
Me.opt1(1).Enabled = True
Me.opt2(0).Enabled = True
Me.opt2(1).Enabled = True
Me.opt3(0).Enabled = True
Me.opt3(1).Enabled = True
Me.opt3(2).Enabled = True
Else
Me.fra.Enabled = False
Me.opt1(0).Enabled = False
Me.opt1(1).Enabled = False
Me.opt2(0).Enabled = False
Me.opt2(1).Enabled = False
Me.opt3(0).Enabled = False
Me.opt3(1).Enabled = False
Me.opt3(2).Enabled = False
End If
End Sub
Private Sub cmdApply_Click()
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim SQL As String
Dim i As Integer
Dim ReturnOrder As String
m_Apply = False
If Not IsNumeric(Me.txtReplyNum.Text) Then
MsgBox "结算回复期限不能为空!", vbInformation, App.ProductName
Exit Sub
End If
If Not IsNumeric(Me.txtDay.Text) Then
MsgBox "报警天数不能为空!", vbInformation, App.ProductName
Exit Sub
End If
If Not IsNumeric(Me.txtDzdRows.Text) Then
MsgBox "满页笔数不能为空!", vbInformation, App.ProductName
Exit Sub
End If
If Not IsNumeric(Me.txtDelayNum.Text) Then
MsgBox "延期天数不能为空!", vbInformation, App.ProductName
Exit Sub
End If
If Me.chkAlarm.Value = 0 Then
For i = 1 To Me.treStyle.Nodes.count
If Me.treStyle.Nodes(i).key <> "K100" Then objEOS(Me.treStyle.Nodes(i).key).IsAutoAlarm = 0
Next
m_bAutoAlarm = False
End If
con.Open g_sDataSourceName
SQL = "select * from fd_option"
rec.Open SQL, con, adOpenDynamic, adLockOptimistic
If rec.EOF Then
With rec
.AddNew
.Fields("Option1") = ZjAccInfo.zjNdBegin
.Fields("Alarm") = Me.chkAlarm.Value
If IsNumeric(m_iAlarmDays) Then
.Fields("Aldays") = m_iAlarmDays
Else
.Fields("Aldays") = 3
End If
.Fields("schedule_flag") = CByte(m_bAutoAlarm) / 255
If IsNumeric(Me.txtDzdRows.Text) Then
.Fields("dzdrows") = Me.txtDzdRows.Text
Else
.Fields("dzdrows") = 30
End If
.Fields("dzdorder_flag") = Me.cboDzdOrder.ListIndex
.Fields("lxdzero_flag") = Me.chkZero.Value
.Fields("lxdnegative_flag") = Me.chkNegative.Value
If IsNumeric(Me.txtDelayNum.Text) Then
.Fields("lxddelay_num") = Me.txtDelayNum.Text
Else
.Fields("lxddelay_num") = 5
End If
If IsNumeric(Me.txtReplyNum.Text) Then
.Fields("reply_num") = Me.txtReplyNum.Text
Else
.Fields("reply_num") = 10
End If
If Me.chkAutoReturn.Value = 1 Then
.Fields("AutoReturn_flag") = 1
If opt1(0).Value = True Then
ReturnOrder = "0"
Else
ReturnOrder = "1"
End If
If opt2(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
Else
ReturnOrder = ReturnOrder & "1"
End If
If opt3(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
ElseIf opt3(1).Value = True Then
ReturnOrder = ReturnOrder & "1"
Else
ReturnOrder = ReturnOrder & "2"
End If
.Fields("ReturnOrder_lev") = ReturnOrder
Else
.Fields("AutoReturn_flag") = 0
If opt1(0).Value = True Then
ReturnOrder = "0"
Else
ReturnOrder = "1"
End If
If opt2(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
Else
ReturnOrder = ReturnOrder & "1"
End If
If opt3(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
ElseIf opt3(1).Value = True Then
ReturnOrder = ReturnOrder & "1"
Else
ReturnOrder = ReturnOrder & "2"
End If
.Fields("ReturnOrder_lev") = ReturnOrder
End If
.Fields("limitloan_flag") = Me.chkLimitLoan.Value
.Update
End With
Else
With rec
'.Fields("Option1") = Me.txtStartup.Text
.Fields("Alarm") = Me.chkAlarm.Value
If IsNumeric(m_iAlarmDays) Then
.Fields("Aldays") = m_iAlarmDays
Else
.Fields("Aldays") = Null
End If
.Fields("schedule_flag") = CByte(m_bAutoAlarm) / 255
If IsNumeric(Me.txtDzdRows.Text) Then
.Fields("dzdrows") = Me.txtDzdRows.Text
Else
.Fields("dzdrows") = Null
End If
.Fields("dzdorder_flag") = Me.cboDzdOrder.ListIndex
.Fields("lxdzero_flag") = Me.chkZero.Value
.Fields("lxdnegative_flag") = Me.chkNegative.Value
If IsNumeric(Me.txtDelayNum.Text) Then
.Fields("lxddelay_num") = Me.txtDelayNum.Text
Else
.Fields("lxddelay_num") = Null
End If
If IsNumeric(Me.txtReplyNum.Text) Then
.Fields("reply_num") = Me.txtReplyNum.Text
Else
.Fields("reply_num") = Null
End If
If Me.chkAutoReturn.Value = 1 Then
.Fields("AutoReturn_flag") = 1
If opt1(0).Value = True Then
ReturnOrder = "0"
Else
ReturnOrder = "1"
End If
If opt2(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
Else
ReturnOrder = ReturnOrder & "1"
End If
If opt3(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
ElseIf opt3(1).Value = True Then
ReturnOrder = ReturnOrder & "1"
Else
ReturnOrder = ReturnOrder & "2"
End If
.Fields("ReturnOrder_lev") = ReturnOrder
Else
.Fields("AutoReturn_flag") = 0
If opt1(0).Value = True Then
ReturnOrder = "0"
Else
ReturnOrder = "1"
End If
If opt2(0).Value = True Then
ReturnOrder = ReturnOrder & "0"
Else
ReturnOrder = ReturnOrder & "1"
End If
If opt3(0).Value = True Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -