Программная реализация курьерского заказа
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
tion.Create(errorwithminute);;(">,Left+Width div 2-50,top + Height div 2-50);;;:=StrToInt(DoMinCourEdit.Text);(DoMinuteDoMinute) thenException.Create(error with time);;( ,Left+Width div 2-50,top+Height div 2-50);;;VolCourEdit.Text= thenException.Create(error with volum);;( ,Left+Width div 2-50,top+Height div 2-50);;;:=StrToInt(VolCourEdit.Text);Volume<=0 then(Wrong volume,Left+Width div 2-50,top + Height div 2-50);;;WeightCourEdit.Text= thenException.Create(error with weight);;( ,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);
NewCour.fiocour:=fio;.ottime.hour:=OtHour;.ottime.min:=OtMinute;.dotime.hour:=DoHour;.dotime.min:=DoMinute;.Volume:=volume;.weight:=Weight;.NowWeight:=0;.NowVolume:=0;.PointZak:=nil;
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;
23)thenException.Create(errorwithhour);;(">{$R *.dfm}TNewZakForm.FormCreate(Sender: TObject);:=false;;TNewZakForm.NewAddZakButtonClick(Sender: TObject);,adress:string;,OtMinute,DoHour,DoMinute,Volume,Weight:integer;:=false;:=NameZakEdit.Text;name= 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);(OtHourDoMinute) thenException.Create(error with time);;( ,Left+Width div 2-50,top+Height div 2-50);;;VolEdit.Text= thenException.Create(error with volum);;( ,Left+Width div 2-50,top+Height div 2-50);;;:=StrToInt(VolEdit.Text);Volume<=0 then(Wrong volume,Left+Width div 2-50,top + Height div 2-50);;;VesEdit.Text= thenException.Create(error with weight);;( ,Left+Width div 2-50,top+Height div 2-50);;;:=StrToInt(VesEdit.Text);Weight<=0 then(Wrong weight,Left+Width div 2-50,top + Height div 2-50);;;
// :=true;(NewZak);.name:= name;.adress:=adress;.othour.hour:=othour;.othour.min:=otminute;.dohour.hour:=dohour;.dohour.min:=dominute;.volume:=volume;.ves:=weight;.Close();
end;.
unit EditCourUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, GlobalTypes;= class(TForm): TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TEdit;FormCreate(Sender: TObject);FormActivate(Sender: TObject);EditCourButtonClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TEditCourForm;:TCourier;: boolean;
23)thenException.Create(errorwithhour);;(">{$R *.dfm}TEditCourForm.FormCreate(Sender: TObject);:=false;;TEditCourForm.FormActivate(Sender: TObject);.Text:=GlobalTypes.tempBuffer.fiocour;.Text:=IntToStr(tempBuffer.ottime.hour);.Text:=IntToStr(tempBuffer.ottime.min);.Text:=IntToStr(tempBuffer.dotime.hour);.Text:=IntToStr(tempBuffer.dotime.min);.Text:=IntToStr(tempBuffer.Volume);.Text:=IntToStr(tempBuffer.weight);;TEditCourForm.EditCourButtonClick(Sender: TObject);:string;,OtMinute,DoHour,DoMinute,Volume,Weight:integer;:=false;:=EditFIOCourEdit.Text;FIO= then(Wrong FIO,Left+Width div 2-50,top + Height div 2-50);;;:=StrToInt(EditOtHourCourEdit.Text);(OtHourDoHour thenException.Create(error with time);;( DoMinute)thenException.Create(errorwithtime);;(">,Left+Width div 2-50,top+Height div 2-50);;;(OtHour=DoHour) and (OtMinute&g