Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсовая Евич.docx
Скачиваний:
0
Добавлен:
01.04.2025
Размер:
876.44 Кб
Скачать

Список использованной литературы.

  1. В.И. Фомин, И.А. Брусакова Проектирование программного средства – Методические указания к курсовому проекту по дисциплине «Стандартизация, сертификация и управление качеством программного обеспечения» - СПб: 2011

  2. Программирование и отладка в Delphi ™. Учебный курс. Митчелл К. Керман.

  3. http://www.liveinternet.ru/users/aikava_san/post130363994

  4. http://ru.wikipedia.org/wiki/

  5. Алексей Ярцев: «Жизненный цикл программы» 2010.

Андриков д.А.: «Оценка полной стоимости владения (tco) облачной инфраструктурой. Опыт расчёта для банка» 2012 Москва.

  1. 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.

~ 19 ~