fadn.dfm

速达开源ERP系统

inherited frmFadn: TfrmFadn
  Left = 50
  Top = 92
  Width = 670
  Height = 478
  Caption = '增加设备'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 410
    Width = 662
  end
  inherited CoolBar1: TCoolBar
    Width = 662
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 662
      end>
    inherited tbMainBar: TToolBar
      Width = 649
    end
  end
  object sgFadn: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 289
    Height = 371
    Align = alLeft
    Color = clWhite
    ColCount = 3
    Ctl3D = False
    DefaultRowHeight = 22
    FixedColor = 8564917
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentCtl3D = False
    TabOrder = 2
    OnClick = sgFadnClick
    EvenGridColor = 50331647
    OddGridColor = 50331647
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '设备编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '设备名称'
        ColumnWidth = 0
      end>
    ColWidths = (
      9
      99
      176)
  end
  object tpFadn: TPageControl [3]
    Left = 289
    Top = 39
    Width = 373
    Height = 371
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    Style = tsButtons
    TabOrder = 3
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = '基本资料'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object FloatPanel2: TFloatPanel
        Left = 0
        Top = 0
        Width = 365
        Height = 341
        Align = alClient
        Color = 50331647
        Caption = 'FloatPanel4'
        ParentColor = False
        TabOrder = 0
        object Label10: TLabel
          Left = 31
          Top = 22
          Width = 60
          Height = 12
          Caption = '设备编码：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 31
          Top = 48
          Width = 60
          Height = 12
          Caption = '设备名称：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 33
          Top = 236
          Width = 54
          Height = 12
          Caption = '备   注：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 31
          Top = 207
          Width = 60
          Height = 12
          Caption = '存放地点：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 31
          Top = 181
          Width = 60
          Height = 12
          Caption = '供 应 商：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 31
          Top = 128
          Width = 60
          Height = 12
          Caption = '产    地：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 31
          Top = 154
          Width = 60
          Height = 12
          Caption = '制 造 商：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 31
          Top = 101
          Width = 60
          Height = 12
          Caption = '计量单位：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 175
          Top = 101
          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 = 31
          Top = 75
          Width = 60
          Height = 12
          Caption = '规格型号：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object seFadnName: TSDEdit
          Left = 89
          Top = 40
          Width = 146
          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 = 'seFadnName'
          SplitSymbol = ' | '
        end
        object memFadnDesc: TMemo
          Left = 31
          Top = 250
          Width = 291
          Height = 57
          Color = 50331647
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Lines.Strings = (
            'memFadnDesc'
            '')
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 9
        end
        object seFadnAddr: TSDEdit
          Left = 89
          Top = 201
          Width = 234
          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 = 8
          Text = 'seFadnAddr'
          SplitSymbol = ' | '
        end
        object seFadnFactory: TSDEdit
          Left = 89
          Top = 148
          Width = 234
          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 = 6
          Text = 'seFadnFactory'
          SplitSymbol = ' | '
        end
        object seFadnCode: TSDEdit
          Left = 89
          Top = 16
          Width = 146
          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 = 0
          Text = 'seFadnCode'
          OnKeyDown = seFadnCodeKeyDown
          SplitSymbol = ' | '
        end
        object seFadnArea: TSDEdit
          Left = 89
          Top = 122
          Width = 234
          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 = 5
          Text = 'seFadnArea'
          SplitSymbol = ' | '
        end
        object scFadnUnit: TSDComboBox
          Left = 89
          Top = 95
          Width = 76
          Height = 20
          Color = 50331647
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          Text = 'scFadnUnit'
          KeyItem = cbItem2
        end
        object sdFadnOfDate: TDateEdit
          Left = 236
          Top = 97
          Width = 89
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2001-04-29'
          InitDate = '2001-04-29'
          ModalResult = 0
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          TabOrder = 4
          Color = 50331647
          Ctl3D = False
          ParentFont = False
          ParentCtl3D = False
        end
        object seFadnModel: TSDEdit
          Left = 89
          Top = 68
          Width = 144
          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 = 2
          Text = 'seFadnModel'
          SplitSymbol = ' | '
        end
        object seFadnSupply: TSDEdit
          Left = 89
          Top = 175
          Width = 234
          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 = 7
          Text = 'seFadnSupply'
          OnButtonClick = seFadnSupplyButtonClick
          ButtonVisible = True
          KeyItem = cbItem2
          DispItem = cbItem1
          SplitSymbol = ' | '
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '管理属性一'
      ImageIndex = 1
      object FloatPanel1: TFloatPanel
        Left = 0
        Top = 0
        Width = 365
        Height = 341
        Align = alClient
        Color = 50331647
        Caption = 'FloatPanel4'
        ParentColor = False
        TabOrder = 0
        object Label6: TLabel
          Left = 36
          Top = 50
          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 = 36
          Top = 76
          Width = 60
          Height = 12
          Caption = '所属部门：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 36
          Top = 128
          Width = 60
          Height = 12
          Caption = '使用状态：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 36
          Top = 101
          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 = 36
          Top = 183
          Width = 60
          Height = 12
          Caption = '减少方式：'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText