object frmGetGlide: TfrmGetGlide Left = 92 Top = 92 BorderIcons = [] BorderStyle = bsSingle Caption = #24037#24207#36873#21462 ClientHeight = 563 ClientWidth = 877 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Splitter2: TSplitter Left = 146 Top = 28 Width = 4 Height = 535 end object Panel1: TPanel Left = 0 Top = 0 Width = 877 Height = 28 Align = alTop BevelInner = bvLowered TabOrder = 0 object Label1: TLabel Left = 24 Top = 8 Width = 48 Height = 12 Caption = #24037#24207#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Edit1: TEdit Left = 80 Top = 3 Width = 121 Height = 20 TabOrder = 0 OnKeyDown = Edit1KeyDown end object ToolBar1: TToolBar Left = 528 Top = 2 Width = 347 Height = 24 Align = alRight ButtonHeight = 18 ButtonWidth = 60 DockSite = True EdgeInner = esNone EdgeOuter = esNone Flat = True List = True ShowCaptions = True TabOrder = 1 object BtnFind: TToolButton Left = 0 Top = 0 Caption = #26597#35810'(&F)' ImageIndex = 2 OnClick = BtnFindClick end object BtnOk: TToolButton Left = 60 Top = 0 Caption = #31227#20837'(&G)' ImageIndex = 11 ParentShowHint = False ShowHint = True OnClick = BtnOkClick end object BtnClose: TToolButton Left = 120 Top = 0 Caption = #20851#38381'(&Q)' ImageIndex = 10 OnClick = BtnCloseClick end end end object TreeView1: TTreeView Left = 0 Top = 28 Width = 146 Height = 535 Align = alLeft BevelInner = bvNone BorderWidth = 2 Ctl3D = True Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] HideSelection = False Indent = 19 ParentCtl3D = False ParentFont = False TabOrder = 1 OnClick = TreeView1Click Items.Data = { 010000001D000000010000000000000000000000FFFFFFFF0000000001000000 04333435351C0000000000000000000000FFFFFFFFFFFFFFFF00000000000000 0003333435} end object Panel2: TPanel Left = 157 Top = 36 Width = 356 Height = 501 BevelInner = bvLowered TabOrder = 2 object Splitter1: TSplitter Left = 2 Top = 495 Width = 352 Height = 4 Cursor = crVSplit Align = alBottom end object Panel5: TPanel Left = 2 Top = 2 Width = 352 Height = 22 Align = alTop Alignment = taLeftJustify BevelInner = bvLowered Caption = ' '#26597#35810#32467#26524#21015#34920 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 Visible = False end object dbGrid1: TcxGrid Left = 2 Top = 24 Width = 352 Height = 471 Align = alClient TabOrder = 1 object tv1: TcxGridDBTableView OnDblClick = tv1DblClick NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsSelection.CellSelect = False OptionsView.GroupByBox = False object tv1glideNo: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'glideNo' Width = 73 end object tv1glideName: TcxGridDBColumn Caption = #24037#24207#21517#31216 DataBinding.FieldName = 'glideName' Width = 110 end object tv1glidePara: TcxGridDBColumn Caption = #24037#24207#21442#25968 DataBinding.FieldName = 'glidePara' Width = 89 end object tv1glideNote: TcxGridDBColumn Caption = #24037#24207#35828#26126 DataBinding.FieldName = 'glideNote' Width = 115 end end object dbGrid1Level1: TcxGridLevel GridView = tv1 end end end object Panel3: TPanel Left = 536 Top = 28 Width = 341 Height = 535 Align = alRight BevelOuter = bvLowered Caption = 'Panel3' TabOrder = 3 object Panel6: TPanel Left = 1 Top = 1 Width = 339 Height = 22 Align = alTop Alignment = taLeftJustify BevelInner = bvLowered Caption = #24050#36873#24037#24207#20449#24687#21015#34920 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object DG_Sub: TDBGrid Left = 1 Top = 23 Width = 339 Height = 511 Align = alClient DataSource = Ds_sub ImeMode = imClose Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit] ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 1 TitleFont.Charset = GB2312_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -12 TitleFont.Name = #23435#20307 TitleFont.Style = [] OnDblClick = DG_SubDblClick Columns = < item Expanded = False FieldName = 'GlideNo' Title.Alignment = taCenter Title.Caption = #24037#24207#32534#21495 Width = 61 Visible = True end item Expanded = False FieldName = 'GlideName' Title.Alignment = taCenter Title.Caption = #24037#24207#21517#31216 Width = 89 Visible = True end item Expanded = False FieldName = 'GlidePara' Title.Alignment = taCenter Title.Caption = #24037#24207#21442#25968 Width = 71 Visible = True end item Expanded = False FieldName = 'GlideNote' Title.Alignment = taCenter Title.Caption = #24037#24207#35828#26126 Width = 77 Visible = True end> end end object ADOQuery1: TADOQuery AutoCalcFields = False CacheSize = 200 Connection = ADOConnection1 CursorType = ctStatic LockType = ltReadOnly CommandTimeout = 300 Parameters = < item Name = 'pGlideName' DataType = ftString NumericScale = 255 Precision = 255 Size = 50 Value = Null end> SQL.Strings = ( 'SELECT *' 'FROM MC_Glide' 'WHERE GlideName LIKE :pGlideName ') Left = 200 Top = 152 object ADOQuery1GlideNo: TStringField FieldName = 'GlideNo' FixedChar = True end object ADOQuery1GlideName: TStringField FieldName = 'GlideName' Size = 50 end object ADOQuery1GlidePara: TStringField FieldName = 'GlidePara' Size = 200 end object ADOQuery1GlideNote: TStringField FieldName = 'GlideNote' Size = 200 end end object DataSource1: TDataSource DataSet = ADOQuery1 Left = 200 Top = 120 end object AD_sub: TADODataSet AutoCalcFields = False Connection = ADOConnection1 CursorType = ctStatic LockType = ltBatchOptimistic CommandText = 'SELECT *'#13#10'FROM MC_Glide'#13#10' WHERE 1 = 2'#13#10 Parameters = <> Prepared = True Left = 752 Top = 192 end object Ds_sub: TDataSource DataSet = AD_sub Left = 712 Top = 224 end object AD_GY_Fllb: TADODataSet Connection = ADOConnection1 CursorType = ctStatic LockType = ltBatchOptimistic CommandTimeout = 300 Parameters = <> Left = 72 Top = 144 end object Ds_Gy_Fllb: TDataSource DataSet = AD_GY_Fllb Left = 104 Top = 144 end object ADOConnection1: TADOConnection LoginPrompt = False Left = 357 Top = 124 end end