Смекни!
smekni.com

Разработка информационной системы "Библиотека" (стр. 2 из 8)

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

Дополнительно

Возможность выйти из программы на любом этапе работы программы

2.2. Описание объектов, свойств и методов

Первая форма

1) Главная форма программы «Библиотека»

object Form1: TForm1
Left 263
Top 59
Width 1010
Height 716
Caption Библиотека
Color clBtnFace
Menu MainMenu1
Position poScreenCenter
ShowHint True

procedure FormShow(Sender: Tobject); - отображает главную форму одновременно со стартовой формой

2) Таблица, отображающая все записи базы данных по столбцам: «УДК», «Автор», «Заглавие издания», «Год», «Количество», «Наличие»

object DBGrid1: TDBGrid
Left 0
Top 8
Width 993
Height 169
Align alCustom
DataSource DataSource1
Enabled False
Columns item
Expanded False
FieldName 'UDK'
Title.Caption УДК
Title.Color clWhite
Width 106
Visible True
item
Expanded False
FieldName 'Author'
Title.Caption Автор
Title.Color clWhite
Width 176
Visible True
item
Expanded False
FieldName 'NameBook'
Title.Caption Заглавие издания
Title.Color clWhite
Width 549
Visible True
item
Expanded False
FieldName 'Year'
Title.Caption Год
Title.Color clWhite
Width 29
Visible True
item
Expanded False
FieldName 'Amount'
Title.Caption Количество
Title.Color clWhite
Width 34
Visible True
item
Expanded False
FieldName 'Here and Now'
PickList.Strings (В наличии/Выдано)
Title.Caption Наличие
Title.Color clWhite
Width 55
Visible True

3) Навигатор для управления таблицей, отображающей записи базы данных

object DBNavigator1: TDBNavigator
Left 8
Top 184
Width 160
Height 33
Cursor crHandPoint
DataSource DataSource1
VisibleButtons [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
TabOrder 1

procedure DBNavigator1Click(Sender: TObject; Button: TnavigateBtn); - связывает управление блоками дополнительной информации и редактирования записей БД с управлением таблицы всех записей

4) Блок средств выполнения выборки из базы данных по автору, заглавию и по названию области литературы, сведениям, относящимся к заглавию, заглавию издания, жанру, примечаниям


object GroupBox3: TGroupBox
Left 8
Top 224
Width 161
Height 257
Caption Выбор записей по запросу
TabOrder 9
Visible False

5) Панель для зрительного выделения кнопки «Готово»

object Panel3: TPanel
Left 8
Top 16
Width 95
Height 32
TabOrder 0

6) Кнопка «Готово», скрывающая блок средств выполнения выборки

object Button17: TButton
Left 6
Top 3
Width 83
Height 25
Caption Готово

procedure Button17Click(Sender: Tobject); - делает невидимым блок средств выполнения выборки

7) Панель зрительного выделения средств выборки по автору и заглавию


object Panel1: TPanel
Left 8
Top 56
Width 145
Height 97

8) Элемент, позволяющий выбрать первую букву заглавия или фамилии автора издания для выборки из БД

object ComboBox2: TComboBox
Left 16
Top 4
Width 113
Height 21
Items.Strings ( А, Б, В, Г, Д, Е, Ё, Ж, З, И, К, Л, М, Н, О, П, Р, С, Т, У, Ф, Х, Ц, Ч, Ш, Щ, Ы, Э, Ю, Я.)

9) Кнопка «По автору» для начала выборки из БД по первой букве фамилии, выбранной в ComboBox2

object Button16: TButton
Left 8
Top 32
Width 129
Height 25
Caption По автору издания

procedure Button16Click(Sender: Tobject); - запускает SQL-запрос на выбор записей поля «Автор» БД по выбранной в списке первой букве фамилии автора

10) Кнопка «По заглавию издания» для начала выборки из БД по первой букве заглавия издания, выбранной в ComboBox2

object Button18: TButton
Left 8
Top 64
Width 129
Height 25
Caption По заглавию издания

procedure Button18Click(Sender: Tobject); - запускает SQL-запрос на выбор записей поля «Заглавие издания» БД по выбранной в ComboBox2 первой букве заглавия издания

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

object Panel5: TPanel
Left 8
Top 160
Width 145
Height 89
TabOrder 2

12) Поле ввода фрагмента, по которому будет производиться выборка из БД



object
Edit1: TEdit
Left 16
Top 8
Width 113
Height 21
TabOrder 0

13) Кнопка «По фрагменту» для начала выборки из БД по фрагменту введенному в Edit1

object Button5: TButton
Left 16
Top 40
Width 113
Height 25
Caption По фрагменту
TabOrder 1

procedure Button5Click(Sender: Tobject); - запускает SQL-запрос на выбор записей вышеуказанных полей БД по фрагменту введенному в Edit1

14) Таблица, отображающая результаты выборки

object DBGrid2: TDBGrid
Left 0
Top 528
Width 993
Height 121
Align alCustom
DataSource DataSource2
Enabled False
Visible False
Columns item
FieldName 'UDK'
Title.Caption УДК
Width 103
Visible True
item
FieldName 'Author'
Title.Caption Автор
Width 177
Visible True
item
FieldName 'NameBook'
Title.Caption Заглавие издания
Width 551
Visible True
item
FieldName 'Year'
Title.Caption Год
Width 29
Visible True
item
FieldName 'Amount'
Title.Caption Количество
Width 34
Visible True
item
FieldName 'Here and Now'
PickList.Strings (В наличии/Выдано)
Title.Caption Наличие
Width 53
Visible True

15) Кнопка «Выборка», делающая видимым блок средств выборки