studentinfosearchunit.dfm

学费管理系统,学校使用

    Width = 432
    Height = 605
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object cxGrid2: TcxGrid
      Left = 2
      Top = 402
      Width = 428
      Height = 201
      Align = alBottom
      TabOrder = 0
      object cxGridDBTableView1: TcxGridDBTableView
        DataController.DataSource = DataSource4
        DataController.Filter.AutoDataSetFilter = True
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.GroupByBox = False
        Styles.StyleSheet = mainform.GridTableViewStyleSheetDevExpress
        object cxGridDBTableView1DBColumn: TcxGridDBColumn
          DataBinding.FieldName = #39033#30446
        end
        object cxGridDBTableView1cash: TcxGridDBColumn
          Caption = #27424#36153#37329#39069
          DataBinding.FieldName = 'cash'
          Width = 89
        end
      end
      object cxGridLevel1: TcxGridLevel
        GridView = cxGridDBTableView1
      end
    end
    object cxGrid3: TcxGrid
      Left = 2
      Top = 201
      Width = 428
      Height = 201
      Align = alClient
      TabOrder = 1
      object cxGridDBTableView2: TcxGridDBTableView
        DataController.DataSource = DataSource3
        DataController.Filter.AutoDataSetFilter = True
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.GroupByBox = False
        Styles.StyleSheet = mainform.GridTableViewStyleSheetDevExpress
        object cxGridDBTableView2DBColumn: TcxGridDBColumn
          DataBinding.FieldName = #39033#30446
        end
        object cxGridDBTableView2returnnum: TcxGridDBColumn
          Caption = #36864#36153#37329#39069
          DataBinding.FieldName = 'returnnum'
          Width = 80
        end
        object cxGridDBTableView2returnnum_1: TcxGridDBColumn
          Caption = #36864#36153#21517#31216
          DataBinding.FieldName = 'returnname'
        end
        object cxGridDBTableView2returncode: TcxGridDBColumn
          Caption = #36864#36153#21333#21495
          DataBinding.FieldName = 'returncode'
        end
      end
      object cxGridLevel2: TcxGridLevel
        GridView = cxGridDBTableView2
      end
    end
    object cxGrid4: TcxGrid
      Left = 2
      Top = 2
      Width = 428
      Height = 199
      Align = alTop
      TabOrder = 2
      object cxGridDBTableView3: TcxGridDBTableView
        DataController.DataSource = DataSource2
        DataController.Filter.AutoDataSetFilter = True
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.GroupByBox = False
        Styles.StyleSheet = mainform.GridTableViewStyleSheetDevExpress
        object cxGridDBTableView3DecreaseNum: TcxGridDBColumn
          Caption = #20943#20813#37329#39069
          DataBinding.FieldName = 'DecreaseNum'
          Width = 85
        end
        object cxGridDBTableView3DecreaseName: TcxGridDBColumn
          Caption = #20943#20813#21517#31216
          DataBinding.FieldName = 'DecreaseName'
        end
        object cxGridDBTableView3DecreaseCode: TcxGridDBColumn
          Caption = #20943#20813#21333#21495
          DataBinding.FieldName = 'DecreaseCode'
        end
      end
      object cxGridLevel3: TcxGridLevel
        GridView = cxGridDBTableView3
      end
    end
  end
  object list_adoquery: TADOQuery
    Connection = dm.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select student.Id,student.ChargeYearID,student.StudentName,stude' +
        'nt.Code,student.Sex,'
      
        'student.ScholarID,student.DepartmentID,student.SpecID,student.le' +
        'ngth,'
      
        'student.ClassCode,student.Address,student.Source,student.Tutor,s' +
        'tudent.Circs,'
      
        'student.Memo,student.RegDate,student.Operator,Scholar.Scholar,de' +
        'partment.department,'
      'spec.spec,operator.name,a.chargerangeid,'
      'case student.sex'
      'when 0 then '#39#30007#39
      'when 1 then '#39#22899#39
      'end as sexname,a.fact as tuition,b.fact as house,'
      
        'c.fact as book,d.fact as insurance,e.fact as live,a.derate+b.der' +
        'ate+c.derate+d.derate+e.derate+f.derate as sumderate,'
      
        'a.returnnum+b.returnnum+c.returnnum+d.returnnum+e.returnnum+f.re' +
        'turnnum as sumreturnnum,'
      
        'f.fact as pledge,a.fact+b.fact+c.fact+d.fact+e.fact+f.fact as su' +
        'mfact from ('
      'select * from student ) as student'
      'left join('
      
        'select * from income where  chargeitemid=1) as a on student.id=a' +
        '.studentid'
      'left join ('
      
        'select * from income where  chargeitemid=2) as b on student.id=b' +
        '.studentid and a.chargerangeid=b.chargerangeid'
      'left join ('
      
        'select * from income where  chargeitemid=3) as c on student.id=c' +
        '.studentid and a.chargerangeid=c.chargerangeid'
      'left join ('
      
        'select * from income where  chargeitemid=4) as d on student.id=d' +
        '.studentid and a.chargerangeid=d.chargerangeid'
      'left join ('
      
        'select * from income where  chargeitemid=5) as e on student.id=e' +
        '.studentid and a.chargerangeid=e.chargerangeid'
      'left join ('
      
        'select * from income where  chargeitemid=6) as f on student.id=f' +
        '.studentid and a.chargerangeid=f.chargerangeid'
      'left join Scholar on student.Scholarid=Scholar.id'
      'left join Department on student.Departmentid=Department.id'
      'left join Spec on student.Specid=Spec.id'
      'left join operator on student.operator=operator.code'
      'order by student.id')
    Left = 408
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = list_adoquery
    OnDataChange = DataSource1DataChange
    Left = 352
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Connection = dm.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from decrease')
    Left = 504
    Top = 112
  end
  object ADOQuery2: TADOQuery
    Connection = dm.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select case chargeitemid when 1 then '#39#23398#36153#39' when 2 then '#39#20303#23487#39' when ' +
        '3 then '#39#20070#36153#39
      
        'when 4 then '#39#20445#38505#39' when 5 then '#39#29983#27963#29992#21697#39' when 6 then '#39#20445#35777#37329#39'end as '#39#39033#30446#39 +
        ',returnnum,returnname,returncode'
      'from returndetail'
      'where returnnum>0'
      'order by chargeitemid')
    Left = 504
    Top = 312
  end
  object ADOQuery3: TADOQuery
    Connection = dm.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select case chargeitemid when 1 then '#39#23398#36153#39' when 2 then '#39#20303#23487#39' when ' +
        '3 then '#39#20070#36153#39
      
        'when 4 then '#39#20445#38505#39' when 5 then '#39#29983#27963#29992#21697#39' when 6 then '#39#20445#35777#37329#39'end as '#39#39033#30446#39 +
        ',(quantum-fact-derate-returnnum) as cash'
      'from income'
      'where quantum-fact-derate-returnnum>0'
      'order by chargeitemid')
    Left = 512
    Top = 496
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery1
    Left = 536
    Top = 120
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery2
    Left = 536
    Top = 320
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery3
    Left = 552
    Top = 504
  end
end