delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十) sp;      if (x = 8) or (x = -4) then
              birthpet := '蛇'
            else
              if (x = 7) or (x = -5) then
                birthpet := '马'
              else
                if (x = 6) or (x = -6) then
                  birthpet := '羊'
                else
                  if (x = 5) or (x = -7) then
                    birthpet := '猴'
                  else
                    if (x = 4) or (x = -8) then
                      birthpet := '鸡'
                    else
                      if (x = 3) or (x = -9) then
                        birthpet := '狗'
                      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
    &nb

首页上一页 7 8 9 10 11 12 13 下一页尾页 10/15/15

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十)由毕业论文网（www.huoyuandh.com）会员上传。