三个小问题。

Question

没有时间试了，请大家多帮忙。1，formatdate的用法，把99-1-2转为1999-1-2
2,怎样得到一个表中日期列的最大值和最小值？
3，一个标签页，有3个标签，每个标签上都有一个dbgrid，分别是1,2,3，想规定dbgrid的每列的宽度，怎样做？我用onchange函数不行，总是报错。希望大家能给我比较详细的答案，多谢！

Answer 1

1.FormatDate('yyyy-mm-dd', vDate);
2.Select Max(DateField), Min(DateField) From YourTable
3.你可以自己在设计期间做好

Answer 2

3问题是这样的：
我在dbgrid中显示的数据，是在formcreat时间里的连接，如果在这个时候加入DBGrid1.Columns[0].Width:=80;系统会报错，在onchange里加也一样。
设计的时候应该在什么地方加入这样的语句呢？

Answer 3

1.FormatDateTime(’ddddd‘， DateTime: TDateTime)
2.select Max(Datename) from tablename
3. with PlayForm.DBGrid1.Columns do begin
          for i:=0 to Count-1 do
           begin
             Items[i].Alignment:=tacenter;
             Items[i].Title.Alignment:=tacenter;
            end;
          Items[0].Visible:=false;
          Items[1].Width:=55;
          Items[2].Width:=60;
          Items[3].Width:=40;
          Items[4].Width:=110;
          Items[5].Width:=65;
          Items[6].Width:=100;
          Items[7].Width:=65;
          Items[8].Width:=65;
          items[9].Visible:=false;
         end

Answer 4

第一解:
var
  dChgDate: TDatetime;
begin
  DateSeparator := '-';
  ShortDateFormat := 'yy-m-d';
  dChgDate := StrToDate('99-2-1');
  ShortDateFormat := 'yyyy-m-d';
  showmessage(formatdatetime('yyyy-m-d', dChgDate));
end;
第二解:
  与楼上相同
第三解:
  可以在form的onshow或其他地方用以下代码来设置
  dbgrid.columns[i].width := x; 
注:i为你要设置的列,x为你要设置的宽度.

Answer 5

menliwxj(有缘)：3中在onshow中加入报错
 wlw88(飞扬)：with PlayForm.DBGrid1.Columns do放在哪？

Answer 6

放在连接数据的后面，如Adoquery1.open的后面即可！

Answer 7

select rq1,rq2 into tem1 from tem where (#'+date1+'#<rq1 and #'+date2+'#>rq2);
rq1,rq2是两个日期字段，
问题：date的格式为1999-1-1, rq的格式为：99-1-1，希望保存在tem1中的格式为：1999-1-1
这个语句该怎么改？

Answer 8

我刚测试了一下,不会出错.不过你在改变列宽时,应先将表打开.
比如:
  query.open;
  //在这里加入以上代码即可.

Answer 9

问题3已解决，是由于我粗心造成的，多谢大家。
问题2正在解决，
问题1那个select into 怎么改才行啊？

Answer 10

formatdate('yyyy-mm-dd',date())的结果是1999-01-02，不是1999-1-2！
？？？？
怎么办？

Answer 11

formatdatetime('YYYY-M-D',YourDatetime)

Answer 12

formatdatetime('YYYY-M-D',YourDatetime)是可以了，但是我的select语句怎么改啊？select rq1,rq2 into tem1 from tem where (#'+date1+'#<rq1 and #'+date2+'#>rq2);
rq1,rq2是两个日期字段，
问题：date的格式为1999-1-1, rq的格式为：99-1-1，希望保存在tem1中的格式为：1999-1-1
这个语句该怎么改？

Answer 13

你用的是Access数据库把，你把表中rq1和rq2的类型改成常规日期不就行了！

Answer 14

wlw88(飞扬) :
怎样改？规定格式？不行啊，原来的数据库里都已经有数据了，规定的时候出错。

Answer 15

还有一个问题啊，如果是我新建的库（用creat），怎样规定它的格式啊？

Answer 16

而且98下access不能把日期没有1999-2-2这样的格式