Рисунок 3.3 - Графики быстродействия, загрузки ЦП и хронологии использования физической памяти



4. Создание дистрибутива программного обеспечения

При запуске Install Shield Express появляется окно с радиогруппой, предлагающее открыть существующий проект или создать новый.

При создании нового проекта следует ввести имя проекта и указать каталог, в котором расположены файлы приложения.

Флажок "Include custom setup type" следует выбрать, если вы планируете предоставить пользователю возможность выбора варианта инсталляции Custom Setup для самостоятельного выбора варианта инсталляции. После этого появится главный экран InstallShield, в котором перечислена последовательность шагов, которые следует выполнить для создания дистрибутива.

В разделе Set the Visual Design следует заполнить поля со сведениями о приложении: название приложения, как оно будет выглядеть в программной группе, имя исполняемого файла, каталог, в который следует установить приложение.

Отметим, что Install Shield содержит несколько переменных, идентифицирующих диски и каталоги компьютера пользователя, что позволяет не знать реальную систему каталогов и дисков этого компьютера:

- <INSTALLDIR> - каталог для установки, указанный пользователем,

- <WINDIR> - каталог, в котором содержится Windows

- <WINSYSDIR> - каталог Windows\System

- <WINDISK> - диск, на котором содержится Windows

- <WINSYSDISK> - диск, на котором содержится каталог Windows\System

- <ProgramFilesDir> - каталог Program Files.

Щелкнув на закладке Main Window, можно установить заголовок инсталляционного приложения, цвет фона и логотип.

Щелкнув на закладке Features, можно обнаружить одну-единственную опцию - Automatic Uninstaller. Ее рекомендуется оставить выбранной.

Следующий раздел - Specify InstallShield Options for Borland C++ - предназначен для выбора компонентов, часто поставляемых с приложениями: BDE, SQL Links и др. Выбрав нужный компонент (в нашем случае BDE) и нажав кнопку Settings, получим последовательность из четырех диалоговых окон для выбора частей BDE, поставляемых с данным приложением, и создания псевдонимов.

При установке параметров псевдонимов можно выбрать тип псевдонима и местоположение данных. Остальные параметры псевдонима (в том числе и языковые драйверы) можно указать в текстовом редакторе в нижней части окна.

Щелкнув по закладке Advanced Options, можно ознакомиться со списком файлов дополнительных компонентов (в нашем случае BDE) и сведениями о них.

Следующий раздел - Specify Components and Files - предназначен для определения групп файлов, компонентов приложения и типов установки. Щелкнув на закладке Groups, можно создать группы файлов для создания из них компонентов дистрибутива. Можно также использовать Explorer и переносить из него нужные файлы методом drag-and-drop (для этого нужно нажать кнопку Launch Explorer). Не рекомендуется оставлять группы пустыми.

Щелкнув на закладке Components, можно определить компоненты дистрибутива (их сможет выбирать пользователь в случае выбора варианта инсталляции Custom, поэтому можно дать им русскоязычные названия) и указать, из каких групп файлов они состоят. Не следует оставлять компоненты, не содержащие групп.

Следующая закладка - Setup Types - предназначена для определения вариантов установки. Если щелкнуть на ней, может оказаться, что вариант инсталляции его один - Typical (например, вы забыли отметить флажок "Include custom setup type"). В этом случае следует выбрать раздел Select User Interface Components и, щелкнув на закладке Components, в списке Dialog Boxes отметить опции Setup Type и Custom Setup. После этого можно вернуться к закладке Setup Types и определить варианты инсталляции. Как правило, варианты Custom и Typical содержат все возможные компоненты, а вариант Compact - минимальный набор компонентов, пригодный для нормальной работы приложения.

