Реферат Програмна реалізація кур'єрського замовлення

39;, Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (WeightCourEdit.Text); Weight <= 0 then (' Wrong weight ', Left + Width div 2-50 , top + Height div 2-50);;;: = true;

// створення списку кур'єрів

new (NewCour);

NewCourForm.Close ();;.

unit NewOrderUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, GlobalTypes; = class (TForm): TGroupBox;: TEdit;: TEdit;: TEdit;: TEdit ;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TEdit;: TEdit; FormCreate (Sender: TObject); NewAddZakButtonClick (Sender: TObject);

{Private declarations}

{Public declarations};: TNewZakForm;: Tzakaz;: boolean;

{$ R *. dfm} TNewZakForm.FormCreate (Sender: TObject);: = false;; TNewZakForm.NewAddZakButtonClick (Sender: then ('Wrong name', Left + Width div 2-50, top + Height div 2-50);;;: = AdrZakEdit.Text; adress ='' then ('Wrong adress', Left + Width div 2-50 , top + Height div 2-50);;;: = StrToInt (OtHourEdit.Text); (OtHour <0) or (OtHour> 23) thenException.Create ('error with hour');; (' Îøèáêà â ïîëå × àñû äëÿ íà ÷ àëà < span align = "justify"> âðåìåíè äîñòàâêè ', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (OtMinuteEdit.Text); (OtMinute <0) or (OtMinute> 59) thenException.Create ('error with minute');; (' Îøèáêà â ïîëå Ìèíóòû äëÿ íà ÷ àëà âðåìåíè äîñòàâêè ', Left + Width div 2-50, top + Height div 2-50);;;: = StrToInt (DoHourEdit.Text); (DoHour <0) or (DoHour> 23) thenException.Create (' error with Hour ');; (' Îøèáêà â < span align = "justify">

Назад | сторінка 13 з 19 | Наступна сторінка