object frmMachGlideHelp: TfrmMachGlideHelp
  Left = 87
  Top = 110
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #24037#24207#36873#21462
  ClientHeight = 545
  ClientWidth = 593
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter2: TSplitter
    Left = 185
    Top = 53
    Width = 4
    Height = 492
  end
  object Panel1: TPanel
    Left = 0
    Top = 25
    Width = 593
    Height = 28
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    Visible = False
    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
    end
    object ToolBar1: TToolBar
      Left = 244
      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
      end
      object BtnOk: TToolButton
        Left = 60
        Top = 0
        Caption = #31227#20837'(&G)'
        ImageIndex = 11
        ParentShowHint = False
        ShowHint = True
      end
      object BtnClose: TToolButton
        Left = 120
        Top = 0
        Caption = #20851#38381'(&Q)'
        ImageIndex = 10
      end
    end
  end
  object Panel2: TPanel
    Left = 205
    Top = 72
    Width = 356
    Height = 501
    BevelInner = bvLowered
    TabOrder = 1
    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 = 475
      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
        Styles.ContentOdd = cxStyle_gridRow
        Styles.GroupByBox = cxStyle_gridGroupBox
        Styles.Header = cxStyle_gridHead
        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 cxGrid1: TcxGrid
    Left = 0
    Top = 53
    Width = 185
    Height = 492
    Align = alLeft
    TabOrder = 2
    object cxGridDBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      OnFocusedRecordChanged = cxGridDBTableView1FocusedRecordChanged
      DataController.DataSource = DataSource2
      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsCustomize.ColumnFiltering = False
      OptionsSelection.CellSelect = False
      OptionsView.GroupByBox = False
      Styles.Inactive = cxStyle_yellow
      Styles.Group = Data.cxStyle_gridFoot
      Styles.Header = Data.cxStyle_gridHead
      object v1cnt: TcxGridDBColumn
        DataBinding.FieldName = 'cnt'
        Visible = False
      end
      object v1deptName: TcxGridDBColumn
        DataBinding.FieldName = 'deptName'
        Visible = False
        GroupIndex = 0
        IsCaptionAssigned = True
      end
      object v1deviceNo: TcxGridDBColumn
        Caption = #26426#21488#32534#21495
        DataBinding.FieldName = 'deviceNo'
        Width = 54
      end
      object v1deviceName: TcxGridDBColumn
        Caption = #26426#21488#21517#31216
        DataBinding.FieldName = 'deviceName'
        Width = 89
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = cxGridDBTableView1
    end
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 593
    Height = 25
    ButtonWidth = 51
    Caption = 'ToolBar1'
    Flat = True
    Images = pics
    List = True
    ShowCaptions = True
    TabOrder = 3
    object TOk: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #30830#23450
      ImageIndex = 23
      OnClick = TOkClick
    end
    object Tclose: TToolButton
      Left = 55
      Top = 0
      Caption = #20851#38381
      ImageIndex = 10
      OnClick = TcloseClick
    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 ADOConnection1: TADOConnection
    LoginPrompt = False
    Left = 520
    Top = 128
  end
  object ADOQueryMach: TADOQuery
    Connection = ADOConnection1
    LockType = ltReadOnly
    CommandTimeout = 600
    Parameters = <>
    SQL.Strings = (
      'select A.DeviceNo,A.DeviceName,B.frameName as deptName,'
      
        '       cnt=(select count(*) from fd_workprice where deviceNo=A.d' +
        'eviceNo) '
      '  from dc_machine A'
      '  left join yc_frame B on B.frameNo=A.dept'
      '  order by Dept,DeviceNo')
    Left = 72
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = ADOQueryMach
    Left = 72
    Top = 144
  end
  object pics: TImageList
    Left = 220
    Top = 65513
    Bitmap = {
[encoded data, 244027 characters]
      000000000000}
  end
  object cxStyleRepository1: TcxStyleRepository
    Left = 243
    Top = 128
    object cxStyle1: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = clInactiveCaption
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 4707838
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      TextColor = clBtnText
    end
    object cxStyle_gridRow: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = 16311512
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
    object cxStyle_gridFoot: TcxStyle
      AssignedValues = [svFont]
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
    object cxStyle_gridHead: TcxStyle
      AssignedValues = [svFont]
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
    end
    object cxStyle_gridGroupBox: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = clMoneyGreen
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
    object cxStyle_yellow: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = 8454143
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
    object cxStyle_Red: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = clRed
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
    object cxStyleTree: TcxStyle
      AssignedValues = [svColor, svFont]
      Color = clWindow
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
    end
  end
end
