Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.02 » View Incident Report |
Serious |
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 Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |