tas500_01.dfm.svn-base

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

inherited Tas500_01Form: TTas500_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #39033#30446#35745#21010#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
      inherited ToolButton4: TToolButton
        Left = 296
      end
      inherited ToolButton7: TToolButton
        Left = 349
      end
      inherited ToolButton8: TToolButton
        Left = 402
      end
      inherited ToolButton5: TToolButton
        Left = 451
        Visible = True
      end
      inherited tlbRefresh: TToolButton
        Left = 459
      end
      inherited tlbLocate: TToolButton
        Left = 494
      end
      inherited tlbSearch: TToolButton
        Left = 529
      end
      inherited tlbPrint: TToolButton
        Left = 564
      end
      inherited ToolButton6: TToolButton
        Left = 612
      end
      inherited tlbExit: TToolButton
        Left = 620
      end
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblStatus: TLabel
      Left = 551
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #39033#30446#29366#24577
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 727
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object cbStatus: TComboBox
      Left = 607
      Top = 8
      Width = 105
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      Text = #25152#26377#29366#24577
      OnChange = cbStatusChange
      Items.Strings = (
        #25152#26377#29366#24577
        #35745#21010
        #25191#34892
        #23436#25104
        #25903#25588
        #31561#24453#38646#20214
        #36716#21046#36896#21830)
    end
  end
  inherited ScrollBox1: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      KeyField = 'T500_001'
      ShowSummaryFooter = True
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoAutoSearch, edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks, edgoUseLocate]
      OnCustomDrawCell = dxDBGrid1CustomDrawCell
      object dxDBGrid1T500_001: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 152
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_001'
        SummaryFooterType = cstCount
        OnDrawSummaryFooter = dxDBGrid1T500_001DrawSummaryFooter
      end
      object dxDBGrid1T500_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 304
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_002'
      end
      object dxDBGrid1T120_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T120_003'
      end
      object dxDBGrid1T500_005: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_005'
      end
      object dxDBGrid1T500_006: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_006'
      end
      object dxDBGrid1FType: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FType'
      end
      object dxDBGrid1T500_008: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 127
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_008'
      end
      object dxDBGrid1FUnit: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 54
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FUnit'
      end
      object dxDBGrid1T500_011: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_011'
        DisplayFormat = '0.00'
        Nullable = False
      end
      object dxDBGrid1T500_024: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_024'
      end
      object dxDBGrid1T500_025: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_025'
      end
      object dxDBGrid1T500_012: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_012'
        DisplayFormat = '0.00'
        Nullable = False
      end
      object dxDBGrid1T500_026: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_026'
      end
      object dxDBGrid1T500_027: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_027'
      end
      object dxDBGrid1T500_013: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 54
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_013'
        DisplayFormat = '0.00'
        Nullable = False
      end
      object dxDBGrid1T500_014: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_014'
      end
      object dxDBGrid1O150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_002'
      end
      object dxDBGrid1O150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'O150_003'
      end
      object dxDBGrid1I150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_002'
      end
      object dxDBGrid1I150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 364
        BandIndex = 0
        RowIndex = 0
        FieldName = 'I150_003'
      end
      object dxDBGrid1T500_017: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_017'
      end
      object dxDBGrid1T500_019: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 0
        RowIndex = 0
        FieldName = 'T500_019'
      end
      object dxDBGrid1T500_020: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter