baseinfoquerybase.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBaseInfoQueryBase: TfrmBaseInfoQueryBase
  Left = 118
  Top = 110
  Width = 842
  Height = 608
  Caption = #22522#30784#36164#26009#26597#35810#31383#20307#30340#22522#31867
  FormStyle = fsNormal
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 834
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = 'ToolBar'
    Flat = True
    Images = frmMain.ilToolButtonImages1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton2: TToolButton
      Left = 0
      Top = 0
      Width = 10
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsDivider
    end
    object tbtFirst: TToolButton
      Left = 10
      Top = 0
      Action = acFirst
    end
    object tbtPrior: TToolButton
      Left = 43
      Top = 0
      Action = acPrior
    end
    object tbtNext: TToolButton
      Left = 76
      Top = 0
      Action = acNext
    end
    object tbtLast: TToolButton
      Left = 109
      Top = 0
      Action = acLast
    end
    object tbtDivider: TToolButton
      Left = 142
      Top = 0
      Width = 8
      Caption = 'tbtDivider'
      ImageIndex = 8
      Style = tbsDivider
    end
    object tbtFind: TToolButton
      Left = 150
      Top = 0
      Action = acFind
    end
    object ToolButton3: TToolButton
      Left = 183
      Top = 0
      Caption = #23548#20986
      ImageIndex = 26
      OnClick = ToolButton3Click
    end
    object tbtDivider3: TToolButton
      Left = 216
      Top = 0
      Width = 8
      Caption = 'tbtDivider3'
      ImageIndex = 12
      Style = tbsDivider
    end
    object tbtExit: TToolButton
      Left = 224
      Top = 0
      Action = acExit
    end
    object ToolButton1: TToolButton
      Left = 257
      Top = 0
      Action = acPrint
    end
    object ToolButton4: TToolButton
      Left = 290
      Top = 0
      Width = 7
      Caption = 'ToolButton4'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 297
      Top = 0
      Action = acfilter
      ImageIndex = 14
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 540
    Width = 834
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
  end
  object Panel2: TPanel
    Left = 0
    Top = 38
    Width = 834
    Height = 170
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 832
      Height = 168
      Align = alClient
      TabOrder = 0
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 208
    Width = 834
    Height = 332
    Align = alBottom
    AutoFitColWidths = True
    ColumnDefValues.Title.TitleButton = True
    DataSource = dsQuery
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    OptionsEh = [dghFixed3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghEnterAsTab, dghTraceColSizing, dghRowHighlight, dghDialogFind]
    RowHeight = 4
    RowLines = 1
    SortLocal = True
    STFilter.Local = True
    STFilter.Visible = True
    SumList.Active = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object ALToolbar: TActionList
    Left = 344
    Top = 48
    object acFirst: TAction
      Caption = #39318#26465
      Hint = #39318#26465
      ImageIndex = 8
      ShortCut = 113
      OnExecute = acFirstExecute
    end
    object acPrior: TAction
      Caption = #19978#26465
      Hint = #19978#26465
      ImageIndex = 9
      ShortCut = 114
      OnExecute = acPriorExecute
    end
    object acNext: TAction
      Caption = #19979#26465
      Hint = #19979#26465
      ImageIndex = 10
      ShortCut = 115
      OnExecute = acNextExecute
    end
    object acLast: TAction
      Caption = #26411#26465
      Hint = #26411#26465
      ImageIndex = 11
      ShortCut = 116
      OnExecute = acLastExecute
    end
    object acFind: TAction
      Caption = #26597#25214
      Hint = #26597#25214
      ImageIndex = 14
      ShortCut = 16454
      OnExecute = acFindExecute
    end
    object acPrint: TAction
      Caption = #25171#21360
      Hint = #25171#21360
      ImageIndex = 3
      ShortCut = 16464
      OnExecute = acPrintExecute
    end
    object acExit: TAction
      Caption = #20851#38381
      Hint = #20851#38381
      ImageIndex = 20
      ShortCut = 16465
      OnExecute = acExitExecute
    end
    object acfilter: TAction
      Caption = #21047#36873
      Hint = #21047#36873
      ImageIndex = 10
      OnExecute = acfilterExecute
    end
  end
  object QQuery: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    LockType = ltReadOnly
    Parameters = <>
    Left = 264
    Top = 48
  end
  object dsQuery: TDataSource
    DataSet = QQuery
    Left = 296
    Top = 48
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [pghFitGridToPageWidth, pghColored, pghRowAutoStretch, pghFitingByColWidths]
    Page.BottomMargin = 2.000000000000000000
    Page.LeftMargin = 2.000000000000000000
    Page.RightMargin = 2.000000000000000000
    Page.TopMargin = 2.000000000000000000
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 392
    Top = 48
  end
  object wwFilterDlg: TwwLookupDialog
    Selected.Strings = (
      'fDate'#9'8'#9#26085#26399#9'F'
      'fModel'#9'10'#9#22411#21495#9'F'
      'fName'#9'10'#9#21517#31216#9'F'
      'fSH'#9'10'#9#33394#21495#9'F')
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = QQuery
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecUpperCase
    Left = 432
    Top = 48
  end
  object SaveDialog1: TSaveDialog
    Left = 480
    Top = 48
  end
end