unit1.dfm

本书所有案例均需要单独配置

object Form1: TForm1
  Left = -4
  Top = -4
  Width = 1032
  Height = 748
  Caption = '公交自动定位系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Map1: TMap
    Left = 177
    Top = 25
    Width = 847
    Height = 658
    ParentColor = False
    TabStop = True
    Align = alClient
    TabOrder = 0
    OnMouseMove = Map1MouseMove
    OnMouseDown = Map1MouseDown
    ControlData = {
      000002008A57000002440000E1000000FFFFFF00010001000001102700000100
      00000000000000000000000000000100FFFFFF0000020000000000}
  end
  object Panel1: TPanel
    Left = 0
    Top = 25
    Width = 177
    Height = 658
    Align = alLeft
    TabOrder = 1
    object Button1: TButton
      Left = 48
      Top = 560
      Width = 75
      Height = 25
      Caption = '班车始发'
      TabOrder = 0
      OnClick = Button1Click
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 25
      Width = 175
      Height = 264
      Align = alTop
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Color = clInfoBk
          Expanded = False
          FieldName = '车号'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = '小灵通号'
          Visible = True
        end>
    end
    object Button2: TButton
      Left = 48
      Top = 600
      Width = 75
      Height = 25
      Caption = '班车停开'
      TabOrder = 2
      OnClick = Button2Click
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 289
      Width = 175
      Height = 120
      Align = alTop
      Caption = '所选运行班车信息'
      TabOrder = 3
      object Label2: TLabel
        Left = 16
        Top = 24
        Width = 24
        Height = 13
        Caption = '车号'
      end
      object Label3: TLabel
        Left = 16
        Top = 48
        Width = 48
        Height = 13
        Caption = '小灵通号'
      end
      object Label4: TLabel
        Left = 16
        Top = 72
        Width = 24
        Height = 13
        Caption = '工号'
      end
      object Label5: TLabel
        Left = 16
        Top = 96
        Width = 48
        Height = 13
        Caption = '前进方向'
      end
      object Label7: TLabel
        Left = 88
        Top = 24
        Width = 18
        Height = 13
        Alignment = taCenter
        BiDiMode = bdLeftToRight
        Caption = 'aaa'
        ParentBiDiMode = False
      end
      object Label8: TLabel
        Left = 88
        Top = 48
        Width = 12
        Height = 13
        Alignment = taCenter
        BiDiMode = bdLeftToRight
        Caption = 'aa'
        ParentBiDiMode = False
      end
      object Label9: TLabel
        Left = 88
        Top = 72
        Width = 6
        Height = 13
        Alignment = taCenter
        BiDiMode = bdLeftToRight
        Caption = 'a'
        ParentBiDiMode = False
      end
      object Label10: TLabel
        Left = 88
        Top = 96
        Width = 30
        Height = 13
        Alignment = taCenter
        BiDiMode = bdLeftToRight
        Caption = 'aaaaa'
        ParentBiDiMode = False
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 175
      Height = 24
      Align = alTop
      Caption = '所有运行班车信息'
      TabOrder = 4
    end
    object GroupBox2: TGroupBox
      Left = 1
      Top = 409
      Width = 175
      Height = 136
      Align = alTop
      Caption = '小灵通短信'
      TabOrder = 5
      object Memo1: TMemo
        Left = 2
        Top = 15
        Width = 171
        Height = 90
        Align = alTop
        TabOrder = 0
      end
      object Button3: TButton
        Left = 64
        Top = 112
        Width = 41
        Height = 17
        Caption = '确定'
        TabOrder = 1
        OnClick = Button3Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 1024
    Height = 25
    Align = alTop
    TabOrder = 2
    object Zoomin: TSpeedButton
      Left = 0
      Top = 0
      Width = 25
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        4466666666666664744666666666664744466666666664744466666600004744
        46666600777F8444666660877777F8086666607770777F066666077770777770
        6666077000007770666607F770777770666607F770777770666660FF77777706
        6666608FFF777806666666007777006666666666000066666666}
    end
    object Zoomout: TSpeedButton
      Left = 24
      Top = 0
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        4466666666666664744666666666664744466666666664744466666600004744
        46666600777F8444666660877777F8086666607777777F066666077777777770
        6666077777777770666607F700007770666607F777777770666660FF77777706
        6666608FFF777806666666007777006666666666000066666666}
    end
    object Pan: TSpeedButton
      Left = 48
      Top = 0
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        4466666660FFFFFF066666660FFFFFFF06666660FFFFFFFFF066660FFFFFFFFF
        F066660FFFFFFFFFFF0660FFFFFFFFFFFF060FFF0FFFFFFFFF060FF00FFFFFFF
        FFF060060FFFFFFF0FF06660FF0FF0FF0FF06660FF0FF0FF00F0660FF00FF0FF
        0606660FF00FF0FF06666660060FF00066666666666006666666}
    end
    object Full: TSpeedButton
      Left = 200
      Top = 0
      Width = 23
      Height = 22
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        66666666668888866666666688CCC22886666668CCCC2222C8666687CC762222
        26866686C722222222866876C7222222CCC8687CC222222C22C868C7CCC22C22
        24C86877C2CCCCCC4C286877CC2CCC2C4C2866877C2222222286668CCCC2C222
        22866668CC6CC222286666668882C22886666666668888866666}
      OnClick = FullClick
    end
    object Ruler: TSpeedButton
      Left = 72
      Top = 0
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666666666666666666666666666666666666666606666666666
        6666066600000000000006660BBBBBBBBBB00660BBBBBBBBBBB06060BBBBBBBB
        BBB0600B0BB33B3B3BB06660BBB33B333BB06660BBBBBBBBBBB066660BBBBBBB
        BBB0666600000000000066666666666666666666666666666666}
    end
    object Info: TSpeedButton
      Left = 96
      Top = 0
      Width = 23
      Height = 22
      GroupIndex = 1
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
        6666666666666666660666666666666060666666666666600066666666666660
        0006666666666660006666666666666006660606060606006666666666666666
        6666066666666606666666666666666666660666666666066666666666666666
        6666066666666606666666666666666666660606060606066666}
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 683
    Width = 1024
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 350
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Timer1: TTimer
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 280
    Top = 32
  end
  object MainMenu1: TMainMenu
    Left = 184
    Top = 32
    object N1: TMenuItem
      Caption = '初始化数据库'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '系统设置'
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '关于'
      OnClick = N3Click
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 216
    Top = 33
  end
  object Table1: TTable
    DatabaseName = 'd:\dianxinprj\database'
    TableName = 'dianxin3.db'
    Left = 248
    Top = 33
  end
  object Table2: TTable
    DatabaseName = 'd:\dianxinprj\database'
    TableName = 'dianxin3.db'
    Left = 184
    Top = 88
  end
end