关于几个函数和自定义类型的问题

Question

interface
type
  tuser=record
  name:string[12];
  psd:string[8];
 end;
 tday=record
 ontime,oftime:tdatetime;
 worktime:byte;
 moretime:byte;
 stoptime:byte;
 week:byte;
 flag:byte;
 end;
 tmonth=record
  month:string[12];
  days:array[1..31] of tday;
 end;
uses//这里提示出错，请各位指点
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
[Error] myprogram.pas(23): Declaration expected but 'USES' found

Answer 1

uses 放在type的前面或是implementation的后面

Answer 2

你的Uses是不是要放到InterFace的下面呀!
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  tuser=record
  name:string[12];
  psd:string[8];
 end;
 tday=record
 ontime,oftime:tdatetime;
 worktime:byte;
 moretime:byte;
 stoptime:byte;
 week:byte;
 flag:byte;
 end;
 tmonth=record
  month:string[12];
  days:array[1..31] of tday;
 end;
你这样子试试看.新建的单元文件默认都是这样的!

Answer 3

谢了各位，另外问个问题，为何用adoquery1空间的时候他不能连续两次执行sql语句，还有就是我利用dbgrid空间想把查询的结果显示出来，老是不能出来，dbgrid的dataset是adoquery1,请指点

Answer 4

为什么要执行两遍？
--------
SQL:='select * from hh';
open//先打开
查询
close//查询完成后就关掉
---------
dbgrid中Columns中每个字段名FieldName要与adoquery1的字段关联

Answer 5

添加 tdatasource 控件datasource1，datasource1.dataset = adoquery1
   dbgrid.datasource  = tdatasource