评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access通用会员管理系统[开题报告＋论文＋源(6)

2013-06-03 02:28 rthpet := '狗'
                      else
                        if (x = 2) or (x = -10) then
                          birthpet := '猪';
  result := birthpet;
end;

function Tfrmregister.getxingzuo(birth: Tdatetime): string;
var
  xingzuo, stryear: string;
begin
  stryear := inttostr(yearof(birth));
  if (birth >= strtodatetime(stryear + '-1-20')) and (birth <= strtodatetime(stryear + '-2-18')) then
    xingzuo := '水瓶座'
  else
    if (birth >= strtodatetime(stryear + '-2-19')) and (birth <= strtodatetime(stryear + '-3-20')) then
      xingzuo := '双鱼座'
    else
      if (birth >= strtodatetime(stryear + '-3-21')) and (birth <= strtodatetime(stryear + '-5-20')) then
        xingzuo := '白羊座'
      else
        if (birth >= strtodatetime(stryear + '-4-21')) and (birth <= strtodatetime(stryear + '-2-18')) then
          xingzuo := '金牛座'
        else
          if (birth >= strtodatetime(stryear + '-5-21')) and (birth <= strtodatetime(stryear + '-6-21')) then
            xingzuo := '双子座'
          else
            if (birth >= strtodatetime(stryear + '-6-22')) and (birth <= strtodatetime(stryear + '-7-22')) then

大学排名

              xingzuo := '巨蟹座'
            else
              if (birth >= strtodatetime(stryear + '-7-23')) and (birth <= strtodatetime(stryear + '-8-22')) then
                xingzuo := '狮子座'
              else
                if (birth >= strtodatetime(stryear + '-8-23')) and (birth <= strtodatetime(stryear + '-9-22')) then
                  xingzuo := '处女座'
                else
                  if (birth >= strtodatetime(stryear + '-9-23')) and (birth <= strtodatetim