-
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
-
> для простаты стрингами.
!!! это пять! :) -
makz (17.09.12 07:29) [4]аааа! достойно топа башорга.
-
Очередной "ученик" Фаронова-Архангельского
-
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; -
Понятно..
Использование 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]точнее хотел, но зря. был в гневе изза собственных ошибок и осознования собственной глупости.
п.с. ногами не бить! я всеголишь учусь.. -
> ddd (08.10.12 09:41) [11]
..я всеголишь учусь..
С русского начни, потом будет легче. -
ddd (09.10.12 03:25) [13]Jeer ну что за бред? что за негатив?)
это же форум, а не особо важный документ.. отхерачил по клаве несколько слов и enter.орфография, грамматика............сам не юзаешь, такие слова как "юзаешь"? сокращения? не нормативную лексику? итд....
> Понятно..
> Использование DBCombobox религия не позволяет.
что за две точки? -
> ну что за бред? что за негатив
Если хочешь чтобы тебя читали и тем более отвечали - изволь считаться с правилами. -
>ddd (09.10.12 03:25) [13]
>Jeer ну что за бред? что за негатив?)
Jeer © все по делу сказал.
Невразумительное по смыслу , безграмотное, с кучей описок и "олбанизмов" письмо показывает неуважение автора к тем, кому он обращается.