Заключение

Данный курсовой проект является актуальным и отвечает предъявленым к нему требованиям. Была разработана и написана, на языке программирования высокого уровня Borland Delphi, с использованием баз данных, программа, позволяющая определить оптимальные параметры оперативной памяти.

Программное обеспечение реализует поиск и сортирование видеокарт по таким параметрам как: тех.процесс, шейдерные блоки, текстурные/растровые блоки, частота, (чип/шейдер/память), память (объём/тип), шина памяти.

База данных реализована при помощи таких программных приложений как MS Access і Borland Delphi. Скриншоты интерфейса программы и процесса разработки отображены в тексте курсовой работы. Текст программы представлен в приложении. С заданием курсового проекта справился удачно.

Список литературы

1. Delphi 5.0, учебный курс, Фараонов в.В., isbn 5-8952-020-4, 400 с.

2. Delhphi 4.0, Дарахвелидзе П.Г., Марков Е. П. 1998, 816 с.

3. Сайт http://delhpi.mastak.ru

4. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. - М.: Финансы и стати-стика, 1989. - 351 с.

5. Дейт К. Введение в системы баз данных //6-издание. - Киев: Диалектика, 1998. - 784 с.

6. Цаленко М.Ш. Моделирование семантики в базах данных. - М.: Наука, 1988

7. Ульман Д. Основы систем баз данных. - М.: Финансы и статистика, 1983. - 334 с.

Приложение

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, ExtCtrls, DBCtrls, Grids, DBGrids,

DBTables;

type

TForm1 = class(TForm)

Table1: TTable;

Query1: TQuery;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

SB_tip: TSpeedButton;

SB_Search: TSpeedButton;

SB_Exit: TSpeedButton;

SB1_Videokarta: TSpeedButton;

SB2_TIP: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

procedure SB1_VideokartaClick(Sender: TObject);

procedure SB2_TIPClick(Sender: TObject);

procedure SB_tipClick(Sender: TObject);

procedure SB_SearchClick(Sender: TObject);

procedure SB_ExitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SB1_VideokartaClick(Sender: TObject);

begin

DataSource1.DataSet:=Query1;

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT*FROM Videokarta ORDER BY Teh_process');

Query1.Open;

end;

procedure TForm1.SB2_TIPClick(Sender: TObject);

begin

DataSource1.DataSet:=Query1;

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT*FROM Videokarta ORDER BY Teh_process');

Query1.Open;

end;

procedure TForm1.SB_SearchClick(Sender: TObject);

var t:string;

begin

t:=Trim(Edit1.Text);

if Edit1.Text=''then Exit;

DataSource1.DataSet:=Query1;

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT*FROM Videokarta WHERE Teh_process="%'+t+'%"');

Query1.Open;

if Query1.IsEmpty then

begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT*FROM Videokarta WHERE Teh_process Like "%'+t+'%"');

Query1.Open;

if Query1.IsEmpty then

begin

ShowMessage('ПО запросу ничего не найдено');

Edit1.Text:='';

DataSource1.DataSet:=Table1;

end;

end;

end;

procedure TForm1.SB_tipClick(Sender: TObject);

var s:string;

begin

s:=Trim(Edit2.Text);

if Edit2.Text=''then Exit;

DataSource1.DataSet:=Query1;

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT*FROM Videokarta WHERE Teh_process ="'+s+'"');

Query1.Open;

if Query1.IsEmpty then

begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('SELECT*FROM Videokarta WHERE Teh_process Like "'+s+'"');

Query1.Open;

if Query1.IsEmpty then

begin

ShowMessage('ПО запросу ничего не найдено');

Edit2.Text:='';

DataSource1.DataSet:=Table1;

end;

end;

end;

procedure TForm1.SB_ExitClick(Sender: TObject);

begin

Form1.Close;

Application.Terminate;

end;

end.

42