• ddd (16.09.12 13:29) [0]
    Здравствуйте! У меня для вас очень простой вопрос от начинающего коллеги, прям совсем начинающего. голова совсем не варит чтото, даже сформулировать вопрос не могу нормально, но постараюсь:
    существуют две связанные таблицы "отдел" и "сотрудники":
    табл1(otdel): id_otd, name
    табл2(sotr): id_otd, fio, tel.....
    остановился на след моменте:
    нужно при нажатии на кнопку "button" добавить запись в табл2(sotr) введеные в Edit и значение соответствующее выбранного в combobox.
    т.е. итемсы в комбобоксе состоят из столбца name таблицы1(otdel), после нажатия кнопки "button" в таблицу2(sotr) должна добавиться новая запись с edit1.text в поле fio итд.., а в поле id_otd должно добавиться значение соответствующее выбранному name в comboboxe.
    т.е. в комбобоксе я выбираю "Охрана" а добавить он должен "2", потомучто в табл1(otdel) id_otd:='2' name:='Охрана',  id_otd:='3' name:='водители' итд.
    edit добавляются на ура, не могу понять как поступить с этой мутью в combobox.
    итемсы в комбобоксе:
    dm1.ADOQuery5.Active:=false;
    dm1.ADOQuery5.SQL.Text:='Select * from otdel';
    dm1.ADOQuery5.Active:=true;

    ComboBox1.Items.Clear;
     While not dm1.ADOQuery5.Eof do
     begin
        ComboBox1.Items.Add(dm1.ADOQuery5.Fields[1].AsString);
        dm1.ADOQuery5.Next;



    Добавление записи:
    dm1.ADOQuery4.SQL.Text:=
     '(INSERT INTO sotr (fio, email, adres, tel, date_r, date_w, date_y, date_l, id_otd)'
    + ' VALUES (' + QuotedStr(Edit1.text) + ',' + QuotedStr(Edit2.text) + ','
    + ' ' + QuotedStr(Edit3.text) + ',' + QuotedStr(Edit4.text) + ','
    + ' ' + QuotedStr(Edit5.text) + ',' + QuotedStr(Edit6.text) + ','
    + ' ' + QuotedStr(Edit7.text) + ',' + QuotedStr(Edit8.text) + ',))';
    dm1.ADOQuery4.ExecSQL;



    от отчаяния в голове вертиться тока:
    if cb1.text:='охрана' then .....итд :)


    в таблице1(otdel) только 3 записи и они не меняются
    п.с. не обращайте внимания на типы полей, они созданы для простаты стрингами.
  • Германн © (16.09.12 13:55) [1]
    cb1.Items[cb1.ItemIndex]

  • Германн © (16.09.12 14:00) [2]
    Или просто
    cb1.ItemIndex

  • sniknik © (16.09.12 15:01) [3]
    > для простаты стрингами.
    !!! это пять! :)
  • makz (17.09.12 07:29) [4]
    аааа! достойно топа башорга.
  • MsGuns © (17.09.12 12:30) [5]
    Очередной "ученик" Фаронова-Архангельского
  • ddd (18.09.12 15:30) [6]
    мда. спасибо "мастера", "помогли"..
  • AV © (19.09.12 10:22) [7]

    > ddd   (18.09.12 15:30) [6]
    > мда. спасибо "мастера", "помогли"..

    Тут все устали говорить про параметры в запросах. Думаю, Николай только поэтому ничего не ответил :)

    А некоторые - читать длинные речи, суть которых можно пересказать 2 мя словами.
    "Как привязать к Item комбобокса некое значение?"
    Вот при чем тут было ADO, Access, т.п.

    например, так можно
    procedure TFrm_PrV.Button1Click(Sender: TObject);
    var
     i: Integer;
    begin
     ComboBox1.Clear;
     ADOQuery1.SQL.Text := 'select ''Otdel1'' union select ''Otdel2'' union select ''Otdel3'' ';
     ADOQuery1.Open;
     i := 0;
     while not(ADOQuery1.Eof) do
     begin
       ComboBox1.Items.AddObject(ADOQuery1.Fields[0].AsString, TObject(i*10)); // но не пытайтесь обратиться к нему :)
       inc(i);
       ADOQuery1.Next;
     end;
    end;

    procedure TFrm_PrV.ComboBox1Change(Sender: TObject);
    begin
     ShowMessage( IntToStr( LongInt( ComboBox1.Items.Objects[ComboBox1.ItemIndex] )));
    end;
  • Jeer © (19.09.12 12:49) [8]
    Понятно..
    Использование DBCombobox религия не позволяет.
  • Германн © (20.09.12 02:53) [9]

    > ddd   (18.09.12 15:30) [6]
    >
    > мда. спасибо "мастера", "помогли"..
    >

    мда, пожалуйста. Пошёл против своей натуры ответив на вопрос троешника. А в ответ только оскорбления. :(
  • ddd (08.10.12 09:39) [10]
    Германн, извините если обидел, текст 'мда. спасибо "мастера", "помогли"..' был адресован не вам, да и ни кому он не был адресован.
    извините кого задел, не хотел
  • ddd (08.10.12 09:41) [11]
    точнее хотел, но зря. был в гневе изза собственных ошибок и осознования собственной глупости.
    п.с. ногами не бить! я всеголишь учусь..
  • Jeer © (08.10.12 15:05) [12]

    >  ddd   (08.10.12 09:41) [11]
    ..я всеголишь учусь..


    С русского начни, потом будет легче.
  • ddd (09.10.12 03:25) [13]
    Jeer ну что за бред? что за негатив?)
    это же форум, а не особо важный документ.. отхерачил по клаве несколько слов и enter.орфография, грамматика............сам не юзаешь, такие слова как "юзаешь"? сокращения? не нормативную лексику? итд....

    > Понятно..
    > Использование DBCombobox религия не позволяет.

    что за две точки?
  • Jeer © (09.10.12 10:02) [14]

    > ну что за бред? что за негатив


    Если хочешь чтобы тебя читали и тем более отвечали - изволь считаться с правилами.
  • MsGuns © (09.10.12 17:26) [15]
    >ddd   (09.10.12 03:25) [13]
    >Jeer ну что за бред? что за негатив?)

    Jeer ©  все по делу сказал.
    Невразумительное по смыслу , безграмотное, с кучей описок и "олбанизмов" письмо показывает неуважение автора к тем, кому он обращается.
Есть новые Нет новых   [120437   +118][b:0][p:0.001]