Курсовая работа: Создание базы данных "РЭО-ГАИ"

{ Public declarations }

end;

var

Otchety: TOtchety;

otchetnum: integer;

implementation

uses Unit6;

{$R *. dfm}

procedure TOtchety. N1Click (Sender: TObject);

var

c,n: integer;

s,rs: string;

begin

form6. Show;

// leep (10);

for n: =0 to adodataset2. RecordCount-1 do

begin

rs: ='';

s: ='';

if n=0 then

begin

for c: =0 to DBGrid1. Columns. Count-1 do

begin

s: =DBGrid1. Columns [c]. FieldName+ '';

rs: =rs+s;

end;

form6. Memo1. Lines. Add (rs);

rs: ='';

s: ='';