tas425_01.dfm.svn-base

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

inherited Tas425_01Form: TTas425_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = '月装机量分析'
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 300
    Width = 800
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblYear: TLabel
      Left = 405
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = '年度'
      Transparent = True
    end
    object lblType: TLabel
      Left = 525
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = '类型'
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 722
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = '查询'
      OnClick = sbSearchClick
    end
    object cbYear: TComboBox
      Left = 437
      Top = 8
      Width = 81
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
    end
    object cbType: TComboBox
      Left = 557
      Top = 8
      Width = 145
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '按产品'
        '按产品类别'
        '按客户')
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 220
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 216
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end
        item
          Fixed = bfRight
        end>
      DefaultLayout = False
      KeyField = 'FCode'
      ShowSummaryFooter = True
      PopupMenu = PopupMenu1
      OnDblClick = dxDBGrid1DblClick
      Filter.Criteria = {00000000}
      FixedBandLineWidth = 1
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1FCode: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCode'
      end
      object dxDBGrid1FName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 200
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBGrid1FTotal1: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal1'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal2: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal2'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal3: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal3'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal4: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal4'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal5: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal5'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal6: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal6'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal7: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal7'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal8: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal8'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal9: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal9'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal10: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal10'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal11: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal11'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal12: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal12'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
      object dxDBGrid1FTotal: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 2
        RowIndex = 0
        FieldName = 'FTotal'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0'
      end
    end
  end
  object DBChart1: TDBChart [4]
    Left = 0
    Top = 303
    Width = 800
    Height = 250
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      '')
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object Series1: TLineSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      DataSource = ADOQuery1
      SeriesColor = clRed
      Title = '裝機總數'
      XLabelsSource = 'FMonth'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'FTotal'
    end
    object Series2: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Series1
      SeriesColor = clGreen
      Title = '平均裝機數'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      object TeeFunction1: TAverageTeeFunction
      end
    end
  end
  inherited ActionList1: TActionList
    object ActOpen: TAction
      Caption = '查看(&N)'
      ShortCut = 16397
      OnExecute = ActOpenExecute
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FTotal1'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal2'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal3'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal4'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal5'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal6'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal7'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal8'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal9'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal10'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal11'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal12'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FTotal'
        Attributes = [faFixed]
        DataType = ftInteger
      end>
    StoreDefs = True
    object ADODataSet1FCode: TStringField
      DisplayLabel = '编号'
      FieldName = 'FCode'
      Size = 30
    end
    object ADODataSet1FName: TStringField
      DisplayLabel = '名称'
      FieldName = 'FName'
      Size = 50
    end
    object ADODataSet1FTotal1: TIntegerField
      DisplayLabel = '一月'
      FieldName = 'FTotal1'
    end
    object ADODataSet1FTotal2: TIntegerField
      DisplayLabel = '二月'
      FieldName = 'FTotal2'
    end
    object ADODataSet1FTotal3: TIntegerField
      DisplayLabel = '三月'
      FieldName = 'FTotal3'
    end
    object ADODataSet1FTotal4: TIntegerField
      DisplayLabel = '四月'
      FieldName = 'FTotal4'
    end
    object ADODataSet1FTotal5: TIntegerField
      DisplayLabel = '五月'
      FieldName = 'FTotal5'
    end
    object ADODataSet1FTotal6: TIntegerField
      DisplayLabel = '六月'
      FieldName = 'FTotal6'
    end
    object ADODataSet1FTotal7: TIntegerField
      DisplayLabel = '七月'
      FieldName = 'FTotal7'
    end
    object ADODataSet1FTotal8: TIntegerField
      DisplayLabel = '八月'
      FieldName = 'FTotal8'
    end
    object ADODataSet1FTotal9: TIntegerField
      DisplayLabel = '九月'
      FieldName = 'FTotal9'
    end
    object ADODataSet1FTotal10: TIntegerField
      DisplayLabel = '十月'
      FieldName = 'FTotal10'
    end
    object ADODataSet1FTotal11: TIntegerField
      DisplayLabel = '十一月'
      FieldName = 'FTotal11'
    end
    object ADODataSet1FTotal12: TIntegerField
      DisplayLabel = '十二月'
      FieldName = 'FTotal12'
    end
    object ADODataSet1FTotal: TIntegerField
      DisplayLabel = '小计'
      FieldName = 'FTotal'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select count(T500_001) as FTotal,month(T500_006) as FMonth'
      '  from TAS500 where year(T500_006)=2005'
      '  group by month(T500_006)')
    Left = 152
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 216
    object N1: TMenuItem
      Action = ActOpen
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = ActLocate
    end
    object N5: TMenuItem
      Action = ActSearch
    end
  end
end