Автор работы: Пользователь скрыл имя, 23 Мая 2013 в 11:11, курсовая работа
В данной курсовой работе описание разрабатываемой задачи произведено в трех главах.
В первой главе дана характеристика задачи курсовой работы, разработана постановка задачи, осуществлен и обоснован выбор технических и программных средств, необходимых для решения задачи.
Вторая глава посвящена формализованному описанию алгоритма решаемой задачи, построению диаграмм и схемы программы.
В третий главе приводится описание контрольного примера решения задачи и руководство пользователя.
Введение
1. Постановка задачи "Разработать постановку и осуществить программную реализацию одного из модулей задачи "Информационная система магазина АЗ-01" (Магазин "Автозапчасти")
1.1 Характеристика задачи АЗ-01
1.2 Выходная информация задачи АЗ-01
1.3 Входная информация задачи АЗ-01
1.4 Выбор и обоснование состава технических средств и средств программной реализации задачи АЗ-01
2. Разработка алгоритма и программы решения задачи
2.1 Разработка математического алгоритма решения задачи
2.2 Разработка схемы данных программы с описанием задачи
2.3 Разработка схемы программы решения задачи с описанием
3. Разработка руководства пользователя и контрольного примера, демонстрирующего корректность решения задачи "Разработать постановку и осуществить программную реализацию одного из модулей задачи: "Информационная система АЗ-01" (Магазин "Автозапчасти")
Заключение
Список используемых источников
Column.Columns[4].ColumnWidth:
Column:=XLApp.Workbooks[1].
Column.Rows[1].Font.Bold:=
Column.Rows[1].Font.Color:=
Column.Rows[1].Font.Size:=14;
Sheet:=XLApp.Workbooks[1].
Sheet.Cells[1,2]:='Информация о деталях';
Sheet.Cells[2,1]:='Поставщик';
Sheet.Cells[2,2]:='№ поставщика';
Sheet.Cells[2,3]:='Количество'
Sheet.Cells[2,4]:='Стоимость';
Sheet.Cells[2,5]:='Название';
index:=3;
DataModule2.ADOQuery1.First;
for i := 0 to DataModule2.ADOQuery1.
begin
Sheet.Cells[index,1]:=
Sheet.Cells[index,2]:=
Sheet.Cells[index,3]:=
Sheet.Cells[index,4]:=
Sheet.Cells[index,5]:=
Inc(index);
DataModule2.ADOQuery1.Next;
end;
end;
procedure TForm11.FormActivate(Sender: TObject);
begin
DataModule2.ADOQuery1.Active:=
DBGrid1.Columns[0].Width:=100;
DBGrid1.Columns[4].Width:=100;
end;
procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Visible:=true;
end;
end.
Размещено на Allbest.ru