В разделе Select User Interface Components можно выбрать диалоги, в которых пользователь вводит необходимую информацию во время инсталляции (например, сведения о себе и компании, серийный номер продукта), знакомится с лицензионным соглашением и файлам readme, указывает каталог для инсталляции, выбирает тип установки и т.д. Возможен также предварительный просмотр диалогов при нажатии кнопки Preview.

Следующий раздел - Make Registry Changes - позволяет создавать на компьютере пользователя новые ключи реестра (закладка Keys) и значения ключей (Values). Это может оказаться полезным, если вы используете в вашем приложении компоненты ActiveX или создаете OLE-сервер. Ключи и их значения можно копировать из редактора реестра, если он поддерживает такую опреацию.

Следующий раздел - Specify Folders and Icons - позволяет определить состав будущей программной группы, а также определить параметры командной строки (закладка Advanced).

Наконец, последний раздел - Run Disk Builder. После сохранения инсталляционного скрипта (с помощью нажатия на кнопку с изображением дискеты на панели инструментов главного окна InstallShield) и выбора типа носителей происходит создание на жестком диске образов дистрибутивных дискет. Выбрав затем раздел Create Distribution Media, можно записать на дискеты созданный дистрибутив.

Опцию Test Run можно использовать для проверки работы инсталляционного приложения. Однако не рекомендуется делать это на компьютере, где производится разработка приложений. Лучше провести тестовые испытания на компьютере, похожем на компьютеры ваших пользователей. Кроме того, рекомендуется создать на этом компьютере копию Windows, чтобы в случае некорректной работы инсталлятора можно было вернуть программное обеспечение в исходное состояние.

Запуск инсталляционной программы приводит к последовательному появлению выбранных в разделе Select User Interface Components диалогов.

Результатом работы инсталляционного приложения является установка приложения и необходимых для его работы файлов на компьютер пользователя, создание программной группы, внесение необходимых ключей в реестр.



5. Установка и запуск программного обеспечения

Для установки программы необходимо переместить файлы «Project1.exe» и «BAZA.mdb» в заранее созданную папку на том компьютере, где будет осуществляться запуск. В операционной системе Windows по умолчанию все программы хранятся в папке «C:\Program Files».

Для работы программы на компьютере должен быть заранее предустановлен пакет дополнений «Microsoft .Net Framework 3.5».

Для того чтобы осуществить запуск программы необходимо любым доступным способом открыть файл «Project1.exe» на выполнение. Например, наведя курсор мыши на файл программы, нажав правой клавишей мыши, выбрать пункт контекстного меню «Открыть».



Заключение

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

- изучен предмет исследования;

- выявлены процессы, подлежащие автоматизации и рассмотреть технологию обработки информации

- предложена проектную технологию обработки информации;

- разработана бд для ИС;

- разработан графический интерфейс для программного модуля и макетный образец.

В итоге сделанных проектных мероприятий в данной работе разработана информационная система, лежащая в базе учета компьютеров в организации. Разработанная ИС относится к информационным системам аналитического типа.

Подобное приложение БД способствует автоматизации работы инженера информационно вычислительного отдела, и других специалистов, чья работа связана с учетом компьютеров.

Операции и расчеты, производимые в приложении должны соответствовать принятым правилам и нормам учета компьютеров на предприятии.



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

1.Иванова Г.С. Технология программирования: Учебник для вузов. - 2-е изд., стереотип. - М.: Изд-во МГТУ им. Н.Э. Баумана, 2013. - 320 с: ил. (Сер. Информатика в техническом университете.)

2. В.Н. Петров «Информационные системы» - 688л. Изд. Питер, 2012г.

45.Автоматизация управления предприятием / В.В. Баронов, Г.Н.Калянов, Ю.Н. Попов и др. - М.: Инфра-М, 2010.

6.Алан Р. Саймон. Стратегические технологии баз данных: менеджмент на 2010 год / Пер. с англ и предисл. М.Р. Когаловского. - М.: Финансы и статистика, 2009

