Таблица 2.6 Продажа - avto_out.dbf
Наименование поля
Тип
Размер
Назначение
* Kod_out
Number
6
Код продажи
Data
Date
Дата продажи
Marka_out
Код марки
Model_out
Character
20
Модель автомобиля
V_out
5
Объем двигателя
Cvet_out
Цвет
Tipkuz_out
Тип кузова
Cena
10
Цена
Таблица 2.7 Марки автомобилей - marka.dbf
* Kod_marka
Marka
Марка автомобиля
Имя набора данных в программе
Имя набора данных на внешнем носителе
Длина записи набора данных (в байтах)
Тип файла
Метод доступа
Vlad
vladelec.dbf
155
Dbase IV
Произвольный
Sot
sotrud.dbf
63
Avto
avto.dbf
140
Avto_in
avto_in.dbf
36
Complect
komplect.dbf
>52
Auto_out
avto_out.dbf
93
Marka.bdf
26
Обозначение
Примечание
1
2
3
Информация о владельцах
Информация о менеджерах
Информация об автомобилях
Регистрация автомобиля
Комплектация автомобиля
Проданные автомобили
Справочник марок автомобилей
Схема 3.1
Схема 3.2
Идентификатор
Смысловое содержание
Разрядность
Main.path
Путь к папке программы
string
Add.pic1
Путь к первому изображению
String
Add.pic2
Путь ко второму изображению
Del. AppProgID
Идентификатор приложения Microsoft Excel
Del.App
Указатель на приложение Microsoft Excel
Variant
Del.Ke
Указатель на рабочую книгу Microsoft Excel
Del.Abc
Указатель на лист Microsoft Excel
Del.Result
Предназначена для проверки удачной активизации приложения Mcirosoft Excel
HResult
Del.i
Счетчик цикла
integer
Запрос на выборку автомобилей по необходимым критериям формируется динамически, в зависимости от выбранных параметров поиска.
procedure TFSearch.LMDButton1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
try
Query1.Sql.Add('select a.kod_avto, m.marka, a.model, a.cvet, a.tip_kuz, a.cena, a.v, k.korobka,k.privod ');
Query1.SQL.Add('from avto a, komplect k, marka m ');
Query1.SQL.Add('where ');
if checkBox9.Checked then Query1.SQL.Add('a.marka = '+ Inttostr(DBLookupComboBox1.keyvalue)+' and');
if checkBox10.Checked then Query1.SQL.Add('a.tip_kuz="'+ComboBox1.Text+
'" and ');
if checkBox11.Checked then Query1.SQL.Add('a.v<='+Edit1.Text+' and ');
if checkBox12.Checked then Query1.SQL.Add('a.cena<='+Edit2.Text+' and ');
if checkBox4.Checked then Query1.SQL.Add('k.elect_pak = '+
BoolToStr(CheckBox17.Checked)+' and ');
if checkBox5.Checked then Query1.SQL.Add('k.kondic = '+
BoolToStr(CheckBox16.Checked)+' and ');
if checkBox6.Checked then Query1.SQL.Add('k.music = '+ BoolToStr(CheckBox15.Checked)+' and ');
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18