|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2008, 17:28 | #1 |
Новичок
Джуниор
Регистрация: 25.05.2008
Сообщений: 2
|
В Edit - Inicial и Year в соответствии с выбранной записью в комбобоксе
Привет.
Решил попробовать свои силы в Delphi даже купил книжку но не все в ней понятно. Создаю проэкт все идет нормально не нарадуюсь, но как только дело дошло до баз данных застрял уже второй день эксперементирую. Создал базу данных "Парадокс", в ней поля Famil, Inicial, Year. На форме: Кнопка, Комбобокс и два едита. Содержимое поля Famil в комбобокс загрузить смог а вот чтобы в едитах прописывались Inicial и Year в соответствии с выбранной записью в комбобоксе не получается. Я знаю что это наверняка плевое дело но все же подсобите если можно. procedure TForm1.Button1Click(Sender: TObject); var i:word; begin ComboBox1.Clear; Form1.Table1.RecNo:=1; ComboBox1.Text:=Form2.Table1.FieldB yName('Famil').AsString; for i:=1 to Form1.Table1.RecordCount do begin Form1.Table1.RecNo:=i; if Form1.Table1.FieldByName('Famil').A sString<>'' then ComboBox1.Items.Add(Form1.Table1.Fi eldByName('Famil').AsString); end; |
25.05.2008, 18:10 | #2 |
Пользователь
Регистрация: 18.04.2008
Сообщений: 70
|
ты вместо простого комбо возьми c datacontrols DBLookupComboBox там в свойствах listsourse,listfield и keyfield выбери что надо чтоб вручную не вормировать.и в свойстве click пиши
Table1.Locate('famil',DBlookupCombo Box1.Text,[]); edit1.text:=table1.fieldbyname('ini cial').asstring; edit1.text:=inttostr(table1.fieldby name('Year').asinteger); Последний раз редактировалось Gladiator; 25.05.2008 в 19:20. |
26.05.2008, 03:49 | #3 |
Новичок
Джуниор
Регистрация: 25.05.2008
Сообщений: 2
|
Спасибо, буду пробовать!
Как все просто аж стыдно за вопрос. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача с записью | |v||v|<<IpShot | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 23.08.2008 17:02 |
Проблема с записью в реест | eks-s | Общие вопросы Delphi | 4 | 02.02.2008 13:42 |
Объясните, пожалуйста смысл строки - res=d.year > year ? -1: (d.year < year? 0:1) | Fynj | Помощь студентам | 2 | 17.12.2007 17:50 |
Как раскрасить ячейки StringGrid'а в разные цвета в соответствии с условием? | monushka | Компоненты Delphi | 12 | 05.11.2007 23:44 |