mir.dfm

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 492 行

inherited frmMir: TfrmMir
  Left = 67
  Top = 45
  Width = 667
  Height = 541
  Caption = '物料其它需求维护'
  Icon.Data = {
    0000010001001010000000000000680500001600000028000000100000002000
    000001000800000000004001000000000000000000000001000000000000FFFF
    FF00FF690000FCF9F900F7EFF000F0E2E300EFE0E100EEDEDF00EEDDDE00EBD7
    D900E9D3D500E2C6C800DDBCBF00DDBBBE00DBB8BB00DAB6B900D6ADB100D2A6
    AA00D1A5A900CFA1A500C68F9400C58C9100BF818600BD7D8300BD7C8200B873
    7900B46A7000B2666D00AF616800AE5F6600AC5B6200AB596000A64F5700A44C
    5400A1464E00A1454D009D3D450098343D0096303900962F3800952D36008C1C
    26008B1A24008A1822008A17210089151F0088131D00850E1800850D17008106
    11008105100080040F0080030E007F020D00FF870C00FF004700FF0000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000363636360000163636361F0C0000000036
    363636001B363636363636130000000000000000000000000000000000000036
    3636360000002736363636362000003636363600000000363636363636000000
    00000000000000000000000000000036363636000A3636000036363622000036
    3636360021363624030036360F00000000000000000000000000000000000036
    36363600363636363618000000000036363636001C3636363636140000000000
    0000000000000000000000000000003636363600001536363636362300000036
    363636000000122436361A000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 473
    Width = 659
  end
  inherited CoolBar1: TCoolBar
    Width = 659
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 659
      end>
    inherited tbMainBar: TToolBar
      Width = 646
      inherited tbCheck: TToolButton
        Visible = True
      end
    end
  end
  object FloatPanel2: TFloatPanel [2]
    Left = 0
    Top = 39
    Width = 659
    Height = 43
    Align = alTop
    Color = clWhite
    ParentColor = False
    TabOrder = 2
    object Label9: TLabel
      Left = 16
      Top = 13
      Width = 54
      Height = 12
      Caption = '物料编码:'
    end
    object labLgLocName: TLabel
      Left = 256
      Top = 7
      Width = 6
      Height = 11
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 261
      Top = 12
      Width = 30
      Height = 12
      Caption = '名称:'
    end
    object lblMirGoodsName: TLabel
      Left = 292
      Top = 6
      Width = 213
      Height = 23
    end
    object seMirGoods: TSDEdit
      Left = 75
      Top = 10
      Width = 153
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      OnExit = seMirGoodsExit
      OnButtonClick = seMirGoodsButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
  end
  object sgMir: TSDGrid [3]
    Left = 0
    Top = 82
    Width = 385
    Height = 391
    Align = alLeft
    Color = clWhite
    ColCount = 4
    Ctl3D = False
    DefaultRowHeight = 22
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 3
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentCtl3D = False
    TabOrder = 3
    OnClick = sgMirClick
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '需求日期'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '需求数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '生成数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '计划员'
        ColumnWidth = 0
      end>
    HighLight = True
    ColWidths = (
      70
      95
      88
      83)
  end
  object FloatPanel1: TFloatPanel [4]
    Left = 385
    Top = 82
    Width = 274
    Height = 391
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 4
    object Label4: TLabel
      Left = 14
      Top = 39
      Width = 60
      Height = 12
      Caption = '需求数量：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 14
      Top = 12
      Width = 60
      Height = 12
      Caption = '需求日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 14
      Top = 92
      Width = 60
      Height = 12
      Caption = '操作日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 14
      Top = 145
      Width = 60
      Height = 12
      Caption = '系统日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object lblMirSysDate: TLabel
      Left = 80
      Top = 143
      Width = 78
      Height = 12
      Caption = 'lblMirSysDate'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 14
      Top = 65
      Width = 60
      Height = 12
      Caption = '生成数量：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 14
      Top = 119
      Width = 48
      Height = 12
      Caption = '计划员：'
    end
    object Label13: TLabel
      Left = 14
      Top = 172
      Width = 36
      Height = 12
      Caption = '备注：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seMirRQty: TSDEdit
      Left = 80
      Top = 34
      Width = 150
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Text = 'seMirRQty'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object gbCheck: TGroupBox
      Left = 16
      Top = 232
      Width = 233
      Height = 83
      TabOrder = 6
      object Label3: TLabel
        Left = 14
        Top = 37
        Width = 42
        Height = 12
        Caption = '审核人:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 14
        Top = 61
        Width = 54
        Height = 12
        Caption = '审核日期:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object chkMirCheck: TCheckBox
        Left = 16
        Top = 16
        Width = 65
        Height = 17
        Caption = '已审核'
        TabOrder = 0
      end
      object seMirChecker: TSDEdit
        Left = 75
        Top = 31
        Width = 134
        Height = 18
        Ctl3D = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentColor = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
        Text = 'seMirChecker'
        SplitSymbol = ' | '
      end
      object deMirCheckDate: TDateEdit
        Left = 75
        Top = 57
        Width = 102
        Height = 18
        LineOffset = 2
        LineColor = clGreen
        LineVisible = False
        CDate = '2003-2-24'
        InitDate = '2003-2-24'
        ModalResult = 0
        TabOrder = 2
        Color = 50331647
        Ctl3D = False
        ParentCtl3D = False
      end
    end
    object deMirRDate: TDateEdit
      Left = 80
      Top = 9
      Width = 105
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2003-2-24'
      InitDate = '2003-2-24'
      ModalResult = 0
      TabOrder = 0
      Color = 50331647
      Ctl3D = False
      ParentCtl3D = False
      OnKeyDown = deMirRDateKeyDown
    end
    object deMirDate: TDateEdit
      Left = 80
      Top = 88
      Width = 105
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2003-2-24'
      InitDate = '2003-2-24'
      ModalResult = 0
      TabOrder = 3
      Color = 50331647
      Ctl3D = False
      ParentCtl3D = False
    end
    object seMirGQty: TSDEdit
      Left = 80
      Top = 61
      Width = 150
      Height = 18
      Ctl3D = False
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      Text = 'seMirGQty'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object scMirPlanner: TSDComboBox
      Left = 80
      Top = 113
      Width = 150
      Height = 20
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 4
      Text = 'scMirPlanner'
      KeyItem = cbItem2
    end
    object memMirDesc: TMemo
      Left = 16
      Top = 189
      Width = 233
      Height = 44
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        'memMirDesc')
      ParentCtl3D = False
      TabOrder = 5
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 514
    Top = 3
  end
  inherited ImageList1: TImageList
    Left = 561
    Top = 10
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 603
    Top = 7
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 659
    Top = 15
  end
end