goodsindetail.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 256 行

object Formgoodsindetail: TFormgoodsindetail
  Left = 250
  Top = 76
  Width = 378
  Height = 483
  Caption = '工序系数作业'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 370
    Height = 43
    Align = alTop
    TabOrder = 0
    object Label4: TLabel
      Left = 9
      Top = 17
      Width = 41
      Height = 13
      AutoSize = False
      Caption = '系数号'
    end
    object Label5: TLabel
      Left = 177
      Top = 17
      Width = 56
      Height = 13
      AutoSize = False
      Caption = '系数名称'
    end
    object DBEdit1: TDBEdit
      Left = 50
      Top = 13
      Width = 121
      Height = 21
      DataField = 'indetailno'
      DataSource = DataMod.Dsindetail
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 229
      Top = 13
      Width = 131
      Height = 21
      DataField = 'indetailname'
      DataSource = DataMod.Dsindetail
      TabOrder = 1
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 43
    Width = 370
    Height = 413
    Align = alClient
    Caption = '工序列表'
    TabOrder = 1
    object Label1: TLabel
      Left = 186
      Top = 207
      Width = 13
      Height = 130
      Caption = '右边是分配帐套的人员'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clOlive
      Font.Height = -13
      Font.Name = '新细明体'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object SpeedButton1: TSpeedButton
      Left = 173
      Top = 81
      Width = 39
      Height = 22
      Hint = '可将左边方框中选中的一个或多个员工，一起加到右边的方框中'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 173
      Top = 113
      Width = 39
      Height = 22
      Hint = '是将左边方框中的所有的员工加入到右边方框中'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 173
      Top = 145
      Width = 39
      Height = 22
      Hint = '可将右边方框中选中的一个或多个员工移除'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 173
      Top = 178
      Width = 39
      Height = 22
      Hint = '可将右边方框中的所有员工移除'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object Label2: TLabel
      Left = 11
      Top = 16
      Width = 77
      Height = 11
      Caption = '可供选择的工序'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clOlive
      Font.Height = -11
      Font.Name = '新细明体'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label3: TLabel
      Left = 223
      Top = 16
      Width = 66
      Height = 11
      Caption = '已选取的工序'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clOlive
      Font.Height = -11
      Font.Name = '新细明体'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object Label25: TLabel
      Left = 189
      Top = 343
      Width = 7
      Height = 13
      Caption = '0'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = '新细明体'
      Font.Style = []
      ParentFont = False
    end
    object ListBox1: TListBox
      Left = 8
      Top = 33
      Width = 155
      Height = 345
      ImeName = '中文 (简体) - 智能 ABC'
      ItemHeight = 13
      MultiSelect = True
      TabOrder = 0
    end
    object ListBox2: TListBox
      Left = 222
      Top = 33
      Width = 140
      Height = 345
      ImeName = '中文 (简体) - 智能 ABC'
      ItemHeight = 13
      MultiSelect = True
      Sorted = True
      TabOrder = 1
    end
    object Button1: TButton
      Left = 171
      Top = 378
      Width = 44
      Height = 21
      Hint = '存盘退出'
      Caption = '确认'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = Button1Click
    end
  end
end