uxqd_tj.dfm

工廠倉庫管理系統

object Frmxqd_tj: TFrmxqd_tj
  Left = 232
  Top = 114
  Width = 667
  Height = 483
  BorderIcons = [biSystemMenu]
  Caption = #38656#27714#21333#29289#26009#32479#35745
  Color = 15856627
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    659
    449)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 112
    Width = 97
    Height = 13
    AutoSize = False
    Caption = #36873#25321#39033#30446#26597#30475
  end
  object Label2: TLabel
    Left = 96
    Top = 88
    Width = 24
    Height = 13
    Caption = #21040'    '
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 217
    Height = 73
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object modifetitle: TSpeedButton
      Left = 8
      Top = 40
      Width = 85
      Height = 28
      Caption = #20462#25913#26631#39064
      OnClick = modifetitleClick
    end
    object SavePicture: TSpeedButton
      Left = 112
      Top = 40
      Width = 85
      Height = 28
      Caption = #20445#23384#22270#29255
      OnClick = SavePictureClick
    end
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #22270#24418#22788#29702
    end
  end
  object PageControl1: TPageControl
    Left = 224
    Top = 0
    Width = 433
    Height = 451
    ActivePage = TabSheet1
    Align = alCustom
    Anchors = [akLeft, akTop, akRight, akBottom]
    Style = tsFlatButtons
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #39292#29366#22270
      object DBChart1: TDBChart
        Left = 0
        Top = 0
        Width = 425
        Height = 420
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.AdjustFrame = False
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -19
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Title.Text.Strings = (
          #37096#38376#20154#21592#23545#27604#34920)
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        LeftAxis.LabelStyle = talText
        Legend.ColorWidth = 10
        Legend.DividingLines.Style = psDot
        Legend.LegendStyle = lsValues
        Legend.ShadowSize = 1
        Legend.TextStyle = ltsRightPercent
        Legend.TopPos = 1
        RightAxis.Inverted = True
        RightAxis.LabelsMultiLine = True
        RightAxis.LabelStyle = talValue
        RightAxis.Logarithmic = True
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DOptions.VertOffset = 36
        View3DOptions.Zoom = 102
        View3DWalls = False
        OnGetLegendText = DBChart1GetLegendText
        Align = alClient
        Color = clWhite
        TabOrder = 0
        object Series1: TPieSeries
          Cursor = crCross
          Marks.ArrowLength = 8
          Marks.Style = smsValue
          Marks.Visible = False
          DataSource = ADOQChart
          PercentFormat = '   ##0.## %'
          SeriesColor = clRed
          ValueFormat = '   ##0.##'
          XLabelsSource = #29992#26009#37096#38376
          OtherSlice.Text = 'Other'
          PieValues.DateTime = True
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1.000000000000000000
          PieValues.Order = loNone
          PieValues.ValueSource = #29992#24211#23384#37327
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26609#29366#22270
      ImageIndex = 1
      object DBChart2: TDBChart
        Left = 0
        Top = 0
        Width = 425
        Height = 420
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Color = 15856627
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -19
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Title.Text.Strings = (
          #37096#38376#20154#21592#23545#27604#34920)
        Legend.ColorWidth = 7
        Legend.TextStyle = ltsRightPercent
        Legend.TopPos = 0
        OnGetLegendText = DBChart2GetLegendText
        Align = alClient
        Color = 15856627
        TabOrder = 0
        object Series2: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsValue
          Marks.Transparent = True
          Marks.Visible = True
          DataSource = ADOQChart
          PercentFormat = '  ##0.## %'
          SeriesColor = clRed
          XLabelsSource = #29992#26009#37096#38376
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1.000000000000000000
          XValues.Order = loAscending
          XValues.ValueSource = #29992#24211#23384#37327
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1.000000000000000000
          YValues.Order = loNone
        end
      end
    end
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 136
    Width = 217
    Height = 306
    Anchors = [akLeft, akTop, akBottom]
    Indent = 19
    TabOrder = 2
  end
  object dtp1: TDateTimePicker
    Left = 0
    Top = 80
    Width = 89
    Height = 24
    Date = 38860.451465462960000000
    Time = 38860.451465462960000000
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object dtp2: TDateTimePicker
    Left = 120
    Top = 80
    Width = 97
    Height = 24
    Date = 38860.451852708330000000
    Time = 38860.451852708330000000
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object ADOQChart: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=letwin;Data Source=a6'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select ylbm as '#29992#26009#37096#38376',sum(ykcl) as '#29992#24211#23384#37327',sum(jhcgl) as '#35745#21010#37319#36141#37327' from c' +
        'gwl,wldmk where'
      'wldmk.wldm=cgwl.wldm  group by ylbm')
    Left = 208
    Top = 32
  end
  object SavePictureDialog1: TSavePictureDialog
    DefaultExt = '*.bmp'
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Left = 160
    Top = 96
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 568
    Top = 288
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 560
    Top = 224
  end
  object DataSource1: TDataSource
    DataSet = ADOQChart
    Left = 520
    Top = 144
  end
end