
- •Аннотация на курсовую работу.
- •Оглавление.
- •Список исполнителей с указанием номеров разделов и подразделов, выполненных каждым исполнителем
- •Техническое задание
- •Предполагаемая цена (сумма договора на разработку) с обоснованием
- •Календарный план разработки.
- •Технический проект
- •Эксплуатационная документация.
- •Список использованной литературы.
- •Андриков д.А.: «Оценка полной стоимости владения (tco) облачной инфраструктурой. Опыт расчёта для банка» 2012 Москва.
- •Листинг программы.
Список использованной литературы.
В.И. Фомин, И.А. Брусакова Проектирование программного средства – Методические указания к курсовому проекту по дисциплине «Стандартизация, сертификация и управление качеством программного обеспечения» - СПб: 2011
Программирование и отладка в Delphi ™. Учебный курс. Митчелл К. Керман.
http://www.liveinternet.ru/users/aikava_san/post130363994
http://ru.wikipedia.org/wiki/
Алексей Ярцев: «Жизненный цикл программы» 2010.
Андриков д.А.: «Оценка полной стоимости владения (tco) облачной инфраструктурой. Опыт расчёта для банка» 2012 Москва.
http://stringgrid-delphi.ru/
Листинг программы.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
TForm2 = class(TForm)
TForm2 = class(TForm)
bitbtn1: TButton;
bitbtn2: TButton;
bitbtn3: TButton;
bitbtn4: TButton;
bitbtn5: TButton;
bitbtn6: TButton;
bitbtn7: TButton;
bitbtn8: TButton;
bitbtn9: TButton;
bitbtn10: TButton;
bitbtn11: TButton;
bitbtn12: TButton;
Label1: TLabel;
procedure bitbtn1Click(Sender: TObject);
procedure bitbtn2Click(Sender: TObject);
procedure bitbtn3Click(Sender: TObject);
procedure bitbtn4Click(Sender: TObject);
procedure bitbtn5Click(Sender: TObject);
procedure bitbtn6Click(Sender: TObject);
procedure bitbtn7Click(Sender: TObject);
procedure bitbtn8Click(Sender: TObject);
procedure bitbtn9Click(Sender: TObject);
procedure bitbtn10Click(Sender: TObject);
procedure bitbtn11Click(Sender: TObject);
procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Save a TStringGrid to a file
procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, FileName);
Rewrite(f);
with StringGrid do
begin
// Write number of Columns/Rows
Writeln(f, ColCount);
Writeln(f, RowCount);
// loop through cells
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;
// Load a TStringGrid from a file
procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
var
f: TextFile;
iTmp, i, k: Integer;
strTemp: String;
begin
AssignFile(f, FileName);
Reset(f);
with StringGrid do
begin
// Get number of columns
Readln(f, iTmp);
ColCount := iTmp;
// Get number of rows
Readln(f, iTmp);
RowCount := iTmp;
// loop through cells & fill in values
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
begin
Readln(f, strTemp);
Cells[i, k] := strTemp;
end;
end;
CloseFile(f);
end;
procedure TForm1.Bitbtn1Click(Sender:TObject);
begin
Form2.Show;
end;
procedure TForm1.Bitbtn2Click(Sender:TObject);
begin
with StringGrid1 do
for i:=0 to ColCount-1 do
Cols[i].Clear;
end;
procedure TForm1.Bitbtn3Click(Sender:TObject);
begin
SaveStringGrid(StringGrid1, 'c:\temp.txt');
end;
procedure TForm1.Bitbtn4Click(Sender:TObject);
begin
LoadStringGrid(StringGrid1, 'c:\temp.txt');
end;
procedure TForm1.Bitbtn5Click(Sender:TObject);
begin
StringGrid1.RowCount:= StringGrid1.RowCount + 1;
procedure TForm1.Bitbtn6Click(Sender:TObject);
begin
StringGrid1.RowCount:= StringGrid1. RowCount -1
end;
procedure TForm1.Bitbtn7Click(Sender:TObject);
var
i:integer;
begin
while RowCount > 1 do
begin
StringGrid1.RowCount:= StringGrid1. RowCount -1
end;
end;
procedure TForm1.Bitbtn8Click(Sender:TObject);
begin
Form3.Show;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
StringGrid1. Cells[0,0]:='№';
StringGrid1. Cells[1,0]:= 'ФИО клиента';
StringGrid1. Cells[2,0]:='Наименование оборудования';
StringGrid1. Cells[3,0]:='Дата получения';
StringGrid1. Cells[4,0]:='Примерная дата выдачи';
StringGrid1. Cells[5,0]:='Дата выдачи ';
StringGrid1. Cells[6,0]:='Диагностика (причины поломки)';
StringGrid1. Cells[7,0]:='Гарантия';
StringGrid1. Cells[8,0]:='Наименование запчасти';
StringGrid1. Cells[9,0]:='Наличие на складе';
StringGrid1. Cells[10,0]:='Себестоимость';
StringGrid1. Cells[11,0]:='Цена';
StringGrid1. Cells[12,0]:='Наименование работы';
StringGrid1. Cells[13,0]:='Цена';
StringGrid1. Cells[14,0]:='Общая цена';
StringGrid1. Cells[15,0]:='Этап реализации';
end;
end.
~