acm.dfm

速达开源ERP系统

inherited frmAcm: TfrmAcm
  Left = 39
  Top = 83
  Width = 722
  Height = 456
  Caption = '自动编号维护'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 388
    Width = 714
  end
  inherited CoolBar1: TCoolBar
    Width = 714
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 714
      end>
    inherited tbMainBar: TToolBar
      Width = 701
    end
  end
  object sgAcm: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 369
    Height = 349
    Align = alLeft
    Color = clWhite
    ColCount = 4
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 2
    OnClick = sgAcmClick
    EvenGridColor = clWhite
    Columns = <
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -11
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '编码号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        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 = (
      10
      91
      119
      127)
  end
  object FloatPanel1: TFloatPanel [3]
    Left = 369
    Top = 39
    Width = 345
    Height = 349
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel1'
    ParentColor = False
    TabOrder = 3
    object Label1: TLabel
      Left = 33
      Top = 23
      Width = 42
      Height = 12
      Caption = '编码号:'
    end
    object Label2: TLabel
      Left = 33
      Top = 54
      Width = 42
      Height = 12
      Caption = '字段名:'
    end
    object Label3: TLabel
      Left = 33
      Top = 84
      Width = 42
      Height = 12
      Caption = '标识符:'
    end
    object seAcmCode: TSDEdit
      Left = 83
      Top = 18
      Width = 194
      Height = 18
      Color = clWhite
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      Text = 'seAcmCode'
      OnKeyDown = seAcmCodeKeyDown
      SplitSymbol = ' | '
    end
    object scAcmField: TSDComboBox
      Left = 83
      Top = 49
      Width = 162
      Height = 20
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      Text = 'scAcmField'
      KeyItem = cbItem2
    end
    object seAcmSymbol: TSDEdit
      Left = 83
      Top = 79
      Width = 194
      Height = 18
      Color = clWhite
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      Text = 'seAcmSymbol'
      OnKeyDown = seAcmCodeKeyDown
      SplitSymbol = ' | '
    end
    object Memo1: TMemo
      Left = 17
      Top = 278
      Width = 303
      Height = 49
      Color = clWhite
      Ctl3D = False
      Lines.Strings = (
        '提示：'
        '  自动编码总长度不能超过18位！'
        '  （即段1长度+段2长度+段3长度不超过18）')
      ParentCtl3D = False
      TabOrder = 3
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 112
      Width = 305
      Height = 163
      Caption = '编码组成'
      Color = clWhite
      ParentColor = False
      TabOrder = 4
      object Label5: TLabel
        Left = 18
        Top = 30
        Width = 48
        Height = 12
        Caption = '编码段1:'
      end
      object Label7: TLabel
        Left = 18
        Top = 57
        Width = 48
        Height = 12
        Caption = '编码段2:'
      end
      object Label6: TLabel
        Left = 18
        Top = 83
        Width = 48
        Height = 12
        Caption = '编码段3:'
      end
      object Label4: TLabel
        Left = 18
        Top = 112
        Width = 66
        Height = 12
        Caption = '流水号长度:'
      end
      object btnExample: TSpeedButton
        Left = 14
        Top = 135
        Width = 61
        Height = 22
        Caption = '编码示例'
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = btnExampleClick
      end
      object lblExample: TLabel
        Left = 80
        Top = 140
        Width = 6
        Height = 12
      end
      object scAcmPart1: TSDComboBox
        Left = 70
        Top = 22
        Width = 162
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 0
        KeyItem = cbItem2
      end
      object scAcmPart2: TSDComboBox
        Left = 70
        Top = 52
        Width = 162
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 1
        KeyItem = cbItem2
      end
      object scAcmPart3: TSDComboBox
        Left = 70
        Top = 79
        Width = 162
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 2
        KeyItem = cbItem2
      end
      object seAcmNoLen: TSDEdit
        Left = 86
        Top = 108
        Width = 194
        Height = 18
        Color = clWhite
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 3
        Text = 'seAcmNoLen'
        OnKeyDown = seAcmCodeKeyDown
        CharType = ctNumeric
        SplitSymbol = ' | '
      end
    end
  end
  inherited MainMenu1: TMainMenu
    Left = 626
    Top = 3
  end
  inherited ImageList1: TImageList
    Left = 593
    Top = 10
  end
  inherited RecPrintDlg: TPrintDialog
    Top = 7
  end
  inherited PrnSetupDlg: TPrinterSetupDialog
    Top = 7
  end
end