unit15.~dfm

这是个才财务管理系统！可能是哪个语言！但是我不认识！

object frm_graph: Tfrm_graph
  Left = 318
  Top = 237
  Width = 508
  Height = 350
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '公司财政分析'
  Color = clOlive
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object dbc_chart: TDBChart
    Left = 24
    Top = 24
    Width = 449
    Height = 250
    BackWall.Brush.Color = clWhite
    BackWall.Color = clOlive
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -29
    Title.Font.Name = '华文行楷'
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      '日安装收费情况图')
    BackColor = clOlive
    Legend.Visible = False
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      DataSource = Query1
      SeriesColor = clRed
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = '安装日期'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = '安装费'
    end
  end
  object DTP_date1: TDateTimePicker
    Left = 40
    Top = 280
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 36926.6817585185
    Time = 36926.6817585185
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
    OnChange = DTP_date1Change
  end
  object DTP_date2: TDateTimePicker
    Left = 384
    Top = 280
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 36926.6818768634
    Time = 36926.6818768634
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
    OnChange = DTP_date1Change
  end
  object btn_print: TBitBtn
    Left = 168
    Top = 280
    Width = 75
    Height = 25
    Caption = '打 印'
    TabOrder = 3
    OnClick = btn_printClick
  end
  object btn_exit: TBitBtn
    Left = 280
    Top = 280
    Width = 75
    Height = 25
    Caption = '返 回'
    TabOrder = 4
    OnClick = btn_exitClick
  end
  object Query1: TQuery
    SQL.Strings = (
      'select * from 安装记录表.db '
      '     where 安装日期>:d1 and 安装日期<:d2'
      '')
    Left = 24
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'd1'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'd2'
        ParamType = ptUnknown
      end>
  end
end