Class TCountTable (unit CntTable) |
TTable
**********************************} { TCountTable = class(TTable) } { Giovanni Burzomato } { Luigi Menghini } { e-mail : lume@tn.village.it } {
Constructors |
Functions |
add the suffix '_NO'
build the name of the file .
looks for the file .
Properties |
Events |
Variables |
Constructors |
Functions |
if FAutoFieldName <> '' save the current value in FCurrCountStr
add the suffix '_NO'
first TCountTable.Open looks for the file FileName.MAX } { if it doesn't exist rebuild it.
If the xxx_NO field exists save the current value into FCurrCountStr
ReadIncCounter verify if exists the file TableName.MAX
in case of a Client/Server application tries to open exclusive } { the .MAX file.
name of the file counter TableName.MAX
BuildAutoFieldName build the name of the autoincresing field
build the name of the file .MAX
BuildMAXFileName build FMaxFileName
looks for the file .MAX
Properties |
Events |
Variables |
internal counter set to 0 at CreateTable
name of the autoincreasing field
FCurrCountStr save the current value of the autoincreasing field } { if state is dsEdit to overwrite it at DoBeforeEdit.