8.Дейт К. Дж. Введение в системы баз данных. - 6-е изд. - М., СПб., Киев, Изд. дом Вильяме, 2010.

10.Липаев В.В. Системное проектирование сложных программных средств для информационных систем. - М.: Синтег, 2011.

11.Божко В.П. Основы проектирования информационного обеспечения АСИС: Учебное пособие /МЭСИ/ - М., 2011. - 38 с.

12.Бугреева Т.В., Каширина Н.В., Лемешко Е.В., Романчуков В.Г Программные вопросы проектирования АРМ в среде СУБД: Учеб. пособие /ГАУ им. С. Орджоникидзе - М., 2013. - 45 с.

15.Диго С.М. Проектирование баз данных. - М.: Финансы и статистика, 2015.

17.Диго С.М. Проектирование баз данных: Учебник. - М.: Финансы и статистика, 2000. 216 с.: ил.

18.Архангельский А.Я. Delphi 7 Справочное пособие. - М.: Бином-Пресс. -2014. -1024 с.

19.Архангельский А.Я. Программирование в Delphi 7 + дискета, М.: Бином, 2015. - 987 с.

20.Сухарев М.В. Основы Delphi. Профессиональный подход, Наука и техника, 2014.-420 с.

21.Глушаков С.В., Клевцов А.Л., Программирование в среде Delphi 7.0, Фолио 2013 - 415 с.



Приложение 1. Руководство программиста

РУКОВОДСТВО ПРОГРАММИСТА

Проектирование программного обеспечения «Учет компьютеров»

КП П131.К872 33

1 Назначение и условия применения программы

Программа представляет собой набор функций, написанных на языке программирования Delphi 7, решающих задачи: выделения оперативной памяти под хранение базы данных, очистки оперативной памяти, заполнения таблиц, вывод таблиц; вывода ошибок и предупреждений, вывода справочной информации.

Для функционирования программы необходимы следующие периферийные устройства: клавиатура и монитор.

2 Характеристика программы

Программа предназначена для решения проблемы учета компьютеров на предприятии. Ограничение на размер хранимых записей в бд ограничено размером оперативной памяти. Общение пользователя производиться с помощью графического интерфейса.

Разработанная система предоставляет следующих возможностей:

1.возможность хранения данные;

2.возможность хранить информацию о различном программном обеспечении;

3.возможность выполнять хранение сведения о списанных компьютерах;

4.возможность выдавать отчеты:

5.отчёт, содержащий данные каждого компьютера, а так же ряд его характеристики.

3 Обращение к программе

Исполняемый файл программы Project1.EXE. Открытие файла происходит стандартными средствами ОС Windows (например, двойной щелчок левой кнопкой мыши).

4Входные и выходные данные

Входные данные: Ряд сведений об учете всех компьютеров и комплектующих данных компьютеров.

1.Блок питания;

2.Видеокарта;

3.Жесткий диск;

4.Материнская плата;

5.Корпус;

6.Монитор;

7.Процессор;

8.Оперативная память.

При вводе входных данных каждый параметре отписаться названием и описанием.

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

5Сообщения

«Недоступное значение! Доступны только числовые значения!»

Сообщения выдаются при некорректном вводе параметров поиска.

«Удалить?»

Подтверждение удаления записи.



Приложение 2. Руководство пользователя

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

Анализ программного обеспечения «Учет компьютеров»

КП П131.И268 34

1 Общие сведения о программе

Программа представляет собой набор функций, написанных на языке программирования Delphi 7, решающих задачи: выделения оперативной памяти под хранение базы данных, очистки оперативной памяти, заполнения таблиц, вывод таблиц; вывода ошибок и предупреждений, вывода справочной информации.

Для функционирования программы необходимы следующие периферийные устройства: клавиатура и монитор.

Программа предназначена для решения проблемы учета компьютеров на предприятии. Ограничение на размер хранимых записей в бд ограничено размером оперативной памяти. Общение пользователя производиться с помощью графического интерфейса.

Разработанная система предоставляет следующих возможностей:

1.возможность хранения данные;

2.возможность хранить информацию о различном программном обеспечении;

3.возможность выполнять хранение сведения о списанных компьютерах;

4.возможность выдавать отчеты:

5.отчёт, содержащий данные каждого компьютера, а так же ряд его характеристики.

2 Описание установки

Установка не требуется. Необходимо поместить в одну папку Project1.EXE и BAZA.mdb

3 Описание запуска

Исполняемый файл программы Project1.EXE. Открытие файла происходит стандартными средствами ОС Windows (например, двойной щелчок левой кнопкой мыши).

4 Описание пользовательского интерфейса

После запуска пользователь должен пройти авторизацию. Программа включает два различных пользователя «пользователь» и «администратор», форма входа представлена на рисунке 1. При выборе логина «пользователь» из выпадающего списка пароль не нужен, необходимо нажать кнопку вход и запустится следующее окно представление на рисунке 2 это главное окно программы. Для выхода из окна авторизации необходимо нажать кнопку выход или красный крести в верхнем правом углу окна.

Рисунок 1 - Окно авторизации

Рисунок 2 - Главное окно программы

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

При выборе из выпадающего списка с лева части комплектующего компьютера и нажатии кнопки «подробнее» откроется окно представление на рисунке 3. Здесь можно просмотреть более подробную информацию по комплектующему.

Можно совершить поиск, указав параметры комплектующего и потом вывести результат поиска в Excel нажав кнопку «Вывод в Excel». Для выхода из программы необходимо нажать кнопку выход или красный крести в верхнем правом углу окна. Для возврата к окну авторизации необходимо нажать кнопку «Выход из системы».

Рисунок 3 - Окно «Сведенья о компьютера»

5 Сообщения пользователю

«Недоступное значение! Доступны только числовые значения!»

Сообщения выдаются при некорректном вводе параметров поиска.



Приложение 3. Листинг программы

ЛИСТИНГ ПРОГРАММЫ

Проектирование программного обеспечения «Учет компьютеров»

КП П131.О55 12

unit Unit2;

interface

uses

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

Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, OleServer, ExcelXP, jpeg,

ExtCtrls, DBCtrls;

type

TForm2 = class(TForm)

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button6: TButton;

Button10: TButton;

Label9: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

GroupBox1: TGroupBox;

Edit1: TEdit;

EA1: TExcelApplication;

DBNavigator1: TDBNavigator;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

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

procedure Button3Click(Sender: TObject);

procedure DataSource1DataChange(Sender: TObject; Field: TField);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

tablename,fieldpoisk:string;

dobav:boolean;

abs:integer;

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3, Unit4;

{$R *.dfm}

procedure zapros(a,b,c,d:string);

begin

form2.ADOQuery2.sql.clear;

form2.adoquery2.sql.add('SELECT '+a+' FROM '+b+' WHERE '+c+'='+d);

form2.adoquery2.active:=true;

end;

function zagruz(zag1,zag2,zag3:string):string;

begin

Form2.ADOQuery2.SQL.Clear;

Form2.ADOQuery2.SQL.Add('SELECT Название FROM '+zag1+' WHERE '+zag2+'='+zag3);

Form2.ADOQuery2.Open;

zagruz:=Form2.ADOQuery2.FieldByName('Название').AsString;

end;

procedure TForm2.Button10Click(Sender: TObject);

var row:byte; myrange:excelrange;

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Компьютер');

ADOQuery1.open;

EA1.AutoConnect:=True;

EA1.Workbooks.Add(EmptyParam,0);

EA1.Cells.Item[1,1]:='Компьютеры';

myRange:=EA1.Range[EA1.Cells.Item[1,1],EA1.Cells.Item[1,9]];

myRange.MergeCells:=true;

myRange.HorizontalAlignment:=xlCenter;

myRange.Font.Size:=14;

myRange.Font.Bold:=true;

EA1.Cells.Item[2,1]:='Номер';

EA1.Cells.Item[2,2]:='Блок питания';

EA1.Cells.Item[2,3]:='Материнская плата';

EA1.Cells.Item[2,4]:='Корпус';

EA1.Cells.Item[2,5]:='Монитор';

EA1.Cells.Item[2,6]:='Жесткий диск';

EA1.Cells.Item[2,7]:='Оперативная память';

EA1.Cells.Item[2,8]:='Процессор';

EA1.Cells.Item[2,9]:='Видеокарта';

EA1.Range[EA1.Cells.Item[2,1],EA1.Cells.Item[2,9]].HorizontalAlignment:=xlCenter;

row:=2;

ADOQuery1.First;

While not ADOQuery1.Eof do begin

inc(row);

EA1.Cells.Item[row,1]:=ADOQuery1.FieldByName('id_компьютера').AsString;

EA1.Cells.Item[row,2]:=zagruz('Блок_питания','id_блока_питания',ADOQuery1.FieldByName('блок_питания').AsString);

EA1.Cells.Item[row,3]:=zagruz('Материнская_плата','id_материнской_платы',ADOQuery1.FieldByName('материнская_плата').AsString);

EA1.Cells.Item[row,4]:=zagruz('Корпус','id_корпуса',ADOQuery1.FieldByName('корпус').AsString);

EA1.Cells.Item[row,5]:=zagruz('Монитор','id_монитора',ADOQuery1.FieldByName('монитор').AsString);

EA1.Cells.Item[row,6]:=zagruz('Жесткий_диск','id_жесткого_диска',ADOQuery1.FieldByName('жесткий_диск').AsString);

EA1.Cells.Item[row,7]:=zagruz('Оперативная_память','id_ОЗУ',ADOQuery1.FieldByName('оперативная_память').AsString);

EA1.Cells.Item[row,8]:=zagruz('Процессор','id_процессора',ADOQuery1.FieldByName('процессор').AsString);

EA1.Cells.Item[row,9]:=zagruz('Видеокарта','id_видеокарты',ADOQuery1.FieldByName('видеокарта').AsString);

ADOQuery1.Next;

end;

EA1.Range[EA1.Cells.Item[1,1],EA1.Cells.Item[row,9]].Borders.LineStyle:=xlContinuous;

EA1.Columns.AutoFit; Form2.EA1.Visible[0]:=true;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if application.messagebox('Удалить?','Удаление',MB_YESNO)=IDYES then adoquery1.delete;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

form1.Show;

form2.Hide;

form1.ComboBox1.ItemIndex:=1;

form1.Edit1.Clear;

combobox1.ItemIndex:=0;

combobox2.ItemIndex:=0;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

ADOQUERY1.First;

end;

procedure TForm2.Button6Click(Sender: TObject); var x:string;

begin

x:=ADOQuery1.FieldByName(tablename).AsString;

case combobox1.ItemIndex of

0: zapros('*',TableName,'id_блока_питания',x);

1: zapros('*',TableName,'id_видеокарты',x);

2: zapros('*',TableName,'id_жесткого_диска',x);

3: zapros('*',TableName,'id_корпуса',x);

4: zapros('*',TableName,'id_материнской_платы',x);

5: zapros('*',TableName,'id_монитора',x);

6: zapros('*',TableName,'id_ОЗУ',x);

7: zapros('*',TableName,'id_процессора',x);

end;

form3.Label1.Show;

form3.label1.Caption:=ComboBox1.Text;

dobav:=false; form3.showmodal;

ADOQuery2.sql.clear;

ADOQuery2.sql.add('SELECT * FROM '+tablename);

ADOQuery2.active:=true;

end;

procedure TForm2.Button7Click(Sender: TObject);

begin

ADOQuery1.Last;

end;

