Программа с динамической информацией о наличии автобусов в автопарке

Содержание ВВЕДЕНИЕ 2 1 ПОСТАНОВКА ЗАДАЧИ 4 2 СИСТЕМНЫЙ ПРОЕКТ 6 2.1 Описание алгоритма 6 2.2 Организация входных и выходных данных 8 3 ТЕХНИЧЕСКИЙ ПРОЕКТ 9 3.1 Спецификация программы 9 3.2 Текст программы 10 3.3 Тестированиепрограммы 28 3.4 Руководство пользователя 28 ЛИТЕРАТУРА 30 Содержание

db_';typeTBusOutForm = class(TForm) BitBtn1: TBitBtn;BusListStringGrid: TStringGrid; BitBtn2: TBitBtn;procedure BitBtn2Click(Sender: TObject);procedureFormShow(Sender: TObject);procedure BitBtn1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;DBBusList = recordnumber:integer;fio:string[255];marshrut:integer;status:integer;end;varBusOutForm: TBusOutForm;DBFileItem: File of DBBusList;ReadBusItem: DBBusList;implementation{$R *.dfm}procedure TBusOutForm.BitBtn2Click(Sender: TObject);beginBusOutForm.Hide;end;procedureTBusOutForm.FormShow(Sender: TObject);varcycle,flag:integer;beginflag:=0;for cycle:=0 to BusListStringGrid.RowCount - 1 do BusListStringGrid.Rows[cycle].Clear;BusListStringGrid.RowCount:= 2;BusListStringGrid.Cells[0,0]:='Номер';BusListStringGrid.Cells[1,0]:='ФИО';BusListStringGrid.Cells[2,0]:='Номермаршрута';BusListStringGrid.Cells[3,0]:='Статус';AssignFile(DBFileItem,DBFileName);ifFileExists(DBFileName) thenbeginReset(DBFileItem);while not Eof(DBFileItem) dobeginRead(DBFileItem,ReadBusItem);if (ReadBusItem.status = 0) thenbeginflag:=1;ifBusListStringGrid.Cells[0,1] <> '' then BusListStringGrid.RowCount:= BusListStringGrid.RowCount + 1;BusListStringGrid.Cells[0,BusListStringGrid.RowCount-1]:=IntToStr(ReadBusItem.number);BusListStringGrid.Cells[1,BusListStringGrid.RowCount-1]:=ReadBusItem.fio;BusListStringGrid.Cells[2,BusListStringGrid.RowCount-1]:=IntToStr(ReadBusItem.marshrut);BusListStringGrid.Cells[3,BusListStringGrid.RowCount-1]:=IntToStr(ReadBusItem.status);end;end;CloseFile(DBFileItem);if(flag=1) then BitBtn1.Enabled:= True;end;end;procedure TBusOutForm.BitBtn1Click(Sender: TObject);varcycle,count_read,number_write,flag_read:integer;beginBusListStringGrid.Cells[3,BusListStringGrid.Row]:='1';number_write:= StrToInt(BusListStringGrid.Cells[0,BusListStringGrid.Row]);AssignFile(DBFileItem,DBFileName);Reset(DBFileItem);count_read:=0;flag_read:=1;while (not eof(DBFileItem)) and (flag_read=1) dobeginRead(DBFileItem,ReadBusItem);count_read:=count_read+1;if (ReadBusItem.number=number_write) thenbeginReadBusItem.status:=1;Seek(DBFileItem,count_read-1);Write(DBFileItem,ReadBusItem);flag_read:=0;end;end;CloseFile(DBFileItem);ifBusListStringGrid.RowCount >2 thenbeginifBusListStringGrid.Row <> BusListStringGrid.RowCount - 1 thenbeginfor cycle:=BusListStringGrid.Row + 1 to BusListStringGrid.RowCount - 1 dobeginBusListStringGrid.Cells[0,cycle-1]:=BusListStringGrid.Cells[0,cycle];BusListStringGrid.Cells[1,cycle-1]:=BusListStringGrid.Cells[1,cycle];BusListStringGrid.Cells[2,cycle-1]:=BusListStringGrid.Cells[2,cycle];BusListStringGrid.Cells[3,cycle-1]:=BusListStringGrid.Cells[3,cycle];BusListStringGrid.Cells[4,cycle-1]:=BusListStringGrid.Cells[4,cycle];end;end;BusListStringGrid.Rows[BusListStringGrid.RowCount].Clear;BusListStringGrid.RowCount:=BusListStringGrid.RowCount - 1;endelsebeginBusListStringGrid.Rows[1].Clear;end;ifBusListStringGrid.Cells[0,1] = '' then BitBtn1.Enabled:=False;end;end.3.3 ТестированиепрограммыПри тестировании обработаны ситуации отсутствия файла с данными. В этом случае требуем файл будет создан заново. Обработаны ситуации при, которых невозможно отправить в рейс автобус находящийся уже на маршруте и нельзя принять автобус в парк уже находящийся в парке.3.4 Руководство пользователяОсновное окно программы имеет видДля выбора требуемого действия необходимо нажать по соответствующей кнопке в приложении.Форма редактирования списка автобусов имеет видВ таблице выводится список все имеющихся автобусов. Для добавления нового автобуса необходимо заполнить все поля и нажать кнопку «Добавить». Для удаления автобуса необходимо выбрать его в таблице и нажать кнопку «Удалить».Форма отправки автобусов на маршрут имеет видВ таблице отображаются все автобусы находящиеся в парке. Для отправки автобуса на маршрут необходимо выбрать соответствующий автобус и нажать кнопку «Отправить в рейс автобус».Форма прибытия автобусов в парк имеет видВ таблице отображаются все автобусы находящиеся на маршруте. Для прибытия автобуса в парк необходимо выбрать соответствующий автобус и нажать кнопку «Вернуть автобус».ЛИТЕРАТУРААрхангельский, А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi (+ дискета); М.: Бином, 2006. - 415 c.Бобровский, С. Delphi 5 Учебный курс; СПб: Питер, 2000. - 640 c.4. Бобровский, Сергей Delphi 7. Учебный курс; СПб: Питер, 2008. - 736 c.Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. - 618 c.Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. - 577 c.Калверт, Ч. Базы данных в Delphi 4; Киев: ДиаСофт, 1999. - 464 c.Калверт, Ч. Базы данных в Delphi 4; Киев: ДиаСофт, 1999. - 464 c.Сухарев, М.В. Основы Delphi. Профессиональный подход; М.: Наука и техника, 2004. - 600 c.Шумаков, П.В. Delphi 3 и разработка приложений баз данных; М.: Нолидж, 1998. - 704 c.Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель. – М.: Издательский дом «Вильямс», 2003.Митчелл К. Керман Программирование и отладка в Delphi: Учебный курс: М.; СПб.; Киев, 2003.Фаронов В.В. Delphi 6: Учебный курс. – СПб.: Питер, 2002.Архангельский А.Я. ObjectPascal в Delphi. – СПб.: Бином, 2002.Васильев А., Андреев А.VBA в Office 2000. – М., 2001.Браун С. VisualBasic 6.0: Учебный курс. – СПб.: Питер, 2002, – 573 с. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. – СПб.: БХВ-Петербург, 2002.Каммингс С. VBA для «чайников». – 3-е изд. / Пер. с англ. – М.: Изд-ий дом «Вильямс», 2001.Культин Н.Б. Delphi в задачах и примерах. – СПб.: БХВ-Петербург, 2003.