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

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
     &nb

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