frminvest.frm

用于三次采油技术的经济评价

 ' End If
    .Close
  MsgBox "数据已经保存成功!", 0, "OK!"
  End With
 Exit Sub
myerrr:
MousePointer = 0
   Me.Enabled = -1
       Me.MousePointer = 1
    
End Sub

Private Sub SSCommand2_Click() '
Beep
loadtab_bz = 1
ttt = ttt + 1
If (ttt Mod 2) = 1 Then
Load xianmumingxi
xianmumingxi.Show
End If
If (ttt Mod 2) = 0 Then

Unload xianmumingxi
xianmumingxi.Hide
'ttt = 0
'ttt = 0

End If




'xianmumingxi.ZOrder
';Me.SetFocus
End Sub

Private Sub SSCommand3_Click()
ttt = 0
Beep
   msg$ = "退出前是否保存数据?"
   Title$ = "退出"
   xchoose = MsgBox(msg$, 35, Title$)
   If xchoose = 2 Then Exit Sub
   If xchoose = 6 Then
   'newis = 2: flag(1) = 2
   flag(2) = 2
   ShengChengGrideAdd
   End If
  Me.Hide
 xianmumingxi.Hide
 Unload xianmumingxi

 Unload Me
End Sub






Private Sub del_line_Click()
   Beep
   MSFlexGrid1.Text = Text1.Text
   If MSFlexGrid1.row = MSFlexGrid1.RowSel Then
    sss$ = Trim$(Str$(MSFlexGrid1.RowSel - MSFlexGrid1.FixedRows + 1))
   Else
    sss$ = del1$ & "～" & del2$
   End If
  
     msg$ = "是否删除序号为“" & sss$ & "”的设置信息？"
   Title$ = "警告"
   xchoose = MsgBox(msg$, 49, Title$)
   If xchoose = 2 Then Exit Sub
     
   If MSFlexGrid1.Rows - (Val(del2$) - Val(del1$) + 1) < 2 Then
    For i = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1
     For k = 1 To MSFlexGrid1.Cols - 1
      MSFlexGrid1.TextMatrix(i, k) = ""
     Next k
    Next i
   Else
    If Val(del2$) + 1 <= MSFlexGrid1.Rows - 1 Then
     For i = Val(del2$) + 1 To MSFlexGrid1.Rows - 1
      For k = 1 To MSFlexGrid1.Cols - 1
       MSFlexGrid1.TextMatrix(i - (Val(del2$) - Val(del1$) + 1), k) = MSFlexGrid1.TextMatrix(i, k)
      Next k
     Next i
     For i = MSFlexGrid1.Rows - (Val(del2$) - Val(del1$) + 1) To MSFlexGrid1.Rows - 1
      For k = 1 To MSFlexGrid1.Cols - 1
       MSFlexGrid1.TextMatrix(i, k) = ""
      Next k
     Next i
    End If
   End If
   Text1.Visible = 0
   Call blank_MSFlexGridshow
   MSFlexGrid1.RowSel = MSFlexGrid1.row
  ' Call draw_line
End Sub








Private Sub sspanel3_Click()

   Text1.Visible = False
If TxtNianXian.Text = "" Then
      MsgBox "必须输入生产年限!"
      Exit Sub
   End If
   RowTemp = Val(TxtNianXian.Text)
   If RowTemp > 25 Then
      MsgBox "生产年限过长,请重新输入?", "警告"
      Exit Sub
   End If
   
   
 
 
 
MSFlexGrid1.Rows = Val(TxtNianXian.Text + 1)
'MSFlexGrid1.RowHeight(Val(TxtNianXian.Text)) = 400
MSFlexGrid1.RowHeightMin = 400
 ''MSFlexGrid1.col = 1
 For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i, 0) = i
 Next i

 
End Sub

