fadn.dfm

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

inherited frmFadn: TfrmFadn
  Left = 12
  Top = 74
  Width = 755
  Height = 507
  Caption = '增加设备'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 439
    Width = 747
  end
  inherited CoolBar1: TCoolBar
    Width = 747
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 747
      end>
    inherited tbMainBar: TToolBar
      Width = 734
    end
  end
  object sgFadn: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 353
    Height = 400
    Align = alLeft
    Color = clWhite
    Ctl3D = False
    DefaultRowHeight = 22
    FixedColor = 8564917
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 2
    OnClick = sgFadnClick
    EvenGridColor = 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
      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
      82
      108
      78
      69)
  end
  object tpFadn: TPageControl [3]
    Left = 353
    Top = 39
    Width = 394
    Height = 400
    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 = 386
        Height = 370
        Align = alClient
        Color = 50331647
        Caption = 'FloatPanel4'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentColor = False
        TabOrder = 0
        object Label10: TLabel
          Left = 15
          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 = 201
          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 Label13: TLabel
          Left = 15
          Top = 292
          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 = 15
          Top = 170
          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 = 15
          Top = 140
          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 = 15
          Top = 81
          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 = 15
          Top = 111
          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 = 15
          Top = 52
          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 = 201
          Top = 81
          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 = 201
          Top = 52
          Width = 60
          Height = 12
          Caption = '规格型号：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 15
          Top = 230
          Width = 60
          Height = 12
          Caption = '增加方式：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 203
          Top = 230
          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 = 15
          Top = 200
          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 = 203
          Top = 200
          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 = 14
          Top = 260
          Width = 60
          Height = 12
          Caption = '使用状态：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 203
          Top = 260
          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 = 259
          Top = 18
          Width = 114
          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 = 16
          Top = 311
          Width = 357
          Height = 42
          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 = 16
        end
        object seFadnAddr: TSDEdit
          Left = 73
          Top = 166
          Width = 301
          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 = 73
          Top = 105
          Width = 300
          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 = 73
          Top = 17
          Width = 114
          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 = 71
          Top = 78
          Width = 116
          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 = 4
          Text = 'seFadnArea'
          SplitSymbol = ' | '
        end
        object scFadnUnit: TSDComboBox
          Left = 73
          Top = 47
          Width = 114
          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 = 2
          Text = 'scFadnUnit'
          KeyItem = cbItem2
        end
        object sdFadnOfDate: TDateEdit
          Left = 259
          Top = 76
          Width = 114
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2003-03-05'
          InitDate = '2003-03-05 17:55:33'
          ModalResult = 0
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          TabOrder = 5
          Color = 50331647
          Ctl3D = False
          ParentFont = False
          ParentCtl3D = False
        end
        object seFadnModel: TSDEdit
          Left = 259
          Top = 47
          Width = 114
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'