Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Розробка експертної системи за вибором мобільного телефону

Реферат Розробка експертної системи за вибором мобільного телефону





ан

Adotable1.Filtered:=true; .Filter:=a31;

begin :=0; .First;

while adotable1. Eof lt; gt; true do//Реалізуємо лічильник підрахунку

відфільтрованих записів по

begin //за схемою циклу з умовним переходом

a52:=a52 + 1; 1.Next;// Перехід на початок циклу

end;

end;

Form2.Edit1.Text:=inttostr (a52);// На висновок кол-ва телефонів на форме2

if a00 lt; gt; 0 then //якщо довжина рядка не порожня, т.е вибрано, то. Hide;// приховуємо форму1

if a00 lt; gt; 0 then //якщо довжина рядка не порожня, т.е вибрано, то. ShowModal;// відображаємо форму2

if a00=0 then //якщо довжина рядка порожня, т.е не визначена параметр, то.Show;// відображаємо форму1

if a00=0 then //якщо довжина рядка порожня, т.е не визначена параметр, то.Hide;// приховуємо форму2

end; //формуємо змінні по випадаещему списку

procedure TForm1.ComboBox1Change (S end er: TObject);

begin := Виробник= + QuotedStr (combobox1.Text);// Записуємо в

змінну а11 і т.д а12 ... а22

if combobox1.Text= then

a11:= raquo ;;

end;

procedure TForm1.ComboBox2Change (S end er: TObject);

begin

if combobox2.Text= Так then := [FM радіо]= + QuotedStr ( є );

if combobox2.Text= Ні then := [FM радіо]= + QuotedStr (combobox2.Text);

if combobox2.Text= then := raquo ;;

end;

procedure TForm1.ComboBox3Change (S end er: TObject);

begin := Колір= + QuotedStr (combobox3.Text);

if combobox3.Text= then := raquo ;;

end;

procedure TForm1.ComboBox4Change (S end er: TObject);

begin := [Тип корпусу]= + QuotedStr (combobox4.Text);

if combobox4.Text= then := raquo ;;

end;

procedure TForm1.ComboBox5Change (S end er: TObject);

begin := [Сенсорний екран]= + QuotedStr (combobox5.Text);

if combobox5.Text= then := raquo ;;

end;

procedure TForm1.ComboBox6Change (S end er: TObject);

begin := [Підтримка двох SIM карт]= + QuotedStr (combobox6.Text);

if combobox6.Text= then := raquo ;;

end;

procedure TForm1.ComboBox7Change (S end er: TObject);

begin := [MP3 плеєр]= + QuotedStr (combobox7.Text);

if combobox7.Text= then := raquo ;;

end;

procedure TForm1.ComboBox8Change (S end er: TObject);

begin := Wi-Fi= + QuotedStr (combobox8.Text);

if combobox8.Text= then := raquo ;;

end;

procedure TForm1.ComboBox9Change (S end er: TObject);

begin := Bluetooth= + QuotedStr (combobox9.Text);

if combobox9.Text= then := raquo ;;

end;

procedure TForm1.ComboBox10Change (S end er: TObject);

begin := [3G]= + QuotedStr (combobox10.Text);

if combobox10.Tex...


Назад | сторінка 11 з 12 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Creation of control system by a personnel how to begin with a zero
  • Реферат на тему: Procedure of preparation business-plan