请问:combobox的问题？(100分)

慕

慕荣冰靖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #1

界面上我用了三个combobox来表示时间：年、月、日
现在我从数据库中搜索出一些信息包括字段日期比如：2002-10-21
我想把2002，10，21填入到相应的三个combobox中，请问该代码怎么写？

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #2

//DateTimeToStr
ComboBox1.Items.Add('2001')
ComboBox2.Items.Add('10')
ComboBox3.Items.Add('21')

 

K

KOKS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #3

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
combobox1.text:=Year;
combobox2.text:=Month;
combobox3.text:=Day;
end

 

慕

慕荣冰靖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #4

时间不一定是系统的时间，在数据库中的日期是要自己下拉选择后才填入的，以后要用到这段信息，则搜索后把时间填入相应的三个combobox中
//DateTimeToStr
ComboBox1.Items.Add('2001')
ComboBox2.Items.Add('10')
ComboBox3.Items.Add('21')
2001，10，21是不固定的，我选择任何一个时间都要填入相应的三个combobox中,怎么办？

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #5

ComboBox1.Items.Add(field1)
ComboBox2.Items.Add(field2)
ComboBox3.Items.Add(filed3)
field1-field3为变量，自己赋值

 

大

大富翁2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #6

用字符串考贝
var
a,b,c:string:
a:=copy('2002-02-15',1,4);
b:=copy('2002-02-15',6,2);
c:=copy('2002-02-15',9,2);
combobox1.items.add(a);
combobox1.itemindex:=0;
combobox2.items.add(b);
combobox2.itemindex:=0;
combobox3.items.add(c);
combobox3.itemindex:=0;

 

大

大富翁2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #7

var
a,b,c,abc:string:
begin
abc:=adodataset.fieldbyname('fieldname').asstring;
a:=copy(abc,1,4);
b:=copy(abc,6,2);
c:=copy(abc,9,2);
combobox1.items.add(a);
combobox1.itemindex:=0;
combobox2.items.add(b);
combobox2.itemindex:=0;
combobox3.items.add(c);
combobox3.itemindex:=0;
end;
ok?

 

D

dubutianya21

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #8

var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:=adodataset.fieldbyname('fieldname').asDateTime;
DecodeDate(Present, Year, Month, Day);
ComboBox1.Items.Add(Year);
ComboBox2.Items.Add(Month);
ComboBox3.Items.Add(Day);
end

 

慕

慕荣冰靖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #9

各位谢谢了,我已经参考你们的介意做出来了