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

procedure TProcedury.comboBox4Change (Sender: TObject);

var

i: integer;

begin

for i: =0 to ComboBox4. Items. Count do

if ComboBox4. ItemIndex=i then ComboBox2. ItemIndex: =i;

end;

procedure TProcedury. SpeedButton1Click (Sender: TObject);

begin

adodataset1. Active: =false;

adodataset1.commandText: ='execute Vyboravto1';

adodataset1. Active: =true;

end;

procedure TProcedury. SpeedButton2Click (Sender: TObject);

begin

adodataset1. Active: =false;

adodataset1.commandText: ='execute Vyboravto2 '''+ combobox1. Text + ''',''' + combobox2. Text +''' ';

adodataset1. Active: =true;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;

type

TSpravka = class (TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;