Advertisement
Advertisement
| 05.01.2008 at 11:00PM PDT, ID: 23370823 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: |
vUserID := 'FS0001';
......
try
if (not EOF) then
begin
//if userID is empty role
if (FieldByName('UserID').IsNull) then
vUserID := FieldByName('UserID').AsString
else
vUserID := 'FS000' + FieldByName('newUserID').AsString;
end
finally
Close;
end;
|