Annotation. Course work is presented on 53 sheets of typewritten text, comprises 33 figure, 5 tables, a list of sources used includes more than 20 resources

Course work is presented on 53 sheets of typewritten text, comprises 33 figure, 5 tables, a list of sources used includes more than 20 resources.

Aim of the course is to develop a computerized information system to integrate network and computer equipment and external annexes.

Object of research - development of automated information systems.

Bottom line - developed an automated information system was and external application to it.

Scope- computer companies.

Приложение Б - ER-диаграмма для базы данных по учету сетевого и компьютерного оборудования

Приложение В - Схема данных и таблицы

Схема данных

Таблица «Оборудование»

Таблица «Склад»

Таблица «Оборудование»

Таблица «Поставщики»

Таблица «Категории»

Приложение Г - Запросы

Рисунок 1 – Запрос на выборку

Рисунок 2 - Запрос «Поставщики»

Рисунок 3 - SQL - запрос

Рисунок 4 - SQL – запрос (в режиме конструктора)

Приложение Д – Отчеты

Рисунок 1 - Отчет «Поставщики»

Рисунок 2 - Отчет «Поставщики запрос»

Рисунок 3 - Отчет «Наклейка»

Приложение Е – Код внешнего приложения

Form1:

unit Unit1;

interface

uses

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

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Menus, Unit2;

type

TForm1 = class(TForm)

con1: TADOConnection;

tbl1: TADOTable;

dbgrd1: TDBGrid;

ds1: TDataSource;

dbnvgr1: TDBNavigator;

btn1: TButton;

edt1: TEdit;

edt2: TEdit;

btn2: TButton;

btn3: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

btn4: TButton;

btn5: TButton;

ds2: TADODataSet;

mm1: TMainMenu;

tbl2: TADOTable;

tbl3: TADOTable;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

tbl4: TADOTable;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

tbl5: TADOTable;

N10: TMenuItem;

N11: TMenuItem;

N13: TMenuItem;

tbl6: TADOTable;

tbl7: TADOTable;

N12: TMenuItem;

tbl8: TADOTable;

procedure btn1Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

if (Form1.tbl1.Locate(Form1.edt1.Text, Form1.edt2.Text, [loCaseInsensitive])=True) then

ShowMessage('Найдено!')

elseShowMessage('Ненайдено!');

if (Form1.edt1.text='') or (Form1.edt2.text='') then

ShowMessage('Не введены данные!');

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

Form1.tbl1.Sort:=Form1.edt1.Text+' ASC';

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

Form1.tbl1.Sort:=Form1.edt1.Text+' DESC';

end;

procedure TForm1.btn5Click(Sender: TObject);

begin

Form1.tbl1.Filter:=Form1.edt1.Text+' ='+QuotedStr(Form1.edt2.Text);

Form1.tbl1.Filtered:=true;

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

Form1.tbl1.Filtered:=false;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

tbl2.Active:=True;

Ds1.DataSet:=tbl2;

// dbgrd1.DataSource:=Ds1;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

tbl1.Active:=True;

Ds1.DataSet:=tbl1;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

tbl3.Active:=True;

Ds1.DataSet:=tbl3;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

tbl4.Active:=True;

Ds1.DataSet:=tbl4;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

tbl5.Active:=True;

Ds1.DataSet:=tbl5;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

tbl6.Active:=True;

Ds1.DataSet:=tbl6;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

tbl7.Active:=True;

Ds1.DataSet:=tbl7;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

tbl8.Active:=True;

Ds1.DataSet:=tbl8;

end;

end.

Form2:

unit Unit2;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

procedure Label1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Label1Click(Sender: TObject);

begin

end;

end.

Дата добавления: 2015-05-09