main.frm

CELL-ID技术是目前最简单的定位技术

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form 系统主窗口 
   Caption         =   "手机定位系统"
   ClientHeight    =   7890
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   11025
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7890
   ScaleWidth      =   11025
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   10560
      Top             =   7080
   End
   Begin MSComctlLib.StatusBar SBar1 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   7575
      Width           =   11025
      _ExtentX        =   19447
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   1834
            MinWidth        =   1834
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4410
            MinWidth        =   4410
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "基于Cell-ID的手机定位系统"
            TextSave        =   "基于Cell-ID的手机定位系统"
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   7065
      Left            =   480
      Picture         =   "main.frx":6852
      Top             =   360
      Width           =   10125
   End
   Begin VB.Menu loc 
      Caption         =   "定位服务(&L)"
      Begin VB.Menu cellphone 
         Caption         =   "手机定位"
      End
      Begin VB.Menu fastgo 
         Caption         =   "快速达到"
      End
   End
   Begin VB.Menu sysset 
      Caption         =   "参数设置(&E)"
      Begin VB.Menu database 
         Caption         =   "地理位置数据库设置"
      End
      Begin VB.Menu mapset 
         Caption         =   "地图初始点设置"
      End
   End
   Begin VB.Menu system 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu opset 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu lp1 
         Caption         =   "-"
      End
      Begin VB.Menu cellset 
         Caption         =   "基站设置"
      End
      Begin VB.Menu lp4 
         Caption         =   "-"
      End
      Begin VB.Menu DB 
         Caption         =   "数据备份和数据库恢复"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu syshelp 
         Caption         =   "手机定位系统 帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu lp5 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于..."
      End
      Begin VB.Menu lp2 
         Caption         =   "-"
      End
      Begin VB.Menu dev_name 
         Caption         =   "开发者名单"
      End
      Begin VB.Menu lp3 
         Caption         =   "-"
      End
      Begin VB.Menu help_cal 
         Caption         =   "打开 计算器"
      End
      Begin VB.Menu help_note 
         Caption         =   "打开 记事本"
      End
   End
   Begin VB.Menu logout 
      Caption         =   "退出系统(&Q)"
   End
End
Attribute VB_Name = "系统主窗口"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'声明API函数
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal mytime As Long, ByVal style As Long) As Boolean
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Private Sub about_Click()
关于.Show
Me.Enabled = False
End Sub

Private Sub cellphone_Click()
手机定位.Show
Me.Enabled = False
End Sub

Private Sub cellset_Click()
基站设置.Show
Me.Enabled = False
End Sub

Private Sub database_Click()
数据库设置.Show
Me.Enabled = False
End Sub

Private Sub DB_Click()
数据库备份.Show
Me.Enabled = False

End Sub

Private Sub dev_name_Click()
开发者名单.Show
Me.Enabled = False
End Sub

Private Sub fastgo_Click()
快速到达.Show
Me.Enabled = False
End Sub

Private Sub Form_Load()
  Me.Top = Screen.Width / 12
  Me.Left = Screen.Height / 12
  Me.Caption = App.Title
  '使用API函数来设置窗体展开形式
  outspread = AnimateWindow(Me.hwnd, 1000, 16)
  Me.Refresh
  Me.SetFocus
  
  SBar1.Panels(4).Text = "登陆用户："
  SBar1.Panels(5).Text = systemuser
  
End Sub

Private Sub help_cal_Click()
  Dim ReturnValue, i
  ReturnValue = Shell("Calc.EXE", 1)   ' 运行计算器。'Shell调用可执行文件
  AppActivate ReturnValue    ' 激活计算器。
End Sub

Private Sub help_note_Click()
  Dim ReturnValue, i
  ReturnValue = Shell("NOTEPAD.EXE", 1)   ' 运行记事本。'Shell调用可执行文件
  AppActivate ReturnValue    ' 激活记事本。
End Sub



Private Sub logout_Click()
  Dim a As Integer
  a = MsgBox("是否退出？", 1 + 32 + 256, "退出系统")
     If a = 1 Then
       End
     End If
End Sub

Private Sub mapset_Click()
地图设置.Show
Me.Enabled = False
End Sub

Private Sub opset_Click()
操作员设置.Show
Me.Enabled = False
End Sub

Private Sub syshelp_Click()
Call ShellExecute(Me.hwnd, "Open", App.Path & "\Doc\手机定位系统说明书.doc", "", App.Path, 1)
End Sub

Private Sub Timer1_Timer()
  SBar1.Panels(1).Text = Format(Date, "yyyy年mm月dd日")
  SBar1.Panels(2).Text = Format(Date, "第 q 季度")
  SBar1.Panels(3).Text = Format(Time, "HH:MM:S:AM/PM")
End Sub


Private Sub Image1_Click()
Dim a
a = MsgBox("本功能尚未实现，暂时无法使用！", 16 + 0, "抱歉！")
End Sub

Private Sub Image1_DblClick()
Dim a
a = MsgBox("本功能尚未实现，暂时无法使用！", 16 + 0, "抱歉！")
End Sub