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

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

2013-06-03 02:28 e(stryear + '-10-22')) then
                    xingzuo := '天秤座'
                  else
                    if (birth >= strtodatetime(stryear + '-10-23')) and (birth <= strtodatetime(stryear + '-11-22')) then
                      xingzuo := '天蝎座'
                    else
                      if (birth >= strtodatetime(stryear + '-11-23')) and (birth <= strtodatetime(stryear + '-12-21')) then
                        xingzuo := '射手座'
                      else
                        if (birth >= strtodatetime(stryear + '-12-22')) and (birth <= strtodatetime(stryear + '-12-31')) then
                          xingzuo := '魔羯座'
                        else
                          if (birth >= strtodatetime(stryear + '-1-01')) and (birth <= strtodatetime(stryear + '-1-19')) then
                            xingzuo := '魔羯座';
  result := xingzuo;
end;

procedure Tfrmregister.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  frmmain.mmregister.AutoGrayScale := True;
end;

procedure Tfrmregister.Label1Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmregister.FormCreate(Sender: TObject);
begin
  Dm1.adoqry1.Close;
  Dm1.adoqry1.sql.Clear;
  Dm1.adoqry1.sql.Text := 'select * from city where pbm=0';
  dm1.adoqry1.Open;
  Dm1.adoqry1.first;
  dm1.adoqry1.next;
  cmbszqy.Properties.Items.Clear;
  while not dm1.adoqry1.Eof do
  begin
    cmbszqy.Properties.Items.Append(Dm1.adoqry1.fieldbyname('city').asstring);
    Dm1.adoqry1.Next;
  end;
  Dm1.adoqry1.Close;
  if