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

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

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](五) getxingzuo(birth: Tdatetime): string;
public
{ Public declarations }
end;

var
frmregister: Tfrmregister;

implementation

uses md, main;

{$R *.dfm}

function Tfrmregister.getpet(birthYear: integer): string;
var
toyear, x: integer;
birthPet: string;
begin
toyear := 1997;
birthpet := 'Ox';
x := (toyear - birthyear) mod 12;
if ((x = 1) or (x = -11)) then
    birthpet := '鼠'
else
    if x = 0 then
      birthpet := '牛'
    else
      if (x = 11) or (x = -1) then
        birthpet := '虎'
      else
        if (x = 10) or (x = -2) then
          birthpet := '兔'
        else
          if (x = 9) or (x = -3) then
            birthpet := '龙'
          else
            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
                        bi

首页上一页 2 3 4 5 6 7 8 下一页尾页 5/15/15

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