База данных "Сериалы"

 

Федеральное государственное автономное образовательное учреждение высшего профессионального образования «Уральский федеральный университет имени первого Президента России Б.Н. Ельцина».

Курсовая работа

«База данных «Сериалы»

Руководитель: Неудачин И.Г.

Студент: Горбич Д.Л.

Группа: ФТ-210802

Екатеринбург - 2012

Оглавление

1. Аннотация

. Техническое задание

. Спецификация

. Структура проекта

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

. Описание работы программы

. Программа и методика испытаний

. Руководство пользователя

Заключение

Библиографический список

Приложения

1. Аннотация

Наименование Базы данных: TVShows.

Разработка ведется по заказу кафедры ВТ УГТУ - УПИ им. С.М. Кирова.

Программа направлена на создание Фильмотеки. Она позволяет в режиме меню или в программном режиме вводить и запрашивать данные о Фильмах, сортировать по любому из шести полей базы данных. Не выходя из программы, можно создать новую таблицу, стереть её.

Технические характеристики:

В программе используются объекты библиотеки визуальных компонентов: MainMenu,DBGrid, DBEdit, Memo, PopupMenu…

Программа не предусматривает взаимодействие с другими программными продуктами.

Хранение информации о Фильмах происходит в виде таблицы формата Paradox 7 (Top10, I:\ПНЯВУ\Курсовая\3).

Программа проектировалась в среде визуального программирования Delphi 7.

Операционная система Windows 98/NT/XP/7.

Структура базы данных.

База данных состоит из одной таблицы.

Таблица состоит из записей, содержащих информацию о сериалах, описанную в спецификации (см. раздел 3).

Требования к вычислительной системе. Процессор не нижеPentium IV Оперативная память 512 Мб Объем файла TVShows.exe = 1,26 MB Пароль доступа к редактированию таблицы 321.

2. Техническое задание

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

Задание:

Создать специализированную систему управления базой данных (Спец СУБД) для обработки информации из выбранной прикладной области знаний.

Требования к СУБД: СУБД создается для IBM-совместимых компьютеров для работы в операционной системы Windows 98/NT/XP. Она должна включать в себя следующие функции:

а) Создание, удаление, загрузка, запись в базу данных (БД) информации из выбранной прикладной области знаний.

) Добавление, удаление, редактирование записей в БД.

) Сортировка БД по различным полям.

) Доступ к нужной информации.

) Работа через меню.

) Быстрые и короткие клавиши.

) Поиск нужных данных (удовлетворение запросов пользователя);

) Специальный для этой БД пункт меню. Например: диалог выбора, рекомендации, специфические вычисления, статистическая обработка, и т. д.

) Выход из СУБД.

Требования к интерфейсу пользователя:

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

СУБД предоставляет дополнительную информацию о ней, а также о содержащихся в ней данных в справочных файлах, окне «О программе", всплывающих оперативных подсказках, звуковых сигналах (или файлах) и т. д.

Разработка БД должна осуществляться в соответствии со сроками, указанными в «Задании по курсовому проектированию».

. Спецификация

Структура таблицы «films.db», рабочий каталог

№СодержаниеИмя поляТип поляШирина поля1НазваниеNamestring[25]252Оригинальное названиеNameOrigstring[25]253СтранаCountrystring[20]204Автор идеиCreatedBystring[20]205ТелеканалChanelstring[20]206Количество сезоновSezNuminteger97Количество серийSerNuminteger98Продолжительность серииSerTimeInteger99СтатусStatusstring[10]10

Пример

НазваниеОригинальное названиеСтранаАвтор идеиТелеканалКоличество сезоновКоличество серийПродолжительность серииСтатусДоктор ХаусHouse M.DСШАДэвид ШорFOX817742ЗавершёнТеория большого взрываBig Bang TheoryСШАЧак ЛорриCBS612220СнимаетсяОбмани меняLie to MeСШАСэмюэл БаумFOX34842ЗавершёнШерлокSherlockВеликобританияСтивен МоффатBBC One2690СнимаетсяСверхъестественноеSupernaturalСШАЭрик КрипкеThe CW815541СнимаетсяДекстерDexterСШАДжеймс МаносShowtime77355СнимаетсяКак я встретил вашу мамуHow I Met Your MotherСШАКартер БейзCBS817022ОтбросыMisfitsВеликобританияГовард ОверманE442943Остаться в живыхLostСШАДж. Дж. АбрамсABC612143ЗавершёнБлудливая калифорнияCalifornicationСШАТом КапиносShowtime56028Снимается

. Структура проекта

Список элементов проекта и их функций: файлы, формы, модули.

Текст проекта находится в приложении A. Файл называется TVShows.dpr

Файл Top10.db содержит таблицу БД с описанной в спецификации структурой.

Файл Unit1.Pas содержит модуль 1 проекта. Он вызывается из I:\ПНЯВУ\Курсовая\3\Unit1.pas.Модуль содержит коды обработчиков событий для главной формы.

Файл Unit2.Pas содержит модуль 1 проекта. Он вызывается из I:\ПНЯВУ\Курсовая\3\Unit2.pas. Модуль содержит коды обработчиков событий для второй формы.

Файл Unit3.Pas содержит модуль 1 проекта. Он вызывается из I:\ПНЯВУ\Курсовая\3\Unit3.pas.Модуль содержит коды обработчиков событий для третьей формы.

Файл Unit4.Pas содержит модуль 1 проекта. Он вызывается из I:\ПНЯВУ\Курсовая\3\Unit4.pas.Модуль содержит коды обработчиков событий для четвертой формы.

Тексты модулей приведены в приложении B.

Спецификации форм

Основная форма (Form1). Объекты, расположенные на форме: их свойства, функции, обработчики событий. Рекомендую для оформления вызвать контекстное меню формы и выбрать команду View as Text. Но не следует приводить полный текст формы. Коды обработки событий, назначенные программистом соответствующим объектам, приведены в тексте модуля (Приложение B.1.).: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TTimer;: TPanel;: TOpenDialog;: TMenuItem;: TDataSource;: TStringField;: TPanel;: TEdit;: TLabel;: TTimer;: TBitBtn;: TImage;: TImage;: TAutoIncField;: TTable;: TSaveDialog;: TBitBtn;: TBitBtn;: TGraphicField;: TMemoField;: TIntegerField;: TIntegerField;: TIntegerField;: TStringField;Exit1Click(Sender: TObject);About1Click(Sender: TObject);NewTable;CreateTab1Click(Sender: TObject);EditTab1Click(Sender: TObject);QueryTab1Click(Sender: TObject);Timer1Timer(Sender: TObject);N1Click(Sender: TObject);Timer2Timer(Sender: TObject);BitBtn1Click(Sender: TObject);FormCreate(Sender: TObject);BitBtnOpenClick(Sender: TObject);Edit2Enter(Sender: TObject);BitBtnCreateClick(Sender: TObject);Button1Click(Sender: TObject);

Вторая форма проекта (Form2). Объекты, расположенные на форме: их свойства, функции, обработчики событий. Коды обработки событий, назначенные программистом соответствующим объектам, приведены в тексте модуля (Приложение B.2.).: TDBGrid;: TBitBtn;: TDBNavigator;: TBitBtn;: TLabel;: TBitBtn;BitBtnMenuClick(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);DBGrid1TitleClick(Column: TColumn);BitBtnUnsortClick(Sender: TObject);FillingColums(GridName:TDBGrid);

