![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.02 » View Incident Report |
![]() |
Reported By: Uli Becker Reported On: 2/13/2009 For: Version 2.02 Build 7 |
procedure TForm1.Button1Click(Sender: TObject); begin with SelectQuery do begin close; RequestSensitive := false; sql.clear; sql.add('select SOPInstanceUID, ObjectFile from '+ 'DicomImages where Backup = false'); open; end; caption := IntToStr(SelectQuery.RecordCount); with MarkQuery do begin close; sql.clear; sql.add('update DicomImages set Backup = true '+ 'where SOPInstanceUID = :CurrentUID'); prepare; end; SelectQuery.first; while not SelectQuery.EOF do begin with MarkQuery do begin ParamByName('CurrentUID').asString := SelectQuery.FieldByName('SOPInstanceUID').AsString; ExecSQL; end; SelectQuery.next; caption := IntToStr(SelectQuery.RecordCount); Application.ProcessMessages; end; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy Policy![]() © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |