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

• Голицына О.А., Попов И.И. «Основы алгоритмизации и про­граммирования: Учебное пособие». - М.: ФОРУМ: ИНФРА-М, 2002. - 432с.

• Инструкции предприятия по технике безопасности и пожарной безопасности.

• Н. Б.Культин – «Основы программирования в Delphi 7».

• Нормативно-техническая документация предприятия (стандарты предприятия, инструкции, положения и т.д.).

• Понамарев В. «Самоучитель. Базы данных в Delphi7». - СПб.: Питер, 2003. – 224с.: ил.

• «Проектирование и реализация баз данных Microsoft SQL Server 2008». Учебный курс MCSE/ Пер. с англ. - М.: Издательско-торговый дом «Русская редакция», 2009. - 704 с.

• С. П. Кандзюба, В. Н. Громов – «Delphi 7. Базы данных и приложения.»

• Справочники и учебники по системам программирования.

• Справочная система Firebird и IBExpert.

• Ф. Андон, В. Резниченко – «Язык запросов SQL. Учебный курс».

• Хомовенко А.Д. и др. «Базы данных: Уч. пособие для вузов.» - СПб.: КОРОНА ПРИНТ, 2002. - 67 с.

Приложение а

Листинг программы «Учет вычислительной и оргтехники»:

Форма 1. Главная.

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ComboBox1: TComboBox;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

N10: TMenuItem;

N11: TMenuItem;

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses unit2, unit3, unit4, unit5, unit6, Unit7, Unit8;

procedure TForm1.N9Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Лист2`');

adoquery1.SQL.Add('where `'+combobox1.Text+'` like '+chr(39)+edit1.Text+'%'+chr(39));

adoquery1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Лист2`');

adoquery1.Active:=true;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form7.show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form8.show;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form6.Show;

end;

end.

Форма 2.Системники.

unit Unit2;

interface

uses

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

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

type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ComboBox1: TComboBox;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.N9Click(Sender: TObject);

begin

form2.Close;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Системники`');

adoquery1.SQL.Add('where `'+combobox1.Text+'` like '+chr(39)+edit1.Text+'%'+chr(39));

adoquery1.Active:=true;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Системники`');

adoquery1.Active:=true;

end;

end.

Форма 3.Мониторы.

unit Unit3;

interface

uses

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

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

type

TForm3 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ComboBox1: TComboBox;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.N9Click(Sender: TObject);

begin

form3.Close;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Мониторы`');

adoquery1.SQL.Add('where `'+combobox1.Text+'` like '+chr(39)+edit1.Text+'%'+chr(39));

adoquery1.Active:=true;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Мониторы`');

adoquery1.Active:=true;

end;

end.

Форма 4.Принтеры.

unit Unit4;

interface

uses

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

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

type

TForm4 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ComboBox1: TComboBox;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.N9Click(Sender: TObject);

begin

form4.Close;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Принтеры`');

adoquery1.SQL.Add('where `'+combobox1.Text+'` like '+chr(39)+edit1.Text+'%'+chr(39));

adoquery1.Active:=true;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `принтеры`');

adoquery1.Active:=true;

end;

end.

Форма 5.Сканеры.

unit Unit5;

interface

uses

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

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

type

TForm5 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ComboBox1: TComboBox;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.N9Click(Sender: TObject);

begin

form5.Close;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Сканеры`');

adoquery1.SQL.Add('where `'+combobox1.Text+'` like '+chr(39)+edit1.Text+'%'+chr(39));

adoquery1.Active:=true;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Сканеры`');

adoquery1.Active:=true;

end;

end.

Форма 6.Модемы.

unit Unit6;

interface

uses

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

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

type

TForm6 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

ComboBox1: TComboBox;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.N9Click(Sender: TObject);

begin

form6.Close;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Модемы`');

adoquery1.SQL.Add('where `'+combobox1.Text+'` like '+chr(39)+edit1.Text+'%'+chr(39));

adoquery1.Active:=true;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

adoquery1.Active:=false;

adoquery1.SQL.Clear();

adoquery1.SQL.Add('select * from `Модемы`');

adoquery1.Active:=true;

end;

end.

Форма 7.Об авторе.

unit Unit7;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm7 = class(TForm)

Label1: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.dfm}

end.

Форма 8.О программе.

unit Unit8;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm8 = class(TForm)

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

end.