Здравствуйте эксперты! Помогите разобраться с DBGrid-oм.У меня есть такой компонент TPageControl т.е. несколько вкладок(TabSheet1,TabSheet2...) на них находятся таблицы Table1,Table2... т.е. DBGrid1,DBGrid2,....Мне надо сделать кнопочку TButton(добавить запись) чтобы при её нажатии, запись предположим записанная в Edit(находится за пределами TPageControl) добовлялась только в активную таблицу(вкладку) Я пишу примерно так: procedure TForm1.BitBtn1Click(Sender: TObject); case PageControl1.TabIndex of 1:IF Table1.Locate('Автор',StrToInt(edit1.Text),[loCaseInsensitive])=true then MessageDlg('совпадение',mtInformation,[mbok],0)else begin Table1.Insert; Table1.FieldByName('Год').AsInteger:=strtoint(Edit1.text); Table1.FieldByName('Автор').AsString:=Edit2.Text; Table1.FieldByName('Название литературы').AsString:=edit3.Text;
Table1.FieldByName('Источник').AsString:=edit4.Text; Table1.FieldByName('Примечание').AsString:=Edit5.text; Table1.Post; Table1.Close; Table1.Open; end; и т.д.с Table2.... сначало работало,но добовлялась запись во все таблицы(вкладки) потом стало выдовать ошибку: -Declaration expected 'CASE' found. Помогите пожайлуста, я в Delphi разбираюсь ещё плохо,жду ответов.Николай.
Первое. После объявления процедуры должно идти объявление констант, типов, переменных и меток (если процедура таковые использует). Потом сам код, обрамлённый скобками begin...end. Почитай доку по Pascal. Второе. Всё-таки что находится на TabSheet's - TTable's или TDBGrid's? Скорее, второе - поскольку TTable's принадлежат форме, а не визуальным компонентам на ней. Итак, имеем:
Приложение: Ответ отправлен: 06.08.2003, 11:35 Отправитель: Артём Шегеда
Вопрос № 823
Пишу я значит архиватор свой для игрушек... Осталось тока приличный вид сделать: Подскажите компонент на делфю 5(7) FileList как в Winrar... Думаю что кто-то все равно написал... самому что-то не хочется:) Если отправите на torry.net скажите хоть название что-ль... пробывал искать - все нето:(
Доброе время суток, Ландграф Павел! В обычном TListView можно сделать, если постараться.
Ответ отправлен: 06.08.2003, 12:32 Отправитель: Marouder
Вопрос № 824
Хочу создать визуальный компонент от TComponent, но раньнше у меня такой практик не было, поэтому прошу помочь мне. Если у кого есть наработки, кидайте, пожалуйста на ящик. А если нет, то скажите хотя бы, как сделать, чтобы он на этапе разработки отображался не в виде иконки, а в своём "настоящем виде". Заранее, спасибо. Кстати, я пишу на Delphi.
Добрый день, Xych! тебе наверно больше подойдет TWinControl Ответ отправлен: 06.08.2003, 16:38 Отправитель: ART_43 Отвечает Артём Шегеда
Здравствуйте, Xych!
Для создания визуальной компоненты используй базовый класс TCustomControl. Переопредели его методы Create, Destroy и Paint - и новая компонента готова! Рекомендую взглянуть на исходный код компоненты THintWindow (Source\VCL\controls.pas)
Ответ отправлен: 06.08.2003, 11:59 Отправитель: Артём Шегеда
Вопрос № 825
по зарез нужен алгоритм расчета сколько осталось дней от текущий даты до указанной как назад так и вперед очень нужен этот алгоритм... С уважением, maDByte
Приветствую Вас, maDByte! Вот, когда-то давно писал, правда на паскале.
Приложение: Ответ отправлен: 06.08.2003, 11:01 Отправитель: Дима Мусиенко Отвечает ART_43
Здравствуйте, maDByte! DaysBetween из модуля DateUtils Ответ отправлен: 06.08.2003, 16:37 Отправитель: ART_43 Отвечает Marouder
Доброе время суток, maDByte! А что, разве трудно это сделать? Перевести годы и месяцы в дни. Модуль разности текуго кол-ва и указанного - количество оставшихся дней. Ответ отправлен: 06.08.2003, 12:33 Отправитель: Marouder
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.