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下吗?
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下吗?
写好的语句,打开了数据库之后,右击DataSet组件,添加fields,就会生成这些。CSDN论坛浏览器:http://CoolSlob.ys168.com/