base_entry_head.dfm

一个MRPII系统源代码版本

inherited Frm_Base_Entry_Head: TFrm_Base_Entry_Head
  Left = 346
  Top = 210
  Caption = 'Frm_Base_Entry_Head'
  FormStyle = fsMDIChild
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      Width = 344
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Width = 4
        Caption = 'ToolButton1'
        ImageIndex = 43
        Style = tbsSeparator
      end
      object tlbtn_Copy: TToolButton
        Left = 27
        Top = 0
        Action = Act_Copy
      end
      object TlBtn_New: TToolButton
        Left = 50
        Top = 0
        Action = Act_New
      end
      object TlBtn_Modify: TToolButton
        Left = 73
        Top = 0
        Action = Act_Modify
      end
      object TlBtn_Delete: TToolButton
        Left = 96
        Top = 0
        Action = Act_Delete
      end
      object ToolButton5: TToolButton
        Left = 119
        Top = 0
        Width = 6
        Caption = 'ToolButton5'
        ImageIndex = 46
        Style = tbsSeparator
      end
      object TlBtn_Look: TToolButton
        Left = 125
        Top = 0
        Action = Act_Look
      end
      object TlBtn_Filter: TToolButton
        Left = 148
        Top = 0
        Action = Act_Filter
      end
      object TlBtn_Locate: TToolButton
        Left = 171
        Top = 0
        Action = Act_Locate
      end
      object ToolButton3: TToolButton
        Left = 194
        Top = 0
        Width = 6
        Caption = 'ToolButton3'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TlBtn_Order: TToolButton
        Left = 200
        Top = 0
        Action = Act_Order
      end
      object ToolButton2: TToolButton
        Left = 223
        Top = 0
        Action = Act_SetColumn
      end
      object ToolButton6: TToolButton
        Left = 246
        Top = 0
        Action = Act_Preview
      end
      object ToolButton7: TToolButton
        Left = 269
        Top = 0
        Action = Act_Print
      end
      object ToolButton8: TToolButton
        Left = 292
        Top = 0
        Action = Act_Excel
      end
      object ToolButton9: TToolButton
        Left = 315
        Top = 0
        Width = 6
        Caption = 'ToolButton9'
        ImageIndex = 49
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 321
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Head: TPanel
    object Lbl_OrderTitle: TLabel
      Left = 17
      Top = 22
      Width = 60
      Height = 12
      Caption = #25490#24207#26041#24335#65306
      Transparent = True
    end
    object Lbl_ConditionTitle: TLabel
      Left = 17
      Top = 7
      Width = 60
      Height = 12
      Caption = #36807#28388#26465#20214#65306
      Transparent = True
    end
    object Lbl_Condition: TLabel
      Left = 85
      Top = 5
      Width = 6
      Height = 12
      Transparent = True
    end
    object Lbl_Order: TLabel
      Left = 85
      Top = 20
      Width = 6
      Height = 12
      Transparent = True
    end
  end
  inherited Pnl_Body: TPanel
    object DBGridEh: TDBGridEh
      Left = 0
      Top = 0
      Width = 792
      Height = 455
      Align = alClient
      Color = 15727341
      Ctl3D = False
      DataSource = DataSource
      FixedColor = 14673912
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = PopuPmenu
      ReadOnly = True
      RowHeight = 17
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleHeight = 16
      VTitleMargin = 3
      OnDblClick = DBGridEhDblClick
      OnDrawDataCell = DBGridEhDrawDataCell
      OnGetCellParams = DBGridEhGetCellParams
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 357
    Top = 291
  end
  inherited ActionList: TActionList
    Left = 208
    inherited Act_New: TAction
      OnExecute = Act_NewExecute
    end
    inherited Act_Modify: TAction
      OnExecute = Act_ModifyExecute
    end
    inherited Act_Copy: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Delete: TAction
      OnExecute = Act_DeleteExecute
    end
    inherited Act_Filter: TAction
      OnExecute = Act_FilterExecute
    end
    inherited Act_Locate: TAction
      OnExecute = Act_LocateExecute
    end
    inherited Act_Order: TAction
      OnExecute = Act_OrderExecute
    end
    inherited Act_Look: TAction
      OnExecute = Act_LookExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
    inherited Act_Excel: TAction
      OnExecute = Act_ExcelExecute
    end
    inherited Act_SetColumn: TAction
      OnExecute = Act_SetColumnExecute
    end
  end
  object AdoQry_Head: TADOQuery
    ConnectionString = 'FILE Name=Mrpii.udl'
    LockType = ltBatchOptimistic
    AfterOpen = AdoQueryAfterOpen
    EnableBCD = False
    Parameters = <>
    Left = 248
    Top = 289
  end
  object DataSource: TDataSource
    DataSet = AdoQry_Head
    Left = 352
    Top = 185
  end
  object PopuPmenu: TPopupMenu
    Left = 264
    Top = 169
    object HideColumn: TMenuItem
      Caption = #38544#34255
      OnClick = HideColumnClick
    end
  end
  object ExtPrintReport: TExtPrintReport
    TopBordermm = 20
    BottomBordermm = 20
    LeftBordermm = 10
    RightBordermm = 10
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    SubtitleFont.Charset = DEFAULT_CHARSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = #23435#20307
    SubtitleFont.Style = [fsBold]
    ReportFont.Charset = DEFAULT_CHARSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = #23435#20307
    ReportFont.Style = []
    FootFont.Charset = DEFAULT_CHARSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = #23435#20307
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PaperSet = [ptA3, ptA4, ptB4, ptB5, ptNarrow, ptWide]
    PaperOrientation = poPortrait
    ShowPrintRange = True
    PaperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 104
    Top = 169
  end
end