tass00_01.dfm.svn-base

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

inherited TasS00_01Form: TTasS00_01Form
  Left = 155
  Top = 37
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20219#21153#31649#29702#21442#25968
  ClientHeight = 383
  ClientWidth = 522
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl [0]
    Left = 8
    Top = 8
    Width = 505
    Height = 337
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21442#25968#35774#32622
      object gbUnit: TGroupBox
        Left = 8
        Top = 8
        Width = 481
        Height = 73
        Caption = #26102#38388#21333#20301
        TabOrder = 0
        object lblUnit: TLabel
          Tag = 1
          Left = 8
          Top = 24
          Width = 48
          Height = 12
          Caption = #26102#38388#21333#20301
        end
        object lblDay: TLabel
          Left = 200
          Top = 24
          Width = 48
          Height = 12
          Caption = #26102#20026#19968#22825
        end
        object lblWeek: TLabel
          Left = 312
          Top = 24
          Width = 48
          Height = 12
          Caption = #22825#20026#19968#21608
        end
        object lblMonth: TLabel
          Left = 425
          Top = 24
          Width = 48
          Height = 12
          Caption = #22825#20026#19968#26376
        end
        object cbUnit: TComboBox
          Left = 64
          Top = 16
          Width = 65
          Height = 20
          Style = csDropDownList
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ItemHeight = 12
          ItemIndex = 1
          TabOrder = 0
          Text = #22825
          Items.Strings = (
            #26102
            #22825
            #21608
            #26376)
        end
        object edtDay: TEdit
          Left = 152
          Top = 16
          Width = 41
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 1
          Text = '8'
          OnKeyPress = edtDayKeyPress
        end
        object edtWeek: TEdit
          Left = 264
          Top = 16
          Width = 41
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 2
          Text = '5'
          OnKeyPress = edtWeekKeyPress
        end
        object edtMonth: TEdit
          Left = 376
          Top = 16
          Width = 41
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 3
          Text = '22'
          OnKeyPress = edtMonthKeyPress
        end
        object cbChangeUnit: TCheckBox
          Left = 64
          Top = 48
          Width = 257
          Height = 17
          Caption = #20801#35768#21333#25454#24405#20837#26102#26356#25913#26102#38388#21333#20301
          TabOrder = 4
        end
      end
      object gbPriority: TGroupBox
        Left = 8
        Top = 88
        Width = 481
        Height = 49
        Caption = #20248#20808#32423#21035
        TabOrder = 1
        object lblPriority: TLabel
          Left = 8
          Top = 24
          Width = 48
          Height = 12
          Caption = #20248#20808#32423#21035
        end
        object lblDefault: TLabel
          Left = 208
          Top = 24
          Width = 72
          Height = 12
          Caption = #20248#20808#32423#32570#30465#20540
        end
        object edtHight: TEdit
          Left = 64
          Top = 16
          Width = 49
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 0
          Text = '1'
          OnKeyPress = edtHightKeyPress
        end
        object edtLow: TEdit
          Left = 120
          Top = 16
          Width = 49
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 1
          Text = '100'
          OnKeyPress = edtLowKeyPress
        end
        object edtDefault: TEdit
          Left = 288
          Top = 16
          Width = 65
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 2
          Text = '50'
          OnKeyPress = edtDefaultKeyPress
        end
      end
      object gbOther: TGroupBox
        Left = 8
        Top = 144
        Width = 481
        Height = 161
        Caption = #20854#20182#21442#25968
        TabOrder = 2
        object cbDelete: TCheckBox
          Left = 8
          Top = 16
          Width = 337
          Height = 17
          Caption = #20801#35768#21024#38500#29366#24577#20026#23436#25104#30340#20219#21153#35745#21010#19979#30340#20219#21153#27719#25253#21333
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object cbStatus: TCheckBox
          Left = 8
          Top = 40
          Width = 457
          Height = 17
          Caption = #20351#29992#39068#33394#26631#26126#20219#21153#30340#29366#24577#12290#22914#65306#35745#21010'='#40657#33394#65292#25191#34892'='#34013#33394#65292#23436#25104'='#28784#33394#65292#36820#24037'='#32418#33394
          Checked = True
          State = cbChecked
          TabOrder = 1
        end
        object cbUpdate: TCheckBox
          Left = 8
          Top = 64
          Width = 353
          Height = 17
          Caption = #20219#21153#23436#25104#26102#65292#21453#20889#23458#25143#36164#26009#30340#20135#21697#20449#24687'('#23433#35013#26085#26399#12289#20445#20859#26085#26399')'
          TabOrder = 2
        end
        object cbHours: TCheckBox
          Left = 8
          Top = 88
          Width = 353
          Height = 17
          Caption = #20219#21153#27719#25253#26102#65292#26159#21542#24405#20837#35814#32454#30340#24037#26102#20449#24687
          TabOrder = 3
        end
        object cbItems: TCheckBox
          Left = 8
          Top = 112
          Width = 353
          Height = 17
          Caption = #20219#21153#27719#25253#26102#65292#26159#21542#24405#20837#35814#32454#30340#38646#20214#20449#24687
          TabOrder = 4
        end
        object cbClass: TComboBox
          Left = 360
          Top = 61
          Width = 81
          Height = 20
          Style = csDropDownList
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ItemHeight = 12
          TabOrder = 5
        end
        object cbCount: TCheckBox
          Left = 8
          Top = 136
          Width = 153
          Height = 17
          Caption = #35745#36153#24037#26102#20801#35768#20026#38646
          TabOrder = 6
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20854#20182#21442#25968
      ImageIndex = 1
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 192
        Height = 12
        Caption = #24050#23436#25104#25968#25454#32479#35745#21253#21547#19979#21015#29366#24577#30340#21333#25454
      end
      object lblByTotal: TLabel
        Left = 8
        Top = 236
        Width = 24
        Height = 12
        Caption = #25353#29031
      end
      object lblTotal: TLabel
        Left = 168
        Top = 236
        Width = 120
        Height = 12
        Caption = #32479#35745#20219#21153#35745#21010#30340#24635#25968#37327
      end
      object lblByFinish: TLabel
        Left = 8
        Top = 260
        Width = 24
        Height = 12
        Caption = #25353#29031
      end
      object lblFinish: TLabel
        Left = 168
        Top = 260
        Width = 132
        Height = 12
        Caption = #32479#35745#20219#21153#35745#21010#30340#23436#25104#25968#37327
      end
      object dxDBGrid1: TdxDBGrid
        Left = 8
        Top = 24
        Width = 481
        Height = 193
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'FNo'
        SummaryGroups = <>
        SummarySeparator = ', '
        TabOrder = 0
        OnKeyPress = dxDBGrid1KeyPress
        OnMouseUp = dxDBGrid1MouseUp
        DataSource = dsTas120
        Filter.Criteria = {00000000}
        HideFocusRect = True
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid1FSel: TdxDBGridCheckColumn
          HeaderAlignment = taCenter
          Width = 47
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FSel'
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object dxDBGrid1FName: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 137
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FName'
        end
        object dxDBGrid1FRemark: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 267
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FRemark'
        end
      end
      object cbTotal: TComboBox
        Left = 40
        Top = 232
        Width = 121
        Height = 20
        Style = csDropDownList
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ItemHeight = 12
        ItemIndex = 0
        TabOrder = 1
        Text = #30003#25253#26085#26399
        Items.Strings = (
          #30003#25253#26085#26399
          #38656#27714#26085#26399
          #39044#35745#24320#22987#26085#26399
          #39044#35745#23436#25104#26085#26399
          #23454#38469#24320#22987#26085#26399
          #23454#38469#23436#25104#26085#26399)
      end
      object cbFinish: TComboBox
        Left = 40
        Top = 256
        Width = 121
        Height = 20
        Style = csDropDownList
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        ItemHeight = 12
        ItemIndex = 5
        TabOrder = 2
        Text = #23454#38469#23436#25104#26085#26399
        Items.Strings = (
          #30003#25253#26085#26399
          #38656#27714#26085#26399
          #39044#35745#24320#22987#26085#26399
          #39044#35745#23436#25104#26085#26399
          #23454#38469#24320#22987#26085#26399
          #23454#38469#23436#25104#26085#26399)
      end
    end
  end
  object bbtnOk: TBitBtn [1]
    Left = 344
    Top = 352
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 1
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn [2]
    Left = 432
    Top = 352
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 2
    OnClick = bbtnExitClick
  end
  inherited pmUISet: TPopupMenu
    Left = 264
    Top = 312
  end
  object dsTas120: TDataSource
    DataSet = adsTas120
    Left = 184
    Top = 112
  end
  object adsTas120: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FSel'
        Attributes = [faReadonly, faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FName'
        DataType = ftWideString
        Size = 50
      end>
    Parameters = <>
    StoreDefs = True
    Left = 200
    Top = 128
    object adsTas120FSel: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'FSel'
    end
    object adsTas120FNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object adsTas120FName: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'FName'
      Size = 50
    end
    object adsTas120FRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'FRemark'
      Size = 100
    end
  end
  object qryQuery: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 288
    Top = 104
  end
end