function TfrmM0AllowType._getRfNo(Bus_date: String): String;
  var
    FakeQ : TQuery ;
begin
  FakeQ := TQuery.Create(nil);
  FakeQ.DatabaseName := 'DB';
  FakeQ.SessionName := DM.Database1.SessionName;
  with FakeQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' select max(convert(int,substring(RFNO,9,2))) as myvalue from REFUND_M ');
    SQL.Add(' where substring(RFNO,1,8) = :SKEY');
    ParamByName('SKEY').AsString := Bus_date; //ex: 20030328
    Open;
  end;//with
  if FakeQ.IsEmpty then Result := Bus_date '01'  //<- 第一筆
  else
    Result := Bus_date _AddZero(IntToStr(FakeQ.FieldByName('myvalue').AsInteger 1),2);
end;    

引言: 請問各位大大: 我使用一個DBEdit呈現資料庫的bus_no主鍵,這一個dbedit不讓使用者輸入,序號為資料庫自動產生,他的格式為(系統時間 序號),例今天第一筆為2003032801,第二筆為2003032802,第三筆為2003032803....明天第一筆為2003032901,第二筆為2003032902,第三筆為2003032903....請問各位要如要撰寫...

var
  aBus_No: String;//取得目前的編號
with Query1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('Select Max(Bus_No) MaxNo From TalbeName Where Bus_No like ' #39 FormatDateTime('YYYYMMDD',Date) '%' #39);
  Open;
  if FieldByName('MaxNo').AsString <> '' then
    aBus_No := FormatDateTime('YYYYMMDD',Date) FormatFloat('00',StrToInt(Copy(FieldByName('MaxNo').AsString,9,2)) 1)
  else
    aBus_No := FormatDateTime('YYYYMMDD',Date) '01';
end;

引言: 我使用一個DBEdit呈現資料庫的bus_no主鍵,這一個dbedit不讓使用者輸入,序號為資料庫自動產生,他的格式為(系統時間 序號),例今天第一筆為2003032801,第二筆為2003032802,第三筆為2003032803....明天第一筆為2003032901,第二筆為2003032902,第三筆為2003032903....請問各位要如要撰寫...

若 bus_no 為 varchar(10)
select 
case 
  when left(max(bus_no),8) = convert(varchar, getdate(), 112) then convert(varchar, convert( int, max(bus_no)) ＋ 1)
  else  convert(varchar, getdate(), 112) ＋ '01' 
end
from table1    修改你的 UpdateSQL component 中的 insert 為:    insert into table1
(bus_no, v1, v2, v3)
values
(
select 
case 
  when left(max(bus_no),8) = convert(varchar, getdate(), 112) then convert(varchar, convert( int, max(bus_no)) ＋ 1)
  else  convert(varchar, getdate(), 112) ＋ '01' 
end
from table1,
:v1, :v2, :v3
)
若 bus_no 為 int 時, 則使用:
select 
case 
  when left(convert(varchar,max(bus_no)),8) = convert(varchar, getdate(), 112) then max(bus_no) ＋ 1
  else  convert(int, convert(varchar, getdate(), 112) ＋ '01' )
end
from table1
修改 UpdateSQL 的方式相同..

引言: 請問這一段程式是寫在哪一個元件的Event中...

引言: 請問這一段程式是寫在哪一個元件的Event中...

引言: 你可以寫一個function,參數傳入當日日期 利用此日期去下sql把當日最大的序號找出來 如果沒有 則 (日期 '01') 如果有 則 (最大的序號 1); 下面是我節錄我開發專案內剛好用到的一段 內容你參考看看 如果你可以了解且符合你的需求 稍微修改一下即可 舉例 :(MSSQL)

function TfrmM0AllowType._getRfNo(Bus_date: String): String;
  var
    FakeQ : TQuery ;
begin
  FakeQ := TQuery.Create(nil);
  FakeQ.DatabaseName := 'DB';
  FakeQ.SessionName := DM.Database1.SessionName;
  with FakeQ do
  begin
    Close;
    SQL.Clear;
    SQL.Add(' select max(convert(int,substring(RFNO,9,2))) as myvalue from REFUND_M ');
    SQL.Add(' where substring(RFNO,1,8) = :SKEY');
    ParamByName('SKEY').AsString := Bus_date; //ex: 20030328
    Open;
  end;//with
  if FakeQ.IsEmpty then Result := Bus_date '01'  //<- 第一筆
  else
    Result := Bus_date _AddZero(IntToStr(FakeQ.FieldByName('myvalue').AsInteger 1),2);
end;    

PS: _AddZero 是不足位補0的function 天行健 君子當自強不息~~@.@ 發表人 - t.j.b 於 2003/03/28 17:05:50 發表人 - t.j.b 於 2003/03/28 17:21:34