Работа с ADO в Delphi. Часть 3
Кто забыл как мы добавляли, редактировали, удаляли и так далее записи в БД MS Access в Delphi через технологию ADO, сможет посмотреть вот в этой статье.
Все тоже самое, расположите нужные компоненты на форму, что мы уже проходили раньше и начнем писать нам нужные процедурки, обработчики и так далее. Начнем все с вывода наших данных при первоначальном запуске программы нашей. Для этого на событие нашей главной формы OnCreate напишем следующее
Здесь ничего нового для Вас нету, мы это уже делали в прошлой статье по Базам данных, так что комментировать тут ничего не буду, мы просто делаем запрос на все записи в таблице нашей — Student.
Далее мы добавим данные с помощью запроса, для этого на событие кнопки OnClick напишем следующий код
Затем удалим выделенную строку в нашей таблицы, для этого, нам нужно получить уникальное число этой строки, чтобы удалять именно ее, а не что другое. Для этого я создал в нашей таблице поле id и задал ей тип Счетчик.
Далее на событие DBGrid OnCellClick я написал следующее
id — типа integer, не забудьте объявить.
Здесь мы получаем это самое уникальное поле, а уникальное оно будет всегда потому, что у id в таблице тип Счетчик и он соответственно никогда не будет повторяться.
Так когда мы получили уникальное поле, теперь можно и удалить нам нужную запись
Здесь мы не указываем никаких параметров ничего просто удаляем все записи, вот про что я говорил, что запросом удалить все записи намного быстрее чем через цикл.
| Кстати, хочу заметить, что если у Вы надумали создать свое предприятие, а точнее общество с ограниченной ответственностью (ООО), то Вам необходимо будет обязательно иметь устав. Вы можете взять за основу образец устава ООО planbusiness.ru, без него Вы просто-напросто не сможете зарегистрировать ООО. |
Сейчас, кстати заметил, что надо брать не G5000, а F5000 так как в столбце G ничего не вставляется, поэтому он и заменяет данные, так как последняя строчка всегда одна и та же
Специальная вставка VBA.
– Вставить рисунок со связью – в место вставки заданный фрагмент (независимо от того, что он собой представляет в исходном виде) вставляется в виде растрового рисунка, и этому рисунку присваивается связь с исходным объектом копирования (то есть изменения в исходном диапазоне ячеек будут отображаться на рисунке при обновлении связи) рис. 42).
| Кстати, хочу заметить, что если у Вы надумали создать свое предприятие, а точнее общество с ограниченной ответственностью (ООО), то Вам необходимо будет обязательно иметь устав. Вы можете взять за основу образец устава ООО planbusiness.ru, без него Вы просто-напросто не сможете зарегистрировать ООО. |
Присвоение диапазона ячеек переменной
Чтобы переменной присвоить диапазон ячеек, она должна быть объявлена как Variant, Object или Range:
Чтобы было понятнее, для чего переменная создана, объявляйте ее как Range.
Присваивается переменной диапазон ячеек с помощью оператора Set:
В выражении Range(Cells(3, 4), Cells(26, 18)) вместо чисел можно использовать переменные.
Для присвоения диапазона ячеек переменной можно использовать встроенное диалоговое окно Application.InputBox, которое позволяет выбрать диапазон на рабочем листе для дальнейшей работы с ним.
Как с помощью VBA скопировать данные из одной книги в другую | SirExcel
Затем удалим выделенную строку в нашей таблицы, для этого, нам нужно получить уникальное число этой строки, чтобы удалять именно ее, а не что другое. Для этого я создал в нашей таблице поле id и задал ей тип Счетчик.
Копирование и вставка в Excel
Как уже отмечалось, Excel полностью поддерживает буфер обмена Office, но, кроме того, в этой программе поддерживаются собственные операции копирования и вставки без использования буфера обмена.
Здесь следует заметить, что повторное использование объектов через копирование и вставку является одним из определяющих факторов ускорения обработки информации при использовании электронных таблиц Excel.
Что же в действительности происходит в Excel при нажатии кнопки «копировать» при выделении диапазона ячеек?
Еще раз обращаем внимание, что при запуске операции копирования, в память программы записываются не данные (текст, формулы, форматы), а только ссылки на адреса выделенных ячеек. Для наглядности интерфейс Excel обводит скопированные ячейки анимированной рамкой.
После копирования диапазонов становится доступной операция вставки. Перед этим необходимо выделить один или несколько диапазонов или ячеек для приема данных из скопированной области.
Если выделенная перед вставкой область листа не совпадает с размером скопированной области, то Excel попытается распространить данные несколько раз или вставить только часть данных. В некоторых случаях это бывает невозможно (например, области копирования и вставки пересекаются), тогда программа выдает сообщение об ошибке.
Кроме простой вставки, скопированный диапазон может быть добавлен в область листа с расширением границ влево или вниз через пункт контекстного меню «Вставить скопированные ячейки».
Если для вставки данных воспользоваться буфером обмена Office, то будут добавлены данные с потерей формул аналогично примеру с копированием между разными приложениями Excel.
Операция «вырезания», в отличие от копирования, очищает исходный диапазон после проведения вставки. Если вставка не была выполнена, то никаких действий произведено не будет.
Для второй строки: Rows(2).Find(stroka)
Для диапазона: Range(«A2:G10»).Find(stroka)
stroka — это переменная или искомый текст в прямых кавычках.
Работа с ADO в Delphi. Часть 3 | Блог Delphi-программиста
А теперь нужно продублировать строки, в результате чего количество строк для каждого участника лотереи будут соответствовать количеству купленных им билетов. Например, если Барбара приобрела два билета, для нее создаются две строки. Ниже показана процедура, выполняющая вставку новых строк.
