producter.dfm

来自「速达开源ERP系统」· DFM 代码 · 共 300 行

inherited frmProducter: TfrmProducter
  Left = 262
  Top = 176
  Width = 560
  Height = 443
  Caption = '生管员维护 '
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 375
    Width = 552
  end
  inherited CoolBar1: TCoolBar
    Width = 552
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 552
      end>
    inherited tbMainBar: TToolBar
      Width = 539
    end
  end
  object sgProducter: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 289
    Height = 336
    TabStop = False
    Align = alLeft
    Color = clWhite
    ColCount = 3
    Ctl3D = False
    DefaultRowHeight = 21
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 4
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    OnClick = sgProducterClick
    SelectColor = clBackground
    EvenGridColor = clWhite
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '生管员代码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '联系电话'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '传呼号码'
        ColumnWidth = 0
      end>
    ColWidths = (
      89
      95
      96)
  end
  object FloatPanel1: TFloatPanel [3]
    Left = 289
    Top = 39
    Width = 263
    Height = 336
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 3
    object Label1: TLabel
      Left = 10
      Top = 16
      Width = 30
      Height = 12
      Caption = '代码:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 10
      Top = 67
      Width = 30
      Height = 12
      Caption = '电话:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 10
      Top = 93
      Width = 30
      Height = 12
      Caption = '传呼:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 10
      Top = 42
      Width = 30
      Height = 12
      Caption = '名称:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object seProducterTel: TSDEdit
      Left = 50
      Top = 61
      Width = 178
      Height = 18
      Ctl3D = False
      ImeName = '中文 (简体) - 微软拼音'
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 2
      Text = 'seProducterTel'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object seProducterBeepPage: TSDEdit
      Left = 50
      Top = 87
      Width = 178
      Height = 18
      Ctl3D = False
      ImeName = '中文 (简体) - 微软拼音'
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 3
      Text = 'seProducterBeepPage'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
    object scProducterCode: TSDComboBox
      Left = 50
      Top = 8
      Width = 147
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ImeName = '中文 (简体) - 微软拼音'
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnClick = scProducterCodeClick
      KeyItem = cbItem2
    end
    object GroupBox1: TGroupBox
      Left = 50
      Top = 114
      Width = 149
      Height = 90
      Caption = '权限定义'
      TabOrder = 4
      object cbProducterCheck: TCheckBox
        Left = 10
        Top = 18
        Width = 50
        Height = 17
        Caption = '审核'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object cbProducterStop: TCheckBox
        Left = 76
        Top = 17
        Width = 50
        Height = 17
        Caption = '中止'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object cbProducterCancel: TCheckBox
        Left = 10
        Top = 41
        Width = 50
        Height = 17
        Caption = '作废'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object cbProducterClose: TCheckBox
        Left = 76
        Top = 41
        Width = 50
        Height = 17
        Caption = '结清'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object cbProducterPost: TCheckBox
        Left = 10
        Top = 65
        Width = 50
        Height = 17
        Caption = '月结'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
    end
    object seProducterName: TSDEdit
      Left = 50
      Top = 34
      Width = 147
      Height = 18
      TabStop = False
      Ctl3D = False
      ImeName = '中文 (简体) - 微软拼音'
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 1
      Text = 'seProducterName'
      CharType = ctMathematic
      SplitSymbol = ' | '
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 178
    Top = 147
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 323
    Top = 303
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Left = 291
    Top = 303
  end
end