这问题有点麻烦:
1: if application.FindComponent('称呼')=nil then
begin
称呼.creat(self);
2: 这个应该从喜好库中选了吧.
select * from 喜好 where name='姥姥' and price between '0' and '100'
3. 注意做个循环,内存释放和窗体重复运行也要注意.
1. 怎么称呼她的爸爸妈妈???
select * from HerParents
2. 好像还得去她姥姥家。应该给她的爸妈和姥姥买些什么东西???
select * from products where product in (健康食品,血压计等健康小仪器)
3. 还有什么需要注意的地方??? 提醒一下!
select * from 喜好 where SheKnow=True and person in (爸爸,妈妈,姥姥)
case 女友家人 of
父亲:begin
if 比较年轻 then call(叔叔 or 大叔)
else
call(伯父 or 大伯);
end;
母亲:begin
if 比较年轻 then call(阿姨 or 大妈)
else
call(伯母);
end;
姥姥:call(姥姥);{因为年纪较大,一般比较喜欢这种称呼,听到这种称呼老人心里会笑
开花}
小姨子:call(名字);{私底下对他说,大富翁上有很多帅哥,有机会我帮你介绍一个}
其它人:;//TODO:自己解决
end;