Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 2.09 » View Incident Report |
Serious |
Reported By: Cronodata Indústria Reported On: 3/29/2001 For: Version 2.08 Build 1 |
unit UTestFloat; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBISAMTb, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; DBISAMTable: TDBISAMTable; DBISAMTableCode: TFloatField; Button3: TButton; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses UCode; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin DBISAMTable.Filter:= 'Code=3873000128'; end; procedure TForm1.FormShow(Sender: TObject); begin //Coloca nome no database do dbisan DBISAMTable.DatabaseName:= ExtractFilePath(Application.ExeName); DBISAMTable.Active:= True; end; procedure TForm1.Button2Click(Sender: TObject); begin code.ShowModal; end; procedure TForm1.Button3Click(Sender: TObject); begin close; 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 |