mpsgen.dfm

一个以前收集的基于C/S架构的ERP客户端源代码

inherited frmMpsGen: TfrmMpsGen
  Left = 67
  Top = 113
  Width = 630
  Height = 430
  Caption = 'MPS主生产计划生成'
  Font.Height = -14
  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 = 14
  inherited sbBar: TStatusBar
    Top = 362
    Width = 622
  end
  inherited CoolBar1: TCoolBar
    Width = 622
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 622
      end>
    inherited tbMainBar: TToolBar
      Width = 609
      inherited tbRefresh: TToolButton
        Visible = False
      end
      inherited tbGenDetail: TToolButton
        Visible = True
      end
      inherited tbFirst: TToolButton
        Visible = False
      end
      inherited tbPrevious: TToolButton
        Visible = False
      end
      inherited tbNext: TToolButton
        Visible = False
      end
      inherited tbLast: TToolButton
        Visible = False
      end
    end
  end
  object PageControl1: TPageControl [2]
    Left = 156
    Top = 39
    Width = 467
    Height = 322
    ActivePage = TabSheet3
    Anchors = [akLeft, akTop, akRight, akBottom]
    MultiLine = True
    TabOrder = 3
    TabPosition = tpLeft
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 56
        Top = 47
        Width = 70
        Height = 14
        Caption = '当前用户：'
      end
      object Label2: TLabel
        Left = 56
        Top = 99
        Width = 70
        Height = 14
        Caption = '财务月份：'
      end
      object Label3: TLabel
        Left = 56
        Top = 152
        Width = 70
        Height = 14
        Caption = '当前日期：'
      end
      object edtUser: TEdit
        Left = 121
        Top = 42
        Width = 220
        Height = 22
        ReadOnly = True
        TabOrder = 0
      end
      object edtFMonth: TEdit
        Left = 121
        Top = 94
        Width = 220
        Height = 22
        ReadOnly = True
        TabOrder = 1
      end
      object edtDate: TEdit
        Left = 121
        Top = 147
        Width = 220
        Height = 22
        ReadOnly = True
        TabOrder = 2
      end
      object Panel1: TPanel
        Left = 12
        Top = 200
        Width = 397
        Height = 102
        BevelOuter = bvNone
        TabOrder = 3
        object btnGenerate: TBitBtn
          Left = 79
          Top = 31
          Width = 209
          Height = 29
          Caption = '执行计划运算(&E)'
          ModalResult = 1
          TabOrder = 0
          OnClick = tbGenDetailClick
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 16
        Top = 16
        Width = 387
        Height = 177
        Caption = '计划周期'
        TabOrder = 0
        object Label5: TLabel
          Left = 23
          Top = 114
          Width = 56
          Height = 14
          Caption = '展望期：'
        end
        object Label4: TLabel
          Left = 23
          Top = 59
          Width = 70
          Height = 14
          Caption = '周期类型：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object sePeriod: TSDEdit
          Left = 87
          Top = 108
          Width = 130
          Height = 20
          Ctl3D = False
          Enabled = False
          ParentColor = True
          ParentCtl3D = False
          TabOrder = 0
          Text = '10901'
          CharType = ctNumeric
          SplitSymbol = ' | '
        end
        object scType: TSDComboBox
          Left = 88
          Top = 52
          Width = 129
          Height = 22
          Style = csDropDownList
          Color = clScrollBar
          Ctl3D = False
          Enabled = False
          ItemHeight = 14
          ParentCtl3D = False
          TabOrder = 1
          Items.Strings = (
            '1-天'
            '2-周'
            '3-旬'
            '4-半月'
            '5-月'
            '6-季'
            '7-半年'
            '8-年')
          KeyItem = cbItem2
        end
        object BitBtn1: TBitBtn
          Left = 296
          Top = 144
          Width = 75
          Height = 25
          Caption = '修改...'
          TabOrder = 2
          OnClick = BitBtn1Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 208
        Width = 388
        Height = 91
        Caption = '批量规则'
        TabOrder = 1
        object Label6: TLabel
          Left = 23
          Top = 47
          Width = 70
          Height = 14
          Caption = '批量规则：'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object scEoqRule: TSDComboBox
          Left = 88
          Top = 40
          Width = 137
          Height = 22
          Style = csDropDownList
          Color = clWhite
          Ctl3D = True
          ItemHeight = 14
          ParentCtl3D = False
          TabOrder = 0
          OnChange = scEoqRuleChange
          Items.Strings = (
            '1-天'
            '2-周'
            '3-旬'
            '4-半月'
            '5-月'
            '6-季'
            '7-半年'
            '8-年')
          KeyItem = cbItem2