คำสั่ง SQL สำหรับให้เริ่มต้นลำดับตามจำนวนที่ต้องการ
private
{ Private declarations }
{ ประกาศตัวแปร }
function countDocId:Integer;
public
{ Public declarations }
{ เขียน Fuction ดังนี้ }
function TSaleOrder_F.countDocId: Integer;
begin
with Dm_F do begin
with qryMDF do begin
Close;
SQL.Clear;
SQL.Text := 'select ISNULL(MAX(ID)+1, 1000 ) as NewID from [MDF].[dbo].[SELL_ORDER_MST]';
ExecSQL ;
Open;
Result := StrToInt(Fields[0].AsString) ;
end;
end;
end;
{ เขียน Fuction ดังนี้ }
อธิบาย Query : ทำการเช็คในตาราง [MDF].[dbo].[SELL_ORDER_MST] ที่คอลัม ID ถ้าว่างให้เริ่มที่ 1000 ถ้าไม่ว่างจะใช้คำสั่ง MAX() และ + ข้อมูลเพิ่มไปทีละ 1
ไม่มีความคิดเห็น:
แสดงความคิดเห็น