Третья форма проекта (Form3). Объекты, расположенные на форме: их свойства, функции, обработчики событий. Коды обработки событий, назначенные программистом соответствующим объектам, приведены в тексте модуля (Приложение B.3.).: TBitBtn;: TDataSource;: TDBGrid;: TLabel;: TQuery;: TEdit;: TLabel;: TBitBtn;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TShape;: TShape;BitBtn3Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);DBGrid1TitleClick(Column: TColumn);FormCreate(Sender: TObject);ExecuteSQL;Edit1KeyUp(Sender: TObject; var Key: Word;: TShiftState);BitBtn1Click(Sender: TObject);FormShow(Sender: TObject);Button1Click(Sender: TObject);CheckBox1Click(Sender: TObject);CheckBox2Click(Sender: TObject);CheckBox3Click(Sender: TObject);CheckBox4Click(Sender: TObject);CheckBox5Click(Sender: TObject);

Четвертая форма(Form5). Объекты, расположенные на форме: свойства, функции, обработчики событий. Коды обработки событий, назначенные программистом соответствующим объектам, приведены в тексте модуля (Приложение B.4.).: TDBImage;: TOpenPictureDialog;: TDBNavigator;: TDBText;: TLabel;: TDBRichEdit;: TBitBtn;: TBitBtn;: TFontDialog;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TBitBtn;: TLabel;FormClose(Sender: TObject; var Action: TCloseAction);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);

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

Реальные Разделы и подразделы главного меню приложения:

Файл Правка Просмотр Справка

Создать Подробно

Выход О программе

Быстрый доступ по комбинациям клавиш Alt + подчеркнутая буква.

Меню находится на главной форме приложения Form1. Пункт меню «Правка» вызывает форму Form2.

Описание панели инструментов.

В данном приложении использовались компоненты таких форм как:

-Standard

-Additional

-Win32

-System

-Data Controls

-Data Access

-Dialogs

-BDE

Структура интерфейса формы Form1

Структура интерфейса формы Form2

Структура интерфейса формы Form3

Структура интерфейса формы Form4

6. Описание работы программы

интерфейс управление база пользователь

До тех пор, пока пользователь не введёт верный пароль (321), программа работает в режиме ограниченной функциональности.

Диалог через меню программы.

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

Основное меню содержит такие функции:

) Создание таблицы;

) Правка;

) Просмотр;

) Справка;

) Выход из приложения;

Установка на интересующую Вас функцию производится указателем мыши. Активизация выбранной функции производится щелчком левой кнопки мыши.

Если Вы выбрали функцию: «Создать», то

Вы сможете создать новую таблицу.

Если Вы выбрали функцию: «Правка», то

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

Если Вы выбрали функцию: «Подробно», то Вы сможете получить справку об интересующем Вас сериале:

) Количество сезонов

) Количество серий

) Средняя продолжительность серии

) Статус (завершён/снимается)

) Постер

) Краткое описание сериала

Если Вы выбрали функцию: «Правка», то вы сможете выполнить следующие функции:

) просмотреть записи;

) редактировать записи.

Если Вы выбрали пункт 1, то вы можете просмотреть имеющиеся записи. Здесь управление происходит клавишами курсора.

Если Вы выбрали пункт 2, то вы можете редактировать имеющиеся записи или добавлять новые. Редактирование происходит наведением клавишами курсора на нужное место и нажатием клавиши «ENTER». Затем стандартным путем производится редактирование содержимого выбранной ячейки.

Если Вы хотите убрать уже имеющуюся запись вам необходимо поставить указатель на эту запись и нажать на соответствующую кнопку навигатора.

Если Вы выбрали функцию: «Просмотр», то вы сможете вывести любые поля удовлетворяющие любому сочетанию :

) Оригинальное название

) Страна

) Автор идеи

) Телеканал

Если Вы выбрали функцию: «Поиск», то Вы можете найти интересующий Вас сериал.

Сортировка реализована по клику на заголовок столбца.

Функция «выход из базы данных» отдает управление ОС.

. Программа и методика испытаний

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

. Руководство пользователя

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

Заключение

