frminput.frm

气体流动仪控制软件 属于工业控制软件 delphi开发

         Caption         =   "岩样井号："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   13
         Top             =   1200
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "取样地区："
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   480
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "驱替介质参数"
      Height          =   975
      Left            =   120
      TabIndex        =   4
      Top             =   3720
      Width           =   11175
      Begin VB.TextBox Txt_Qtmd 
         Height          =   375
         Left            =   9240
         TabIndex        =   10
         Text            =   "1"
         Top             =   360
         Width           =   1095
      End
      Begin VB.TextBox Txt_Qtnd 
         Height          =   375
         Left            =   5610
         TabIndex        =   9
         Text            =   "1"
         Top             =   360
         Width           =   1215
      End
      Begin VB.TextBox Txt_Qtjz 
         Height          =   375
         Left            =   2055
         TabIndex        =   8
         Text            =   "水"
         Top             =   360
         Width           =   1140
      End
      Begin VB.Label Label1 
         Caption         =   "介质密度(g/cm^3)："
         Height          =   255
         Index           =   10
         Left            =   7440
         TabIndex        =   7
         Top             =   480
         Width           =   1695
      End
      Begin VB.Label Label1 
         Caption         =   "介质粘度(mPa.s)："
         Height          =   255
         Index           =   9
         Left            =   3960
         TabIndex        =   6
         Top             =   480
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "驱替介质："
         Height          =   255
         Index           =   8
         Left            =   960
         TabIndex        =   5
         Top             =   480
         Width           =   975
      End
   End
   Begin MSComDlg.CommonDialog Cd 
      Left            =   120
      Top             =   5040
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Filter          =   "相渗测定数据文件(*.xsc)|*.xsc"
   End
   Begin VB.CommandButton Com_Ca 
      Caption         =   "取消(&Cancel)"
      Height          =   495
      Left            =   9000
      TabIndex        =   3
      Top             =   5280
      Width           =   1455
   End
   Begin VB.CommandButton Com_Ok 
      Caption         =   "准备采集(&Ok)"
      Height          =   495
      Left            =   6400
      TabIndex        =   2
      Top             =   5280
      Width           =   1695
   End
   Begin VB.CommandButton Com_Sa 
      Caption         =   "保存设置(&Save)"
      Height          =   495
      Left            =   3800
      TabIndex        =   1
      Top             =   5280
      Width           =   1695
   End
   Begin VB.CommandButton Com_In 
      Caption         =   "引入设置(&Input)"
      Height          =   495
      Left            =   1080
      TabIndex        =   0
      Top             =   5280
      Width           =   1815
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   11400
      Y1              =   4920
      Y2              =   4920
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   3
      X1              =   -1560
      X2              =   11400
      Y1              =   4800
      Y2              =   4800
   End
End
Attribute VB_Name = "frmInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Com_Ca_Click()
Unload Me
End Sub

Private Sub Text9_Change()

End Sub

Private Sub Com_In_Click()
Dim TmpFile As String, lenth As Integer, a As String * 80
On Local Error Resume Next
Cd.filename = ""
Cd.ShowOpen
TmpFile = Cd.filename
If TmpFile <> "" Then
    lenth = GetPrivateProfileString("up", "qydq", "", a, 80, TmpFile)
    Me.Txt_Qydq = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "yyjh", "2.5", a, 80, TmpFile)
    Me.Txt_Yyjh = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "yph", "10", a, 80, TmpFile)
    Me.Txt_Yph = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "yytx", "", a, 80, TmpFile)
    Me.Txt_Yytx = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "yxzj", "", a, 80, TmpFile)
    Me.Txt_Yxzj = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "yxcd", "", a, 80, TmpFile)
    Me.Txt_Yxcd = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "kxd", "", a, 80, TmpFile)
    Me.Txt_Kxd = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("up", "qyzq", "", a, 80, TmpFile)
    Me.Txt_Qyzq = Mid(a, 1, lenth)
    'lenth = GetPrivateProfileString("left", "stl", "", a, 80, TmpFile)
    'Me.txt_stl = Mid(a, 1, lenth)
    
    'lenth = GetPrivateProfileString("right", "csxm", "盐敏", a, 80, TmpFile)
    'Me.cmb_csxm.Text = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "syff", "", a, 80, TmpFile)
    Me.Txt_Syff = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "p0", "", a, 80, TmpFile)
    Me.Txt_Dqy = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "yygz", "", a, 80, TmpFile)
    Me.Txt_Yygz = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "bhzl", "", a, 80, TmpFile)
    Me.Txt_Bhzl = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "bhjz", "", a, 80, TmpFile)
    Me.Txt_Bhjz = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "bhnd", "", a, 80, TmpFile)
    Me.Txt_Bhnd = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "bhmd", "", a, 80, TmpFile)
    Me.Txt_Bhmd.Text = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("centre", "bhkhd", "", a, 80, TmpFile)
    Me.Txt_Bhkhd.Text = Mid(a, 1, lenth)
    'lenth = GetPrivateProfileString("right", "sx", "", a, 80, TmpFile)
    'Me.cmb_sx.Text = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("down", "qtjz", "", a, 80, TmpFile)
    Me.Txt_Qtjz.Text = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("down", "qtnd", "", a, 80, TmpFile)
    Me.Txt_Qtnd.Text = Mid(a, 1, lenth)
    lenth = GetPrivateProfileString("down", "qtmd", "", a, 80, TmpFile)
    Me.Txt_Qtmd.Text = Mid(a, 1, lenth)
    'lenth = GetPrivateProfileString("right", "ls", "1", a, 80, TmpFile)
    'Me.cmb_ls.Text = Mid(a, 1, lenth)
    
    'lenth = GetPrivateProfileString("right", "yd", "1", a, 80, TmpFile)
    'Me.cmb_yd.Text = Mid(a, 1, lenth)
    
    'lenth = GetPrivateProfileString("right", "hy", "1", a, 80, TmpFile)
    'Me.txt_hy.Text = Mid(a, 1, lenth)
    'lenth = GetPrivateProfileString("right", "zfx", "1", a, 80, TmpFile)
   'Me.cmb_zfx.Text = Mid(a, 1, lenth)
    
    
    
