dicengmodule.frm

地层出水预测计算模型

    End If
    
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
'给出沿井深变化的出水量预测剖面
NewChartFormX1.S1NameT = "地层出水预测"
If Optionh2 Then
    NewChartFormX1.LeftAixs = "深度(ft)"
    Optionh2 = False
Else
    NewChartFormX1.LeftAixs = "深度(m)"
End If
NewChartFormX1.BoAixs = "出水量(m3 / h)"

NewChartFormX1.ReadData 2, "c:\data.xls", 2, acount, "地层出水预测"
End Sub

Private Sub Command4_Click()
Form2.Show
End Sub


Private Sub Command5_Click()
For i = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.RemoveItem i
Next i
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
i = 1
flag = True
Dim s As String, k() As String
Open CommonDialog1.FileName For Input As #1
Line Input #1, s
k = Split(s, " ")
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(1, 0) = k(0)
MSFlexGrid1.TextMatrix(1, 2) = k(1)
While Not EOF(1)
i = i + 1
Line Input #1, s
k = Split(s, " ")
MSFlexGrid1.TextMatrix(i - 1, 1) = k(0)
MSFlexGrid1.TextMatrix(i - 1, 2) = k(1)
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = k(0)
MSFlexGrid1.TextMatrix(i, 2) = k(1)
flag = True
Wend
Close #1
MSFlexGrid1.RemoveItem i
End If
End Sub



Private Sub Command6_Click()
'MsgBox "数据输入成功!", vbOKCancel, "系统提示"
If MSFlexGrid1.Rows = 1 Then
MSFlexGrid1.AddItem ""
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 1
Text1.SetFocus
End If
End Sub

Private Sub Command8_Click()

CommonDialog1.ShowSave
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
Open CommonDialog1.FileName For Output As #1
'Write #1, "深度1"; "深度2"; "梯度压力"

For i = 1 To MSFlexGrid1.Rows - 1
Write #1, MSFlexGrid1.TextMatrix(i, 0); MSFlexGrid1.TextMatrix(i, 1); MSFlexGrid1.TextMatrix(i, 2)
Next i
Close 1

End Sub


Private Sub Command9_Click()
    If MSFlexGrid1.Rows >= 2 Then
        For i1 = 0 To MSFlexGrid1.Rows - 1
            If MSFlexGrid1.TextMatrix(i1, 2) = "" Then
                Exit For
            End If
        Next i1
        rouCount = i1 - 1
        ReDim Td(rouCount, 3)

        For i1 = 1 To rouCount
            Td(i1 - 1, 0) = MSFlexGrid1.TextMatrix(i1, 0)
            Td(i1 - 1, 1) = MSFlexGrid1.TextMatrix(i1, 1)
            Td(i1 - 1, 2) = MSFlexGrid1.TextMatrix(i1, 2)

        Next i1
        
        h1 = Td(0, 0)
        h2 = Td(rouCount - 1, 1)
       ' Dim count As Integer
   '     count = (h2 - h1) / 0.125
    
        
   
        '井深h 从文件读取
        For i1 = 0 To acount
            For j1 = 0 To rouCount - 1
                If h(i1) > Td(j1, 0) And h(i1) <= Td(j1, 1) Then
                    pp(i1) = Td(j1, 2)
                    
                End If
            Next j1
        
        Next i1

    MsgBox "计算参数设置成功", vbOKCancel, "系统提示"
    End If
    

End Sub

Private Sub Form_Load()
    Text1.Move -10000, -10000, 1, 1
    Text7.Move -10000, -10000, 1, 1
    MSFlexGrid1.Cols = 3
    MSFlexGrid1.FixedCols = 0
    
    
    
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Text = "深度1"
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Col = 1
    MSFlexGrid1.Text = "深度2"
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Col = 2
    MSFlexGrid1.Text = "孔隙压力"
    
    MSFlexGrid1.Row = 1
    MSFlexGrid1.Col = 0
    
    MSFlexGrid2.Row = 0
    MSFlexGrid2.Col = 0
    MSFlexGrid2.Text = "深度1"
    MSFlexGrid2.Row = 0
    MSFlexGrid2.Col = 1
    MSFlexGrid2.Text = "深度2"
    MSFlexGrid2.Row = 0
    MSFlexGrid2.Col = 2
    MSFlexGrid2.Text = "流动压力"
    
    MSFlexGrid2.Row = 1
    MSFlexGrid2.Col = 0
    
    
    
    Optionh2 = False
    
    '读取测井文件，变量赋值。

    Adodc1.RecordSource = "select * from h1021"
    Adodc1.Refresh
    acount = Adodc1.Recordset.RecordCount

ReDim h(acount)
ReDim pp(acount)
ReDim Rou(acount)
ReDim deltatp(acount)
ReDim deltats(acount)
ReDim vp(acount)
ReDim vs(acount)
ReDim Gr(acount)
ReDim Sp(acount)
ReDim Rild(acount)
ReDim Igr(acount)
ReDim Vcl(acount)

ReDim sigmah1(acount)
ReDim sigmah2(acount)
ReDim alpha(acount)
ReDim miud(acount)
ReDim mius(acount)
ReDim Emd(acount)
ReDim Ems(acount)
ReDim deltasigma(acount)
ReDim A1(acount)
ReDim A2(acount)
ReDim B1(acount)
ReDim B2(acount)
ReDim Pe(acount)
ReDim Pw(acount)