procedure TForm2.Button8Click(Sender: TObject);

begin

ADOQuery1.Next;

end;

procedure TForm2.Button9Click(Sender: TObject);

begin

ADOQuery1.Prior;

end;

procedure TForm2.ComboBox1Change(Sender: TObject); var par:byte;

begin

case combobox1.ItemIndex of

0: tablename:='Блок_питания';

1: tablename:='Видеокарта';

2: tablename:='Жесткий_диск';

3: tablename:='Корпус';

4: tablename:='Материнская_плата';

5: tablename:='Монитор';

6: tablename:='Оперативная_память';

7: tablename:='Процессор';

end;

end;

procedure TForm2.ComboBox2Change(Sender: TObject);

begin

case combobox2.ItemIndex of

0: fieldpoisk:='Блок_питания';

1: fieldpoisk:='Видеокарта';

2: fieldpoisk:='Жесткий_диск';

3: fieldpoisk:='Корпус';

4: fieldpoisk:='Материнская_плата';

5: fieldpoisk:='Монитор';

6: fieldpoisk:='Оперативная_память';

7: fieldpoisk:='Процессор';

end;

end;

procedure TForm2.DataSource1DataChange(Sender: TObject; Field: TField);

begin

zapros('Название','Блок_питания','id_блока_питания',ADOQuery1.FieldByName('блок_питания').AsString);

label1.Caption:='Блок питания: '+ADOQuery2.FieldByName('Название').value;

zapros('Название','Видеокарта','id_видеокарты',ADOQuery1.FieldByName('видеокарта').AsString);

label2.Caption:='Видеокарта: '+ADOQuery2.FieldByName('Название').asstring;

zapros('Название','Жесткий_диск','id_жесткого_диска',ADOQuery1.FieldByName('жесткий_диск').AsString);

label3.Caption:='Жесткий диск: '+ADOQuery2.FieldByName('Название').asstring;

zapros('Название','Корпус','id_корпуса',ADOQuery1.FieldByName('корпус').AsString);

label4.Caption:='Корпус: '+ADOQuery2.FieldByName('Название').asstring;

zapros('Название','Материнская_плата','id_материнской_платы',ADOQuery1.FieldByName('материнская_плата').AsString);

label5.Caption:='Материнская плата: '+ADOQuery2.FieldByName('Название').asstring;

zapros('Название','Монитор','id_монитора',ADOQuery1.FieldByName('монитор').AsString);

label6.Caption:='Монитор: '+ADOQuery2.FieldByName('Название').asstring;

zapros('Название','Оперативная_память','id_ОЗУ',ADOQuery1.FieldByName('оперативная_память').AsString);

label7.Caption:='Оперативная память: '+ADOQuery2.FieldByName('Название').asstring;

zapros('Название','Процессор','id_процессора',ADOQuery1.FieldByName('процессор').AsString);

label8.Caption:='Процессор: '+ADOQuery2.FieldByName('Название').asstring;

end;

procedure TForm2.DBGrid1TitleClick(Column: TColumn);

begin

if abs=0 then begin ADOQuery1.Sort:=Column.FieldName + ' DESC'; abs:=1; end

else begin ADOQuery1.Sort:=Column.FieldName + ' ASC'; abs:=0;

end;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Компьютер WHERE '+fieldpoisk+' LIKE ''%'+edit1.text+'%''');

ADOQuery1.Active:=True;

end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['1'..'9']) then begin application.messagebox('Недопустимое значение!'+#13+'Допустимы только числовые значения!','Ошибка!'); key:=#0;

end;

end;

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

begin

form1.Close;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT * FROM Компьютер');

ADOQuery1.Active:=True;

fieldpoisk:='Блок_питания'; TableName:='Блок_питания';

zapros('*',TableName,'id_блока_питания',ADOQuery1.FieldByName(tablename).AsString);

end;

end.

Размещено на Allbest.ru