[code delphi]
procedure Tform1.Table1NewRecord(DataSet:TDataset);
begin
table2.last;
table1.fieldbyname('CustNo').AsInteger :=
table2.fieldbyname('custNo').AsInteger 1;
end;[/code]
如果資料庫是空的 要自動給起始號可以嗎? 在本討論版小弟有查詢過是有相關的例題,是用 Query1 作的,請問各位前輩若直接用 二個Table可以解決這個問題嗎?

[code delphi]
procedure Tform1.Table1NewRecord(DataSet:TDataset);
Var K2:String; K1:integer;
begin
if Table1.FieldByName('CustNo').AsString < '0' Then
begin
Table1.FieldByName('CustNo').AsString := '2014001';
K2:= copy(Table1.FieldByName('CustNo').AsString ,1,7);//轉入字串內容
K1:= StrToInt(K2);//將字串轉成數字
end;
Table2.last;
Table1.fieldbyname('CustNo').AsInteger :=
Table2.fieldbyname('custNo').AsInteger 1; //Key 值自動加一
end;[/code]

===================引 用 K1086 文 章===================

[code delphi]
procedure Tform1.Table1NewRecord(DataSet:TDataset);
begin
table2.last;
table1.fieldbyname('CustNo').AsInteger :=
table2.fieldbyname('custNo').AsInteger 1;
end;[/code]
如果資料庫是空的 要自動給起始號可以嗎? 在本討論版小弟有查詢過是有相關的例題,是用 Query1 作的,請問各位前輩若直接用 二個Table可以解決這個問題嗎?

謝謝分享

我都用
DataSet.FieldByName('ItemNo').AsInteger := DataSet.RecordCount 1;

新增一筆時 RecordCount = 1，因此第一個編號剛好是 1。
必須禁上從中間插入資料，即只能 Append 才會省事。
存檔時，DataSet 必須跑一偏重填一次序號，否則中間有刪除過，序號會不連續。
DataSet.First;
while nto DataSet.EOF do
begin
DataSet.FieldByName('ItemNo').AsInteger := DataSet.RecNo;
DataSet.Next;
end;
DataSet.First;

寫一個函數, 不會花很多時間
// 取得下一個 key
function KeyNext(TableName, FieldName : string):integer;
var q : TFDQuery ;
begin
q := TFDQuery.Create(application);
q.Connection := dm.fdCon;
q.SQL.Text :=
'select max( ' FieldName ') as max_key from ' (TableName) ;
q.Open;
if q.FieldByName('max_key').IsNull then
result := 1
else
result := q.FieldByName('max_key').AsInteger 1 ;
q.Close;
q.Free;
end;

如果你沒有用後端資料庫, Index 偶爾會壞, 資料筆越多, 壞的機率越高
如果你有用後端資料庫, 不適合用 TTable