frmsettaskpara.frm

金算盘软件代码

VERSION 5.00
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmSetTaskPara 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "应收计息参数设置"
   ClientHeight    =   3315
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4755
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3315
   ScaleWidth      =   4755
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOk 
      Height          =   350
      Index           =   1
      Left            =   3480
      Style           =   1  'Graphical
      TabIndex        =   1
      Tag             =   "1002"
      Top             =   540
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdOk 
      Height          =   350
      Index           =   0
      Left            =   3480
      Style           =   1  'Graphical
      TabIndex        =   0
      Tag             =   "1001"
      Top             =   120
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "计息天数计算依据"
      Height          =   645
      Left            =   240
      TabIndex        =   9
      Top             =   1440
      Width           =   2985
      Begin VB.OptionButton optDueDate 
         Caption         =   "到期日"
         Height          =   375
         Left            =   120
         TabIndex        =   10
         Top             =   180
         Value           =   -1  'True
         Width           =   1245
      End
      Begin VB.OptionButton optReceiptDate 
         Caption         =   "开票日"
         Height          =   375
         Left            =   1620
         TabIndex        =   11
         Top             =   180
         Width           =   1245
      End
   End
   Begin VB.Frame fraParameter 
      Height          =   3255
      Left            =   60
      TabIndex        =   2
      Top             =   0
      Width           =   3315
      Begin GATLCTRLLibCtl.CalEdit txtDays 
         Height          =   270
         Left            =   1500
         OleObjectBlob   =   "frmSetTaskPara.frx":0000
         TabIndex        =   8
         Top             =   1020
         Width           =   1665
      End
      Begin GATLCTRLLibCtl.CalEdit txtMinRate 
         Height          =   270
         Left            =   1500
         OleObjectBlob   =   "frmSetTaskPara.frx":0081
         TabIndex        =   6
         Top             =   607
         Width           =   1665
      End
      Begin GATLCTRLLibCtl.CalEdit txtRateOfYear 
         Height          =   270
         Left            =   1500
         OleObjectBlob   =   "frmSetTaskPara.frx":0102
         TabIndex        =   4
         Top             =   195
         Width           =   1665
      End
      Begin ListRefer.ListText ltxtAcc 
         Height          =   315
         Left            =   165
         TabIndex        =   13
         Top             =   2445
         Width           =   3000
         _ExtentX        =   5292
         _ExtentY        =   556
         CodeSort        =   -1  'True
         BackColor       =   -2147483643
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label label1 
         AutoSize        =   -1  'True
         Caption         =   "利息收益科目(&A)"
         Height          =   180
         Index           =   3
         Left            =   165
         TabIndex        =   12
         Top             =   2205
         Width           =   1350
      End
      Begin VB.Label label1 
         AutoSize        =   -1  'True
         Caption         =   "免息天数(&N)"
         Height          =   180
         Index           =   2
         Left            =   210
         TabIndex        =   7
         Top             =   1050
         Width           =   990
      End
      Begin VB.Label label1 
         AutoSize        =   -1  'True
         Caption         =   "最小利息(&M)"
         Height          =   180
         Index           =   1
         Left            =   210
         TabIndex        =   5
         Top             =   645
         Width           =   990
      End
      Begin MSForms.CheckBox chkDuplicate 
         Height          =   345
         Left            =   195
         TabIndex        =   14
         Top             =   2850
         Width           =   1155
         BackColor       =   -2147483633
         ForeColor       =   -2147483630
         DisplayStyle    =   4
         Size            =   "2037;609"
         Value           =   "0"
         Caption         =   "计算复利"
         FontName        =   "宋体"
         FontHeight      =   180
         FontCharSet     =   134
         FontPitchAndFamily=   34
      End
      Begin VB.Label label1 
         AutoSize        =   -1  'True
         Caption         =   "年利率%(&R)"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   3
         Top             =   240
         Width           =   900
      End
   End
End
Attribute VB_Name = "frmSetTaskPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'   参数设置窗体
'   作者:肖宇
'   日期:1998.06.23
'
'   功能:
'       1.设置财务费用参数
'       2.根据参数刷新财务费用窗体
'       3.根据参数刷新应收资料窗体
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mblnChanged As Boolean

'属性是否改变
Public Property Get Changed() As Boolean
    Changed = mblnChanged
End Property

'年利率(属性)
Public Property Get RateOfYear() As Double
    RateOfYear = txtRateOfYear.Value
End Property
Public Property Let RateOfYear(NewValue As Double)
    If NewValue > 0 And NewValue <= 100 Then
        txtRateOfYear.Text = Format(NewValue, "0.00")
    Else
        txtRateOfYear.Text = 0
    End If
End Property

'计息天数规则(属性,true:到期日/false:开票日)
Public Property Get ByDueDay() As Boolean
    ByDueDay = optDueDate.Value
End Property
Public Property Let ByDueDay(NewValue As Boolean)
    If NewValue Then
        optDueDate.Value = True
    Else
        optReceiptDate.Value = True
    End If
End Property

'计算基数标志(属性,true:应收余额/false:过期应收款)
Public Property Get ByARBalance() As Boolean
    ByARBalance = False
End Property
Public Property Let ByARBalance(NewValue As Boolean)
'    If NewValue Then
'        optAR.Value = True
'    Else
'        optBeyondDateAR.Value = True
'    End If
End Property

'计算复利标志(属性,true:计算复利/false:不计算复利)
Public Property Get Duplicate() As Boolean
    Duplicate = chkDuplicate.Value
End Property
Public Property Let Duplicate(NewValue As Boolean)
    chkDuplicate.Value = NewValue
End Property

'最小利息(属性)
Public Property Get MinRate() As Double
    MinRate = txtMinRate.Value
End Property
Public Property Let MinRate(NewValue As Double)
    txtMinRate.Text = Format(NewValue, "0.00")
End Property