Далі відбудеться додавання нового запису і її розподіл кур'єру. Після натискання кнопки Зберегти вікно автоматично закриється. p align="justify"> Таким же методом відбувається і додавання нового кур'єра. Після збереження результату дані про нього виводяться в список форми. p align="justify"> При редагуванні викликаються форми такого ж типу, що й при додавання кур'єра/замовлення. Після підтвердження виконання дані зберігаються в новому вигляді. br/>В
Малюнок 5.2.
Видалення. Для того, щоб видалити потрібний елемент, попередньо виділяється потрібне поле, а потім після натискання кнопки видалити відбувається перезапис існуючих форм. p align="justify"> Вихід з програми. Для здійснення виходу з програми досить закрити вікно головної форми. p align="justify"> Інше. Для коректної роботи програмного засобу в папці з програмою повинні знаходитися файли courierі zakaz з символьним поданням даних записів. br/>
СПИСОК ЛІТЕРАТУРИ
1.Бобровскій, С.І., Delphi 7. Навчальний курс. - СПб.: Пітер, 2004. - 736с. p>. Фаронов, В.В. Турбо Паскаль 7.0. Початковий курс. Навчальний посібник/В.В.Фаронов. М.: Видавництво "ОМД груп", 2003. - 616с. p>. Глухова Л. А., ФадееваЕ.П., ФадееваЕ.Е. Основи алгоритмізації програмування: Лаб. Практикум для студ. спец. I-40 1 січня "Програмне забезпечення інформаційних технологій" денної форми навч. У 4 ч. Ч.2. -Мн.: БДУІР, 2005. br/>
ДОДАТОК
ТЕКСТ ПРОГРАМИ
unit MainWindowUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, NewOrderUnit, GlobalTypes, NewCourierUnit,, Grids, EditZakUnit; = class (TForm): TGroupBox; : TGroupBox;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TMemo;: TListBox;: TListBox;: TListBox;: TListBox;: TListBox;: TLabel;: TLabel;: TLabel ;: TLabel;: TLabel;: TLabel;: TStringGrid; AddZakButtonClick (Sender: TObject); AddCourButtonClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); FormCreate (Sender: TObject); DisplayCourList; DisplayZakList; Number; NumberZak; FIOCourListBoxClick (Sender: TObject); OtTimeCourListBoxClick (Sender: TObject); DoTimeCourListBoxClick (Sender: TObject); VolumeCourListBoxClick (Sender: TObject); WeightCourListBoxClick (Sender: TObject); AddZakazToCur (zak: TZakaz): boolean; GetCourierByIndex ( index: integer; var prevCour: Tcourier): TCourier; ChangeCourButtonClick (Sender: TObject); DeleteCourButtonClick (Sender: TObject); ChangeZakButtonClick (Sender: TObject); DeleteZakButtonClick (Sender: TObject);
{Private declarations}
{Public declarations};: TMainWind;: zakaz;: courier;: Tzakaz;: TCourier;
{$ R *. dfm}
{Додавання нового замовлення} TMainWind.AddZakButto...
