调
调皮儿
Unregistered / Unconfirmed
GUEST, unregistred user!
1.我做这个东西，数据表的主键id，要设置为char，14位的，前八位为“20070530”，就是当天的日期，下来两位是一个固定数字“70”，最后四位是当天的递增数字，从“0001”开始，接下来是“0002、0003”，这个要怎么设置？
我想先设置个text框，把数值先放text框里，再录入到id数据表里，当天的日期我能弄出来，就是你上次教我的，但只显示“2007530”，我设置为：
begin
DecodeDate(now, y, m, d);
if m<10 then
a:='0'+Inttostr(m)
else
a:=IntToStr(m);
edit5.Text := IntToStr
+ a + IntToStr(d)+'70' ;
但接下来的0001我就不会弄了，而且要让它在前边日期变成下一天的时候，再从0001开始计算，我不会。怎么弄啊？
2.我想实现一个目的，当我在text1中输入3.1的数字时，按下button键，则在text2中显示为4。也就是说，不管小数是多少，只要有小数，都进位。当然，没有小数就不进位了。如何弄啊？
我从网上查，有
num:=Strtofloat(edit1.Text);
b:=Round((Num+0.9)*10)/10;
但弄到这里，我就不会把它的类型转回来了，
我想先设置个text框，把数值先放text框里，再录入到id数据表里，当天的日期我能弄出来，就是你上次教我的，但只显示“2007530”，我设置为：
begin
DecodeDate(now, y, m, d);
if m<10 then
a:='0'+Inttostr(m)
else
a:=IntToStr(m);
edit5.Text := IntToStr
+ a + IntToStr(d)+'70' ;但接下来的0001我就不会弄了，而且要让它在前边日期变成下一天的时候，再从0001开始计算，我不会。怎么弄啊？
2.我想实现一个目的，当我在text1中输入3.1的数字时，按下button键，则在text2中显示为4。也就是说，不管小数是多少，只要有小数，都进位。当然，没有小数就不进位了。如何弄啊？
我从网上查，有
num:=Strtofloat(edit1.Text);
b:=Round((Num+0.9)*10)/10;
但弄到这里，我就不会把它的类型转回来了，