даному дипломному проекті було реалізовано завдання автоматизації речового обліку на військовому складі.
Розроблене програмне забезпечення
Переваги програмного продукту:
* зручність і простота в експлуатації;
* невеликий об'єм займаної пам'яті;
Розроблене програмне забезпечення, дозволяє здійснювати:
автоматизований облік предметів довольствия
контроль за рухом довольствия в певний період часу
виводити на друк необхідну для роботи на складі інформацію.
Вироблена економічна оцінка ефективності від впровадження додатка свідчить про економічну рентабельності проекту. Термін окупності даного застосування складе 2, 5месяцев
Література
1.а.. Архангельський Програмування в Borland Delphi 7 -М .: Видавництво «Біном», 2010.
. Понамарьов В. Бази даних в Delphi 7 - СПб .: Питер, 2011.
. Жуков А. Вивчаємо Delphi.- СПб .: Питер, 2009.
. Петров В.Н. Інформаційні системи. Підручник - СПб .: Питер, 2002.
Додаток
Малюнок №1 Вхідна форма.
Малюнок №2 Головне вікно програми.
Малюнок 2-2Форма «Надходження постачання».
Малюнок 2-3 Форма «Видача постачання»
Малюнок 2-4 Форма «Стан складу».
Малюнок 2-5 Форма «Додавання предмета».
Малюнок 2-6 Форма «Звіти».
Малюнок 2-7 «Звіт по надходженню».
Малюнок 2-8 «Звіт з видач».
Вихідний код програми.
Головна формаMain ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls, Menus,;=class (TForm): TDataSource ;: TADOConnection ;: TADOQuery ;: TDBGrid ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage ;: TMenuItem;:TXPManifest; GridSelectAll (Grid: TDBGrid); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button4Click (Sender: TObject ); Button7Click (Sender: TObject); Button8Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); N7Click (Sender: TObject); N6Click (Sender: TObject); N2Click (Sender: TObject) ; N11Click (Sender: TObject); N10Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TMainF;: string; Come, Leave, Sklad, About, Otchet, New;
{$ R * .dfm} TMainF.GridSelectAll (Grid: TDBGrid) ;. SelectedRows.Clear; Grid.Datasource.DataSet do ;; not EOF do.SelectedRows.CurrentRowSelected:=true ;;; ;;;; TMainF.Button1Click (Sender: TObject) ;. Show ;; TMainF.Button2Click (Sender: TObject) ;. Show ;; TMainF.Button3Click (Sender: TObject) ;. Show ;; TMainF.Button5Click (Sender: TObject ) ;. Terminate ;; TMainF.Button6Click (Sender: TObject) ;. Show ;; TMainF.Button4Click (Sender: TObject) ;. Show ;; TMainF.Button7Click (Sender: TObject) ;. Show ;; TMainF.Button8Click (Sender:TObject); ('hh.ex); ............ .Довідка; TMainF.N4Click (Sender: TObject) ;. Show ;; TMainF.N5Click (Sender: TObject) ;. Show ;; TMainF.N7Click (Sender: TObject) ;. Show ;; TMainF.N6Click (Sender: TObject) ;. Show ;; TMainF.N2Click (Sender: TObject) ;. Close ;; TMainF.N11Click (Sender: TObject) ;. show ;; TMainF.N10Click ( Sender: TObject) ;. Show ;;.
Форма «Надходження постачання» Come;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ComCtrls, ExtCtrls, Grids, DBCtrls, Menus;=class (TForm): TComboBox;
//Razm: TComboBox1 ;: TLabel ;: TDateTimePicker ;: TLabel ;: TUpDown ;: TEdit ;: TLabel ;: TButton ;: TStringGrid ;: TEdit ;: TLabel ;: TLabel ;: TComboBox;:TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TButton; FormCreate (Sender: TObject); FormShow (Sender: TObject); OKClick (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TPostup;: integer; Main, ComObj;
{$ R * .dfm} TPostup.FormCreate (Sender: TObject);
begin.Cells [0,0]:= Код речового имуществаraquo;;.Cells[1,0]:=laquo;Поступилоraquo;;.Cells[2,0]:=laquo;Количествоraquo;;.Cells[3,0]:...
