Компьютерные комплектующие

Автор работы: Пользователь скрыл имя, 21 Июля 2013 в 22:53, курсовая работа

Описание работы

Сегодня на рынке программных продуктов очень большое распространение получили различного рода программы, которые заменяют довольно привычные для нас вещи: учебники, прайс-листы, игры и т.д., причем во многих случаях использование таких программ дает большие результаты, чем традиционные средства.

Содержание работы

Введение…………………………………………………………………….
4
1
Анализ постановки задачи………………………………………………
5
1.1
Постановка задачи………………………………………………...
5
1.2
Уточнение задачи…………………………………………………
5
2
Техническое задание………………………………………………..……
6
2.1
Основание для разработки…………………………………..……
6
2.2
Назначение разработки…………………………………...………
6
2.3
Требования к программе…………………………………..……...
6

2.3.1
Требования к функциональным характеристикам……...
6

2.3.2
Требования к составу и параметрам технических средств……………………………………………………..
6

2.3.3
Требования к информационной и программной совместимости…………………………………………….
6

2.4
Требования к программной документации……………………...
7
2.5
Стадии и этапы разработки………………………………………
7
2.6
Порядок контроля и приёмки…………………………………….
7
3
Описание метода решения………………………………………………
8
4
Описание программы……………………………………………………
9
4.1
Общие сведения…………………………………………....……...
9
4.2
Функциональное назначение……………..…………….………...
9
4.3
Описание структуры программы………………………………...
9
4.4
Спецификация модулей программы……………………………..
9
4.5
Входные данные…………………………………………….….…
11
4.6
Выходные данные…………………………………………….…..
11
5
Программа и методика испытаний………………………………….….
12
5.1
Объект испытаний и требования к программе……………….…
12
5.2
Цель испытаний……………………………………………..…….
12
5.3
Методы испытаний…………………………………………….…
12
5.4
Средства и порядок испытаний………………………………….
13
5.5 Результат тестирования…………………………………………..
13
6
Описание применения…………………………………………………...
14
6.1
Назначение программы…………………………………………...
14
6.2
Условия применения……………………………………………...
14
Заключение…………………………………………………………………
15
Список использованных источников……………………………………..
16
Приложение А. Текст программы………………………………………...
17
Приложение Б. Результат работы программы……………………………
36
Приложение В. Экранные формы………………………………………...
39

