unit ChatSource;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;type
  TChat = class(TDataModule)
    Con: TADOConnection;
    UpUser: TADOQuery;
    InsUser: TADOQuery;
    qryUser: TADOQuery;
    qryTemp: TADOQuery;    qryTempHandle: TIntegerField;
    qryTempUserName: TStringField;
    qryTempHost: TStringField;
    qryTempAddress: TStringField;    Temp: TADOQuery;
    qryTempID: TStringField;    UpTemp: TADOQuery;
    qryUserInfo: TADOQuery;
    qryUserInfoID: TStringField;
    qryUserInfoUserName: TStringField;
    qryUserInfoHost: TStringField;
    qryUserInfoAddress: TStringField;
    qryUserInfoImageIndex: TIntegerField;
    qryUserInfoRe: TMemoField;    qryOffUser: TADOQuery;
    qryTempLogined: TSmallintField;
    qryTempSex: TSmallintField;
    qryUserInfoSex: TIntegerField;    qryUserID: TWideStringField;
    qryUserUserName: TWideStringField;
    qryUserSex: TIntegerField;
    qryUserHost: TWideStringField;
    qryUserAddress: TWideStringField;
    qryUserImageIndex: TIntegerField;
    qryUserRe: TMemoField;
    qryUserLogined: TIntegerField;
    qryUserHandle: TIntegerField;
    RealTemp: TADOQuery;
    qryUserDeleted: TIntegerField;
    procedure DataModuleCreate(Sender: TObject);
    procedure ConAfterConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;我想问一下高手们,TIntegerField类型的变量到里是系统定义的还是用户自己定义的。如果是系统定义的,我做的同样程序系统怎么没有定义这个,如果是用户自定义的,那么请问用户可以把变量定义在TYPE下吗?