form18.frm

设备管理系统,对设备的入库,出库,借出与归还的管理

VERSION 5.00
Begin VB.Form Form18 
   BackColor       =   &H00FFC0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "设备折旧信息"
   ClientHeight    =   4665
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   6465
   LinkTopic       =   "Form18"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4665
   ScaleWidth      =   6465
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "计算(&J)"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   465
      Left            =   3825
      Style           =   1  'Graphical
      TabIndex        =   14
      Top             =   3240
      Width           =   990
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0E0FF&
      Cancel          =   -1  'True
      Caption         =   "返回(&H)"
      Height          =   465
      Left            =   5055
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   3255
      Width           =   990
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFC0C0&
      Height          =   3705
      Left            =   255
      TabIndex        =   0
      Top             =   315
      Width           =   3150
      Begin VB.TextBox Text1 
         BackColor       =   &H00FFC0C0&
         Height          =   285
         Index           =   5
         Left            =   1290
         TabIndex        =   10
         Top             =   3210
         Width           =   1470
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0FFC0&
         Height          =   285
         Index           =   4
         Left            =   1290
         TabIndex        =   9
         Top             =   2490
         Width           =   1470
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0FFC0&
         Height          =   285
         Index           =   3
         Left            =   1290
         TabIndex        =   8
         Top             =   1770
         Width           =   1470
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0FFC0&
         Height          =   285
         Index           =   2
         Left            =   1290
         TabIndex        =   7
         Top             =   1035
         Width           =   1470
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0FFC0&
         Height          =   285
         Index           =   0
         Left            =   1290
         TabIndex        =   6
         Top             =   345
         Width           =   1470
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BackColor       =   &H00FF8080&
         Caption         =   "折旧额为："
         ForeColor       =   &H0000FFFF&
         Height          =   270
         Left            =   120
         TabIndex        =   5
         Top             =   3180
         Width           =   1020
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         BackColor       =   &H00FFC0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "折旧率"
         Height          =   420
         Left            =   150
         TabIndex        =   4
         Top             =   2490
         Width           =   960
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackColor       =   &H00FFC0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "原价"
         ForeColor       =   &H00FF00FF&
         Height          =   420
         Left            =   150
         TabIndex        =   3
         Top             =   1770
         Width           =   960
      End
      Begin VB.Label Label3 
         Alignment       =   2  'Center
         BackColor       =   &H00FFC0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "数量"
         ForeColor       =   &H00FF00FF&
         Height          =   420
         Left            =   150
         TabIndex        =   2
         Top             =   1065
         Width           =   960
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackColor       =   &H00FFC0FF&
         BackStyle       =   0  'Transparent
         Caption         =   "设备编号"
         ForeColor       =   &H00FF00FF&
         Height          =   420
         Left            =   150
         TabIndex        =   1
         Top             =   375
         Width           =   960
      End
   End
   Begin VB.Label Label8 
      BackColor       =   &H00FFC0FF&
      BackStyle       =   0  'Transparent
      Caption         =   "单击设备名称文本框选择"
      ForeColor       =   &H00C00000&
      Height          =   285
      Left            =   3930
      TabIndex        =   13
      Top             =   1890
      Width           =   1995
   End
   Begin VB.Label Label7 
      BackColor       =   &H00FFC0FF&
      Caption         =   "请选择你要计算的设备，程序将自动计算出折旧额"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   870
      Left            =   3945
      TabIndex        =   12
      Top             =   765
      Width           =   2040
   End
End
Attribute VB_Name = "Form18"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim j1 As Integer

Private Sub Command1_Click()

Text1(5).Text = Str(Val(Text1(2)) * Val(Text1(3)) * Val(Text1(4)))

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2

End Sub



Private Sub Text1_click(Index As Integer)
If Index = 0 Then
    
    With Form10
       .Frame2.Visible = True
    End With
    Form10.Show 1
End If

End Sub