1. Pascal / Говнокод #2475

    +101.4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    /////определяем зарплату по кол-ву учеников
      str := 'SELECT C.Salary, C.DateID'+
      ' FROM CriteriaOfSalaryTeachers C, TeacherStyleGroup TSG, CriteriaOfSalaryTeacherDate CD' +
      ' WHERE (CD.TeacherStyleGroupID = TSG.TeacherStyleGroupID)'+
      ' AND (TSG.TeacherStyleID =:tsid) AND (TSG.GroupID =:idg)'+
      ' AND (CD.DateID = C.DateID) AND (CD.DateTimeActivity <= :da) AND (CD.DateTimeClose > :datt)'+
      ' AND (C.MinPupils <= :mip) AND (C.MaxPupils > :mipi)';
      Salary := MainForm.Query(str, 3, 'float:'+TSID+
                                       '; integer:'+GroupID+
                                       '; datetime:'+DateToStr(MyDate)+' '+TimeToStr(MyTime)+
                                       '; datetime:'+DateToStr(MyDate)+' '+TimeToStr(MyTime)+
                                       '; integer:'+IntToStr(CountPupils)+
                                       '; integer:'+IntToStr(CountPupils));
    if Salary[0,0] = '__false__' then
        result := -1

    определяем зарплату по кол-ву учеников

    Запостил: fekrado, 22 Января 2010

    Комментарии (2) RSS

    Добавить комментарий