frmverdatainput1.frm

方程组解算,根据系数矩阵,解出方程组中x的坐标

      Width           =   855
   End
   Begin VB.Label Label10 
      Caption         =   "观测值个数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5880
      TabIndex        =   17
      Top             =   2400
      Width           =   1095
   End
   Begin VB.Label Label9 
      Caption         =   "未知点个数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   16
      Top             =   2400
      Width           =   975
   End
   Begin VB.Label Label8 
      Caption         =   "已知点个数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   15
      Top             =   2400
      Width           =   1095
   End
   Begin VB.Label Label7 
      Caption         =   "计算日期"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5880
      TabIndex        =   14
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label6 
      Caption         =   "计算者"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   13
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label5 
      Caption         =   "观测日期"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   12
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label4 
      Caption         =   "观测者"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5880
      TabIndex        =   11
      Top             =   480
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "项目地点"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   10
      Top             =   480
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "项目名称"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   9
      Top             =   480
      Width           =   855
   End
End
Attribute VB_Name = "FrmVerDataInput1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FileName As String

Private Sub CmdNextForm_Click()
  Call VerDataInput1Save
  Load FrmVerDataInput2
  FrmVerDataInput2.Show
  Unload Me
End Sub

Private Sub CmdSave_Click()
    Call VerDataInput1Save
End Sub

Private Sub Form_Load()
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
   g_Obd = Format(Date, "yyyy-mm-dd")
   g_Cod = Format(Date, "yyyy-mm-dd")
   TxtObd.Text = Format(g_Obd, "yyyy-mm-dd")
   TxtCod.Text = Format(g_Cod, "yyyy-mm-dd")
   TxtCod.Text = g_Cod
   TxtCom.Text = g_Com
   TxtDd.Text = Str(g_Dd)
   TxtEd.Text = Str(g_Ed)
   TxtHeiSys.Text = g_Els
   TxtIns.Text = g_InsName
   TxtInsNo.Text = g_InsNum
   TxtLoc.Text = g_Loc
   TxtObd.Text = g_Obd
   TxtObs.Text = g_Obs
   TxtObsNum.Text = Str(g_ObsNum)
   TxtPro.Text = g_Pro


End Sub


Private Sub TxtCod_LostFocus()
 g_Cod = TxtCod.Text
End Sub

Private Sub TxtCom_LostFocus()
  g_Com = TxtCom.Text
End Sub

Private Sub TxtDd_Change()
  g_Dd = Val(TxtDd.Text)
End Sub

Private Sub TxtEd_Change()
  g_Ed = Val(TxtEd.Text)
End Sub

Private Sub TxtHeiSys_Change()
   g_Els = TxtHeiSys.Text
End Sub

Private Sub TxtIns_Change()
   g_InsName = TxtIns.Text
End Sub

Private Sub TxtInsNo_Change()
   g_InsNum = TxtInsNo.Text
End Sub

Private Sub TxtLoc_Change()
  g_Loc = TxtLoc.Text
End Sub

Private Sub TxtObd_Change()
  g_Obd = TxtObd.Text
End Sub

Private Sub TxtObs_Change()
  g_Obs = TxtObs.Text
End Sub

Private Sub TxtObsNum_Change()
   g_ObsNum = Val(TxtObsNum.Text)
End Sub

Private Sub TxtPro_Change()
  g_Pro = TxtPro.Text
End Sub

Private Sub VerDataInput1Save()
If g_Ed <= 0 Then
      MsgBox "必须输入已知点的个数！", , "信息提示!"
      Exit Sub
  End If
  If g_Dd <= 0 Then
      MsgBox "必须输入未知点的个数！", , "信息提示!"
      Exit Sub
  End If
  If g_ObsNum <= 0 Then
      MsgBox "必须输入观测值的个数！", , "信息提示!"
      Exit Sub
  End If
Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
    With arecord
          If .RecordCount > 0 Then
              .MoveFirst
              .Delete
          End If
          .AddNew
          .Fields(0) = g_Pro
          .Fields(1) = g_Loc
          .Fields(2) = g_InsName
          .Fields(3) = g_InsNum
          .Fields(4) = g_Obs
          .Fields(5) = g_Obd
          .Fields(6) = g_Com
          .Fields(7) = g_Cod
          .Fields(8) = g_Els
          .Fields(9) = g_Ed
          .Fields(10) = g_Dd
          .Fields(11) = g_ObsNum
           .Update
           .Bookmark = .LastModified
           .Close
        End With
End Sub