Требования, указанные в техническом задании реализованы с перекрытием, добавлена возможность удалять, изменять и сортировать записи во время их просмотра, эта возможность обеспечивает простоту в использовании данной СУБД. Главной особенностью программы является то, что она рассчитана на работу с несколькими, независимыми друг от друга, базами данных. Каждая база данных хранится в отдельной таблице, имя которого задаётся пользователем. Кроме того, даже неподготовленный пользователь сможет работать в этой программе.

Библиографический список

1.Таблицы Delphi для управления базами данных: Методические указания к курсовой и лабораторным работам по 2 части дисциплины «Программирование на языке высокого уровня» для студента специальности 230100 - Информатика и вычислительная техника / И.Г. Неудачин. Екатеринбург: УрФУ,2010. 75с.

.Delphi 7 / Под общей редакцией А. Д. Хомоненко. - СПб.: БХВ-Петербург, 2008. - 1216 с.: ил.

.Delphi. Программирование на языке высокого уровня: Учебник для вузов / В.В. Фаронов. - СПб.: Лидер, 2010. - 640 с.: ил.

.Введение в реляционные базы данных / В. В. Кириллов, Г. Ю. Громов. - СПб.: БХВ-Петербург, 2009. - 464 с.: ил.

Приложения

Приложение A

Films;

program TVShows;,in 'Unit1.pas' {Form1},in 'Unit2.pas' {Form2},in 'Unit3.pas' {Form3},in 'Unit4.pas' {Form5};

{$R *.res}.Initialize;.CreateForm(TForm1, Form1);.CreateForm(TForm2, Form2);.CreateForm(TForm3, Form3);.CreateForm(TForm5, Form5);

Application.Run;.

Приложение B

(Исходные тексты модулей)

B.1.Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, DB, DBTables, StdCtrls, Buttons, ComCtrls, ExtCtrls,, DateUtils, jpeg;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TTimer;: TPanel;: TOpenDialog;: TMenuItem;: TDataSource;: TStringField;: TPanel;: TEdit;: TLabel;: TTimer;: TBitBtn;: TImage;: TImage;: TAutoIncField;: TTable;: TSaveDialog;: TBitBtn;: TBitBtn;: TGraphicField;: TMemoField;: TIntegerField;: TIntegerField;: TIntegerField;: TStringField;Exit1Click(Sender: TObject);About1Click(Sender: TObject);NewTable;CreateTab1Click(Sender: TObject);EditTab1Click(Sender: TObject);QueryTab1Click(Sender: TObject);Timer1Timer(Sender: TObject);N1Click(Sender: TObject);Timer2Timer(Sender: TObject);BitBtn1Click(Sender: TObject);FormCreate(Sender: TObject);BitBtnOpenClick(Sender: TObject);Edit2Enter(Sender: TObject);BitBtnCreateClick(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;: Boolean;Unit2, Unit3, Unit4;

{$R *.dfm}TForm1.Exit1Click(Sender: TObject);;;TForm1.About1Click(Sender: TObject);

begin('Курсовой проект по теме "Сериалы" создан 23.10.12. '+#13+

'Автор: Горбич Дмитрий');;

procedure TForm1.NewTable; //Создать новую таблицу

SaveDialog1.FileName := '*.db'; //Маска поиска по умолчанию

if SaveDialog1.Execute thenTableMy do

begin:=False;

//Определение основных свойств таблицы

DatabaseName:=ExtractFilePath(SaveDialog1.FileName);:=ExtractFileName(SaveDialog1.FileName);:=ttParadox;

//Определение полей.Clear;.Add('ID', ftAutoInc, 0, True);.Add('Name', ftString, 25, False);.Add('NameOrig', ftString, 25, False);.Add('Country', ftString, 20, False);.Add('CreatedBy', ftString, 20, False);.Add('Chanel', ftString, 20, False);.Add('SezNum', ftInteger, 0, False);.Add('SerNum', ftInteger, 0, False);.Add('SerTime', ftInteger, 0, False);.Add('Status', ftString, 10, False);.Add('Memo', ftMemo, 20, False);.Add('Picture', ftGraphic, 20, False);

//Определение индексов.Clear;.Add('','ID',[ixPrimary,ixUnique]);.Add('indName','Name',[ixCaseInsensitive]);.Add('indNameOrig','NameOrig',[ixCaseInsensitive]);.Add('indCountry','Country',[ixCaseInsensitive]);.Add('indCreatedBy','CreatedBy',[ixCaseInsensitive]);.Add('indChanel','Chanel',[ixCaseInsensitive]);

//Определение обратных индексов.Add('rindName','Name',[ixCaseInsensitive,ixDescending]);.Add('rindNameOrig','NameOrig',[ixCaseInsensitive,ixDescending]);.Add('rindCountry','Country',[ixCaseInsensitive,ixDescending]);.Add('rindCreatedBy','CreatedBy',[ixCaseInsensitive,ixDescending]);.Add('rindChanel','Chanel',[ixCaseInsensitive,ixDescending]);;:=True;.DBGrid1.Columns.Items[0].Visible:=False;.DBGrid1.Columns.Items[6].Visible:=False;.DBGrid1.Columns.Items[7].Visible:=False;.DBGrid1.Columns.Items[8].Visible:=False;.DBGrid1.Columns.Items[9].Visible:=False;.DBGrid1.Columns.Items[10].Visible:=False;.DBGrid1.Columns.Items[11].Visible:=False;.Caption:='Сериалы '+SaveDialog1.FileName;;;TForm1.CreateTab1Click(Sender: TObject);;;TForm1.BitBtn1Click(Sender: TObject);Edit2.Text = '321' then:=True;;TForm1.EditTab1Click(Sender: TObject);.Hide;.Show;.DBGrid1.Enabled:=True;;TForm1.QueryTab1Click(Sender: TObject);.Hide;.Show;;TForm1.Timer1Timer(Sender: TObject);,u:Word;,v:string;:= MonthOfTheYear(Date);y of

1: x:='января';

: x:='февраля';

: x:='марта';

: x:='апреля';

: x:='мая';

: x:='июня';

: x:='июля';

: x:='августа';

: x:='сентября';

: x:='октября';

: x:='ноября';

: x:='декабря';

end;:= DayOfWeek(Date);u of

1: v:='воскресенье';

: v:='понедельник';

: v:='вторник';

: v:='среда';

: v:='четверг';

: v:='пятница';

7: v:='суббота';;.Caption := TimeToStr(Time);.Caption := IntToStr(DayOfTheMonth(Date))+

' '+x+' '+IntToStr(YearOf(Date));.Hint := 'Сегодня '+v;;TForm1.N1Click(Sender: TObject);.Hide;.Show;;TForm1.Timer2Timer(Sender: TObject);Pass then.Caption:='Сериалы';.Enabled:=True;.Enabled:=True;.Enabled:=True;.Enabled:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Enabled:=False;;;TForm1.FormCreate(Sender: TObject);.Enabled:=False;.Enabled:=False;.Enabled:=False;.Enabled:=False;;TForm1.BitBtnOpenClick(Sender: TObject);.FileName := '*.db'; {Маска поиска по умолчанию}OpenDialog1.Execute then.TableMy.Active:=False;.TableName := ExtractFileName(OpenDialog1.FileName);.Caption:='Таблица свойств сериалов '+OpenDialog1.FileName;.TableMy.Active:=True;.DBGrid1.Columns.Items[0].Visible:=False;.DBGrid1.Columns.Items[6].Visible:=False;.DBGrid1.Columns.Items[7].Visible:=False;.DBGrid1.Columns.Items[8].Visible:=False;.DBGrid1.Columns.Items[9].Visible:=False;.DBGrid1.Columns.Items[10].Visible:=False;.DBGrid1.Columns.Items[11].Visible:=False;;TForm1.Edit2Enter(Sender: TObject);Edit2.Text = '321' then:=True;;TForm1.BitBtnCreateClick(Sender: TObject);;;TForm1.Button1Click(Sender: TObject);.Hide;.Show;;.

B.2.Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Grids, DBGrids, DB, DBTables, ExtCtrls,;= class(TForm): TDBGrid;: TBitBtn;: TDBNavigator;: TBitBtn;: TLabel;: TBitBtn;BitBtnMenuClick(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);DBGrid1TitleClick(Column: TColumn);BitBtnUnsortClick(Sender: TObject);

{ Private declarations }

{ Public declarations }FillingColums(GridName:TDBGrid);;: TForm2;Unit1;

{$R *.dfm}TForm2.BitBtnMenuClick(Sender: TObject);.Hide;.Close;;TForm2.FormClose(Sender: TObject; var Action: TCloseAction);.Hide;.Show;;TForm2.FillingColums(GridName:TDBGrid); //заполнение названий колонок: Integer;, Caption: string;i:=0 to GridName.Columns.Count-1 do:=GridName.Columns[i].FieldName;FieldName='Name' then:='Название'if FieldName='NameOrig' then:='Оригинальное название'if FieldName='Country' then:='Страна'if FieldName='CreatedBy' then:='Автор идеи'if FieldName='Chanel' then:='Телеканал';.Columns[i].Title.Caption:=Caption;;;TForm2.DBGrid1TitleClick(Column: TColumn);FieldName, IndexName: string;(Form2.DBGrid1);

//Сортировка:=Column.FieldName;:=Form1.TableMy.IndexName;IndexName='rind'+FieldName then.TableMy.IndexName:='ind'+FieldName;.Title.Caption:=Column.Title.Caption+' /\';;;IndexName='ind'+FieldName then.TableMy.IndexName:='rind'+FieldName;.Title.Caption:=Column.Title.Caption+' \/';;;.TableMy.IndexName:='ind'+FieldName;.Title.Caption:=Column.Title.Caption+' /\';;TForm2.BitBtnUnsortClick(Sender: TObject);.TableMy.IndexName:='';(Form2.DBGrid1);;.

B.3.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, DBTables, StdCtrls, Buttons, ExtCtrls;= class(TForm): TBitBtn;: TDataSource;: TDBGrid;: TLabel;: TQuery;: TEdit;: TLabel;: TBitBtn;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TShape;: TShape;BitBtn3Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);DBGrid1TitleClick(Column: TColumn);FormCreate(Sender: TObject);ExecuteSQL;Edit1KeyUp(Sender: TObject; var Key: Word;: TShiftState);BitBtn1Click(Sender: TObject);FormShow(Sender: TObject);Button1Click(Sender: TObject);CheckBox1Click(Sender: TObject);CheckBox2Click(Sender: TObject);CheckBox3Click(Sender: TObject);CheckBox4Click(Sender: TObject);CheckBox5Click(Sender: TObject);

{ Private declarations }: string;: Integer;: string;

{ Public declarations };: TForm3;Unit1,Unit2;

{$R *.dfm}TForm3.BitBtn3Click(Sender: TObject);.Hide;.Close;.Show;;TForm3.FormClose(Sender: TObject; var Action: TCloseAction);.Hide;.Show;;TForm3.DBGrid1TitleClick(Column: TColumn);FieldName=Column.FieldName then(SortedAsc=0) or (SortedAsc=2) then:=1:=2;else SortedAsc:=1;:=Column.FieldName;;;

//-------------------------------------------------------------

//Процедура выполняет SQL запрос к базе

//-------------------------------------------------------------TForm3.ExecuteSQL;: integer;.Close;.SQL.Clear;

// Выбор полей:='Name';CheckBox5.Checked=true then:=(CheckString

+',NameOrig,Country,CreatedBy,Chanel ');else beginCheckBox1.Checked=true then CheckString:=(CheckString+',NameOrig');CheckBox2.Checked=true then CheckString:=(CheckString+',Country');CheckBox3.Checked=true then CheckString:=(CheckString+',CreatedBy');CheckBox4.Checked=true then CheckString:=(CheckString+',Chanel');;.SQL.Add(' SELECT '+CheckString+' from '

+'"'+Form1.TableMy.TableName+'"');

// Поискnot(Edit1.Text='') then.SQL.Add(' WHERE Name like "%'+Edit1.Text+'%" ');.SQL.Add(' OR NameOrig like "%'+Edit1.Text+'%" ');.SQL.Add(' OR Country like "%'+Edit1.Text+'%" ');.SQL.Add(' OR CreatedBy like "%'+Edit1.Text+'%" ');.SQL.Add(' OR Chanel like "%'+Edit1.Text+'%" ');;

// Сортировкаnot(FieldName='') and (Pos(FieldName, CheckString)>0) then.SQL.Add(' ORDER BY '+FieldName);(SortedAsc=1) then Query1.SQL.Add(' ASC ')if (SortedAsc=2) then Query1.SQL.Add(' DESC ');;.Prepare;.Open;.FillingColums(Form3.DBGrid1);i:=0 to DBGrid1.Columns.Count-1 doFieldName=DBGrid1.Columns[i].FieldName thenSortedAsc=1 then.Columns[i].Title.Caption:=DBGrid1.Columns[i].Title.Caption+' /\';SortedAsc=2 then.Columns[i].Title.Caption:=DBGrid1.Columns[i].Title.Caption+' \/';;;;TForm3.FormCreate(Sender: TObject);:=0;:='';

// ExecuteSQL;;TForm3.Edit1KeyUp(Sender: TObject; var Key: Word;: TShiftState);;;TForm3.BitBtn1Click(Sender: TObject);:='';:=0;;;TForm3.FormShow(Sender: TObject);.TableMy.Active:=False;.TableMy.Active:=True;;;TForm3.Button1Click(Sender: TObject);.Checked:=true;.Checked:=true;.Checked:=true;.Checked:=true;;;TForm3.CheckBox1Click(Sender: TObject);;;TForm3.CheckBox2Click(Sender: TObject);;;TForm3.CheckBox3Click(Sender: TObject);;;TForm3.CheckBox4Click(Sender: TObject);;;TForm3.CheckBox5Click(Sender: TObject);.Enabled:=not CheckBox5.Checked;.Enabled:=not CheckBox5.Checked;.Enabled:=not CheckBox5.Checked;.Enabled:=not CheckBox5.Checked;;;.

В.4.

unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, MPlayer, StdCtrls, DBCtrls, ExtDlgs, ComCtrls, Buttons,;= class(TForm): TDBImage;: TOpenPictureDialog;: TDBNavigator;: TDBText;: TLabel;: TDBRichEdit;: TBitBtn;: TBitBtn;: TFontDialog;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TBitBtn;: TLabel;FormClose(Sender: TObject; var Action: TCloseAction);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm5;Unit1;

{$R *.dfm}TForm5.FormClose(Sender: TObject; var Action: TCloseAction);.Hide;.Show;;TForm5.BitBtn1Click(Sender: TObject);OpenPictureDialog1.Execute then.TableMy.Edit;.Picture.LoadFromFile(OpenPictureDialog1.FileName);.TableMy.Post;;;TForm5.BitBtn2Click(Sender: TObject);FontDialog1.Execute then.SelAttributes.Assign(FontDialog1.Font);.SetFocus;;TForm5.BitBtn3Click(Sender: TObject);.Hide;.Show;

end;.

Федеральное государственное автономное образовательное учреждение высшего профессионального образования «Уральский федеральный университет имени первого Пр

Больше работ по теме: