?? 選項.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 + -