贷款罚息方式.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Begin VB.Form frmCred_cz1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "计息方式参照"
   ClientHeight    =   2820
   ClientLeft      =   3345
   ClientTop       =   4110
   ClientWidth     =   6420
   Icon            =   "贷款罚息方式.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2820
   ScaleWidth      =   6420
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Default         =   -1  'True
      Height          =   365
      Index           =   0
      Left            =   3690
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   2310
      Width           =   1080
   End
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Height          =   365
      Index           =   1
      Left            =   5025
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   2310
      Width           =   1080
   End
   Begin VB.Frame Frame2 
      Height          =   30
      Left            =   -60
      TabIndex        =   5
      Top             =   2130
      Width           =   6675
   End
   Begin VB.Frame Frame1 
      Height          =   1695
      Left            =   300
      TabIndex        =   0
      Top             =   270
      Width           =   5805
      Begin VB.OptionButton Option1 
         Caption         =   "利随本清"
         Height          =   285
         Index           =   0
         Left            =   300
         TabIndex        =   6
         Top             =   1290
         Width           =   1575
      End
      Begin VB.OptionButton Option1 
         Caption         =   "到期内利息挂帐不计复利，逾期时只对本金计逾期利息"
         Height          =   285
         Index           =   3
         Left            =   300
         TabIndex        =   3
         Top             =   930
         Width           =   4845
      End
      Begin VB.OptionButton Option1 
         Caption         =   "到期内利息计复利，逾期时对本金及结欠利息计复利"
         Height          =   285
         Index           =   2
         Left            =   300
         TabIndex        =   2
         Top             =   570
         Width           =   4635
      End
      Begin VB.OptionButton Option1 
         Caption         =   "到期内利息挂帐不计复利，逾期时对本金及结欠利息计复利"
         Height          =   285
         Index           =   1
         Left            =   300
         TabIndex        =   1
         Top             =   210
         Value           =   -1  'True
         Width           =   5295
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请选择逾期计息方式："
      Height          =   180
      Left            =   300
      TabIndex        =   4
      Top             =   90
      Width           =   1800
   End
End
Attribute VB_Name = "frmCred_cz1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 贷款罚息方式选择
'作者: 赵春立

Option Explicit

Public optCaption As String
Public Event OK(Yqfs As Byte)
Private iArtype_cz As Byte

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            iArtype_cz = GetOption
            RaiseEvent OK(iArtype_cz)
            Unload Me
        Case 1: Unload Me
    End Select
End Sub

Private Function GetOption() As Byte
    Dim i As Byte
    
    For i = 0 To 3
        If Option1(i) = True Then
            GetOption = i
            Exit For
        End If
    Next i
    
End Function

Private Sub Form_Load()
    Dim id As Integer, i As Integer
    
    Command1(0).Picture = LoadResPicture(103, vbResBitmap)
    Command1(1).Picture = LoadResPicture(104, vbResBitmap)
    Me.Icon = LoadResPicture(109, vbResIcon)
    For i = 0 To 3
        If optCaption = Option1(i).Caption Then
            Option1(i).Value = True
        End If
    Next i
    CenterForm Me
    
End Sub

Private Sub Option1_DblClick(Index As Integer)
   iArtype_cz = GetOption
   RaiseEvent OK(iArtype_cz)
   Unload Me
   
End Sub