1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Form1'
- ClientHeight = 597
- ClientWidth = 1081
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- PixelsPerInch = 96
- TextHeight = 13
- object cxGrid1: TcxGrid
- Left = 312
- Top = 240
- Width = 617
- Height = 200
- TabOrder = 0
- object cxGrid1DBTableView1: TcxGridDBTableView
- DataController.DataSource = DataSource1
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- object cxGrid1DBTableView1Column1: TcxGridDBColumn
- DataBinding.FieldName = 'ID'
- end
- object cxGrid1DBTableView1Column2: TcxGridDBColumn
- DataBinding.FieldName = 'X_CRDN_ARR'
- end
- object cxGrid1DBTableView1Column3: TcxGridDBColumn
- DataBinding.FieldName = 'Y_CRDN_ARR'
- end
- end
- object cxGrid1Level1: TcxGridLevel
- GridView = cxGrid1DBTableView1
- end
- end
- object ADOConnection1: TADOConnection
- ConnectionString =
- 'Provider=tbprov.Tbprov.5;Cache Authentication=False;Encrypt Pass' +
- 'word=False;Integrated Security="";Mask Password=False;Persist En' +
- 'crypted=False;Persist Security Info=False;User ID="";Bind Flags=' +
- '0;Initial Catalog="";Data Source=GMUTIS;Impersonation Level=Anon' +
- 'ymous;Location="";Lock Owner="";Mode=ReadWrite;Protection Level=' +
- 'None;Updatable Cursor=False;Enlist=None;'
- Mode = cmReadWrite
- Provider = 'tbprov.Tbprov.5'
- Left = 88
- Top = 40
- end
- object ADOTable1: TADOTable
- Connection = ADOConnection1
- LockType = ltReadOnly
- Left = 192
- Top = 64
- end
- object ADODataSet1: TADODataSet
- Connection = ADOConnection1
- Parameters = <>
- Left = 488
- Top = 56
- end
- object ADOQuery1: TADOQuery
- Connection = ADOConnection1
- CursorType = ctStatic
- Parameters = <>
- SQL.Strings = (
- 'SELECT A.ROAD_ID AS ID, A.X_CRDN_ARR, A.Y_CRDN_ARR '
- ' FROM TB_ROAD_VRTX_ARR A, '
- ' TB_ROAD B '
- ' WHERE B.DEL_YN = '#39'N'#39' '
- ' AND B.ROAD_ID = A.ROAD_ID '
- ' AND A.LEVL = 7 '
- '')
- Left = 272
- Top = 32
- end
- object DataSource1: TDataSource
- DataSet = ADOQuery1
- Enabled = False
- Left = 336
- Top = 40
- end
- object ClientDataSet1: TClientDataSet
- Aggregates = <>
- Params = <>
- Left = 696
- Top = 96
- end
- object DataSetProvider1: TDataSetProvider
- DataSet = ClientDataSet1
- Left = 624
- Top = 48
- end
- end
|