TDBQuery = class(TQuery)
private
{ Private declarations }
FTableName:string;
FKeyField:string;
FKeyValue:String;
FFieldList:TRFields;
FDBState:TEditType;
Fcode:String;
FKeyFields:String;
Fnewcode:String;
FSQLCommatext:String;
FSQLText:TSQLText;
FIDField:String;
FIDFieldlength:Integer; //0 idfieldtype is int; >0 idfieldtype is string
FNoField:String;
FMenuField:String;
FTitle:String;
FUpdateSQL:TUpdateSQL;
FFieldMut:TStringList;
FFieldstring:String;
FPageheadLeft:String;
FPageheadRight:String;
FPageMiddle:String;
FPagefootLeft:String;
FPagefootRight:String;
FBookMark:TBookmark;
FAutoNewId:Boolean;
FSysTable:Boolean;
FprintField:TStringList;
FMaxRowCount:Integer;
FOnFieldChange:TDBQueryFieldChange;
FafterCreateRfield: TNotifyEvent;
procedure SetTableName(Value: string);
procedure SetKeyField(Value: string);
procedure SetKeyValue(Value: String);
procedure CreateDataSet;
procedure CreateDBFields;
procedure CreateFieldList;
procedure setnewcode(Value:String);
procedure NewRecord(value:TDataSet);
procedure Fieldchange(Value:TField);
procedure setdatatext(Sender: TField; const Text: string);
procedure SetFieldMut(value:String);
Function locateLookFieldSet(value:TRField):TQuery;
function createlookfieldList(value:TRField):String;
function BGetFieldType(PField:String):String;
Procedure CreateUpdateSqlCommatext;
Procedure SetDBState(Value:TEditType);
procedure SetDBQActive;
procedure ClearDBQ;
procedure SetMessageTo(value:TComponent);
procedure SetMessageToScreen;
procedure SetKeyFieldS(const Value: string);
function GetTFieldFromRField(Pfield:TRField):TField;
function ReadIDField: String;
procedure SetIDFIeld(const Value: String);
procedure SetMaxRowCount(const Value: Integer);
procedure ExecFieldMuilt;
procedure SetafterCreateRfield(const Value: TNotifyEvent);
protected
procedure DoBeforeopen; override;
procedure doafteropen; override;
{ Protected declarations }
public
Function CreateLookFieldSet(value:TRField):TQuery;
function PFieldByName(PField:String):TRField;
procedure SetFieldVisible(PField:String);
function PFieldIndexByName(PField:String):Integer;
procedure PFieldToListFirst(PField:String);
property UpdateSQL:TUpdateSQL read FUpdateSQL;
procedure AddSqlWhereLike(ParaField:String;ParaValue:String);
procedure AddSqlWhereOther(ParaWhereString:string);
procedure DeleteWhereOther(ParaWhereString:string);
procedure AddSqlWhereNotLike(ParaField:String;ParaValue:String);
procedure AddSqlWhereEquote(ParaField:String;ParaValue:String);
procedure AddSqlWhereNotEquote(ParaField:String;ParaValue:String);
procedure AddSqlWherebetween(ParaField:String;Para0,Para9:String);
procedure AddSqlWhereNotbetween(ParaField:String;Para0,Para9:String);
procedure AddSqlWhereSmall(ParaField:String;ParaValue:String);
procedure AddSqlWhereBig(ParaField:String;ParaValue:String);
procedure DelSqlWhereField(ParaField:String);
procedure DelSqlOrderField(ParaField:String);
procedure DelSqlGroupField(ParaField:String);
procedure DelSqlallField;
procedure addcode;
property afterCreateRfield:TNotifyEvent read FafterCreateRfield write SetafterCreateRfield;
property SysTable:Boolean read FSysTable write FSysTable;
property AutoNewId:Boolean read FAutoNewId write FAutoNewId;
property BookMark:TBookmark read FBookMark write FBookMark;
procedure AddSqlWhereIn(ParaField:String;ParaValue:String);
procedure AddSqlWherenotIn(ParaField:String;ParaValue:String);
property MaxRowCount:Integer read FMaxRowCount write SetMaxRowCount;
property OnFieldChange:TDBQueryFieldChange read FOnFieldChange write FOnFieldChange;
procedure AddSqlOrder(ParaField:String);
procedure AddSqlGroup(ParaField:String);
procedure CreateSqlCommatext;
// GetSubCommatext:String; //2008-05-04 取from 后面的部分
function GetWhere:String;
procedure SetPFieldReadOnly(PField:String;PValue:Boolean);
function getnewcode(ParaTable:String):string;
procedure createOLookupDataset(Value:TRField);
procedure savenewcode(ParaTable:String;Paracode:String);
property PageheadLeft:String read FPageheadLeft write FPageheadLeft;
property PageheadRight:String read FPageheadRight write FPageheadRight;
property PageMiddle:String read FPageMiddle write FPageMiddle;
property PagefootLeft:String read FPagefootLeft write FPagefootLeft;
property PagefootRight:String read FPagefootRight write FPagefootRight;
property KeyFieldS:string read FKeyFieldS write SetKeyFieldS; //updatesql的where 條件
uj5u.com熱心網友回復：
這是問題嗎？？轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/22554.html
標籤：VCL組件開發及應用