Private Sub SSCommand4_Click()
flag(2) = 2
   ShengChengGrideAdd
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
    Case 38 'up
     MSFlexGrid1.Text = Text1.Text
     Text1.Visible = 0
     MSFlexGrid1.SetFocus
     KeyAscii = 0
     SendKeys "{UP}"
    '' Call draw_line
    Case 40 'down
     MSFlexGrid1.Text = Text1.Text
     Text1.Visible = 0
     MSFlexGrid1.SetFocus
     KeyAscii = 0
     SendKeys "{DOWN}"
    '' Call draw_line
   End Select
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 46) And (KeyAscii <> 8) And (KeyAscii <> 13) And (KeyAscii <> 27) Then
     Beep
     KeyAscii = 0
    End If
    Select Case KeyAscii
     Case 13 'Enter
      MSFlexGrid1.Text = Text1.Text
     ' Call draw_line
      Text1.Visible = 0
      MSFlexGrid1.SetFocus
      KeyAscii = 0
      If MSFlexGrid1.row < MSFlexGrid1.Rows - 1 Then
       MSFlexGrid1.row = MSFlexGrid1.row + 1
       If MSFlexGrid1.row = MSFlexGrid1.Rows - 1 Then MSFlexGrid1.TopRow = MSFlexGrid1.TopRow + 1: Exit Sub
       For i = 1 To 10
        If Not (MSFlexGrid1.RowIsVisible(MSFlexGrid1.row + 1)) Then MSFlexGrid1.TopRow = MSFlexGrid1.TopRow + 1 Else Exit For
       Next i
      Else
       If MSFlexGrid1.col < MSFlexGrid1.Cols - 1 Then MSFlexGrid1.TopRow = MSFlexGrid1.FixedRows: MSFlexGrid1.row = MSFlexGrid1.FixedRows: MSFlexGrid1.col = MSFlexGrid1.col + 1
       If MSFlexGrid1.col = MSFlexGrid1.Cols - 1 Then MSFlexGrid1.LeftCol = MSFlexGrid1.LeftCol + 1: Exit Sub
       For i = 1 To 20
        If Not (MSFlexGrid1.ColIsVisible(MSFlexGrid1.col + 1)) Then
         MSFlexGrid1.LeftCol = MSFlexGrid1.LeftCol + 1
        Else
         If (MSFlexGrid1.CellLeft + MSFlexGrid1.CellWidth + Text1.Width) > MSFlexGrid1.Width Then MSFlexGrid1.LeftCol = MSFlexGrid1.LeftCol + 1
         Exit For
        End If
       Next i
      End If
     Case 27  'Escape
      KeyAscii = 0
      Text1.Text = MSFlexGrid1.Text
      Text1.Visible = 0
      MSFlexGrid1.SetFocus
    End Select
End Sub

Private Sub MSFlexGrid1_keypress(KeyAscii As Integer)
    Dim char As String

    Select Case KeyAscii
     Case 27 'Escape key
      Text1.Text = MSFlexGrid1.Text    'add this if desired
     Case Else
      If KeyAscii = 13 Then 'show text1 with full text
       Text1.Text = MSFlexGrid1.Text
       Text1.SelStart = Len(Text1.Text)
      Else
       char = Chr$(KeyAscii)
       Text1.Text = char
       Text1.SelStart = 1
      End If
      Call showtextbox
      KeyAscii = 0
    End Select
End Sub

Private Sub MSFlexGrid1_RowColChange()
 If bb = 2 Then
  Text1.Text = MSFlexGrid1.Text
  Call showtextbox
 End If
End Sub

Private Sub MSFlexGridshow()
  
  Dim Items(0 To 11) As String
   Dim IntLoop As Integer
       Items(0) = "年份"
       Items(1) = "工程费用(万元)"
       Items(2) = "固定资产贷款比例"
       Items(3) = "固定资产年利率"
       Items(4) = "流动资金(万元)"
       Items(5) = "流动资产贷款比例"
       Items(6) = "流动资产年利率"
       'Items(2) = "流动资金(万元)"
         
         bb = 1: jsq = 6
  sat_max = Val(TxtNianXian.Text)
  mTotalRows& = sat_max + 1
    
  MSFlexGrid1.Visible = False
  MSFlexGrid1.Cols = jsq + 1: MSFlexGrid1.Rows = mTotalRows&
  MSFlexGrid1.MergeCells = flexMergeNever
  
  MSFlexGrid1.FixedCols = 1: MSFlexGrid1.FixedRows = 1
  
  MSFlexGrid1.row = 0
       For IntLoop = 0 To 6
         MSFlexGrid1.col = IntLoop
         MSFlexGrid1.Text = Items(IntLoop)
       Next IntLoop
 If flag(2) = 1 Then
 
  For m = 1 To mTotalRows& - 1
    MSFlexGrid1.RowHeight(m) = 400 '设定高度
   MSFlexGrid1.ColAlignment(0) = 4
   For n = 1 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.ColAlignment(n) = 4
         MSFlexGrid1.TextMatrix(m, n) = ""
         MSFlexGrid1.TextMatrix(m, n) = ""
         Text1.Text = MSFlexGrid1.Text
    Next n
    Next m
  Else
