sys_enter_mrpaccount.dfm

一个MRPII系统源代码版本

object Frm_Sys_Enter_MrpAccount: TFrm_Sys_Enter_MrpAccount
  Left = 287
  Top = 122
  Width = 573
  Height = 433
  Caption = #27721#31185'Mrp'#24080#22871#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Pnl_Title: TPanel
    Left = 0
    Top = 30
    Width = 565
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    Caption = #27721#31185'Mrp'#24080#22871#32500#25252
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Visible = False
  end
  object Pnl_body: TPanel
    Left = 0
    Top = 63
    Width = 565
    Height = 324
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBGridEh: TDBGridEh
      Left = 0
      Top = 0
      Width = 565
      Height = 315
      Align = alClient
      DataSource = DataSource
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      PopuPmenu = PopupMenu
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'id'
          Footers = <>
          Width = 83
        end
        item
          EditButtons = <>
          FieldName = 'name'
          Footers = <>
          Width = 180
        end
        item
          EditButtons = <>
          FieldName = 'valid'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0')
          PickList.Strings = (
            #26159
            #21542)
          Width = 58
        end>
    end
    object Pnl_Hint: TPanel
      Left = 0
      Top = 315
      Width = 565
      Height = 9
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
    end
  end
  object ControlBar: TControlBar
    Left = 0
    Top = 0
    Width = 565
    Height = 30
    Align = alTop
    AutoSize = True
    BevelOuter = bvRaised
    BevelKind = bkFlat
    TabOrder = 2
    object ToolBar: TToolBar
      Left = 11
      Top = 2
      Width = 254
      Height = 22
      Align = alNone
      AutoSize = True
      Caption = 'ToolBar'
      DisabledImages = ImageList
      EdgeBorders = []
      Flat = True
      Images = ImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Wrapable = False
      object ToolButton6: TToolButton
        Left = 0
        Top = 0
        Action = Act_Help
        Visible = False
      end
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Width = 6
        Caption = 'ToolButton1'
        ImageIndex = 43
        Style = tbsSeparator
      end
      object TlBtn_New: TToolButton
        Left = 29
        Top = 0
        Action = act_new
      end
      object TlBtn_Modify: TToolButton
        Left = 52
        Top = 0
        Hint = #20462#25913
        Action = Act_Modify
      end
      object TlBtn_Delete: TToolButton
        Left = 75
        Top = 0
        Action = Act_Delete
      end
      object TlBtn_Look: TToolButton
        Left = 98
        Top = 0
        Action = Action1
      end
      object ToolButton5: TToolButton
        Left = 121
        Top = 0
        Width = 6
        Caption = 'ToolButton5'
        ImageIndex = 46
        Style = tbsSeparator
      end
      object TlBtn_Filter: TToolButton
        Left = 127
        Top = 0
        Action = Act_Filter
        Visible = False
      end
      object TlBtn_Locate: TToolButton
        Left = 150
        Top = 0
        Action = Act_Locate
        Visible = False
      end
      object ToolButton3: TToolButton
        Left = 173
        Top = 0
        Width = 6
        Caption = 'ToolButton3'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TlBtn_Order: TToolButton
        Left = 179
        Top = 0
        Action = Act_Order
        Visible = False
      end
      object ToolButton2: TToolButton
        Left = 202
        Top = 0
        Action = Act_SetColumn
        Visible = False
      end
      object ToolButton9: TToolButton
        Left = 225
        Top = 0
        Width = 6
        Caption = 'ToolButton9'
        ImageIndex = 49
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 231
        Top = 0
        Action = Act_Quit
      end
    end
  end
  object AdoQry_Head: TADOQuery
    CacheSize = 300
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=MrpACT.' +
      'mdb;Persist Security Info=True'