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