End If

End Sub

Private Sub Com_Ok_Click()
Dim i
i = MsgBox("所有字段均不能为空值，你确信已填写完整吗？", vbQuestion + vbYesNo + vbDefaultButton2, "请注意")
If i = vbNo Then Exit Sub


With Me
      QYDQ = .Txt_Qydq.Text
      YYJH = .Txt_Yyjh.Text
    YPH = .Txt_Yph.Text
    YYTX = .Txt_Yytx.Text
    YXZJ = Val(.Txt_Yxzj.Text) + 0
     YXCD = Val(.Txt_Yxcd.Text) + 0
     KXD = Val(.Txt_Kxd.Text) + 0
    QYZQ = Val(.Txt_Qyzq.Text) + 0
  
    SYFF = .Txt_Syff.Text
    P0 = Val(.Txt_Dqy.Text) + 0
    YYGZ = Val(.Txt_Yygz.Text) + 0
    BHZL = Val(.Txt_Bhzl.Text) + 0
    BHJZ = .Txt_Bhjz.Text
    BHND = Val(.Txt_Bhnd.Text) + 0
    BHMD = Val(.Txt_Bhmd.Text) + 0
    
    'If JZMD < 0.0000001 Then JZMD = 1
    BHKHD = Val(.Txt_Bhkhd.Text) + 0
    
    QTJZ = .Txt_Qtjz.Text
    QTND = Val(.Txt_Qtnd.Text) + 0
    QTMD = Val(.Txt_Qtmd.Text) + 0
    
    
End With
frmShow.Cmd_Input.Enabled = False
frmShow.Frame1.Enabled = True
frmShow.Label6.Visible = True
frmShow.T_show1.Enabled = True

If SYFF = "非稳态法" Then frmShow.Frame3.Enabled = True


Unload Me

End Sub

Private Sub Com_Sa_Click()
Dim TmpFile As String
Cd.filename = ""
Cd.ShowOpen
TmpFile = Cd.filename
If TmpFile <> "" Then
    WritePrivateProfileString "up", "qydq", Me.Txt_Qydq.Text, TmpFile
    WritePrivateProfileString "up", "yyjh", Me.Txt_Yyjh.Text, TmpFile
    WritePrivateProfileString "up", "yph", Me.Txt_Yph.Text, TmpFile
    WritePrivateProfileString "up", "yytx", Me.Txt_Yytx.Text, TmpFile
    WritePrivateProfileString "up", "yxzj", Me.Txt_Yxzj.Text, TmpFile
    WritePrivateProfileString "up", "yxcd", Me.Txt_Yxcd.Text, TmpFile
    WritePrivateProfileString "up", "kxd", Me.Txt_Kxd.Text, TmpFile
    WritePrivateProfileString "up", "qyzq", Me.Txt_Qyzq.Text, TmpFile
    
    WritePrivateProfileString "centre", "syff", Me.Txt_Syff.Text, TmpFile
    WritePrivateProfileString "centre", "p0", Me.Txt_Dqy.Text, TmpFile
    WritePrivateProfileString "centre", "yygz", Me.Txt_Yygz.Text, TmpFile
    WritePrivateProfileString "centre", "bhzl", Me.Txt_Bhzl.Text, TmpFile
    WritePrivateProfileString "centre", "bhjz", Me.Txt_Bhjz.Text, TmpFile
    WritePrivateProfileString "centre", "bhnd", Me.Txt_Bhnd.Text, TmpFile
    WritePrivateProfileString "centre", "bhmd", Me.Txt_Bhmd.Text, TmpFile
    WritePrivateProfileString "centre", "bhkhd", Me.Txt_Bhkhd.Text, TmpFile

    
    WritePrivateProfileString "down", "qtjz", Me.Txt_Qtjz.Text, TmpFile
    WritePrivateProfileString "down", "qtnd", Me.Txt_Qtnd.Text, TmpFile
    WritePrivateProfileString "down", "qtmd", Me.Txt_Qtmd.Text, TmpFile
    'WritePrivateProfileString "centre", "qyzq", Me.Txt_Qyzq.Text, TmpFile

End If

End Sub