Склад строительных материалов

implementation

 

uses UnitSklad, UnitMainMenu;

 

{$R *.dfm}

 

procedure DocumentSearch;

//Проверка наличия  открытого документа

begin

  if FormPrintSklad.WordApplication1.Documents.Count = 0

    then begin

      Application.MessageBox('В Ворде нет открытого  документа',

                             'Нет активного приложения!',MB_OK + MB_ICONEXCLAMATION);

      Abort;

    end;

  FormPrintSklad.WordDocument1.ConnectTo(

                        FormPrintSklad.WordApplication1.ActiveDocument);

end;

 

procedure TFormPrintSklad.FormCreate(Sender: TObject);

begin

  QueryGeneralSklad.Open;

end;

 

procedure TFormPrintSklad.BitBtn1Click(Sender: TObject);

  //Перенос в документ всех записей

  var SavePlace: TBookmark;

      Direction:OleVariant;

 

begin

  //Открытие нового документа

  WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

  //Отключение в сервере автоматических проверок

  WordApplication1.Options.CheckSpellingAsYouType:=false;

  WordApplication1.Options.CheckGrammarAsYouType:=false;

  DocumentSearch;

  //Вставка  строки РАПОРТ на форме

  WordApplication1.Selection.InsertAfter(Label2.Caption+Edit1.Text+' '+Label1.Caption+#13);

  //Форматирование шрифта введеного текста

  WordFont1.ConnectTo(WordApplication1.Selection.Font);

  WordFont1.ColorIndex:=2;

  WordFont1.Underline:=1;

  WordFont1.Size:=18;

  //Снятие выделения строки рапорта

  Direction:=wdCollapseEnd;

  WordApplication1.Selection.Collapse(Direction);

  WordApplication1.Selection.InsertAfter(''+#13);

  //Закладка на текущей записи базы данной QueryGeneralSklad

  SavePlace:=QueryGeneralSklad.GetBookmark;

  QueryGeneralSklad.First;

  //Вставляем текст из полей пока не закончится база данных GeneralSklad

    while not QueryGeneralSklad.Eof do

      begin

  //Вставка  полей с таблицы

  WordApplication1.Selection.InsertAfter('Код: ' +QueryGeneralSkladCodeGoods.AsString+

                           ' " '+'Наименование "'+QueryGeneralSkladNameGoods.AsString+' , ');

  WordApplication1.Selection.InsertAfter('                              Цена_Реализации = ' +QueryGeneralSkladPriceTwo.AsString+'грн'+

                           ' , '+'Кол_во = ' + QueryGeneralSkladCountGoods.AsString+'шт');

  WordApplication1.Selection.InsertAfter(' ' + #13);

  QueryGeneralSklad.Next;

    end;

  //Форматирование  текста, вставленного с базы данной GeneralSklad

  WordFont1.ConnectTo(WordApplication1.Selection.Font);

  WordFont1.Size:=9;

  //Снятие  выделения строк, вставленных  с бахы даной GeneralSklad

  Direction:=wdCollapseEnd;

  WordApplication1.Selection.Collapse(Direction);

  WordApplication1.Selection.InsertAfter(''+#13);

  //Возвращение на текущую запись

  QueryGeneralSklad.GotoBookmark(SavePlace);

  QueryGeneralSklad.FreeBookmark(SavePlace);

  //Прописуем  в отчете информацию об операторе

  WordApplication1.Selection.InsertAfter(Label4.Caption+#13);

  WordApplication1.Selection.InsertAfter(Label5.Caption+ ' ' +Edit2.Text+#13+Label6.Caption+

                                             '          ' +Edit3.Text+#13+Label7.Caption+ ' ' +Edit4.Text+#13);

  //Форматироывание текста (инфу об операторе)

  WordFont1.ConnectTo(WordApplication1.Selection.Font);

  WordFont1.Size:=12;

  WordFont1.ColorIndex:=10;

  //Снятие выделения текста

  Direction:=wdCollapseEnd;

  WordApplication1.Selection.Collapse(Direction);

  WordApplication1.Visible:=true;

end;

 

procedure TFormPrintSklad.WordApplication1WindowDeactivate(

  ASender: TObject; const Doc: _Document; const Wn: Window);

begin

  WordApplication1.Disconnect;

end;

 

procedure TFormPrintSklad.BitBtn2Click(Sender: TObject);

begin

  FormPrintSklad.Close;

end;

end.

 

 

 

 

4. Руководство пользователя

Запуск программы  «Склад строительных материалов» осуществляется с помощью файла ProjectMainMenu.exe.

После запуска программы  перед вами появляется главное окно программы с главным меню.

Перечень пунктов меню:

• Склад
• Добавить наименование товара
• Изменить наименование товара
• Удалить наименование товара
• Контракты
• Оформить заказ
• Просмотреть заказ
• Разное
• Клиенты
• Торговые агенты
• Производители
• Разделы товара
• Улицы
• Должники
• Клиенты (должники)

 

Для выбора необходимого пункта меню необходимо левой клавишей мыши кликнуть по нему.

Данные о товаре в таблице можно упорядочивать по наименованию, по разделам, по производителю, по количеству, выбрав нужную сортировку нажатием левой клавиши мыши в соответствующем кружочке, при этом в нем появляется черная точка.

В режиме «Добавление  наименования товара» пред вами появляется окно для ввода данных о новом товаре.

Во все поля должны быть введены данные, а поля «Раздел» и «Производитель» необходимо выбрать  из предлагаемого списка, который  появляется, если нажать справа от поля ввода кнопку со стрелочкой «вниз». В случае если в предлагаемом списке нет необходимого вам значения, необходимо добавить его в справочнике «Разделы товара» или «Производители» соответственно. После того, как данные введены, необходимо нажать кнопку «Добавить». Если нужно выйти из этого режима без добавления, нажмите «Отмена».

В режиме «Изменения наименования товара» перед вами появляется аналогичное  предыдущему окно, в котором отображены существующие данные о данном товаре. После изменения значений в необходимых  полях необходимо добавить кнопку «Изменить».

При выборе пункта меню «Удалить наименование товара» удаляется  текущий товар, на который указывает  курсор в виде треугольника при просмотре  данных в левом столбце.

Для выбора необходимой  строки можно использовать левую  клавишу мыши или клавиши курсора на клавиатуре.

В режиме «Просмотреть заказы»  в появившемся окне вы видите перечень всех заказов. В этом режиме для просмотра  заказов по одному клиенту необходимо нажать клавишу «Нажмите для отображения заказа по конкретному предпренимателю» и выбрать из списка клиентов интересующего вас.

При нажатии на кнопку «Показать не отгруженный» в списке заказов отображаются только те, по которым товар еще не доставлен. При нажатии на кнопку «Показать  не оплаченный» - отображается еще не оплаченный товар. Чтобы снова отображались все заказы необходимо нажать кнопку «Все заказы». При нажатии на кнопку отменить заказ из заказов удаляется текущий заказ (тот, на который указывает треугольник в левом столбце). При нажатии на кнопку «Изменить заказ» появляется окно для того, чтобы можно было изменить такие свойства заказа, как «Отгружено», «Оплачено», «Количество». Остальные поля менять нельзя. После ввода новых данных необходимо нажать кнопку «Изменить», для выхода без изменений – «Отмена».

В режиме «Клиенты» программа работает по тем же принципам, но есть возможность только просмотреть данные о клиентах, добавить нового клиента, изменить данные о клиенте или удалить клиента. Причем невозможно удалить клиента, если он еще не оплатил весь заказанный товар.

В режимах «Разное»-> «Клиенты», «Торговые агенты», «Производители», «Разделы товара», «Улицы» Существует возможность просмотра, добавления, изменения и удаления информации, что выполняется как и в других режимах.

В режиме «Должники» -> «Клиенты (должники)» появляется окно со списком клиентов и их задолженности. Эти данные доступны только для просмотра.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5. Руководство программиста

Для установки программы  необходимо распаковать архив Склад строительных материалов.exe в удобное для вас место на диске. Архив является самораспаковывающимся, поэтому наличие архиватора необязательно. После распаковки появиться папка «Склад строительных материалов», в которой содержится программ ProjectMainMenu.exe и папка «ENDBASES», содержащая все необходимые таблицы, которые использует программа.

Крайне желательно иметь копии баз для того, чтобы в случае нестандартных ситуаций, например резкого отключения питания компьютера, можно было восстановить базы, если они повредились. Для этого необходимо иметь резервную копию папки «ENDBASES», которая должна обязательно находиться в папке, в которой находиться программа.

Требование  к оперативной и дисковой памяти

Минимальные требования к оперативной памяти: 32Мб;

Минимальные требования к дисковой памяти: 9.2Мб программный модуль (объема базы данных не учитывался)

Требования  к техническим средствам

Pentium 100MHz/ 32Mb RAM/ Windows 95/98/ХР/Vista.

Видеоадаптер, поддерживающий разрешающую  способность работы дисплея в 1024*768 пикселей (для удобства отображения  одновременно всей информации, расположенной на формах программы).

Монитор, поддерживающий разрешающую  способность работы в 1024*768 пикселей (для удобства отображения одновременно всей информации, расположенной на формах программы).

Требования  по настройке системных установок

Для работы необходим BDE (Borland Database Engine).

Перенос программы  управления базой данных на другой компьютер

Довольно часто возникает  необходимость переноса созданной  программы управления базой данных на другой компьютер. В отличие от процесса переноса обычной программы, когда, как правило, достаточно скопировать только выполняемый файл (ЕХЕ-файл), при переносе программы управления базой данных необходимо выполнить перенос BDE.

Здесь следует вспомнить, что BDE представляет собой набор  программ, библиотек и драйверов, обеспечивающих работу прикладной программы с базой данных. Выполнить перенос BDE на другой компьютер вручную практически невозможно.

Поэтому нужно установить BDE (Borland Database Engine), входящий в пакет установки Delphi 7.0 или же можно попытаться установить BDE вручную. Ниже перечислены файлы (их имена определены опытным путем), необходимые для работы с базой данных Paradox:

• BLW32.DLL
• IDAPI32.DLL
• IDBAT32.DLL
• IDPDX32.DLL
• IDR20009.DLL
• USA.BLL
• CHARSET.BLL

Эти файлы нужно установить на компьютер пользователя, затем проверить, что в реестре Windows есть перечисленные ниже разделы и параметры:

• Раздел HKEY_LOCAL_MACHINE\Software\Borland\Database engine — параметр DLLPATH должен содержать путь к DLL-файлам BDE;
• Раздел HKEY_LOCAL_MACHINE\Software\Borland\BLW32 — параметр BLAPIPATH должен содержать путь к BLL-файлам BDE.

 

6. Список использованой  литературы

1.  А. Я. Архангельский. Программирование в Delphi 7. – М.:ООО <<<Бином-Пресс>>, 2005 г. – 1152 с.

2. Мартин Грубер. Понимание SQL.Пер. с англ. В.Н. Лебедева под ред. В.Н.Буличова. – М.:Мир, 1993.

3. Фаронов В. В. Delphi 6.0. Начальный курс. Учебное пособие., М., 2002.

 

4. Проэкт DELPHIWORLD. Казахстан, Алматы. Разработчик: Акулов Николай. Электронный адрес http://delphiworld.narod.ru.

5. В. Э. Гофман, А. Д. Хомоненко DELPHI 6.

6. Н. Б. Культин. Delphi 6 Программирование на Object Pascal.