unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FR_Class, FR_DSet, FR_DBSet, FR_Desgn, DB, ADODB,
Grids, DBGrids;
type
TForm1 = class(TForm)
frprt1: TfrReport;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Button3: TButton;
frDesigner1: TfrDesigner;
frDBDataSet1: TfrDBDataSet;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Button4: TButton;
ds1: TDataSource;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
{ Pri