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

Label5: TLabel;

Label8: TLabel;

Label3: TLabel;

ComboBox4: TComboBox;

Label11: TLabel;

Label12: TLabel;

ComboBox5: TComboBox;

Label14: TLabel;

Label15: TLabel;

ComboBox6: TComboBox;

BitBtn1: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

{ Private declarations }

public

{ Public declarations }

end;

var

Spravka: TSpravka;

sum1, sum2, sum3: boolean;

implementation

{$R *. dfm}

procedure TSpravka. BitBtn1Click (Sender: TObject);

begin

sum1: =false;

sum2: =false;

sum3: =false;

if ComboBox4. Text<>'' then sum1: =true;

if ComboBox5. Text<>'' then sum2: =true;

if ComboBox6. Text<>'' then sum3: =true;