ussfp.dfm

学生信息管理系统

        Left = 75
        Top = 7
        Width = 10
        Height = 1
      end
      object Shape13: TShape
        Left = 64
        Top = 25
        Width = 21
        Height = 1
      end
      object Shape14: TShape
        Left = 75
        Top = 44
        Width = 10
        Height = 1
      end
      object DBGridEh: TDBGridEh
        Left = 0
        Top = 52
        Width = 507
        Height = 207
        Align = alClient
        DataSource = DataSource
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        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 = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'vxh'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #24207#21495
            Width = 40
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = #29677#32423
            Footers = <>
            Title.Alignment = taCenter
            Width = 56
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = #22995#21517
            Footers = <>
            Title.Alignment = taCenter
            Width = 49
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = #35797#23460#21517#31216
            Footers = <>
            Title.Alignment = taCenter
            Width = 81
          end
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = #24231#20301#21495
            Footers = <>
            Title.Alignment = taCenter
            Width = 41
          end>
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 262
      Width = 507
      Height = 173
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Shape4: TShape
        Left = 0
        Top = 0
        Width = 507
        Height = 55
        Align = alTop
      end
      object LInfo1: TLabel
        Left = 87
        Top = 4
        Width = 7
        Height = 14
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LInfo2: TLabel
        Left = 87
        Top = 20
        Width = 7
        Height = 14
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LInfo3: TLabel
        Left = 87
        Top = 36
        Width = 7
        Height = 14
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 8
        Top = 18
        Width = 56
        Height = 14
        Caption = #20998#37197#27010#20917
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Shape7: TShape
        Left = 74
        Top = 8
        Width = 1
        Height = 38
      end
      object Shape8: TShape
        Left = 75
        Top = 8
        Width = 10
        Height = 1
      end
      object Shape9: TShape
        Left = 64
        Top = 26
        Width = 21
        Height = 1
      end
      object Shape10: TShape
        Left = 75
        Top = 45
        Width = 10
        Height = 1
      end
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 55
        Width = 507
        Height = 118
        Align = alClient
        DataSource = DataSource1
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        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 = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            EditButtons = <>
            FieldName = 'vxh'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #24207#21495
            Width = 50
          end
          item
            EditButtons = <>
            FieldName = 'ss'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'nj1'
            Footers = <>
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = 'rs1'
            Footers = <>
            Width = 33
          end
          item
            EditButtons = <>
            FieldName = 'nj2'
            Footers = <>
            Width = 44
          end
          item
            EditButtons = <>
            FieldName = 'rs2'
            Footers = <>
            Width = 33
          end>
      end
    end
  end
  object ActionList: TActionList
    Images = FMain.ImageList
    Left = 624
    object A_init: TAction
      Caption = #21021#22987#21270
      ImageIndex = 17
      OnExecute = A_initExecute
    end
    object A_fpre: TAction
      Caption = #20998#37197#39044#35272
      ImageIndex = 11
    end
    object A_fp: TAction
      Caption = #20998' '#37197
      ImageIndex = 19
    end
    object A_cancel: TAction
      Caption = #25764'  '#28040
      ImageIndex = 2
      ShortCut = 27
    end
    object A_clear: TAction
      Caption = #28165#38500#20998#37197
      ImageIndex = 8
    end
    object A_refresh: TAction
      Caption = #21047' '#26032
      ImageIndex = 18
      OnExecute = A_refreshExecute
    end
    object A_preview: TAction
      Caption = #25171'  '#21360
      ImageIndex = 3
    end
    object A_auto: TAction
      Caption = #33258#21160#20998#37197
      ImageIndex = 22
      OnExecute = A_autoExecute
    end
  end
  object ADOQuery: TADOQuery
    Connection = FMain.ADOConnection
    CursorType = ctStatic
    AfterOpen = ADOQueryAfterOpen
    OnCalcFields = ADOQueryCalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select * from STU_info where '#35797#23460#21517#31216'<>'#39#39' and '#36864#23398#21542'='#39'F'#39'  order by '#35797#23460#21517#31216 +
        ','#27969#27700#21495)
    Left = 552
    Top = 8
    object ADOQueryID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQueryDSDesigner: TWideStringField
      FieldName = #35797#23460#21517#31216
      Size = 16
    end
    object ADOQueryDSDesigner2: TWideStringField
      FieldName = #24231#20301#21495
      Size = 3
    end
    object ADOQueryDSDesigner3: TSmallintField
      FieldName = #24207#21495
    end
    object ADOQueryDSDesigner4: TWideStringField
      FieldName = #22995#21517
      Size = 12
    end
    object ADOQueryDSDesigner5: TWideStringField
      FieldName = #32423#21035
      Size = 4
    end
    object ADOQueryDSDesigner6: TWideStringField
      FieldName = #29677#32423
      Size = 12
    end
    object ADOQueryDSDesigner7: TFloatField
      FieldName = #35821#25991
    end
    object ADOQueryDSDesigner8: TFloatField
      FieldName = #25968#23398
    end
    object ADOQueryDSDesigner9: TFloatField
      FieldName = #33521#35821
    end
    object ADOQueryDSDesigner10: TFloatField
      FieldName = #29289#29702
    end
    object ADOQueryDSDesigner11: TFloatField
      FieldName = #21270#23398
    end
    object ADOQueryDSDesigner12: TFloatField
      FieldName = #25919#27835
    end
    object ADOQueryDSDesigner13: TFloatField
      FieldName = #21382#21490
    end
    object ADOQueryDSDesigner14: TFloatField
      FieldName = #22320#29702
    end
    object ADOQueryDSDesigner15: TFloatField
      FieldName = #29983#29289
    end
    object ADOQueryDSDesigner16: TFloatField
      FieldName = #24635#20998
    end
    object ADOQueryDSDesigner17: TFloatField
      FieldName = #24179#22343#20998
    end
    object ADOQueryDSDesigner18: TWideStringField
      FieldName = #36864#23398#21542
      Size = 2
    end
    object ADOQueryDSDesigner19: TWideStringField
      FieldName = #23398#29983#31867#22411
      Size = 4
    end
    object ADOQueryDSDesigner20: TWideStringField
      FieldName = #31867#22411
      Size = 2
    end
    object ADOQueryvxh1: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'vxh'
      Calculated = True
    end
    object ADOQueryDSDesigner21: TWideStringField
      FieldName = #27969#27700#21495
      Size = 5
    end
  end
  object DataSource: TDataSource
    DataSet = ADOQuery
    Left = 580
    Top = 7
  end
  object PrintDBGridEh: TPrintDBGridEh
    Options = []
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 508
    Top = 65535
  end
  object ADOQuery1: TADOQuery
    Connection = FMain.ADOConnection
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    Parameters = <>
    SQL.Strings = (
      'select * from STU_ss order by id')
    Left = 496
    Top = 320
    object ADOQuery1vxh: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'vxh'
      Calculated = True
    end
    object ADOQuery1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQuery1ss: TWideStringField
      DisplayLabel = #35797#23460#21517#31216
      FieldName = 'ss'
      Size = 16
    end
    object ADOQuery1rs: TSmallintField
      FieldName = 'rs'
    end
    object ADOQuery1nj1: TWideStringField
      DisplayLabel = #24180#32423
      FieldName = 'nj1'
      Size = 4
    end
    object ADOQuery1nj2: TWideStringField
      DisplayLabel = #24180#32423
      FieldName = 'nj2'
      Size = 4
    end
    object ADOQuery1rs1: TSmallintField
      DisplayLabel = #20154#25968
      FieldName = 'rs1'
    end
    object ADOQuery1rs2: TSmallintField
      DisplayLabel = #20154#25968
      FieldName = 'rs2'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 532
    Top = 319
  end
end