frmchkfixbal.frm

金算盘软件代码

VERSION 5.00
Begin VB.Form frmChkFixBal 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   2040
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7455
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2040
   ScaleWidth      =   7455
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOk 
      Height          =   360
      Left            =   3180
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   1545
      Width           =   1125
   End
   Begin VB.Label lblCap 
      AutoSize        =   -1  'True
      Caption         =   "卡片期初"
      Height          =   180
      Index           =   1
      Left            =   4680
      TabIndex        =   12
      Top             =   165
      Width           =   720
   End
   Begin VB.Label lblCap 
      AutoSize        =   -1  'True
      Caption         =   "科目期初"
      Height          =   180
      Index           =   0
      Left            =   405
      TabIndex        =   11
      Top             =   195
      Width           =   720
   End
   Begin VB.Label lblNum 
      Alignment       =   1  'Right Justify
      Caption         =   "0.00"
      Height          =   225
      Index           =   3
      Left            =   5655
      TabIndex        =   9
      Top             =   960
      Width           =   1515
   End
   Begin VB.Label lblNum 
      Alignment       =   1  'Right Justify
      Caption         =   "0.00"
      Height          =   225
      Index           =   2
      Left            =   5655
      TabIndex        =   8
      Top             =   555
      Width           =   1515
   End
   Begin VB.Label lblNum 
      Alignment       =   1  'Right Justify
      Caption         =   "0.00"
      Height          =   225
      Index           =   1
      Left            =   1485
      TabIndex        =   7
      Top             =   945
      Width           =   1515
   End
   Begin VB.Label lblNum 
      Alignment       =   1  'Right Justify
      Caption         =   "0.00"
      Height          =   225
      Index           =   0
      Left            =   1500
      TabIndex        =   6
      Top             =   555
      Width           =   1515
   End
   Begin VB.Label lblOp 
      Caption         =   "≠"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   48
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   855
      Index           =   1
      Left            =   3120
      TabIndex        =   5
      Top             =   375
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.Label lblOp 
      AutoSize        =   -1  'True
      Caption         =   "＝"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   48
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00808000&
      Height          =   960
      Index           =   0
      Left            =   3105
      TabIndex        =   4
      Top             =   330
      Visible         =   0   'False
      Width           =   1185
      WordWrap        =   -1  'True
   End
   Begin VB.Label lblNote 
      AutoSize        =   -1  'True
      Caption         =   "卡片累计折旧="
      Height          =   180
      Index           =   3
      Left            =   4425
      TabIndex        =   3
      Top             =   975
      Width           =   1170
   End
   Begin VB.Label lblNote 
      AutoSize        =   -1  'True
      Caption         =   "期初卡片原值="
      Height          =   180
      Index           =   2
      Left            =   4440
      TabIndex        =   2
      Top             =   555
      Width           =   1170
   End
   Begin VB.Label lblNote 
      AutoSize        =   -1  'True
      Caption         =   "累计折旧科目="
      Height          =   180
      Index           =   1
      Left            =   270
      TabIndex        =   1
      Top             =   945
      Width           =   1170
   End
   Begin VB.Label lblNote 
      AutoSize        =   -1  'True
      Caption         =   "固定资产科目="
      Height          =   180
      Index           =   0
      Left            =   285
      TabIndex        =   0
      Top             =   555
      Width           =   1170
   End
End
Attribute VB_Name = "frmChkFixBal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Sub DispCard(ByVal dblAcc1 As Double, ByVal dblAcc2 As Double, ByVal dblFix1 As Double, ByVal dblFix2 As Double)
    lblNum(0).Caption = Format(dblAcc1, "#,0.00")
    lblNum(1).Caption = Format(dblAcc2, "#,0.00")
    lblNum(2).Caption = Format(dblFix1, "#,0.00")
    lblNum(3).Caption = Format(dblFix2, "#,0.00")
    If dblAcc1 = dblFix1 And dblAcc2 = dblFix2 Then
        lblOp(0).Visible = True
        Caption = "固定资产卡片期初与科目期初平衡"
    Else
        lblOp(1).Visible = True
        Caption = "固定资产卡片期初与科目期初不平衡"
    End If
    Show vbModal
End Sub


Private Sub cmdOk_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
    cmdOk.Picture = GetFormResPicture(1022, vbResBitmap)
End Sub

Private Sub Form_Paint()
    FrameBox Me.hwnd, 150, 255, 2880 + 150, 1110 + 255
    FrameBox Me.hwnd, 4280 + 15, 255, 2880 + 4280 + 30, 1110 + 255
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Utility.RemoveFormResPicture 139
    Utility.RemoveFormResPicture 1022
End Sub