ucalc.dfm

学生信息管理系统

            Flat = True
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghDialogFind]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'bj'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #29677#32423#21517#31216
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
                Width = 116
              end
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'rs'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #20154'  '#25968
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
                Width = 67
              end
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'kr'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #31185'    '#20219
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
                Width = 82
              end
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'pjf'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #24179#22343#20998
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
              end
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'hgl'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #21512#26684#29575
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
                Width = 85
              end
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'lhl'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #33391#22909#29575
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
                Width = 84
              end
              item
                Alignment = taCenter
                EditButtons = <>
                FieldName = 'yxl'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -14
                Font.Name = #23435#20307
                Font.Style = []
                Footers = <>
                Title.Alignment = taCenter
                Title.Caption = #20248#31168#29575
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clWindowText
                Title.Font.Height = -19
                Title.Font.Name = #23435#20307
                Title.Font.Style = []
                Width = 89
              end>
          end
        end
        object DBChart2: TDBChart
          Left = 0
          Top = 260
          Width = 671
          Height = 303
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Title.Text.Strings = (
            'TDBChart')
          Align = alClient
          TabOrder = 1
          object ComboBox_jb: TComboBox
            Left = 5
            Top = 4
            Width = 85
            Height = 20
            ItemHeight = 0
            TabOrder = 0
            OnChange = ComboBox_jbChange
          end
          object Series2: TBarSeries
            Marks.ArrowLength = 20
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = ADOQuery_fx
            SeriesColor = clRed
            Title = #24179#22343#20998
            XLabelsSource = 'bjmc'
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
            YValues.ValueSource = 'vpjf'
          end
          object Series3: TBarSeries
            Marks.ArrowLength = 20
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = ADOQuery_fx
            SeriesColor = clGreen
            Title = #21512#26684#29575'(%)'
            XLabelsSource = 'bjmc'
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
            YValues.ValueSource = 'vhgl'
          end
          object Series4: TBarSeries
            Marks.ArrowLength = 20
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = ADOQuery_fx
            SeriesColor = clYellow
            Title = #33391#22909#29575'(%)'
            XLabelsSource = 'bjmc'
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
            YValues.ValueSource = 'vlhl'
          end
          object Series5: TBarSeries
            Marks.ArrowLength = 20
            Marks.Style = smsValue
            Marks.Visible = True
            DataSource = ADOQuery_fx
            SeriesColor = clBlue
            Title = #20248#31168#29575'(%)'
            XLabelsSource = 'bjmc'
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1.000000000000000000
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Bar'
            YValues.Multiplier = 1.000000000000000000
            YValues.Order = loNone
            YValues.ValueSource = 'vyxl'
          end
        end
      end
    end
  end
  object DataSource: TDataSource
    DataSet = ADOQuery
    Left = 548
    Top = 31
  end
  object PrintDBGridEh: TPrintDBGridEh
    DBGridEh = DBGridEh
    Options = []
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.CenterText.Strings = (
      '2004~2005'#24180#24230#31532#20108#23398#26399#25945#23398#25928#26524#32479#35745)
    PageHeader.Font.Charset = ANSI_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -19
    PageHeader.Font.Name = #23435#20307
    PageHeader.Font.Style = []
    Units = MM
    Left = 580
    Top = 31
  end
  object ADOQuery: TADOQuery
    Connection = FMain.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from calc')
    Left = 608
    Top = 31
    object ADOQueryID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuerybj: TWideStringField
      FieldName = 'bj'
      Size = 12
    end
    object ADOQueryrs: TSmallintField
      FieldName = 'rs'
    end
    object ADOQuerykr: TWideStringField
      FieldName = 'kr'
      Size = 12
    end
    object ADOQuerypjf: TWideStringField
      FieldName = 'pjf'
      Size = 10
    end
    object ADOQueryhgl: TWideStringField
      FieldName = 'hgl'
      Size = 12
    end
    object ADOQuerylhl: TWideStringField
      FieldName = 'lhl'
      Size = 12
    end
    object ADOQueryyxl: TWideStringField
      FieldName = 'yxl'
      Size = 12
    end
  end
  object DataSource_fx1: TDataSource
    DataSet = ADOQuery_fx1
    Left = 269
    Top = 199
  end
  object ADOQuery_fx1: TADOQuery
    Connection = FMain.ADOConnection
    CursorType = ctStatic
    OnCalcFields = ADOQuery_fx1CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select '#29677#32423',Count('#35821#25991')as yw from stu_info where '#35821#25991'>=0 and '#36864#23398#21542'='#39'F'#39' a' +
        'nd '#32423#21035'='#39#21021#19968#39' group by '#29677#32423)
    Left = 349
    Top = 207
    object ADOQuery_fx1DSDesigner: TWideStringField
      FieldName = #29677#32423
      Size = 12
    end
    object ADOQuery_fx1yw: TIntegerField
      FieldName = 'yw'
    end
    object ADOQuery_fx1bj: TStringField
      FieldKind = fkCalculated
      FieldName = 'bj'
      Size = 12
      Calculated = True
    end
  end
  object ADOQuery_fx: TADOQuery
    Connection = FMain.ADOConnection
    CursorType = ctStatic
    OnCalcFields = ADOQuery_fxCalcFields
    Parameters = <>
    SQL.Strings = (
      'select * from calc where bj like '#39'%'#21021#20108'%'#39)
    Left = 408
    Top = 299
    object ADOQuery_fxID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuery_fxbj: TWideStringField
      FieldName = 'bj'
      Size = 12
    end
    object ADOQuery_fxrs: TSmallintField
      FieldName = 'rs'
    end
    object ADOQuery_fxkr: TWideStringField
      FieldName = 'kr'
      Size = 12
    end
    object ADOQuery_fxpjf: TWideStringField
      FieldName = 'pjf'
      Size = 10
    end
    object ADOQuery_fxhgl: TWideStringField
      FieldName = 'hgl'
      Size = 12
    end
    object ADOQuery_fxlhl: TWideStringField
      FieldName = 'lhl'
      Size = 12
    end
    object ADOQuery_fxyxl: TWideStringField
      FieldName = 'yxl'
      Size = 12
    end
    object ADOQuery_fxbjmc: TStringField
      FieldKind = fkCalculated
      FieldName = 'bjmc'
      Size = 12
      Calculated = True
    end
    object ADOQuery_fxvhgl: TFloatField
      FieldKind = fkCalculated
      FieldName = 'vhgl'
      Calculated = True
    end
    object ADOQuery_fxvlhl: TFloatField
      FieldKind = fkCalculated
      FieldName = 'vlhl'
      Calculated = True
    end
    object ADOQuery_fxvyxl: TFloatField
      FieldKind = fkCalculated
      FieldName = 'vyxl'
      Calculated = True
    end
    object ADOQuery_fxvpjf: TFloatField
      FieldKind = fkCalculated
      FieldName = 'vpjf'
      Calculated = True
    end
  end
  object DataSource_fx: TDataSource
    DataSet = ADOQuery_fx
    Left = 368
    Top = 299
  end
end