Скачать архив (512.98 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

ПЗ Комплектующие компьютера.doc

— 699.50 Кб (Скачать файл)

min:=0;

n:=0;

DM.tHard.First;

While (flag<>true) and (not DM.tHard.Eof) do begin

If (DM.tHardVolume.AsString=Edit4.Text) and

(DM.tHardSpeed.AsInteger=StrToInt(ComboBox1.Text)) and

(DM.tHardFirm.AsString=DBLookupComboBox3.Text) then begin

flag:=true;

min:=DM.tHardPrice.AsInteger;

n:=DM.tHard.RecNo;

end;

DM.tHard.Next;

end;

If not flag then MessageDlg('Запись не найдена!',mtInformation,[mbOK],0)

else begin

DM.tHard.First;

For i:=1 to DM.tHard.RecordCount do begin

If (DM.tHardVolume.AsString=Edit4.Text) and

(DM.tHardSpeed.AsInteger=StrToInt(ComboBox1.Text)) and

(DM.tHardFirm.AsString=DBLookupComboBox3.Text) then begin

If DM.tHardPrice.AsInteger<min then begin

min:=DM.tHardPrice.AsInteger;

n:=DM.tHard.RecNo;

end; //if

DBGrid3.SetFocus

end; //if

DM.tHard.Next;

end; //for i

DM.tHard.RecNo:=n;

end; //else

end;

//Процедура поиска видеокарты с наименьшей ценой

procedure TMainForm.sVideoClick(Sender: TObject);

var i,n,min:integer;

flag:boolean;

begin

flag:=false;

min:=0;

n:=0;

DM.tVideo.First;

While (flag<>true) and (not DM.tVideo.Eof) do begin

If (DM.tVideoVolume.AsInteger=StrToInt(ComboBox2.Text)) and

(DM.tVideoFirm.AsString=DBLookupComboBox4.Text) then begin

flag:=true;

min:=DM.tVideoPrice.AsInteger;

n:=DM.tVideo.RecNo;

end;

DM.tVideo.Next;

end;

If not flag then MessageDlg('Запись не найдена!',mtInformation,[mbOK],0)

else begin

DM.tVideo.First;

For i:=1 to DM.tVideo.RecordCount do begin

If (DM.tVideoVolume.AsInteger=StrToInt(ComboBox2.Text)) and

(DM.tVideoFirm.AsString=DBLookupComboBox4.Text) then begin

If DM.tVideoPrice.AsInteger<min then begin

min:=DM.tVideoPrice.AsInteger;

n:=DM.tVideo.RecNo;

end; //if

DBGrid4.SetFocus

end; //if

DM.tVideo.Next;

end; //for i

DM.tVideo.RecNo:=n;

end; //else

end;

//Процедура поиска CD-ROM с наименьшей ценой

procedure TMainForm.sCDROMClick(Sender: TObject);

var i,n,min:integer;

flag:boolean;

begin

flag:=false;

min:=0;

n:=0;

DM.tCDROM.First;

While (flag<>true) and (not DM.tCDROM.Eof) do begin

If (DM.tCDROMSpeed.AsInteger=StrToInt(ComboBox3.Text)) and

(DM.tCDROMFirm.AsString=DBLookupComboBox5.Text) then begin

flag:=true;

min:=DM.tCDROMPrice.AsInteger;

n:=DM.tCDROM.RecNo;

end;

DM.tCDROM.Next;

end;

If not flag then MessageDlg('Запись не найдена!',mtInformation,[mbOK],0)

else begin

DM.tCDROM.First;

For i:=1 to DM.tCDROM.RecordCount do begin

If (DM.tCDROMSpeed.AsInteger=StrToInt(ComboBox3.Text)) and

(DM.tCDROMFirm.AsString=DBLookupComboBox5.Text) then begin

If DM.tCDROMPrice.AsInteger<min then begin

min:=DM.tCDROMPrice.AsInteger;

n:=DM.tCDROM.RecNo;

end; //if

DBGrid5.SetFocus

end; //if

DM.tCDROM.Next;

end; //for i

DM.tCDROM.RecNo:=n;

end; //else

end;

//Процедура поиска монитора с наименьшей ценой

procedure TMainForm.sMonitorClick(Sender: TObject);

var i,n,min:integer;

flag:boolean;

begin

flag:=false;

min:=0;

n:=0;

DM.tMonitor.First;

While (flag<>true) and (not DM.tMonitor.Eof) do begin

If (DM.tMonitorDiagonal.AsInteger=StrToInt(ComboBox4.Text)) and

(DM.tMonitorModel.AsString=Edit5.Text) and

(DM.tMonitorFirm.AsString=DBLookupComboBox6.Text) then begin

flag:=true;

min:=DM.tMonitorPrice.AsInteger;

n:=DM.tMonitor.RecNo;

end;

DM.tMonitor.Next;

end;

If not flag then MessageDlg('Запись не найдена!',mtInformation,[mbOK],0)

else begin

DM.tMonitor.First;

For i:=1 to DM.tMonitor.RecordCount do begin

If (DM.tMonitorDiagonal.AsInteger=StrToInt(ComboBox4.Text)) and

(DM.tMonitorModel.AsString=Edit5.Text) and

(DM.tMonitorFirm.AsString=DBLookupComboBox6.Text) then begin

If DM.tMonitorPrice.AsInteger<min then begin

min:=DM.tMonitorPrice.AsInteger;

n:=DM.tMonitor.RecNo;

end; //if

DBGrid6.SetFocus

end; //if

DM.tMonitor.Next;

end; //for i

DM.tMonitor.RecNo:=n;

end; //else

end;

procedure TMainForm.acMagfirmExecute(Sender: TObject);

begin

Magfirm.ShowModal;

end;

procedure TMainForm.acAboutExecute(Sender: TObject);

begin

About.ShowModal;

end;

procedure TMainForm.acExitExecute(Sender: TObject);

begin

Close;

end;

procedure TMainForm.FormActivate(Sender: TObject);

begin

DM.tProc.DatabaseName := GetCurrentDir + '\base';

DM.tFirma.DatabaseName := GetCurrentDir+'\base';

DM.tShop.DatabaseName := GetCurrentDir+'\base';

DM.tMatboard.DatabaseName := GetCurrentDir+'\base';

DM.tHard.DatabaseName := GetCurrentDir+'\base';

DM.tVideo.DatabaseName := GetCurrentDir+'\base';

DM.tCDROM.DatabaseName := GetCurrentDir+'\base';

DM.tMonitor.DatabaseName := GetCurrentDir+'\base';

DM.tSellers.DatabaseName := GetCurrentDir+'\base';

DM.tSale.DatabaseName := GetCurrentDir+'\base';

DM.tProc.Active := true;

DM.tFirma.Active := true;

DM.tShop.Active := true;

DM.tMatboard.Active := true;

DM.tHard.Active := true;

DM.tVideo.Active := true;

DM.tCDROM.Active := true;

DM.tMonitor.Active := true;

DM.tSellers.Active := true;

DM.tSale.Active := true;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DM.tProc.Active := false;

DM.tFirma.Active := false;

DM.tShop.Active := false;

DM.tMatboard.Active := false;

DM.tHard.Active := false;

DM.tVideo.Active := false;

DM.tCDROM.Active := false;

DM.tMonitor.Active := false;

DM.tSale.Active := false;

DM.tSellers.Active := false;

end;

procedure TMainForm.btProcAddClick(Sender: TObject);

begin

if PageControl1.ActivePageIndex = 0 then begin

Computer.StringGrid1.Cells[1,1] := DM.tProcId.AsString;

Computer.StringGrid1.Cells[2,1] := DM.tProcFirm.AsString;

Computer.StringGrid1.Cells[3,1] := DM.tProcModel.AsString;

Computer.StringGrid1.Cells[4,1] := DM.tProcFreq.AsString;

Computer.StringGrid1.Cells[5,1] := DM.tProcShop.AsString;

Computer.StringGrid1.Cells[6,1] := DM.tProcPrice.AsString;

end;

if PageControl1.ActivePageIndex = 1 then begin

Computer.StringGrid1.Cells[1,2] := DM.tMatboardId.AsString;

Computer.StringGrid1.Cells[2,2] := DM.tMatboardFirm.AsString;

Computer.StringGrid1.Cells[4,2] := DM.tMatboardModel.AsString;

Computer.StringGrid1.Cells[5,2] := DM.tMatboardShop.AsString;

Computer.StringGrid1.Cells[6,2] := DM.tMatboardPrice.AsString;

end;

if PageControl1.ActivePageIndex = 2 then begin

Computer.StringGrid1.Cells[1,3] := DM.tHardId.AsString;

Computer.StringGrid1.Cells[2,3] := DM.tHardFirm.AsString;

Computer.StringGrid1.Cells[3,3] := DM.tHardVolume.AsString;

Computer.StringGrid1.Cells[4,3] := DM.tHardSpeed.AsString;

Computer.StringGrid1.Cells[5,3] := DM.tHardShop.AsString;

Computer.StringGrid1.Cells[6,3] := DM.tHardPrice.AsString;

end;

if PageControl1.ActivePageIndex = 3 then begin

Computer.StringGrid1.Cells[1,4] := DM.tVideoId.AsString;

Computer.StringGrid1.Cells[2,4] := DM.tVideoFirm.AsString;

Computer.StringGrid1.Cells[4,4] := DM.tVideoVolume.AsString;

Computer.StringGrid1.Cells[5,4] := DM.tVideoShop.AsString;

Computer.StringGrid1.Cells[6,4] := DM.tVideoPrice.AsString;

end;

if PageControl1.ActivePageIndex = 4 then begin

Computer.StringGrid1.Cells[1,5] := DM.tCDROMId.AsString;

Computer.StringGrid1.Cells[2,5] := DM.tCDROMFirm.AsString;

Computer.StringGrid1.Cells[4,5] := DM.tCDROMSpeed.AsString;

Computer.StringGrid1.Cells[5,5] := DM.tCDROMShop.AsString;

Computer.StringGrid1.Cells[6,5] := DM.tCDROMPrice.AsString;

end;

if PageControl1.ActivePageIndex = 5 then begin

Computer.StringGrid1.Cells[1,6] := DM.tMonitorId.AsString;

Computer.StringGrid1.Cells[2,6] := DM.tMonitorFirm.AsString;

Computer.StringGrid1.Cells[3,6] := DM.tMonitorModel.AsString;

Computer.StringGrid1.Cells[4,6] := DM.tMonitorDiagonal.AsString;

Computer.StringGrid1.Cells[5,6] := DM.tMonitorShop.AsString;

Computer.StringGrid1.Cells[6,6] := DM.tMonitorPrice.AsString;

end;

procedure TMainForm.acComputerExecute(Sender: TObject);

begin

Computer.ShowModal;

end;

procedure TMainForm.acSellersExecute(Sender: TObject);

begin

Sellers.ShowModal;

end;

procedure TMainForm.acHistoryExecute(Sender: TObject);

begin

Sale.ShowModal;

end;

end.

unit uMagfirm;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, StdCtrls, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;

type

TMagfirm = class(TForm)

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

Button1: TButton;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Bevel1: TBevel;

Bevel2: TBevel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Magfirm: TMagfirm;

implementation

{$R *.dfm}

procedure TMagfirm.Button1Click(Sender: TObject);

begin

Close;

end;

end.

unit uAbout;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TAbout = class(TForm)

Image1: TImage;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

About: TAbout;

implementation

{$R *.dfm}

procedure TAbout.Button1Click(Sender: TObject);

begin

Close;

end;

end.

unit uDM;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDM = class(TDataModule)

dsProc: TDataSource;

dsMatboard: TDataSource;

dsHard: TDataSource;

dsVideo: TDataSource;

dsCDROM: TDataSource;

dsMonitor: TDataSource;

tProc: TTable;

tMatboard: TTable;

tHard: TTable;

tVideo: TTable;

tCDROM: TTable;

tMonitor: TTable;

tProcId: TAutoIncField;

tProcFreq: TSmallintField;

tProcModel: TStringField;

tProcPrice: TSmallintField;

dsFirma: TDataSource;

dsShop: TDataSource;

tFirma: TTable;

tShop: TTable;

tProcFirmId: TStringField;

tProcFirm: TStringField;

tProcShopId: TStringField;

tProcShop: TStringField;

tMatboardId: TAutoIncField;

tMatboardFirmId: TSmallintField;

tMatboardShopId: TSmallintField;

tMatboardModel: TStringField;

Информация о работе Компьютерные комплектующие