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

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

delphi+access通用会员管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](七) 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

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/15/15

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