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

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

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](九) l;
    cxLabel2: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBRadioGroup1: TcxDBRadioGroup;
    cxDBSpinEdit1: TcxDBSpinEdit;
    edtbirth: TcxDBDateEdit;
    cxLabel6: TcxLabel;
    cxLabel7: TcxLabel;
    cxLabel8: TcxLabel;
    cxLabel9: TcxLabel;
    cxLabel10: TcxLabel;
    cxLabel11: TcxLabel;
    cxLabel12: TcxLabel;
    cmbxingzuo: TcxDBComboBox;
    cmbsx: TcxDBComboBox;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxLabel3: TcxLabel;
    cmbszqy: TcxDBComboBox;
    cmbcity: TcxDBComboBox;
    cxLabel13: TcxLabel;
    Panel3: TPanel;
    RzDBNavigator1: TRzDBNavigator;
    Panel4: TPanel;
    Label1: TLabel;
    cxLabel14: TcxLabel;
    cxDBMemo1: TcxDBMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure edtbirthPropertiesEditValueChanged(Sender: TObject);
    procedure cmbszqyPropertiesChange(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
private
    function getpet(birthYear: integer): string;
    function 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
     &nb

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

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