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