22   For m = 1 To mTotalRows& - 1
    MSFlexGrid1.RowHeight(m) = 400 '设定高度
   MSFlexGrid1.ColAlignment(0) = 4
  
    MSFlexGrid1.ColAlignment(1) = 4
     MSFlexGrid1.TextMatrix(m, 1) = Format$(VarTouZi(m), kr_frt$(1))
      MSFlexGrid1.ColAlignment(2) = 4
     MSFlexGrid1.TextMatrix(m, 2) = Format$(varzchbl(m), kr_frt$(2))
      MSFlexGrid1.ColAlignment(3) = 4
     MSFlexGrid1.TextMatrix(m, 3) = Format$(varzchnl(m), kr_frt$(3))
      MSFlexGrid1.ColAlignment(4) = 4
     MSFlexGrid1.TextMatrix(m, 4) = Format$(VarLiuDongZiJin(m), kr_frt$(4))
      MSFlexGrid1.ColAlignment(5) = 4
     MSFlexGrid1.TextMatrix(m, 5) = Format$(vardkbl(m), kr_frt$(5))
      MSFlexGrid1.ColAlignment(6) = 4
     MSFlexGrid1.TextMatrix(m, 6) = Format$(vardknl(m), kr_frt$(6))
    Text1.Text = MSFlexGrid1.Text

  Next m
   End If
  MSFlexGrid1.ColWidth(0) = 500
  For i = 0 To MSFlexGrid1.Cols - 2

   MSFlexGrid1.ColWidth(i + 1) = (4500) / 2.6 * formbl_x
  Next i
  MSFlexGrid1.RowHeight(0) = 700
       
  Text1.Text = MSFlexGrid1.Text: Text1.Visible = 0
  
  MSFlexGrid1.col = MSFlexGrid1.FixedCols: MSFlexGrid1.row = 1
  MSFlexGrid1.TopRow = 1: MSFlexGrid1.LeftCol = MSFlexGrid1.FixedCols
  Call blank_MSFlexGridshow
  
  MSFlexGrid1.Visible = -1
  
  bb = 2
End Sub

Private Sub blank_MSFlexGridshow()
   For i = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1
    MSFlexGrid1.TextMatrix(i, 0) = Trim$(Str$(i - MSFlexGrid1.FixedRows + 1))
   Next i
   Text1.Text = MSFlexGrid1.Text
  ' If MSFlexGrid1.Text = "" Then MSFlexGrid1_keypress 13
End Sub



Private Sub TxtNianXian_KeyPress(KeyAscii As Integer)
 If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 46) And (KeyAscii <> 8) And (KeyAscii <> 13) And (KeyAscii <> 27) Then
     Beep
     KeyAscii = 0
    End If
  If KeyAscii = 13 Then
  Beep
  Call nianxianchange
  End If
    
End Sub




Private Sub UpDown1_DownClick()
If Val(TxtNianXian.Text) > 1 Then
 TxtNianXian.Text = LTrim$(Str(Val(TxtNianXian.Text) - 1))
 Call nianxianchange
  End If
End Sub

Private Sub UpDown1_UpClick()
If Val(TxtNianXian.Text) < 20 Then
TxtNianXian.Text = LTrim$(Str(Val(TxtNianXian.Text) + 1))
 Call nianxianchange
 End If
End Sub
Sub nianxianchange()
'If TxtNianXian.Text = "" Then
      'MsgBox "必须输入生产年限!"
      'Exit Sub
   'End If
   RowTemp = Val(TxtNianXian.Text)
   MSFlexGrid1.Rows = Val(TxtNianXian.Text + 1)
   MSFlexGrid1.RowHeightMin = 400
 ''MSFlexGrid1.col = 1
 For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(i, 0) = i
 Next i

  Text1.Visible = False
   If RowTemp >= 20 Then
      MsgBox "生产年限过长,请重新输入?", 0, "警告"
      TxtNianXian.Text = 20
      Exit Sub
   End If
   
   
 
 
 

'MSFlexGrid1.RowHeight(Val(TxtNianXian.Text)) = 400

End Sub