請教ADOStoredProc執行問題... |
|
nbaba
一般會員 發表:2 回覆:2 積分:0 註冊:2002-06-07 發送簡訊給我 |
請教同樣參數值['LoginDate']
為何程式執行後只在第一次取值正確
而在UpdateStatePersonnel新增一筆以後
spNewPersonnelUpdateID.FieldValues['NewUpdateID']就一直為NULL ADOStoredProc設定如下:
object spNewPersonnelUpdateID: TADOStoredProc
..Connection = cnHR
..ProcedureName = 'vNewPersonnelUpdateID'
..Parameters = <
....item
......Name = 'LoginDate'
......Size = -1
......Value = Null
....end>
..Left = 408
..Top = 232
end vNewPersonnelUpdateID的SQL Script如下:
SELECT Max([UpdateID]) 1 AS NewUpdateID
FROM UpdateStatePersonnel
WHERE UpdateID Like [:LoginDate]; 產生新流水號程式如下:
function TfmdmHR.GetUpdateStatePersonnelNewUpdateID: String;
begin
..with spNewPersonnelUpdateID do
..begin
....Parameters.ParamValues['LoginDate']:= UserInformation.LoginDate '%';
....Active := True;
....if VarIsNull(FieldValues['NewUpdateID'])
....then
......Result := UserInformation.LoginDate '001'
....else
......Result := FieldValues['NewUpdateID'];
....Active := False;
..end;
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |