Практика

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Таблица 5. Описание реквизитов выходных документов

 
 
 
 
 
 

Формы выходных документов

Ведомость удовлетворенных заявок

 

Ведомость неудовлетворенных заявок

 

     Сводная ведомость

 
 
 
 
 
 
 
 
 
 
 

5. Экспериментальный раздел

      Обоснование выбора языка программирования

      Для создания программы использовалась среда разработки Delphi. Delphi - язык и  среда программирования, относящаяся  к классу RAD (Rapid Application Development - “Средство  быстрой разработки приложений”) средств CASE - технологии. Delphi сделала разработку мощных приложений Windows быстрым процессом, доставляющим вам  удовольствие.  Приложения Windows, для создания которых требовалось большое количество человеческих усилий например в С++, теперь могут быть написаны одним человеком, использующим Delphi.

     Интерфейс Windows обеспечивает полное перенесение CASE-технологий в интегрированную  систему поддержки работ по созданию прикладной системы на всех фазах  жизненного цикла работы и проектирования системы. Delphi обладает широким набором возможностей, начиная от проектировщика форм и кончая поддержкой всех форматов популярных баз данных. Среда устраняет необходимость программировать такие компоненты Windows общего назначения, как метки, пиктограммы и даже диалоговые панели. Работая в Windows , можно видеть  одинаковые  “объекты”  во  многих разнообразных приложениях. Диалоговые панели (например Choose File и Save File) являются примерами многократно используемых компонентов, встроенных непосредственно в Delphi, который позволяет приспособить эти компоненты к имеющийся задаче, чтобы они работали именно так, как требуется создаваемому приложению. Также здесь имеются предварительно определенные визуальные и невизуальные объекты, включая кнопки, объекты с данными, меню и уже построенные диалоговые панели. С помощью этих объектов можно, например, обеспечить ввод данных просто несколькими нажатиями кнопок мыши,  не прибегая к программированию. Это наглядная реализация применений CASE- технологий в современном программировании приложений. Та часть, которая непосредственно связана  с  программированием  интерфейса  пользователя системой, получила название визуальное программирование.

     Выгоды  от проектирования в среде Windows с  помощью Delphi:

• Устраняется необходимость в повторном вводе данных;
• Обеспечивается согласованность проекта и его реализации;
• Увеличивается производительность разработки и переносимость программ.

     Визуальное  программирование как бы добавляет  новое измерение при создании приложений, давая возможность изображать эти объекты на экране монитора до выполнения самой программы. Без визуального программирования процесс отображения требует написания фрагмента  кода,  создающего  и настающего объект “по месту”. Увидеть закодированные объекты было возможно только в ходе исполнения программы. При таком подходе достижение того, чтобы объекты выглядели и вели  себя  заданным  образом,  становится утомительным  процессом,  который  требует  неоднократных  исправлений программного кода с последующей прогонкой программы и наблюдения за тем, что в итоге получилось.

     Благодаря средствам визуальной разработки можно  работать с объектами, держа их перед  глазами и получая результаты практически сразу. Способность  видеть объекты такими, какими они  появляются в ходе исполнения программы, снимает необходимость проведения множества операций вручную, что характерно для работы в среде, не обладающей визуальными средствами — вне зависимости от того, является она объектно-ориентированной или нет. После того, как объект помещен в форму среды визуального программирования, все его атрибуты сразу отображаются в виде кода, который соответствует объекту как единице, исполняемой в ходе работы программы.

     Размещение  объектов в Delphi связано с более  тесными отношениями между объектами и реальным программным кодом. Объекты помещаются в вашу форму, при этом код, отвечающий объектам, автоматически записывается в исходный файл. Этот код компилируется, обеспечивая, существенно более высокую производительность, чем визуальная среда, которая интерпретирует информацию лишь в ходе исполнения программы.

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

     Сегодня появилась реальная возможность  с помощью моделирования на современных  многофункциональных  средствах  обработки  и  отображения информации, таких как Delphi конкретизировать тип  и характеристики используемых информационных моделей, выявить основные особенности будущей деятельности операторов, сформулировать требования к параметрам аппаратно-программных средств интерфейса взаимодействия и т.д.

     Использование типовых решений, модульного принципа проектирования систем отображения  и обработки информации приобретает всё более широкие масштабы, что, впрочем, вполне естественно.

     Особый  упор при внедрении данных задач  следует, конечно, придавать современным CASE-средствам разработки программ, так как они  наиболее оптимально позволяют проектировать решения, в основе которых лежат, в первую очередь, требования к согласованному пользовательскому интерфейсу, каковым и является интерфейс Windows. Никакие продукты других  фирм, доступные сегодня, не обеспечивают одновременную простоту использования, производительность и гибкость в такой степени, как Delphi. Этот язык заполнил брешь между языками 3-го и 4-го поколений, соединив их сильные стороны и создав мощную и производительную среду разработки.

 

6. Приложение.

     6.1.Исходный текст программы.

     unit Unit1;

     interface

     uses

       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

       Dialogs, Menus, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, registry,

       ComCtrls;

     type

       TForm1 = class(TForm)

         DBGrid1: TDBGrid;

         DBGrid2: TDBGrid;

         MainMenu1: TMainMenu;

         N1: TMenuItem;

         GroupBox1: TGroupBox;

         GroupBox2: TGroupBox;

         StatusBar1: TStatusBar;

         Timer1: TTimer;

         N25: TMenuItem;

         DBGrid3: TDBGrid;

         N6: TMenuItem;

        N9: TMenuItem;

         N11: TMenuItem;

         N12: TMenuItem;

         N13: TMenuItem;

         N16: TMenuItem;

         N17: TMenuItem;

         N18: TMenuItem;

         N19: TMenuItem;

         N20: TMenuItem;

         N21: TMenuItem;

         N22: TMenuItem;

         N2: TMenuItem;

         procedure clearf2;

         procedure N12Click(Sender: TObject);

         procedure FormShow(Sender: TObject);

         procedure find(kol:integer);

         procedure Timer1Timer(Sender: TObject);

         procedure N25Click(Sender: TObject);

         procedure N9Click(Sender: TObject);

         procedure FormActivate(Sender: TObject);

         procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

         procedure N11Click(Sender: TObject);

         procedure N18Click(Sender: TObject);

         procedure N19Click(Sender: TObject);

         procedure N17Click(Sender: TObject);

         procedure N21Click(Sender: TObject);

         procedure N22Click(Sender: TObject);

         procedure N2Click(Sender: TObject);

       end;

     var

       F1: TForm1;

       kn,q,w,i,j:integer;

     implementation

     uses Unit2, Unit3, Unit4, Unit5, Unit6;

     {$R *.dfm}

     procedure TForm1.find(kol:integer);

     var v:boolean;

     begin

     v:=true;

     f3.SG1.Cells[0,0]:='№  заказа';

     f3.SG1.Cells[1,0]:='Магазин';

     f3.SG1.Cells[2,0]:='Название книги';

     f3.SG1.Cells[3,0]:='Автор';

     f3.SG1.Cells[4,0]:='Треб. кол-во';

     f3.SG1.ColCount:=5;

     f3.SG1.Width:=515;

     f3.Width:=530;

     if kol=0 then

     begin

     f3.SG1.Cells[4,0]:='Издательство';

     f3.SG1.Cells[5,0]:='Выдано';

     f3.SG1.ColCount:=6;

     f3.SG1.Width:=615;

     f3.Width:=630;

     end;

     f3.SG1.RowCount:=1;

     i:=1;

     DM6.T2.RecNo:=1;

     while not(DM6.T2.Eof) do

     begin

     if kol=0 then

       begin

         if DM6.T2.FieldByName('Треб. кол').AsInteger=0 then

           begin

           f3.SG1.Cells[0,i]:=DM6.T2.FieldByName('№ заказа').AsString;

           f3.SG1.Cells[1,i]:=DM6.T2.FieldByName('Магазин').AsString;

           f3.SG1.Cells[2,i]:=DM6.T2.FieldByName('Наз. книги').AsString;

           f3.SG1.Cells[3,i]:=DM6.T2.FieldByName('Автор').AsString;

           DM6.T3.RecNo:=1;

             while not(DM6.T3.Eof) do

               begin

           if DM6.T2.FieldByName('№ заказа').AsString=DM6.T3.FieldByName('№ заказа').AsString then