tas530_02.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

        0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
        00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
        0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
      OnClick = sbVendorClick
    end
    object lblSupportDays: TLabel
      Left = 600
      Top = 96
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21327#21161#24037#26102
    end
    object lblSupport: TLabel
      Left = 416
      Top = 96
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = #21327#21161#20154#21592
    end
    object Label5: TLabel
      Left = 598
      Top = 68
      Width = 6
      Height = 12
      Caption = '-'
    end
    object edtWork: TEdit
      Left = 264
      Top = 16
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 1
      OnExit = edtWorkExit
    end
    object edtPriority: TEdit
      Left = 656
      Top = 16
      Width = 73
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 3
    end
    object edtPerson: TEdit
      Left = 80
      Top = 64
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 5
    end
    object edtCode: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 0
    end
    object edtClass: TEdit
      Left = 472
      Top = 40
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 4
    end
    object edtTasks: TEdit
      Left = 472
      Top = 16
      Width = 121
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 2
    end
    object edtName: TEdit
      Left = 80
      Top = 40
      Width = 329
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 6
    end
    object edtPercent: TEdit
      Left = 656
      Top = 40
      Width = 57
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 7
      Text = '0'
    end
    object edtDays: TEdit
      Left = 264
      Top = 64
      Width = 81
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 8
      Text = '0'
      OnExit = edtDaysExit
      OnKeyPress = edtDaysKeyPress
    end
    object cbUnit: TComboBox
      Left = 352
      Top = 64
      Width = 57
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 11
      Text = 'TAcr500_02Form'
      Items.Strings = (
        'TAcr500_02Form')
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 472
      Top = 64
      Width = 121
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ShowButton = True
      TabOrder = 9
      OnExit = edtFromDateExit
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 608
      Top = 64
      Width = 121
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Color = clBtnFace
      Epoch = 1950
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ShowButton = True
      TabOrder = 10
    end
    object udPercent: TUpDown
      Left = 713
      Top = 40
      Width = 15
      Height = 20
      Associate = edtPercent
      Min = 0
      Position = 0
      TabOrder = 12
      Wrap = False
    end
    object edtVendor: TEdit
      Left = 80
      Top = 88
      Width = 97
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 13
      OnExit = edtVendorExit
    end
    object edtVendorName: TEdit
      Left = 208
      Top = 88
      Width = 201
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ReadOnly = True
      TabOrder = 14
    end
    object edtSupportDays: TEdit
      Left = 656
      Top = 88
      Width = 73
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 16
      Text = '0'
    end
    object edtSupport: TEdit
      Left = 472
      Top = 88
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 15
    end
  end
  object CoolBar1: TCoolBar [2]
    Left = 0
    Top = 0
    Width = 770
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 766
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 753
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbInsert: TToolButton
        Left = 148
        Top = 0
        Action = ActInsert
        AutoSize = True
      end
      object tlbUpdate: TToolButton
        Left = 183
        Top = 0
        Action = ActUpdate
        AutoSize = True
      end
      object tlbDelete: TToolButton
        Left = 218
        Top = 0
        Action = ActDelete
        AutoSize = True
      end
      object ToolButton2: TToolButton
        Left = 253
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbSave: TToolButton
        Left = 261
        Top = 0
        Action = ActSave
        AutoSize = True
      end
      object tlbCancel: TToolButton
        Left = 296
        Top = 0
        Action = ActCancel
        AutoSize = True
      end
      object ToolButton3: TToolButton
        Left = 331
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 339
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 374
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 409
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 444
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 479
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 487
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  object PageControl1: TPageControl [3]
    Left = 8
    Top = 328
    Width = 753
    Height = 209
    ActivePage = tsQty
    Style = tsFlatButtons
    TabIndex = 3
    TabOrder = 3
    object tsReport: TTabSheet
      Caption = #27719#25253#20869#23481
      object gbDetail: TGroupBox
        Left = 0
        Top = 2
        Width = 745
        Height = 169
        Caption = #27719#25253#20869#23481
        TabOrder = 0
        object lblDetails: TLabel
          Tag = 1
          Left = 24
          Top = 24
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #27719#25253#20869#23481
        end
        object lblDelay: TLabel
          Left = 24
          Top = 120
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #25302#26399#21407#22240
        end
        object lblContinue: TLabel
          Tag = 1
          Left = 560
          Top = 120
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #21518#32493#22788#29702
        end
        object lblCreateDate: TLabel
          Left = 24
          Top = 144
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #21046#21333#26085#26399
        end
        object lblCreateBy: TLabel
          Left = 208
          Top = 144
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #21046#21333#20154#21592
        end
        object lblUpdateDate: TLabel
          Left = 376
          Top = 144
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #20462#25913#26085#26399