Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 3.16 » View Incident Report |
Serious |
Reported By: Sandro Reported On: 9/5/2002 For: Version 3.15 Build 1 |
procedure TForm1.FormCreate(Sender: TObject); begin with DBISAMDatabase1 do begin Connected:=false; Directory:=ExtractFilePath(Application.Exename)+'data'; Connected:=true; end; SpeedButton1Click(Sender); end; procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept:=(Edit1.text='') or ((Edit1.text<>'') and (pos(Edit1.text, Table1Name.value)<>0)); end; procedure TForm1.Edit1Change(Sender: TObject); var z:integer; begin z:=Table1Key.value; Table1.refresh; if not Table1.locate('Key',z,[]) then Table1.first; end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin with Table1 do begin close; IndexName:=''; filtered:=true; open; Edit1.text:=''; SpeedButton1.down:=true; end; end; procedure TForm1.SpeedButton2Click(Sender: TObject); begin with Table1 do begin close; IndexName:='IdxName'; filtered:=true; open; Edit1.text:=''; SpeedButton2.down:=true; end; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |