Главная Коллекция "Revolution" Программирование, компьютеры и кибернетика Разработка программы "Читальный зал"

Разработка программы "Читальный зал"

Применение системы объектно-ориентированного программирования Delphi. Объектно-ориентированные особенности языка. Особенности инфологического проектирования баз данных. Разработка приложения в Borland Delphi, технология Microsoft ActiveX Data Objects.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 26.09.2017
Размер файла 2,1 M
рефераты на заказ со скидкой

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

if radiogroup3.ItemIndex=3 then ADOQuery3.Filter:='адрес='''+edit11.Text+'''';

if radiogroup3.ItemIndex=4 then ADOQuery3.Filter:='Телефон='''+edit12.Text+'''';

if radiogroup3.ItemIndex=5 then ADOQuery3.Filter:='Место_работы='''+edit24.Text+'''';

if radiogroup3.ItemIndex=6 then ADOQuery3.Filter:='';

end;

procedure TForm1.Button14Click(Sender: TObject);

var

XL, Xarr: Variant;

i: Integer;

j: Integer;

begin

Xarr:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application');

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery1.First;

while not ADOQuery1.Eof do

begin

i:=1;

while i<=ADOQuery1.FieldCount do

begin

Xarr[i] := ADOQuery1.Fields[i-1].Value;

I := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := Xarr;

ADOQuery1.Next;

j:=j+1;

end;

XL.Range['A1',CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1'].select;

end;

procedure TForm1.Button15Click(Sender: TObject);

var

XL, Xarr: Variant;

i: Integer;

j: Integer;

begin

Xarr:=VarArrayCreate([1,ADOQuery2.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application');

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery2.First;

while not ADOQuery2.Eof do

begin

i:=1;

while i<=ADOQuery2.FieldCount do

begin

Xarr[i] := ADOQuery2.Fields[i-1].Value;

I := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery2.FieldCount)+IntToStr(j)].Value := Xarr;

ADOQuery2.Next;

j:=j+1;

end;

XL.Range['A1',CHR(64+ADOQuery2.FieldCount)+IntToStr(j)].select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1'].select;

end;

procedure TForm1.Button16Click(Sender: TObject);

var XL, Xarr: Variant;

i: Integer;

j: Integer;

begin

Xarr:=VarArrayCreate([1,ADOQuery3.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application');

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery3.First;

while not ADOQuery3.Eof do

begin

i:=1;

while i<=ADOQuery3.FieldCount do

begin

Xarr[i] := ADOQuery3.Fields[i-1].Value;

I := i+1; end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery3.FieldCount)+IntToStr(j)].Value := Xarr;

ADOQuery3.Next;

j:=j+1; end;

XL.Range['A1',CHR(64+ADOQuery3.FieldCount)+IntToStr(j)].select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1'].select;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

if RadioGroup4.ItemIndex=0 then begin

Edit21.Visible:=true;

if not ADOQuery1.Locate('Код_операции',Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

if RadioGroup4.ItemIndex=1 then begin

Edit21.Visible:=true;

if not ADOQuery1.Locate('Код_читателя',Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

if RadioGroup4.ItemIndex=2 then begin

Edit21.Visible:=true;

if not ADOQuery1.Locate('Код_книги',Edit21.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end ;

if RadioGroup4.ItemIndex=3 then begin

Edit21.Visible:=true;

if not ADOQuery1.Locate('Дата_выдачи',Edit21.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end ;

if RadioGroup4.ItemIndex=4 then begin

Edit21.Visible:=true;

if not ADOQuery1.Locate('Дата_возврата',Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

if RadioGroup4.ItemIndex=5 then begin

Edit21.Visible:=true;

if not ADOQuery1.Locate('Задолженность',Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

if RadioGroup4.ItemIndex=6 then begin

Edit21.Visible:=true; if not ADOQuery1.Locate('Дни_задолженности',Edit21.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

if RadioGroup5.ItemIndex=0 then begin Edit22.Visible:=true;

if not ADOQuery2.Locate('Код_книги',Edit22.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден'); end ;

if RadioGroup5.ItemIndex=1 then begin

Edit22.Visible:=true;

if not ADOQuery2.Locate('Автор',Edit22.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден'); end ;

if RadioGroup5.ItemIndex=2 then begin Edit22.Visible:=true;

if not ADOQuery1.Locate('Название',Edit22.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end ;

if RadioGroup5.ItemIndex=3 then begin Edit22.Visible:=true;

if not ADOQuery2.Locate('Год_издания',Edit22.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end ;

if RadioGroup5.ItemIndex=4 then begin Edit22.Visible:=true; if not ADOQuery2.Locate('Количество_экземпляров',Edit22.text,[loCaseInsensitive,lopartialkey) then showMessage('Не найден'); end ;

end ;

procedure TForm1.Button19Click(Sender: TObject);

begin if RadioGroup6.ItemIndex=0 then begin Edit23.Visible:=true;

if not ADOQuery3.Locate('Код_читателя',Edit23.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

if RadioGroup6.ItemIndex=1 then begin Edit23.Visible:=true;

if not ADOQuery3.Locate('ФИО_читателя',Edit23.text,[loCaseInsensitive,lopartialkey]) then showMessage('Не найден');

end ;

if RadioGroup6.ItemIndex=2 then begin Edit23.Visible:=true; if not ADOQuery3.Locate('Дата_регистрации',Edit23.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден'); end ;

if RadioGroup6.ItemIndex=3

then begin

Edit23.Visible:=true; if not ADOQuery3.Locate('адрес',Edit23.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end;

if RadioGroup6.ItemIndex=4 then begin

Edit23.Visible:=true;

if not ADOQuery3.Locate('Телефон',Edit23.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end;

if RadioGroup6.ItemIndex=5 then begin

Edit23.Visible:=true;

if not ADOQuery3.Locate('Место_работы',Edit23.text,[loCaseInsensitive,lopartialkey]) then

showMessage('Не найден');

end;

end;

end.

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

...

Страница:


Подобные документы

  • Изучение языка объектно-ориентированного программирования Borland Delphi и разработка практических заданий

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

    реферат [21,0 K], добавлен 13.01.2015

  • Разработка программы на языке программирования Delphi

    Особенности разработки приложений для операционной системы с помощью императивного, структурированного, объектно-ориентированного языка программирования Delphi. Формальное начало программы. Выделение конца программного блока. Листинг и описание программы.

    курсовая работа [1,2 M], добавлен 04.08.2014

  • Создание программы "Читальный зал"

    Инфологическое проектирование базы данных "Читальный зал" в среде СУБД MS Access. Расширение теоретических и практических знаний по использованию готовых и созданию собственных БД, применяя систему объектно-ориентированного программирования Delphi.

    курсовая работа [3,8 M], добавлен 10.12.2013

  • Составление кроссворда на языке объектно-ориентированного программирования

    История развития, характеристика, предназначение и особенности языка программирования Delphi. Разработка проекта создания кроссворда на объектно-ориентированном языке Delphi, который состоит из 19 вопросов по горизонтали и 16 вопросов по вертикали.

    курсовая работа [970,5 K], добавлен 15.05.2014

  • Работа торгового склада

    Разработка клиентского приложения для информационной системы "Работа торгового склада" с помощью языка объектно-ориентированного программирования Delphi 6 и технологии InterBase Express. Описание реляционной модели данных и этапы ее проектирования.

    курсовая работа [1,0 M], добавлен 19.03.2009

  • Использование строковых массивов при создании приложений в среде Delphi

    Ознакомление с историей создания и особенностями объектно-ориентированного языка программирования Delphi. Разработка приложения, фиксирующего количество повторений какого-либо слова в тексте, введённом в поле MEMO. Описание интерфейса программы.

    курсовая работа [880,1 K], добавлен 21.04.2015

  • Разработка базы данных автозаправочной станции

    Разработка приложения для работы с базой данных с использованием объектно-ориентированного и визуального программирования. Обзор языка элементов языка программирования Delphi. Проектирование базы данных автозаправки. Клиентская система приложения.

    курсовая работа [2,3 M], добавлен 31.01.2016

  • Разработка системы управления электронным документооборотом на примере ООО "Курортное"

    Стадии обработки документов в туристическом агентстве, проектирование базы данных. Реализация программного продукта с помощью объектно-ориентированного языка программирования Borland Delphi 7.0. и системы управления базами данных Microsoft Access 2003.

    дипломная работа [6,5 M], добавлен 22.01.2012

  • Технология структурного программирования в среде Delphi

    Анализ исходных данных. Определение структуры модуля для работы файлом. Разработка объектно-ориентированного приложения, использующего массив объектов, в среде Delphi. Модульная структура программного комплекса. Процедура сортировки методом вставки.

    курсовая работа [2,2 M], добавлен 20.09.2014

  • Основы программирования в среде Delphi 7.0

    Предмет объектно-ориентированного программирования и особенности его применения в средах Паскаль, Ада, С++ и Delphi. Интегрированная среда разработки Delphi: общее описание и назначение основных команд меню. Процедуры и функции программы Delphi.

    курсовая работа [40,8 K], добавлен 15.07.2009

  • Решение вычислительных задач и создание компонентов Delphi

    Теоретические основы объектно-ориентированного языка программирования Delphi, изучение среды визуального проектирования приложений. Определение 40-го числа Фибоначчи, составление листинга и блок-схемы программы, тестирование ее на работоспособность.

    курсовая работа [261,1 K], добавлен 25.03.2015

  • Построение базы данных "Абитуриент" для учебного заведения

    Объектно-ориентированные языки программирования. Среда разработки приложений Delphi и ее элементы. Разработка программного приложения. Описание работы системы "Абитуриент", являющейся хранилищем данных об абитуриентах, поступающих в учебное заведение.

    курсовая работа [1,8 M], добавлен 09.11.2011

  • Реализация средствами языка программирования Delphi программы "Файловый менеджер"

    Особенности создания программы "Файловый менеджер" в среде объектно-ориентированного программирования Delphi. Назначение и основные функции программы, формулировка задачи. Описание программы, использованные компоненты, интерфейс и порядок применения.

    контрольная работа [1,3 M], добавлен 19.06.2012

  • Программирование в Delphi математических процессов

    Использование объектно-ориентированной методологии при программировании математических процессов. Среда языка программирования Delphi для решения математических задач. Объектно-ориентированные, декларативные и императивные языки программирования.

    дипломная работа [1,8 M], добавлен 14.09.2011

  • Программа "Библиотека"

    Рассмотрение теоретических аспектов создания баз данных с применением системы объектно-ориентированного программирования Delphi. Ознакомление с компонентами доступа. Разработка базы данных "Библиотека". Описание основ интерфейса созданной программы.

    курсовая работа [1004,9 K], добавлен 26.10.2014

  • Разработка алгоритмов и программ

    Принципы разработки алгоритмов и программ на основе процедурного подхода и на основе объектно-ориентированного подхода. Реализация программы Borland Pascal 7.0, ее интерфейс. Разработка простой программы в среде визуального программирования Delphi.

    отчет по практике [934,7 K], добавлен 25.03.2012

  • Разработка программного приложения с базой данных учёта видов отдыха

    Характеристика системы программирования. Главные составные части Delphi. Интерфейс программного приложения. Результаты работы программы. Руководство системного программиста и оператора. Язык программирования Delphi, среда компилятора Borland 7.0.

    курсовая работа [1,6 M], добавлен 29.05.2013

  • Особенности работы в среде программирования Delphi

    Delphi - среда быстрой разработки, в которой в качестве языка программирования используется типизированный объектно-ориентированный язык Delphi. Варианты программного пакета. Особенности работы, вид экрана после запуска. Описание структуры программы.

    курсовая работа [1,3 M], добавлен 25.11.2014

  • Разработка приложения для Windows, которое обеспечивает выполнение операций сложения, вычитания и умножения над матрицами целых чисел

    Основные типы модулей, использующиеся в среде программирования Delphi 6. Концепция объектно-ориентированного программирования. Разработка эскизного и технического проектов программы. Алгоритм выполнения операций сложения, вычитания и умножения матриц.

    курсовая работа [559,1 K], добавлен 03.01.2011

  • Эскиз и спецификация типовых объектов управления графического интерфейса

    Разработка программы по оформлению заказов на билеты Оренбургского государственного областного драматического театра им. Горького. Использование объектно-ориентированного программирования и реализация проекта в среде визуального программирования Delphi 7.

    курсовая работа [6,3 M], добавлен 12.11.2014

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены