unitdatamodule.~dfm

在delphi下基于MapX5.0的GIS程序

object DM: TDM
  OldCreateOrder = False
  OnDestroy = DataModuleDestroy
  Left = 143
  Top = 150
  Height = 354
  Width = 445
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 56
    Top = 16
  end
  object ADOQueryLayerToTable: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM '#22270#19982#34920)
    Left = 56
    Top = 72
  end
  object ADOQuerySymbolStyle: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM '#31526#21495)
    Left = 56
    Top = 120
    object ADOQuerySymbolStyleID: TStringField
      FieldName = 'ID'
      Size = 8
    end
    object ADOQuerySymbolStyleType: TStringField
      FieldName = 'Type'
      Size = 16
    end
    object ADOQuerySymbolStyleName: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object ADOQuerySymbolStyleSizes: TWordField
      FieldName = 'Sizes'
    end
    object ADOQuerySymbolStyleCharacters: TWordField
      FieldName = 'Characters'
    end
    object ADOQuerySymbolStyleColor: TStringField
      FieldName = 'Color'
      Size = 9
    end
    object ADOQuerySymbolStyleHalo: TBooleanField
      FieldName = 'Halo'
    end
    object ADOQuerySymbolStyleBox: TBooleanField
      FieldName = 'Box'
    end
    object ADOQuerySymbolStyleBackColor: TStringField
      FieldName = 'BackColor'
      Size = 9
    end
  end
  object ADOQueryLineStyle: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM '#32447)
    Left = 56
    Top = 176
    object ADOQueryLineStyleID: TStringField
      FieldName = 'ID'
      Size = 8
    end
    object ADOQueryLineStyleType: TStringField
      FieldName = 'Type'
      Size = 16
    end
    object ADOQueryLineStyleStyle: TWordField
      FieldName = 'Style'
    end
    object ADOQueryLineStyleColor: TStringField
      FieldName = 'Color'
      Size = 9
    end
    object ADOQueryLineStyleLineWidthUnit: TWordField
      FieldName = 'LineWidthUnit'
    end
    object ADOQueryLineStyleWidth: TWordField
      FieldName = 'Width'
    end
    object ADOQueryLineStyleInterleaved: TBooleanField
      FieldName = 'Interleaved'
    end
  end
  object ADOQueryRegionStyle: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM '#21306#22495)
    Left = 56
    Top = 224
    object ADOQueryRegionStyleID: TStringField
      FieldName = 'ID'
      Size = 8
    end
    object ADOQueryRegionStyleType: TStringField
      FieldName = 'Type'
      Size = 16
    end
    object ADOQueryRegionStylePattern: TWordField
      FieldName = 'Pattern'
    end
    object ADOQueryRegionStyleColor: TStringField
      FieldName = 'Color'
      Size = 9
    end
    object ADOQueryRegionStyleBackColor: TStringField
      FieldName = 'BackColor'
      Size = 9
    end
    object ADOQueryRegionStyleTransparent: TBooleanField
      FieldName = 'Transparent'
    end
    object ADOQueryRegionStyleBorderStyle: TWordField
      FieldName = 'BorderStyle'
    end
    object ADOQueryRegionStyleBorderColor: TStringField
      FieldName = 'BorderColor'
      Size = 9
    end
    object ADOQueryRegionStyleBorderWidthUnit: TWordField
      FieldName = 'BorderWidthUnit'
    end
    object ADOQueryRegionStyleBorderWidth: TWordField
      FieldName = 'BorderWidth'
    end
  end
  object ADOQueryTextStyle: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM '#25991#23383)
    Left = 56
    Top = 272
    object ADOQueryTextStyleID: TStringField
      FieldName = 'ID'
      Size = 8
    end
    object ADOQueryTextStyleType: TStringField
      FieldName = 'Type'
      Size = 16
    end
    object ADOQueryTextStyleName: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object ADOQueryTextStyleSizes: TWordField
      FieldName = 'Sizes'
    end
    object ADOQueryTextStyleColor: TStringField
      FieldName = 'Color'
      Size = 9
    end
    object ADOQueryTextStyleRotation: TSmallintField
      FieldName = 'Rotation'
    end
    object ADOQueryTextStyleHalo: TBooleanField
      FieldName = 'Halo'
    end
    object ADOQueryTextStyleBox: TBooleanField
      FieldName = 'Box'
    end
    object ADOQueryTextStyleBackcolor: TStringField
      FieldName = 'Backcolor'
      Size = 9
    end
  end
  object ADOQueryText: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM '#26631#35760)
    Left = 160
    Top = 16
    object ADOQueryTextID: TStringField
      FieldName = 'ID'
    end
    object ADOQueryTextName: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object ADOQueryTextType: TStringField
      FieldName = 'Type'
      Size = 8
    end
    object ADOQueryTextZoom: TSmallintField
      FieldName = 'Zoom'
    end
    object ADOQueryTextRotation: TSmallintField
      FieldName = 'Rotation'
    end
    object ADOQueryTextHideLabel: TBooleanField
      FieldName = 'HideLabel'
    end
  end
  object ADOQueryAll: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 72
  end
  object ADOQuerySearchAll: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 120
  end
  object ADOQueryCenterFind: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 160
    Top = 176
  end
  object ADOQueryBus_SpotS: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 272
    Top = 16
  end
  object ADOQueryBus_WayS: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 272
    Top = 120
  end
  object ADOQueryBus_SpotE: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 272
    Top = 72
  end
  object ADOQueryBus_WayE: TADOQuery
    Parameters = <>
    Left = 272
    Top = 176
  end
  object ADOQueryFileData: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Maps')
    Left = 360
    Top = 16
  end
  object ADOQueryUsers: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Users')
    Left = 360
    Top = 72
  end
  object ADOQueryRecord: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM Record')
    Left = 160
    Top = 232
  end
end