Программная реализация курьерского заказа
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
t;DoMinute) thenException.Create(error with time);;( ,Left+Width div 2-50,top+Height div 2-50);;;EditVolCourEdit.Text= thenException.Create(error with volum);;( ,Left+Width div 2-50,top+Height div 2-50);;;:=StrToInt(EditVolCourEdit.Text);Volume<=0 then(Wrong volume,Left+Width div 2-50,top + Height div 2-50);;;EditWeightCourEdit.Text= thenException.Create(error with weight);;( ,Left+Width div 2-50,top+Height div 2-50);
exit;;
Weight:=StrToInt(EditWeightCourEdit.Text);Weight<=0 then(Wrong weight,Left+Width div 2-50,top + Height div 2-50);;;:=true;.fiocour:=fio;.ottime.hour:=OtHour;.ottime.min:=OtMinute;.dotime.hour:=DoHour;.dotime.min:=DoMinute;.Volume:=volume;.weight:=Weight;.NowWeight:=0;.NowVolume:=0;();
end;.
unit EditZakUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, GlobalTypes, Grids;= class(TForm): TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TEdit;: TEdit;FormActivate(Sender: TObject);FormCreate(Sender: TObject);ChangeZakButtonClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TChangeZakForm;: boolean;
23)thenException.Create(errorwithhour);;(">{$R *.dfm}TChangeZakForm.FormCreate(Sender: TObject);:=false;;TChangeZakForm.FormActivate(Sender: TObject);.Text:=tempBufZak.name;.Text:=tempBufZak.adress;.Text:=IntToStr(tempBufZak.othour.hour);.Text:=IntToStr(tempBufZak.othour.min);.Text:=IntToStr(tempBufZak.dohour.hour);.Text:=IntToStr(tempBufZak.dohour.min);.Text:=IntToStr(tempBufZak.ves);.Text:=IntToStr(tempBufZak.volume);;TChangeZakForm.ChangeZakButtonClick(Sender: TObject);,adress:string;,OtMinute,DoHour,DoMinute,Volume,Weight:integer;:=false;:=NameChangeZakEdit.Text;name= then(Wrong name,Left+Width div 2-50,top + Height div 2-50);;;:=AdrChangeZakEdit.Text;adress= then(Wrong adress,Left+Width div 2-50,top + Height div 2-50);;;:=StrToInt(ChangeOtHourEdit.Text);(OtHourDoMinute) thenException.Create(error with time);;( ,Left+Width div 2-50,top+Height div 2-50);;;ChangeVolEdit.Text= thenException.Create(error with volum);;( ,Left+Width div 2-50,top+Height div 2-50);;;:=StrToInt(ChangeVolEdit.Text);Volume<=0 then(Wrong volume,Left+Width div 2-50,top + Height div 2-50);;;ChangeVesEdit.Text= thenException.Create(error with weight);;( ,Left+Width div 2-50,top+Height div 2-50);;;:=StrToInt(ChangeVesEdit.Text);Weight<=0 then(Wrong weight,Left+Width div 2-50,top + Height div 2-50);;;:=true;.name:= name;.adress:=adress;.othour.hour:=othour;.othour.min:=otminute;.dohour.hour:=dohour;.dohour.min:=dominute;.volume:=volume;.ves:=weight;.addToCour:=false;
Close();;.