大分来了！请看一看问题，谢谢。(100分)

L

liuyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #1

在表A中选出源表B的填表日期的年份和月份（不要日）。
（填表日期是DATE类型就是XX-XX-XX格式的）
在表A的‘姓名’字段中下拉就有当年当月的人名，选中人名后，
在表A中的一些字段就可以自动生成（来自与表B）。
难点就是库里存的填表日期的是xx-xx-xx格式的。
请问各位高手如何实现此功能？

 

剑

剑知心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #2

这样
'select tablea.name '
+ ' from tablea,tableb '
+ ' where tableb.date >=' + '2001-4-1 '
+ 'and tableb.date <' + '2001-5-1'
+ 'and tablea.id = tableb.id'
不就得了

 

江

江维

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #3

用函数将格式转换一下就可以啦!

 

P

proman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #4

DecodeDate(Date: TDateTime; var Year, Month, Day: Word)
取回的日期放一个date变量中，然后用上面的函数解出相应的年份和月份就可以了。

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #5

结合 剑知心 和 proman 的方法来做吧

'select tablea.name '
+ ' from tablea,tableb '
+ ' where tableb.date >= :BeginDate '
+ 'and tableb.date <= :EndDate '
+ 'and tablea.id = tableb.id '

其中变量:BeginDate和:EndDate
从DecodeDate(Date: TDateTime; var Year, Month, Day: Word)得出year和month，再
加上‘-01’

 

L

liuyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #6

谢谢各位的热情帮助。
query1.sql.Text:='select slrq from ass_ajqk_v where year(slrq)='+yearcombo.text;
如果上面的slrq是日期date型的。上面的sql语句应该可以把。

等几天回答的人多了。小弟自会给分的。谢谢

 

L

liuyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-22

• #7

多人接受答案了。