3.5. Главная форма программы
На главной форме располагаются следующие компоненты:
Компонент Image1 позволяет наглядно увидеть ту модель автомашин, которую вы выбираете, хранящуюся в базе данных в графическом формате.
Компонент TMemo – поле редактирования, компонент может отображать только строки, которые целиком видны по высоте.
Компонент Label (их в форме два) используются для написания надписи на форме (например, каталог легковых автомобилей).
Компонент DBNavigator используется для упрощения перемещения по таблице.
Компонент ComboBox1 представляет собой комбинированный список данных, хранящийся в базе данных.
Компонент DBGrid1 отображает списки марок и моделей машин.
Компонент BitBtn1 при его нажатии показываются данные о фирме производителе.
Компонент Image2 позволяет увидить символ марки машины.
Компонент Groupbox1 объединяет все компоненты в определенную группу.
Компонент SpeedButton1 при его нажатии открываются данные о модели машины.
Компонент Button кнопка для закрытия формы.
3.6 Краткое описание кодов
Данные о фирме:
begin
vPathFIR:='firms\InfoFir\' +Table1.FieldByName('Firm').Value + '.html';
ShellExecute(0, 'open', PChar(vPathFIR) , nil , nil , 0);
end;
Фильтрация по маркам машин:
begin
With ComboBox1 do begin
// Суть какова
//если выбран нулевой пункт то снять фильтрацию
if ItemIndex=0 then begin
Table1.Filtered:=false;// выключить фильтр
vSetFtr:='';
end;
//если выбран первый пункт то установить фильтрацию по фирме ACURA
if ItemIndex=1 then begin
Table1.Filtered:=True; // включить фильтр
vSetFtr:='[Firm]=' + chr(39) + 'ACURA' + chr(39);
Table1.Filter:=vSetFtr;
end;
if ItemIndex=2 then begin
Table1.Filtered:=True;
vSetFtr:='[Firm]=' + chr(39) + 'AUDI' + chr(39);
Table1.Filter:=vSetFtr;
end;
if ItemIndex=3 then begin
Table1.Filtered:=True;
vSetFtr:='[Firm]=' + chr(39) + 'BMW' + chr(39);
Table1.Filter:=vSetFtr;
end;
// И так далее……
Поиск в базе:
begin
case ComboBox1.ItemIndex of
0: if not Table1.Locate('model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
1: if not Table1.Locate('model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
2: if not Table1.Locate('Model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
3: if not Table1.Locate('Model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
4: if not Table1.Locate('Model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
5: if not Table1.Locate('Model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
6: if not Table1.Locate('Model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
7: if not Table1.Locate('Model', AnsiUpperCase(Edit1.Text), [loCaseInsensitive,
loPartialKey]) then ShowMessage('Запись не найдена');
// И так далее….
Для закрытия формы:
begin
close;
end;