Проектирование сетевой базы данных "Учет сетевого и компьютерного оборудования"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

икс; Киев : Абрис, 2000. - 504 с.

.Игорева, Е.Л., Основы алгоритмизации и программирования (3-е издание)./ И.И. Попов, О.Л. Игорева - М. : Инфа-М, 2006 - 432 с.

.Гражданский кодекс РФ Части первая, вторая. М.: Норма. - 2000.

.Закон РФ от 27 ноября 1992 г. N 4015-1 "Об организации страхового дела в Российской Федерации" // Российская газета. - 12 января 1993 г.

Приложение А

Листинг программы

unit Unit2;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, XPMan, StdCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TGroupBox;: TButton;: TButton;: TXPManifest;: TGroupBox;: TButton;: TButton;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;N1Click(Sender: TObject);N2Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);N4Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm2;Unit3, Unit1, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}TForm2.N1Click(Sender: TObject);.show;;TForm2.N2Click(Sender: TObject);.Edit1.Text:='';.show;.Close;;TForm2.Button1Click(Sender: TObject);.show;;TForm2.Button2Click(Sender: TObject);.show;;TForm2.N4Click(Sender: TObject);.ADOQuery1.Active:=False;.ADOQuery1.Close;.ADOQuery1.SQL.Text:= 'Select Название, Стоимость, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=1';.ADOQuery1.ExecSQL;.ADOQuery1.Active:=True;.ADOQuery2.Active:=False;.ADOQuery2.Close;6.ADOQuery2.SQL.Text:= 'Select Название, Стоимость, Ед_измерения, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=1';

form6.ADOQuery2.ExecSQL;.ADOQuery2.Active:=True;.ADOQuery3.Active:=False;.ADOQuery3.Close;.ADOQuery3.SQL.Text:= 'select Sum(Сумма)from Учет_по_комп_оборудованию where id_отдела=1';.ADOQuery3.ExecSQL;.ADOQuery3.Active:=True;.ADOQuery4.Active:=False;.ADOQuery4.Close;.ADOQuery4.SQL.Text:= 'select Sum(Сумма)from Учет_по_сет_оборудованию where id_отдела=1';.ADOQuery4.ExecSQL;.ADOQuery4.Active:=True;6.Caption:= 'Учет оборудования отдела "Директорат"';

form6.show;;TForm2.N5Click(Sender: TObject);.ADOQuery1.Active:=False;.ADOQuery1.Close;.ADOQuery1.SQL.Text:= 'Select Название, Стоимость, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=2';.ADOQuery1.ExecSQL;.ADOQuery1.Active:=True;.ADOQuery2.Active:=False;.ADOQuery2.Close;6.ADOQuery2.SQL.Text:= 'Select Название, Стоимость, Ед_измерения, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=2';

form6.ADOQuery2.ExecSQL;.ADOQuery2.Active:=True;.ADOQuery3.Active:=False;.ADOQuery3.Close;.ADOQuery3.SQL.Text:= 'select Sum(Сумма)from Учет_по_комп_оборудованию where id_отдела=2';.ADOQuery3.ExecSQL;.ADOQuery3.Active:=True;.ADOQuery4.Active:=False;.ADOQuery4.Close;.ADOQuery4.SQL.Text:= 'select Sum(Сумма)from Учет_по_сет_оборудованию where id_отдела=2';.ADOQuery4.ExecSQL;.ADOQuery4.Active:=True;6.Caption:= 'Учет оборудования отдела "Бухгалтерия"';

form6.show;;TForm2.N6Click(Sender: TObject);.ADOQuery1.Active:=False;.ADOQuery1.Close;.ADOQuery1.SQL.Text:= 'Select Название, Стоимость, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=3';.ADOQuery1.ExecSQL;.ADOQuery1.Active:=True;.ADOQuery2.Active:=False;.ADOQuery2.Close;6.ADOQuery2.SQL.Text:= 'Select Название, Стоимость, Ед_измерения, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=3';

form6.ADOQuery2.ExecSQL;.ADOQuery2.Active:=True;.ADOQuery3.Active:=False;.ADOQuery3.Close;.ADOQuery3.SQL.Text:= 'select Sum(Сумма)from Учет_по_комп_оборудованию where id_отдела=3';.ADOQuery3.ExecSQL;.ADOQuery3.Active:=True;.ADOQuery4.Active:=False;.ADOQuery4.Close;.ADOQuery4.SQL.Text:='select 'select Sum(Сумма)from Учет_по_сет_оборудованию where id_отдела=3';.ADOQuery4.ExecSQL;.ADOQuery4.Active:=True;6.Caption:='Учет оборудования отдела Кадров';

form6.show;;TForm2.N7Click(Sender: TObject);.ADOQuery1.Active:=False;.ADOQuery1.Close;.ADOQuery1.SQL.Text:= 'Select Название, Стоимость, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=4';.ADOQuery1.ExecSQL;.ADOQuery1.Active:=True;.ADOQuery2.Active:=False;.ADOQuery2.Close;6.ADOQuery2.SQL.Text:= 'Select Название, Стоимость, Ед_измерения, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=4';

form6.ADOQuery2.ExecSQL;.ADOQuery2.Active:=True;.ADOQuery3.Active:=False;.ADOQuery3.Close;.ADOQuery3.SQL.Text:= 'select Sum(Сумма)from Учет_по_комп_оборудованию where id_отдела=4';.ADOQuery3.ExecSQL;.ADOQuery3.Active:=True;.ADOQuery4.Active:=False;.ADOQuery4.Close;.ADOQuery4.SQL.Text:= 'select Sum(Сумма)from Учет_по_сет_оборудованию where id_отдела=4';.ADOQuery4.ExecSQL;.ADOQuery4.Active:=True;6.Caption:='Учет оборудования Технического отдела';

form6.show;;TForm2.N8Click(Sender: TObject);.ADOQuery1.Active:=False;.ADOQuery1.Close;.ADOQuery1.SQL.Text:= 'Select Название, Стоимость, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=5';.ADOQuery1.ExecSQL;.ADOQuery1.Active:=True;.ADOQuery2.Active:=False;.ADOQuery2.Close;6.ADOQuery2.SQL.Text:='Select Название, Стоимость, Ед_измерения, Количество, Сумма from Учет_по_сет_оборудованию where id_отдела=5';

form6.ADOQuery2.ExecSQL;.ADOQuery2.Active:=True;.ADOQuery3.Active:=False;.ADOQuery3.Close;.ADOQuery3.SQL.Text:='select Sum(Сумма)from Учет_по_комп_оборудованию where id_отдела=5';.ADOQuery3.ExecSQL;.ADOQuery3.Active:=True;.ADOQuery4.Active:=False;.ADOQuery4.Close;.ADOQuery4.SQL.Text:='select Sum(Сумма)from Учет_по_сет_оборудованию where id_отдела=5';.ADOQuery4.ExecSQL;.ADOQuery4.Active:=True;6.Caption:='Учет оборудования отдела Продаж';

form6.show;;TForm2.Button4Click(Sender: TObject);.show;;TForm2.Button5Click(Sender: TObject);.show;;.

Blog

Проектирование сетевой базы данных "Учет сетевого и компьютерного оборудования"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование