Name            =   "宋體"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   14
      Top             =   2400
      Width           =   1455
   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        =   13
      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        =   12
      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        =   11
      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        =   10
      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        =   9
      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        =   8
      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()
   Dim tmp As String
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
   Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
    With arecord
       If .RecordCount > 0 Then
            .MoveFirst
            If .Fields(0) <> "" Then g_Pro = .Fields(0)
            If .Fields(1) <> "" Then g_Loc = .Fields(1)
            If .Fields(2) <> "" Then g_InsName = .Fields(2)
            If .Fields(3) <> "" Then g_InsNum = .Fields(3)
            If .Fields(4) <> "" Then g_Obs = .Fields(4)
            If .Fields(5) <> "" Then g_Obd = .Fields(5)
            If .Fields(6) <> "" Then g_Com = .Fields(6)
            If .Fields(7) <> "" Then g_Cod = .Fields(7)
            g_PotNum = .Fields(8)
            g_ObsNum = .Fields(9)
           
       End If
    End With
    arecord.Close
   If g_Obd = "" Then g_Obd = Format(Date, "yyyy-mm-dd")
   If g_Cod = "" Then g_Cod = Format(Date, "yyyy-mm-dd")
   TxtObd.Text = Format(g_Obd, "yyyy-mm-dd")
   TxtCod.Text = Format(g_Cod, "yyyy-mm-dd")
   
   TxtPotNum.Text = Str(g_PotNum)
   TxtIns.Text = g_InsName
   TxtInsNo.Text = g_InsNum                                 ' 修改
   TxtLoc.Text = g_Loc
   TxtObd.Text = g_Obd
   TxtObs.Text = g_Obs
   TxtCom.Text = g_Com                          '4月3號
   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 TxtPotNum_Change()
      g_PotNum = Val(TxtPotNum.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_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
          If g_Pro <> "" Then .Fields(0) = g_Pro
          If g_Loc <> "" Then .Fields(1) = g_Loc
          If g_InsName <> "" Then .Fields(2) = g_InsName
          If g_InsNum <> "" Then .Fields(3) = g_InsNum
          If g_Obs <> "" Then .Fields(4) = g_Obs
          If g_Obd <> "" Then .Fields(5) = g_Obd
          If g_Com <> "" Then .Fields(6) = g_Com
          If g_Cod <> "" Then .Fields(7) = g_Cod
          .Fields(8) = g_PotNum                                     '保存
          .Fields(9) = g_ObsNum
           .Update
           .Bookmark = .LastModified
           .Close
        End With
End Sub