Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.21 » View Incident Report |
Minor |
Reported By: Martijn Mulder Reported On: 5/2/2005 For: Version 4.19 Build 1 |
procedure TForm2.BitBtn1Click(Sender: TObject); var MemTable: TDBISAMTable; begin MemTable := TDBISAMTable.Create(DataOverzicht); MemTable.FieldDefs.Add('OWINKEY', ftString, 8, True); MemTable.FieldDefs.Add('OWINVolgNr', ftInteger, 0, True); MemTable.FieldDefs.Add('MaatschappijOWINKEY', ftString, 8, True); MemTable.DatabaseName := 'MEMORY'; MemTable.TableName := 'Test.dat'; MemTable.CreateTable; MemTable.Exclusive := True; MemTable.Open; MemTable.Append; MemTable.FieldByName('OWINKey').AsString := 'C 1'; MemTable.FieldByName('OWINVolgnr').AsInteger := 2000; MemTable.FieldByName('MaatschappijOWINKey').AsString := 'M S049'; MemTable.Post; MemTable.Append; MemTable.FieldByName('OWINKey').AsString := 'C 1'; MemTable.FieldByName('OWINVolgnr').AsInteger := 3000; MemTable.FieldByName('MaatschappijOWINKey').AsString := 'M S049'; MemTable.Post; MemTable.Append; MemTable.FieldByName('OWINKey').AsString := 'C 1'; MemTable.FieldByName('OWINVolgnr').AsInteger := 1000; MemTable.FieldByName('MaatschappijOWINKey').AsString := 'M A059'; MemTable.Post; MemTable.Append; MemTable.FieldByName('OWINKey').AsString := 'C 1'; MemTable.FieldByName('OWINVolgnr').AsInteger := 1000; MemTable.FieldByName('MaatschappijOWINKey').AsString := 'M A059'; MemTable.Post; MemTable.Filter := 'MAATSCHAPPIJOWINKEY=''M A059'''; MemTable.Filtered := True; ShowMessage('After 1ste filter: ' + IntToStr(MemTable.RecordCount)); MemTable.Filtered := false; MemTable.EmptyTable; MemTable.Append; MemTable.FieldByName('OWINKey').AsString := 'C 11'; MemTable.FieldByName('OWINVolgnr').AsInteger := 1000; MemTable.FieldByName('MaatschappijOWINKey').AsString := 'M S049'; MemTable.Post; MemTable.Filter := 'MAATSCHAPPIJOWINKEY=''M A059'''; MemTable.Filtered := True; Showmessage('After 2de filter:'+ IntToStr(MemTable.PhysicalRecordCount)+'-'+ IntToStr(MemTable.RecordCount)+'-'+ IntToStr(MemTable.FilterRecordCount)); 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 |