frmlossrate4line.frm

FloodEvaluation-程序是gis方面的程序

VERSION 5.00
Begin VB.Form frmLossRate4Line 
   Caption         =   "设置线状设施评估参数"
   ClientHeight    =   4125
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7485
   LinkTopic       =   "Form1"
   ScaleHeight     =   4125
   ScaleWidth      =   7485
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   720
      TabIndex        =   7
      Top             =   3240
      Width           =   735
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "完成"
      Height          =   375
      Left            =   2040
      TabIndex        =   6
      Top             =   3240
      Width           =   735
   End
   Begin VB.Frame Frame1 
      Caption         =   "评估项目"
      Height          =   1215
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   3255
      Begin VB.TextBox strItemName 
         Alignment       =   1  'Right Justify
         Height          =   285
         Left            =   1200
         TabIndex        =   2
         Text            =   "pipeline"
         Top             =   240
         Width           =   975
      End
      Begin VB.TextBox strItemPrice 
         Alignment       =   1  'Right Justify
         Height          =   285
         Left            =   1200
         TabIndex        =   1
         Text            =   "10000"
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label34 
         Caption         =   "评估名称"
         Height          =   255
         Left            =   360
         TabIndex        =   5
         Top             =   240
         Width           =   855
      End
      Begin VB.Label Label35 
         Caption         =   "财物价值"
         Height          =   255
         Left            =   360
         TabIndex        =   4
         Top             =   720
         Width           =   855
      End
      Begin VB.Label Label36 
         Caption         =   "元/公里"
         Height          =   255
         Left            =   2280
         TabIndex        =   3
         Top             =   720
         Width           =   615
      End
   End
End
Attribute VB_Name = "frmLossRate4Line"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public bOKFlag As Boolean
Public bSetLevel As Boolean

Private Sub form_load()

    bOKFlag = False
    bSetLevel = False
    m_numRateLevel = 1
   
    frameLoss1.Visible = False
    frameLoss2.Visible = False
    frameLoss3.Visible = False
    frameLoss4.Visible = False
    frameLoss5.Visible = False
    frameLoss6.Visible = False
    
End Sub

Private Sub cmdCancel_Click()
    bOKFlag = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    If Not bSetLevel Then
        MsgBox "请先设置水深等级"
        Exit Sub
    End If
    m_numRateLevel = CInt(RateLevel.Text)

    Select Case m_numRateLevel
        Case 1
            m_depthBreak(1) = CSng(DepthBreak11.Text)
            
            m_lossRate(1) = CSng(LossRate11.Text)
            m_lossRate(2) = CSng(LossRate12.Text)
        Case 2
            m_depthBreak(1) = CSng(DepthBreak21.Text)
            m_depthBreak(2) = CSng(DepthBreak22.Text)
            
            m_lossRate(1) = CSng(LossRate21.Text)
            m_lossRate(2) = CSng(LossRate22.Text)
            m_lossRate(3) = CSng(LossRate23.Text)
        Case 3
            m_depthBreak(1) = CSng(DepthBreak31.Text)
            m_depthBreak(2) = CSng(DepthBreak32.Text)
            m_depthBreak(3) = CSng(DepthBreak33.Text)
            
            m_lossRate(1) = CSng(LossRate31.Text)
            m_lossRate(2) = CSng(LossRate32.Text)
            m_lossRate(3) = CSng(LossRate33.Text)
            m_lossRate(4) = CSng(LossRate34.Text)
        Case 4
            m_depthBreak(1) = CSng(DepthBreak41.Text)
            m_depthBreak(2) = CSng(DepthBreak42.Text)
            m_depthBreak(3) = CSng(DepthBreak43.Text)
            m_depthBreak(4) = CSng(DepthBreak44.Text)
            
            m_lossRate(1) = CSng(LossRate41.Text)
            m_lossRate(2) = CSng(LossRate42.Text)
            m_lossRate(3) = CSng(LossRate43.Text)
            m_lossRate(4) = CSng(LossRate44.Text)
            m_lossRate(5) = CSng(LossRate45.Text)
        Case 5
            m_depthBreak(1) = CSng(DepthBreak51.Text)
            m_depthBreak(2) = CSng(DepthBreak52.Text)
            m_depthBreak(3) = CSng(DepthBreak53.Text)
            m_depthBreak(4) = CSng(DepthBreak54.Text)
            m_depthBreak(5) = CSng(DepthBreak55.Text)
            
            m_lossRate(1) = CSng(LossRate51.Text)
            m_lossRate(2) = CSng(LossRate52.Text)
            m_lossRate(3) = CSng(LossRate53.Text)
            m_lossRate(4) = CSng(LossRate54.Text)
            m_lossRate(5) = CSng(LossRate55.Text)
            m_lossRate(6) = CSng(LossRate56.Text)
        Case 6
            m_depthBreak(1) = CSng(DepthBreak61.Text)
            m_depthBreak(2) = CSng(DepthBreak62.Text)
            m_depthBreak(3) = CSng(DepthBreak63.Text)
            m_depthBreak(4) = CSng(DepthBreak64.Text)
            m_depthBreak(5) = CSng(DepthBreak65.Text)
            m_depthBreak(6) = CSng(DepthBreak66.Text)
            
            m_lossRate(1) = CSng(LossRate61.Text)
            m_lossRate(2) = CSng(LossRate62.Text)
            m_lossRate(3) = CSng(LossRate63.Text)
            m_lossRate(4) = CSng(LossRate64.Text)
            m_lossRate(5) = CSng(LossRate65.Text)
            m_lossRate(6) = CSng(LossRate66.Text)
            m_lossRate(7) = CSng(LossRate67.Text)
    End Select

    If m_numRateLevel > 6 Or m_numRateLevel < 1 Then
        bOKFlag = False
    Else
        bOKFlag = True
    End If
    
    Me.Hide
    
End Sub

Private Sub RateLevel_Change()
    Dim nLevel As Integer
    
    If RateLevel.Text = "" Then Exit Sub
    
    nLevel = CInt(RateLevel.Text)
    
    If nLevel > 6 Or nLevel < 1 Then
        MsgBox "对不起，系统允许的等级范围为1－6级！"
        RateLevel.Text = "1"
        nLevel = 1
    End If
    
    bSetLevel = True
    frameLoss1.Visible = False
    frameLoss2.Visible = False
    frameLoss3.Visible = False
    frameLoss4.Visible = False
    frameLoss5.Visible = False
    frameLoss6.Visible = False
    
    Select Case nLevel
        Case 1
              frameLoss1.Visible = True
        Case 2
              frameLoss2.Visible = True
        Case 3
              frameLoss3.Visible = True
        Case 4
              frameLoss4.Visible = True
        Case 5
              frameLoss5.Visible = True
        Case 6
              frameLoss6.Visible = True
    End Select
    
End Sub