frmpro.frm

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

    For i = 1 To VarPingJiaQi
      For j = 1 To 8
        VarShengCheng(i, j) = Val(MSFlexGrid1.TextArray(i * 8 + j - 1))
      Next j
    Next i
    'For I = 1 To VarPingJiaQi
    '  MsgBox Val(MSFlexGrid1.TextArray(I * 8 + 1)) 'VarShengCheng(I, 2) 'MSFlexGrid1.TextArray(I * 8 + 1)
    'Next I
      
 ' End If
    .Close
    If newis = 2 Then
    MsgBox "数据保存成功!", 0, "OK!"
    End If
    Exit Sub
  End With
myerrr:
MousePointer = 0
   Me.Enabled = -1
       Me.MousePointer = 1
    
End Sub

Private Sub SSCommand3_Click()
'
Beep
   msg$ = " 退出前是否保存数据? "
   Title$ = "退出"
   xchoose = MsgBox(msg$, 35, Title$)
   If xchoose = 2 Then Exit Sub
  
   If xchoose = 6 Then
   

   'If OpeningDatabase <> "" And filename1 <> "" Then
   
   SSCommand2_Click
  
   End If
Me.Hide
 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()

  
If TxtNianXian.Text = "" Then
      MsgBox "必须输入生产年限!"
      Exit Sub
   End If
   RowTemp = Val(TxtNianXian.Text)
   If RowTemp > 25 Then
      MsgBox "生产年限过长,请重新输入?", 0, "警告"
      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

  Text1.Visible = False
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 7) As String
   Dim IntLoop As Integer
       Items(0) = "年份"
       Items(1) = "年增油(万吨)"
       Items(2) = "油价(元/吨)"
       Items(3) = "注液量(万方)"
       Items(4) = "清水用量(万方)"
       Items(5) = "剩余污水量(万方)"
       Items(6) = "少产污水量(万方)"
       Items(7) = "注入井数(口)"
       
      
  bb = 1:
   jsq = 7
  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 7
         MSFlexGrid1.col = IntLoop
         MSFlexGrid1.Text = Items(IntLoop)
       Next IntLoop
 If newis = 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) = ""
          Text1.Text = MSFlexGrid1.Text
    Next n
    Next m
   Else
22   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) = Format$(VarShengCheng(m, n + 1), kr_frt$(n))
    Text1.Text = MSFlexGrid1.Text
   Next n
  Next m
   End If
  MSFlexGrid1.ColWidth(0) = 500
  For i = 0 To MSFlexGrid1.Cols - 2

   MSFlexGrid1.ColWidth(i + 1) = (12580) / 8 * formbl_x
  Next i
  MSFlexGrid1.RowHeight(0) = 600
       
  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 show_zb(X, Y, bz0 As Object)
  kas = X >= px1 And X <= px2 And Y >= py1 And Y <= py2
  If mq_index = 0 Or mq_index = 2 Then xstr$ = "Sw" Else xstr$ = "SL"
  If kas Then
   str_x$ = Format$(xaxis_min + (X - px1) * (xaxis_max - xaxis_min) / (px2 - px1), "#0.0000")
   bz0.Caption = xstr$ + ":" + Trim$(str_x$)
   For i = 1 To yaxis_num
    str_y$ = Format$(yaxis_max(i) - (Y - py1) * (yaxis_max(i) - yaxis_min(i)) / (py2 - py1), "#0.0000")
    bz0.Caption = bz0.Caption + "   Kr:" + Trim$(str_y$)
   Next i
  Else
   bz0.Caption = ""
  End If
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
   
End Sub