frmmain.frm

SQL Server的书记与Datagrid相连

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "GPS数据转换"
   ClientHeight    =   6225
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10710
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog dlgDatabase 
      Left            =   3720
      Top             =   1920
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   5955
      Width           =   10710
      _ExtentX        =   18891
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   13256
            Text            =   "状态"
            TextSave        =   "状态"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2003-7-29"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "10:15"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile 
      Caption         =   "数据输出"
      Begin VB.Menu mnuFileOpen 
         Caption         =   "打开GPS下载文件"
      End
      Begin VB.Menu mnuFileNewOut 
         Caption         =   "新建输出文件（经纬度）"
      End
      Begin VB.Menu Bar1 
         Caption         =   "-"
      End
      Begin VB.Menu OpenAlbersFile 
         Caption         =   "打开Albers坐标文件"
      End
      Begin VB.Menu NewAlbersFile 
         Caption         =   "新建Albers目标文件"
      End
      Begin VB.Menu Bar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuI 
      Caption         =   "数据转换"
      Enabled         =   0   'False
   End
   Begin VB.Menu frmTool 
      Caption         =   "工具"
      Enabled         =   0   'False
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于"
         Enabled         =   0   'False
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const EM_UNDO = &HC7

Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

Option Explicit


Private Sub mnuFileExit_click()
     End
End Sub

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 12500)  '12500
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 8500)  '8500
    gstNewdatabase = ""
    
    
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

Private Sub mnuFileNewOut_Click()

        '建立ARC Project程序能接受的文本文件
        gstNewdatabase = GetNewDataBase(Me)
        
    Dim Vad As String, Jind As String, Nid As String, a, b, c As String
    Dim i, j, k As Integer
    
    Open gstdatabase For Input As #1
    Open gstNewdatabase For Output As #2
    
    Do Until EOF(1)
        Input #1, a, Vad, b, Jind, c, Nid
        
    '读纬度，并换算成分
        i = Val(Left(Vad, 2)) * 60 '提取纬度的前两位并换算成分
        i = i + Val(Right(Vad, 6)) '加上分值
        
    '读经度，并换算成分
        j = Val(Left(Jind, 3)) * 60 '提取经度的前三位并换算成分
        j = j + Val(Right(Jind, 6)) '加上分值
        
    '读航路点编号
        k = Val(Mid(Nid, 4, 3))
       
    '把结果写到输出文件
        'Write #2, k, j, i
        Write #2, j, i
    
     Loop
     
     Close #2
     Close #1
End Sub

Private Sub mnuFileOpen_Click()
        '打开从GPS下载的文本文件
        gstdatabase = GetDatabase(Me)
        
End Sub

Private Sub NewAlbersFile_Click()

        '建立Arcview能接受的文本文件
        gstNewdatabaseAlbers = GetNewDataBaseAlbers(Me)
        
    Dim Vad As String, Jind As String, Nid As String, a, b, c As String
    Dim k As Integer, x As Double, y As Double
    
    Open gstdatabase For Input As #1
    Open gstdatabaseAlbers For Input As #2
    Open gstNewdatabaseAlbers For Output As #3
    
    Do Until EOF(1)
        Input #1, a, Vad, b, Jind, c, Nid
          
    '读航路点编号
        k = Val(Mid(Nid, 4, 3))
        
        Input #2, x, y
       
    '把结果写到输出文件
        'Write #2, k, j, i
        Write #3, k, x, y
    
     Loop
     
     Close #3
     Close #2
     Close #1
End Sub

Private Sub OpenAlbersFile_Click()
        'ARC Project程序的输出文件
        gstdatabaseAlbers = GetDatabaseAlbers(Me)
End Sub