frminput.frm

测量水准计算程序。水准平差等。是测绘行业的一个很有用的程序

VERSION 5.00
Begin VB.Form frmInput 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "观测数据输入：第1站"
   ClientHeight    =   1080
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   2760
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1080
   ScaleWidth      =   2760
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtDetH 
      Height          =   285
      Left            =   480
      TabIndex        =   5
      Top             =   600
      Width           =   975
   End
   Begin VB.TextBox txtDist 
      Height          =   285
      Left            =   480
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   600
      Width           =   855
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label11 
      AutoSize        =   -1  'True
      Caption         =   "高差"
      Height          =   180
      Left            =   120
      TabIndex        =   7
      Top             =   652
      Width           =   360
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "m"
      Height          =   180
      Left            =   1560
      TabIndex        =   6
      Top             =   652
      Width           =   90
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "距离"
      Height          =   180
      Left            =   120
      TabIndex        =   4
      Top             =   165
      Width           =   360
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "km"
      Height          =   180
      Left            =   1560
      TabIndex        =   3
      Top             =   165
      Width           =   180
   End
End
Attribute VB_Name = "frmInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim iMark%                      '测站计数器
Dim dist!, dH!


Private Sub cmdCancel_Click()
    '清除已经传给主窗体的数据
    Dim i%
    For i = 1 To iMark
        dis(i) = 0
        detH(i) = 0
    Next i
    '清除主窗体的显示
    frmMain.txtShowResult.Text = "水准计算结果:"
    '卸载输入窗体
    Unload Me
End Sub

Private Sub cmdOK_Click()
    dist = Val(txtDist.Text)
    dH = Val(txtDetH.Text)
    Call AddData(iMark, dist, dH)
    '在主窗体显示本站数据
    frmMain.txtShowResult = frmMain.txtShowResult & "第" & Str(iMark) & "站：" & vbCrLf
    frmMain.txtShowResult = frmMain.txtShowResult & "    距离：" & dis(iMark) & "    高差中数：" & detH(iMark) & vbCrLf
    
    If iMark >= nMarks Then       '如果已经输入完所有的测站观测值
        frmInput.Hide
    Else                                '若还没有输完，初始化输入界面输入下一个测站
        txtDist.Text = ""
        txtDetH.Text = ""
        txtDist.SetFocus
    End If
    
    frmInput.Caption = "观测数据输入：第" & Trim(Str(iMark)) & "站"
    iMark = iMark + 1                   '测站数加1
End Sub

Private Sub Form_Load()
    iMark = 1
End Sub