unit6.~dfm

第一次尝试开发数据库方面的系统

object frm_tshtj: Tfrm_tshtj
  Left = 223
  Top = 243
  Width = 700
  Height = 479
  Caption = #32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 464
    Top = 8
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 32
    Width = 681
    Height = 417
    ActivePage = TabSheet3
    TabIndex = 2
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #24050#20511#22270#20070#27604#20363
      object DBChart1: TDBChart
        Left = 8
        Top = 144
        Width = 625
        Height = 217
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          'TDBChart')
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        TabOrder = 0
        object Series1: TPieSeries
          Marks.ArrowLength = 8
          Marks.Style = smsPercentTotal
          Marks.Visible = True
          DataSource = ADOQuery1
          SeriesColor = clRed
          Title = #24050#20511#22270#20070#27604#20363
          XLabelsSource = 'COLUMN1'
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
          PieValues.ValueSource = 'COLUMN1'
          object TeeFunction1: TAddTeeFunction
            PeriodStyle = psRange
          end
        end
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 8
        Width = 625
        Height = 120
        DataSource = DM.tshiDataSource
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21508#24211#22270#20070#27604#20363
      ImageIndex = 1
      object DBChart2: TDBChart
        Left = 8
        Top = 32
        Width = 657
        Height = 345
        AllowPanning = pmNone
        AllowZoom = False
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        BackWall.Pen.Visible = False
        Title.Text.Strings = (
          'TDBChart')
        AxisVisible = False
        ClipPoints = False
        Frame.Visible = False
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        View3DWalls = False
        TabOrder = 0
        object Series2: TPieSeries
          Marks.ArrowLength = 8
          Marks.Visible = True
          SeriesColor = clRed
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20837#24211#26102#38388#27604#36739
      ImageIndex = 2
      object DBChart3: TDBChart
        Left = 24
        Top = 40
        Width = 513
        Height = 289
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          'TDBChart')
        TabOrder = 0
        object Series3: TBarSeries
          Marks.ArrowLength = 20
          Marks.Visible = True
          DataSource = ADOQuery2
          SeriesColor = clRed
          Title = #20837#24211#26102#38388#27604#36739
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
          YValues.ValueSource = 'COLUMN1'
        end
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 376
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select count(*)  from '#22270#20070#36164#26009' where '#26159#21542#20511#20986'='#39#26159#39)
    Left = 128
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select count('#20837#24211#26102#38388') from '#22270#20070#20449#24687)
    Left = 200
    Top = 4
  end
end