Смекни!
smekni.com

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

object Button19: TButton
Left 200
Top 184
Width 113
Height 33
Caption Выборка

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

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

object DBNavigator2: TDBNavigator
Left 8
Top 488
Width 160
Height 33
DataSource DataSource2
VisibleButtons [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Enabled False
Visible False

procedure DBNavigator2BeforeAction(Sender: TObject;Button: TnavigateBtn); - позволяет редактировать запись БД

procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn); - связывает управление блоками дополнительной информации и редактирования записей БД с управлением таблицы, отображающей результаты выборки

17) Кнопка для выхода из программы «Выход»

Object Button20: TButton
Left 680
Top 184
Width 105
Height 33
Hint Завершает работу программы
Caption Выход
TabOrder 6

procedure Button20Click(Sender: Tobject); - закрывает все формы программы

18) Блок средств для редактирования записей в БД

Object GroupBox1: TGroupBox
Left 176
Top 224
Width 393
Height 297
Caption Редактирование записи БД
TabOrder 7
Visible False

20) Подпись к элементу для редактирования записи БД «УДК»


Object
Label1: TLabel
Left 120
Top 22
Width 27
Height 13
Caption УДК

21) Подпись к элементу для редактирования записи БД «Заглавие издания»

Object Label3: TLabel
Left 8
Top 56
Width 96
Height 13
Caption Заглавие издания

22) Подпись к элементу для редактирования записи БД «Год издания»


object Label4: TLabel
Left 8
Top 119
Width 66
Height 13
Caption Год издания

23) Подпись к элементу для редактирования записи БД «Количество»

object Label5: TLabel
Left 76
Top 119
Width 62
Height 13
Caption Количество

24) Подпись к элементу для редактирования записи БД «Издательство»

object Label7: TLabel
Left 8
Top 87
Width 75
Height 13
Caption Издательство

19) Подпись к элементу для редактирования записи БД «Автор»

Object Label2: TLabel
Left 112
Top 40
Width 33
Height 13
Caption Автор

25) Подпись к элементу для редактирования записи БД «Сведения, относящиеся к заглавию»

object Label8: TLabel
Left 192
Top 87
Width 187
Height 13
Caption Сведения, относящиеся к заглавию

26) Подпись к элементу для редактирования записи БД «Жанр»

object Label9: TLabel
Left 88
Top 151
Width 32
Height 13
Caption Жанр

27) Подпись к элементу для редактирования записи БД «Номер тома»

object Label10: TLabel
Left 8
Top 151
Width 65
Height 13
Caption Номер тома

28) Подпись к элементу для редактирования записи БД «Полка»

object Label11: TLabel
Left 352
Top 119
Width 35
Height 13
Caption Полка

29) Подпись к элементу для редактирования записи БД «Область литературы»

object Label12: TLabel
Left 208
Top 119
Width 108
Height 13
Caption Область литературы

30) Подпись к элементу для редактирования записи БД «Страницы»

object Label13: TLabel
Left 144
Top 119
Width 53
Height 13
Caption Страницы

31) Подпись к элементу для редактирования записи БД «Примечания»

object Label26: TLabel
Left 8
Top 188
Width 66
Height 13
Caption Примечания

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

object Panel2: TPanel
Left 8
Top 16
Width 97
Height 32
TabOrder 0

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

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

procedure Button1Click(Sender: Tobject); - скрывает блок редактирования записей БД

34) Навигатор для управления элементами отображения БД в блоках редактирования записей БД и отображения дополнительной информации

object DBNavigator3: TDBNavigator
Left 8
Top 264
Width 380
Height 25
Cursor crHandPoint
DataSource DataSource1

35) Элемент для редактирования записи БД «УДК»

object DBEdit1: TDBEdit
Left 160
Top 17
Width 145
Height 21
DataField 'UDK'
DataSource DataSource1

36) Элемент для редактирования записи БД «Автор»


object DBEdit2: TDBEdit
Left 160
Top 38
Width 225
Height 21
DataField 'Author'
DataSource DataSource1

37) Элемент для редактирования записи БД «Заглавие издания»

object DBEdit3: TDBEdit
Left 8
Top 68
Width 377
DataField 'NameBook'
DataSource DataSource1

38) Элемент для редактирования записи БД «Год издания»

object DBEdit4: TDBEdit
Left 8
Top 132
Width 65
Height 21
DataField 'Year'
DataSource DataSource1

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); - не позволяет вводить в поле нечисловые значения

39) Элемент для редактирования записи БД «Количество»

object DBEdit5: TDBEdit
Left 76
Top 132
Width 65
Height 21
DataField 'Amount'
DataSource DataSource1

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); - не позволяет вводить в поле нечисловые значения

40) Элемент для редактирования записи БД «Сведения, относящиеся к заглавию»

object DBEdit6: TDBEdit
Left 192
Top 100
Width 193
Height 21
DataField 'ExplanatoryToTitle'
DataSource DataSource1

41) Элемент для редактирования записи БД «Издательство»


object
DBEdit7: TDBEdit
Left 8
Top 100
Width 177
Height 21
DataField 'PublishingHouse'
DataSource DataSource1

42) Элемент для редактирования записи БД «Жанр»

object DBEdit9: TDBEdit
Left 88
Top 164
Width 185
Height 21
DataField 'Genre'
DataSource DataSource1

43) Элемент для редактирования записи БД «Номер тома»

Object DBEdit10: TDBEdit
Left 8
Top 164
Width 73
Height 21
DataField 'Volume'
DataSource DataSource1

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

44) Элемент для редактирования записи БД «Примечания»



Object
DBMemo1: TDBMemo
Left 8
Top 200
Width 265
Height 41
DataField 'Notes'
DataSource DataSource1

45) Элемент для редактирования записи БД «Полка»