Delphi - это просто. Урок 8.11.5: Накладные. Добавление и удаление строк. BDE. |
Автор megabax | |||||
15.05.2011 г. | |||||
Delphi - это просто. Урок 8.11.5: Программируем печать накладных.Часть 5. Добавление и удаление строк документа, а так же работа с BDE.Исходники к уроку вы можете скачать здесь. Сегодня мы продолжим написание программы "Складской учет". Только вот писать будем ее не на Delphi 7, а на Turbo Delphi. Спросите: "Зачем?". Дело в том, что Turbo Delphi является бесплатной средой разработки Delphi, и, многие из тех, кто не желает покупать платную версию Delphi, пользуются именно ей, дабы не попасть в разряд нарушителей авторских прав. Ну, а если вы все же пишите на Dephi 7, то посмотреть скришоты другой среды разработки Delphi будет полезно для вашего кругозора. Ну а программный код, который мы напишем, будет компилироваться и в Delphi 7 и в Trubo Delphi - как говориться, Delphi - оно и в Африке Delphi. И так, открываем в Turbo Delphi исходники, которые мы писали на прошлом уроке. Если у вас их нет, скачайте отсюда. Возможно, вам понадобиться создать пвсевдоним StorePrj (см. урок по созданию псевдонимов). Но в Turbo Delphi вы не можете создать псевдоним базы данных так, же, как и в Delphi - все таки бесплатная версия среды разработки немного урезана по сравнению платной. Так что создадим средствами ODBC. Если у вас уже создан псевдоним и есть базы данных с прошлых уроков, можете пропустить описание, как его создавать. И так, заходим в Панель управления. В Windos XP это можено сделать через "Мой компьютер"*: Выбираем прочие параметры панели*: И, наконец, выбираем BDE Administrator*: Открывается вот такая программа**: Как завести новый псевдоним? Щелкаем на Databases правой кнопкой мыши, выбираем new**: У вас выскочит окно**: Оставляем тип "Standard", жмем OK. Созданный псевдоним переименовываем в StorePrj**: В правой части редактируем путь, где у вас лежат базы данных к программе складского учета**: Если у вас нет этих баз данных, скачайте их отсюда. Теперь перейдем непосредственно к программированию. Выбираем форму frmDoc***: Добавим к форме парочку кнопочек "Добавить" и "Удалить", присвоим им имена btnAdd и btnDelete соответственно***: Прежде чем начать писать обработчики нажатия на эти кнопки, добавим в секцию private класса формы объявление поля FDocId:integer:*** Соответственно, нам потребуется еще и чуть чуть переписать функцию TfrmDoc.OpenDoc:
еще добавим ка процедуру RefreshTable
Да, и раз мы ее добавили, то в в классе формы тоже объявите: Соответственно, меняем и процедуру TfrmDoc.btnEditClick, в самом конце три строки заменяем одной (именем той процедуру, которую мы создали: RefreshTable), а так же добавляем проверку наличия товара в редактируемой строке (у нас строка добавляется без товара, и если не вставить этот код, то при попытке присвоить переменной null, у нас вылетит со страшным сообщением) :
Теперь обработки нажатия на кнопочки "Добавить" и "Удалить":
Ну, вроде все. Запустим программу на тестирование, попытаемся что нибудь добаить: Убедимся, что мы можем корректно отредактировать строку без товара: Аналогично протестируем работу кнопочки "Удалить". Исходники к уроку вы можете скачать здесь. Скриншоты, помеченные знаком* , являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Microsoft Windows XP", авторское право на который принадлежит корпорации "Microsoft". Скриншоты, помеченные знаком** , являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "BDE Administrator", авторское право на который принадлежит корпорации "Inpirce Corporation". Скриншоты, помеченные знаком*** , являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Turbo Delphi", авторское право на который принадлежит фирме "Borland Delphi". |
|||||
Последнее обновление ( 06.11.2011 г. ) |