Программная реализация курьерского заказа
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
++curZak.zak.adress+">:+IntToStr(curZak.zak.volume));:=curZak.next;;;;TMainWind.DoTimeCourListBoxClick(Sender: TObject);:TCurZakaz;:Tcourier;DoTimeCourListBox.ItemIndex>=0 then.ItemIndex:=DoTimeCourListBox.ItemIndex;.ItemIndex:=DoTimeCourListBox.ItemIndex;.ItemIndex:=DoTimeCourListBox.ItemIndex;.ItemIndex:=DoTimeCourListBox.ItemIndex;.Clear;:=GetCourierByIndex(DoTimeCourListBox.ItemIndex,prev).PointZak;(curZaknil)do.Lines.Add(curZak.zak.name+ +curZak.zak.adress+ :+IntToStr(curZak.zak.othour.hour)+.+IntToStr(curZak.zak.othour.min)+ :+IntToStr(curZak.zak.dohour.hour)+.+IntToStr(curZak.zak.dohour.min)+ :+IntToStr(curZak.zak.ves)+ :+IntToStr(curZak.zak.volume));:=curZak.next;;;;
nil)do(zak.addToCour)thenbreak;(curCur.Volume-curCur.NowVolume>=zak.volume)then(curCur.weight-curCur.NowWeight>=zak.ves)then(((curCur.ottime.hour=zak.ves) then(((curCur.ottime.hour<zak.othour.hour) or((curCur.ottime.hour=zak.othour.hour) and (curCur.ottime.min<=zak.othour.min))) and
zak.othour.hour)or((curCur.dotime.hour=zak.othour.hour)and(curCur.dotime.min>=zak.othour.min))))or">((curCur.dotime.hour>zak.othour.hour) or (( curCur.dotime.hour=zak.othour.hour) and (curCur.dotime.min>=zak.othour.min)))) or
(((curCur.ottime.hour<zak.dohour.hour) or((curCur.ottime.hour=zak.dohour.hour) and (curCur.ottime.min<=zak.dohour.min))) and
zak.dohour.hour)or((curCur.dotime.hour=zak.dohour.hour)and(curCur.dotime.min>=zak.dohour.min))))or">((curCur.dotime.hour>zak.dohour.hour) or (( curCur.dotime.hour=zak.dohour.hour) and (curCur.dotime.min>=zak.dohour.min)))) or
zak.othour.hour)or((curCur.ottime.hour=zak.othour.hour)and(curCur.ottime.min>=zak.othour.min)))and">(((curCur.ottime.hour>zak.othour.hour) or((curCur.ottime.hour=zak.othour.hour) and (curCur.ottime.min>=zak.othour.min))) and
((curCur.dotime.hour<zak.othour.hour) or (( curCur.dotime.hour=zak.othour.hour) and (curCur.dotime.min<=zak.othour.min))))(temp);.zak:=zak;.next:=curCur.PointZak;.PointZak:=temp;.NowWeight:=curCur.NowWeight+zak.ves;.NowVolume:=CurCur.NowVolume+zak.volume;.addToCour:=true;;;:=curCur.next;;:=zak.addToCour;;
nildo.zak.addToCour:=false;:=CurrListZak.next;;:=ListZak;currZaknil do(currZak);:=currZak.next;;;;;
nildo.zak.addToCour:=false;(CourZakBuff.zak);:=CourZakBuff.next;;;;;">{Удаление курьеров}TMainWind.DeleteCourButtonClick(Sender: TObject);,PrevCour:TCourier;:TCurZakaz;:=nil;:=GetCourierByIndex(FIOCourListBox.ItemIndex,prevCour);FIOCourListBox.ItemIndex=0 then:=DelCour.PointZak;:=DelCour.next;(DelCour);:=DelCour.PointZak;.next:=DelCour.next;;courZakBuff<>nil do.zak.addToCour:=false;(CourZakBuff.zak);:=CourZakBuff.next;;;;;
=0then:=listZak;currZak.numberListZakStringGrid.Row do:=currZak.next;:=currZak;.ShowModal;;;(tempBufZak);;
ListZakStringGrid.Rowdo:=delZak;:=DelZak.next;;:=ListCour;CurrCournil do(CurZakCour);:=curZakCour.next;;.Clear;;;
end.
unit GlobalTypes;=record:integer;:integer;;=^zakaz;=record:string;:integer;:string;:time;:time;:integer;:integer;:Tzakaz;:boolean;;=^curZakaz;=record:Tzakaz;:TCurZakaz;;=^courier;=record:integer;:string;:time;:time;
//time:integer;:integer;:integer;:Tcourier;:integer;:integer;:TCurZakaz;;:Tcourier;:Tzakaz;
implementation.
unit NewCourierUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, GlobalTypes;= class(TForm): TGroupBox;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;FormCreate(Sender: TObject);AddCourButtonClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TNewCourForm;:TCourier;: boolean;
23)thenException.Create(errorwithhour);;(">{$R *.dfm}TNewCourForm.FormCreate(Sender: TObject);:=false;;TNewCourForm.AddCourButtonClick(Sender: TObject);:string;,OtMinute,DoHour,DoMinute,Volume,Weight:integer;:=false;:=FIOCourEdit.Text;FIO= then(Wrong FIO,Left+Width div 2-50,top + Height div 2-50);;;:=StrToInt(OtHourCourEdit.Text);(OtHour23) thenException.Create(error with Hour);;( 59)thenExcep