sugh.dfm

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

      Left = 103
      Top = 89
      Width = 154
      Height = 18
      Ctl3D = False
      Enabled = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      Text = 'seSugdGoodsName'
      CharType = ctNumeric
      SplitSymbol = ' | '
    end
    object scSugdUnit: TSDComboBox
      Left = 103
      Top = 124
      Width = 154
      Height = 20
      Color = clWhite
      Ctl3D = False
      Enabled = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 3
      Text = 'scSugdUnit'
      KeyItem = cbItem2
      ReadOnly = True
    end
    object seSugdRQty: TSDEdit
      Left = 396
      Top = 56
      Width = 166
      Height = 18
      TabStop = False
      Ctl3D = False
      MaxLength = 18
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 6
      Text = '0'
      DataType = dtNumber
      CharType = ctMathematic
      SplitSymbol = ' | '
      DefaultValue = '0'
    end
    object memSugdDesc: TMemo
      Left = 340
      Top = 114
      Width = 223
      Height = 65
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        '')
      ParentCtl3D = False
      TabOrder = 7
    end
    object seSugdLoc: TSDEdit
      Left = 103
      Top = 158
      Width = 157
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 4
      Text = 'seSugdLoc'
      OnButtonClick = seSugdLocButtonClick
      ButtonVisible = True
      KeyItem = cbItem2
      SplitSymbol = ' | '
    end
  end
  inherited sbBar: TStatusBar
    Top = 431
    Width = 699
  end
  inherited CoolBar1: TCoolBar
    Width = 699
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 699
      end>
    inherited tbMainBar: TToolBar
      Width = 686
    end
  end
  object fpSughHead: TFloatPanel [4]
    Left = 0
    Top = 39
    Width = 699
    Height = 138
    Align = alTop
    Color = clWhite
    Caption = 'fpSughHead'
    ParentColor = False
    TabOrder = 2
    object Label1: TLabel
      Left = 33
      Top = 30
      Width = 60
      Height = 12
      Caption = '备货单号：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 235
      Top = 30
      Width = 60
      Height = 12
      Caption = '财务月份：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 33
      Top = 68
      Width = 60
      Height = 12
      Caption = '备货日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 443
      Top = 30
      Width = 60
      Height = 12
      Caption = '系统日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labSughSysDate: TLabel
      Left = 504
      Top = 29
      Width = 84
      Height = 12
      Caption = 'labSughSysDate'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 235
      Top = 66
      Width = 60
      Height = 12
      Caption = '备货类型：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 34
      Top = 108
      Width = 60
      Height = 12
      Caption = '备货原因：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seSughCode: TSDEdit
      Left = 92
      Top = 25
      Width = 121
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 0
      Text = 'seSughCode'
      OnExit = seSughCodeExit
      SplitSymbol = ' | '
    end
    object deSughDate: TDateEdit
      Left = 92
      Top = 64
      Width = 120
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2003-02-27'
      InitDate = '2003-02-27 11:10:43'
      ModalResult = 0
      TabOrder = 2
      Color = 50331647
      Ctl3D = False
      ParentCtl3D = False
    end
    object scSughFmonth: TSDComboBox
      Left = 292
      Top = 25
      Width = 120
      Height = 20
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 1
      Text = 'scSughFmonth'
    end
    object scSughType: TSDComboBox
      Left = 292
      Top = 58
      Width = 120
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 3
      KeyItem = cbItem2
    end
    object seSughDesc: TSDEdit
      Left = 96
      Top = 104
      Width = 385
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 4
      SplitSymbol = ' | '
    end
  end
  object FloatPanel3: TFloatPanel [5]
    Left = 0
    Top = 398
    Width = 699
    Height = 33
    Align = alBottom
    Color = clWhite
    Enabled = False
    Caption = 'FloatPanel3'
    ParentColor = False
    TabOrder = 5
    object Label14: TLabel
      Left = 566
      Top = 9
      Width = 48
      Height = 12
      Caption = '操作员：'
    end
    object labSughUser: TLabel
      Left = 616
      Top = 9
      Width = 66
      Height = 12
      Caption = 'labSughUser'
    end
    object Label9: TLabel
      Left = 398
      Top = 9
      Width = 48
      Height = 12
      Caption = '审核人：'
    end
    object labSughChecker: TLabel
      Left = 445
      Top = 9
      Width = 54
      Height = 12
      Caption = 'SughCheck'
    end
    object chkSughCheck: TCheckBox
      Left = 67
      Top = 7
      Width = 78
      Height = 17
      Caption = '单已审核'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object chkSughCancel: TCheckBox
      Left = 191
      Top = 7
      Width = 74
      Height = 17
      Caption = '单已取消'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 664
    Top = 36
  end
  inherited ImageList1: TImageList
    Left = 659
  end
  inherited BillPrintDlg: TPrintDialog
    Left = 658
    Top = 37
  end
  inherited BillPrnSetupDlg: TPrinterSetupDialog
    Left = 655
    Top = 109
  end
  inherited pmDetail: TPopupMenu
    Left = 658
    Top = 70
  end
end