ReDim pora(acount)
ReDim porb(acount)
ReDim por(acount)
ReDim Swi(acount)
ReDim KK(acount)
ReDim Q(acount)


    Adodc1.Recordset.MoveFirst
    For i = 0 To Adodc1.Recordset.RecordCount - 1
        h(i) = Adodc1.Recordset.Fields("DEP:")
        Rou(i) = Adodc1.Recordset.Fields("DEN")
        deltatp(i) = Adodc1.Recordset.Fields("AC")
        deltats(i) = deltatp(i) * 0.57
        If deltatp(i) <> 0 Then
        vp(i) = 1 / deltatp(i) / (3.28 * 10 ^ (-6))
        End If
        If deltats(i) <> 0 Then
        vs(i) = 1 / deltats(i) / (3.28 * 10 ^ (-6))
        End If
        Gr(i) = Adodc1.Recordset.Fields("GR")
        Sp(i) = Adodc1.Recordset.Fields("SP")
        Rild(i) = Adodc1.Recordset.Fields("RILD")
        
        Adodc1.Recordset.MoveNext

    Next i
    
End Sub

Private Sub MSFlexGrid1_EnterCell()
    MSFlexGrid1.CellBackColor = vbBlue
    MSFlexGrid1.CellForeColor = vbWhite
    Text1.Text = MSFlexGrid1.Text
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)

    MSFlexGrid1.SetFocus
    
    If KeyCode = 13 Then
  
        MSFlexGrid1.AddItem ""
'        MSFlexGrid1.Col = 0
'        MSFlexGrid1.Row = MSFlexGrid1.Rows
'        MSFlexGrid1.SetFocus
    
    End If
    
    If KeyCode = 9 Then
        If MSFlexGrid1.Col < 3 Then
            MSFlexGrid1.Row = MSFlexGrid1.Row + 1
        
            MSFlexGrid1.SetFocus
        End If

    End If
    

End Sub

Private Sub MSFlexGrid1_LeaveCell()
    MSFlexGrid1.CellBackColor = vbWhite
    MSFlexGrid1.CellForeColor = vbBlue
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.SetFocus
End Sub

Private Sub MSFlexGrid2_EnterCell()
    MSFlexGrid2.CellBackColor = vbBlue
    MSFlexGrid2.CellForeColor = vbWhite
    Text7.Text = MSFlexGrid2.Text
    Text7.SelStart = 0
    Text7.SelLength = Len(Text7.Text)
End Sub


Private Sub MSFlexGrid2_KeyDown(KeyCode As Integer, Shift As Integer)

    MSFlexGrid2.SetFocus

    If KeyCode = 13 Then

        MSFlexGrid2.AddItem ""
        MSFlexGrid2.SetFocus

    End If

    If KeyCode = 9 Then
        If MSFlexGrid2.Col < 3 Then
             MSFlexGrid2.AddItem ""
            MSFlexGrid2.Row = MSFlexGrid2.Row + 1

            MSFlexGrid2.SetFocus
        End If

    End If
'MsgBox "adfsf", vbOKCancel, "asdfsf"

End Sub

Private Sub MSFlexGrid2_LeaveCell()
    MSFlexGrid2.CellBackColor = vbWhite
    MSFlexGrid2.CellForeColor = vbBlue
End Sub

Private Sub MSFlexGrid2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text7.SetFocus
End Sub

Private Sub Text7_Change()
    MSFlexGrid2.Text = Text7.Text
End Sub

Private Sub Text1_Change()
    MSFlexGrid1.Text = Text1.Text
End Sub


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 38 Then
        If MSFlexGrid1.Row > 1 Then
           MSFlexGrid1.Row = MSFlexGrid1.Row - 1
        End If
    End If
    If KeyCode = 37 Then
        If MSFlexGrid1.Col > 0 Then
          MSFlexGrid1.Col = MSFlexGrid1.Col - 1
        End If
    End If
    
    If KeyCode = 39 Then
            If MSFlexGrid1.Col < 2 Then
                MSFlexGrid1.Col = MSFlexGrid1.Col + 1
        
            End If
    End If
    If KeyCode = 40 Then
            If MSFlexGrid1.Row + 1 < MSFlexGrid1.Rows Then
                MSFlexGrid1.Row = MSFlexGrid1.Row + 1
            Else
                MSFlexGrid1.AddItem ""
                MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                MSFlexGrid1.Col = 0
                MSFlexGrid1.SetFocus
                Text1.SetFocus
            End If
    End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        MSFlexGrid1.AddItem ""
        MSFlexGrid1.Row = MSFlexGrid2.Row + 2
        MSFlexGrid1.Col = 0
        MSFlexGrid1.SetFocus
    End If
End Sub

Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 38 Then
        If MSFlexGrid2.Row > 1 Then
           MSFlexGrid2.Row = MSFlexGrid2.Row - 1
        End If
    End If
    If KeyCode = 37 Then
        If MSFlexGrid2.Col > 0 Then
          MSFlexGrid2.Col = MSFlexGrid2.Col - 1
        End If
    End If
    
    If KeyCode = 39 Then
            If MSFlexGrid2.Col < 2 Then
                MSFlexGrid2.Col = MSFlexGrid2.Col + 1
        
            End If
    End If
    If KeyCode = 40 Then
            If MSFlexGrid2.Row + 1 < MSFlexGrid2.Rows Then
                MSFlexGrid2.Row = MSFlexGrid2.Row + 1
            Else
                MSFlexGrid2.AddItem ""
                MSFlexGrid2.Row = MSFlexGrid2.Row + 1
                MSFlexGrid2.Col = 0
                MSFlexGrid2.SetFocus
                Text7.SetFocus
            End If
    End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        MSFlexGrid2.AddItem ""
        MSFlexGrid2.Row = MSFlexGrid2.Row + 2
        MSFlexGrid2.Col = 0
        MSFlexGrid2.SetFocus
    End If
End Sub