Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 81248
Дата создания 2014
Страниц 29
Источников 16
Мы сможем обработать ваш заказ 25 января в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
1 810руб.
КУПИТЬ

Содержание

Содержание ВВЕДЕНИЕ 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.

Список литературы [ всего 16]

ЛИТЕРАТУРА 1. Архангельский, А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi (+ дискета); М.: Бином, 2006. - 415 c. 2. Бобровский, С. Delphi 5 Учебный курс; СПб: Питер, 2000. - 640 c. 4. Бобровский, Сергей Delphi 7. Учебный курс; СПб: Питер, 2008. - 736 c. 3. Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. - 618 c. 4. Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. - 577 c. 5. Калверт, Ч. Базы данных в Delphi 4; Киев: ДиаСофт, 1999. - 464 c. 6. Калверт, Ч. Базы данных в Delphi 4; Киев: ДиаСофт, 1999. - 464 c. 7. Сухарев, М.В. Основы Delphi. Профессиональный подход; М.: Наука и техника, 2004. - 600 c. 8. Шумаков, П.В. Delphi 3 и разработка приложений баз данных; М.: Нолидж, 1998. - 704 c.Галисеев Г.В. Программирование в среде Delphi 7. Самоучитель. – М.: Издательский дом «Вильямс», 2003. 9. Митчелл К. Керман Программирование и отладка в Delphi: Учебный курс: М.; СПб.; Киев, 2003. 10. Фаронов В.В. Delphi 6: Учебный курс. – СПб.: Питер, 2002. 11. Архангельский А.Я. ObjectPascal в Delphi. – СПб.: Бином, 2002. 12. Васильев А., Андреев А.VBA в Office 2000. – М., 2001. 13. Браун С. VisualBasic 6.0: Учебный курс. – СПб.: Питер, 2002, – 573 с. 14. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. – СПб.: БХВ-Петербург, 2002. 15. Каммингс С. VBA для «чайников». – 3-е изд. / Пер. с англ. – М.: Изд-ий дом «Вильямс», 2001. 16. Культин Н.Б. Delphi в задачах и примерах. – СПб.: БХВ-Петербург, 2003. список литературы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022