f_xsfx.dfm

仓库管理系统 仓库管理系统

object dfmxsfx: Tdfmxsfx
  Left = 98
  Top = 146
  Width = 594
  Height = 397
  Caption = #38144#21806#20998#26512
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 351
    Width = 586
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 300
    Width = 586
    Height = 51
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 36
      Height = 12
      Caption = #26085#26399#65306
    end
    object Label2: TLabel
      Left = 152
      Top = 8
      Width = 12
      Height = 12
      Caption = #33267
    end
    object Label3: TLabel
      Left = 266
      Top = 30
      Width = 36
      Height = 12
      Caption = #27454#24335#30721
    end
    object Label4: TLabel
      Left = 10
      Top = 30
      Width = 24
      Height = 12
      Caption = #37096#38376
    end
    object Label5: TLabel
      Left = 151
      Top = 30
      Width = 24
      Height = 12
      Caption = #21697#29260
    end
    object quitbtn: TBitBtn
      Left = 424
      Top = 11
      Width = 77
      Height = 25
      Caption = #26597#35810
      TabOrder = 0
      OnClick = quitbtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object DateTimePicker1: TDateTimePicker
      Left = 48
      Top = 4
      Width = 97
      Height = 20
      CalAlignment = dtaLeft
      Date = 37323.7144625579
      Time = 37323.7144625579
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object DateTimePicker2: TDateTimePicker
      Left = 170
      Top = 4
      Width = 97
      Height = 20
      CalAlignment = dtaLeft
      Date = 37323.7144625579
      Time = 37323.7144625579
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 306
      Top = 26
      Width = 81
      Height = 20
      TabOrder = 3
    end
    object ComboBox2: TComboBox
      Left = 179
      Top = 26
      Width = 79
      Height = 20
      ItemHeight = 12
      TabOrder = 4
    end
    object ComboBox1: TComboBox
      Left = 47
      Top = 26
      Width = 88
      Height = 20
      ItemHeight = 12
      TabOrder = 5
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 586
    Height = 300
    ActivePage = TabSheet1
    Align = alClient
    MultiLine = True
    TabIndex = 0
    TabOrder = 2
    TabPosition = tpLeft
    object TabSheet1: TTabSheet
      Caption = #34920#26684#26597#35810
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 560
        Height = 292
        Align = alClient
        DataSource = DataSource1
        FooterColor = clYellow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDrawColumnCell = DBGridEh1DrawColumnCell
        OnTitleClick = DBGridEh1TitleClick
        CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.CurrencyFont.Color = clWindowText
        CurrencyStyle.CurrencyFont.Height = -11
        CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
        CurrencyStyle.CurrencyFont.Style = []
        CurrencyStyle.CurrencySymbol = #65509
        CurrencyStyle.CompartColor = clSilver
        CurrencyStyle.KilobitColor = clGreen
        CurrencyStyle.RadixColor = clRed
        CurrencyStyle.ShowMinus = True
        CurrencyStyle.ShowZero = False
        CurrencyStyle.MinusColor = clRed
        CurrencyStyle.Layout = tlCenter
        CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.HeadFont.Color = clWindowText
        CurrencyStyle.HeadFont.Height = -11
        CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
        CurrencyStyle.HeadFont.Style = []
        Columns = <
          item
            EditButtons = <>
            Footer.Value = #21512#35745#65306
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25490#21517
          end
          item
            EditButtons = <>
            FieldName = 'bmh'
            Footers = <>
            Title.Alignment = taCenter
            Width = 66
          end
          item
            EditButtons = <>
            FieldName = 'clabel'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'flh'
            Footers = <>
            Title.Alignment = taCenter
            Width = 58
          end
          item
            EditButtons = <>
            FieldName = 'esl'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'esjje'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #39292#22270#20998#26512
      ImageIndex = 1
      object DBChart1: TDBChart
        Left = 0
        Top = 0
        Width = 560
        Height = 292
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        LeftWall.Brush.Color = clWhite
        Title.Text.Strings = (
          #27454#24335#38144#21806#37329#39069#20998#26512)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        Legend.DividingLines.Visible = True
        Legend.Inverted = True
        Legend.TextStyle = ltsRightPercent
        View3D = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        Align = alClient
        TabOrder = 0
        object Series1: TPieSeries
          ColorSource = 'flh'
          Marks.ArrowLength = 20
          Marks.Style = smsLabelPercentTotal
          Marks.Visible = True
          DataSource = ADOQuery2
          SeriesColor = clRed
          XLabelsSource = 'flh'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
          PieValues.ValueSource = 'esl'
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26085#32447#22270#20998#26512
      ImageIndex = 2
      object DBChart2: TDBChart
        Left = 0
        Top = 0
        Width = 560
        Height = 292
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          #26085#32447#22270#20998#26512)
        Legend.TextStyle = ltsRightValue
        View3D = False
        Align = alClient
        TabOrder = 0
        object Series2: TLineSeries
          ColorEachPoint = True
          Marks.ArrowLength = 8
          Marks.Style = smsValue
          Marks.Visible = True
          DataSource = ADOQuery3
          SeriesColor = clRed
          XLabelsSource = 'rq'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = True
          XValues.DateTime = True
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          XValues.ValueSource = 'rq'
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'esjje'
        end
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select t_saledet.bmh, t_saledet.clabel, t_ware.flh,sum(t_saledet' +
        '.sl) as esl, sum(t_saledet.sjje) as esjje'
      'from t_saledet,t_ware'
      'group by t_saledet.bmh, t_saledet.clabel, t_ware.flh')
    Left = 128
    Top = 40
    object ADOQuery1bmh: TWideStringField
      DisplayLabel = #37096#38376#21495
      FieldName = 'bmh'
      Size = 6
    end
    object ADOQuery1clabel: TWideStringField
      DisplayLabel = #21697#29260
      FieldName = 'clabel'
      Size = 16
    end
    object ADOQuery1flh: TWideStringField
      DisplayLabel = #27454#24335
      FieldName = 'flh'
      Size = 8
    end
    object ADOQuery1esl: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'esl'
    end
    object ADOQuery1esjje: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'esjje'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 88
    Top = 40
  end
  object ADOQuery2: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT t_saledet.bmh, t_saledet.clabel, t_ware.flh,sum(t_saledet' +
        '.sl) as esl, sum(t_saledet.sjje) as esjje FROM t_saledet,t_ware'
      
        '       WHERE t_saledet.clabel=t_ware.clabel and t_saledet.spbh=t' +
        '_ware.spbh and t_saledet.bmh like '#39'08001'#39' AND (t_saledet.clabel)' +
        ' like '#39'ATOA'#39
      '       group by t_saledet.bmh, t_ware.flh, t_saledet.clabel')
    Left = 128
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 96
    Top = 120
  end
  object ADOQuery3: TADOQuery
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT t_saledet.rq,sum(t_saledet.sl) as esl, sum(t_saledet.sjje' +
        ') as esjje FROM t_saledet,t_ware'
      
        '       WHERE t_saledet.clabel=t_ware.clabel and t_saledet.spbh=t' +
        '_ware.spbh and t_saledet.bmh like '#39'08001'#39' AND (t_saledet.clabel)' +
        ' like '#39'ATOA'#39
      '       group by t_saledet.rq')
    Left = 136
    Top = 168
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 96
    Top = 168
  end
  object ADOTable1: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_branch'
    Left = 512
    Top = 168
  end
  object ADOTable2: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_label'
    Left = 544
    Top = 168
  end
end