📄 unit1.~dfm
字号:
Top = 48
Width = 73
Height = 21
TabOrder = 3
end
object Edit16: TEdit
Left = 122
Top = 48
Width = 158
Height = 21
TabOrder = 4
end
end
object ComboBox6: TComboBox
Left = 472
Top = 176
Width = 129
Height = 21
ItemHeight = 13
TabOrder = 8
Items.Strings = (
'Code_localisation'
'Description')
end
object BitBtn46: TBitBtn
Left = 604
Top = 191
Width = 75
Height = 25
Caption = 'Chercher'
TabOrder = 9
OnClick = BitBtn46Click
end
object Edit34: TEdit
Left = 470
Top = 205
Width = 131
Height = 21
TabOrder = 10
end
end
object TabSheet7: TTabSheet
Caption = 'Exemplaire'
ImageIndex = 6
object Label35: TLabel
Left = 344
Top = 176
Width = 107
Height = 16
Caption = 'Recherche par '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label43: TLabel
Left = 344
Top = 206
Width = 127
Height = 16
Caption = 'Valeur '#224' chercher:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object suivant7: TBitBtn
Left = 5
Top = 136
Width = 137
Height = 25
Caption = 'Suivant'
TabOrder = 0
OnClick = suivant7Click
end
object precedant7: TBitBtn
Left = 174
Top = 136
Width = 137
Height = 25
Caption = 'Pr'#233'c'#233'dant'
TabOrder = 1
OnClick = precedant7Click
end
object premier7: TBitBtn
Left = 347
Top = 136
Width = 137
Height = 25
Caption = 'Premier enregistrement'
TabOrder = 2
OnClick = premier7Click
end
object dernier7: TBitBtn
Left = 528
Top = 136
Width = 137
Height = 25
Caption = 'Dernier enregistrement'
TabOrder = 3
OnClick = dernier7Click
end
object DBGrid7: TDBGrid
Left = 0
Top = 8
Width = 665
Height = 120
DataSource = DataSource7
ReadOnly = True
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object BitBtn24: TBitBtn
Left = 4
Top = 168
Width = 141
Height = 25
Caption = 'Nouveau'
TabOrder = 5
OnClick = BitBtn24Click
end
object BitBtn31: TBitBtn
Left = 173
Top = 168
Width = 140
Height = 25
Caption = 'Modifier/Supprimer'
TabOrder = 6
OnClick = BitBtn31Click
end
object GroupBox4: TGroupBox
Left = 0
Top = 232
Width = 641
Height = 113
Caption = 'Modification/Suppression'
TabOrder = 7
object Label11: TLabel
Left = 16
Top = 24
Width = 46
Height = 13
Caption = 'Code_film'
end
object Label17: TLabel
Left = 110
Top = 25
Width = 81
Height = 13
Caption = 'Code_exemplaire'
end
object Label20: TLabel
Left = 229
Top = 25
Width = 59
Height = 13
Caption = 'Code_media'
end
object Label22: TLabel
Left = 327
Top = 25
Width = 83
Height = 13
Caption = 'Code_localisation'
end
object BitBtn7: TBitBtn
Left = 400
Top = 80
Width = 75
Height = 25
Caption = 'Modifier'
TabOrder = 0
OnClick = BitBtn7Click
end
object BitBtn8: TBitBtn
Left = 560
Top = 80
Width = 75
Height = 25
Caption = 'Annuler'
TabOrder = 1
end
object BitBtn39: TBitBtn
Left = 480
Top = 80
Width = 75
Height = 25
Caption = 'Supprimer'
Enabled = False
TabOrder = 2
OnClick = BitBtn39Click
end
object Edit11: TEdit
Left = 16
Top = 48
Width = 73
Height = 21
TabOrder = 3
end
object Edit17: TEdit
Left = 107
Top = 48
Width = 102
Height = 21
TabOrder = 4
end
object Edit20: TEdit
Left = 228
Top = 48
Width = 77
Height = 21
TabOrder = 5
end
object Edit22: TEdit
Left = 326
Top = 49
Width = 99
Height = 21
TabOrder = 6
end
end
object ComboBox7: TComboBox
Left = 472
Top = 176
Width = 126
Height = 21
ItemHeight = 13
TabOrder = 8
Items.Strings = (
'Code_film'
'Code_exemplaire'
'Code_media'
'Code_localisation')
end
object BitBtn47: TBitBtn
Left = 604
Top = 188
Width = 75
Height = 25
Caption = 'Chercher'
TabOrder = 9
OnClick = BitBtn47Click
end
object Edit35: TEdit
Left = 470
Top = 205
Width = 131
Height = 21
TabOrder = 10
end
end
object TabSheet8: TTabSheet
Caption = 'Emprunt'
ImageIndex = 7
object Label36: TLabel
Left = 344
Top = 176
Width = 107
Height = 16
Caption = 'Recherche par '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label44: TLabel
Left = 344
Top = 206
Width = 127
Height = 16
Caption = 'Valeur '#224' chercher:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object suivant8: TBitBtn
Left = 5
Top = 136
Width = 137
Height = 25
Caption = 'Suivant'
TabOrder = 0
OnClick = suivant8Click
end
object precedant8: TBitBtn
Left = 174
Top = 136
Width = 137
Height = 25
Caption = 'Pr'#233'c'#233'dant'
TabOrder = 1
OnClick = precedant8Click
end
object premier8: TBitBtn
Left = 347
Top = 136
Width = 137
Height = 25
Caption = 'Premier enregistrement'
TabOrder = 2
OnClick = premier8Click
end
object dernier8: TBitBtn
Left = 528
Top = 136
Width = 137
Height = 25
Caption = 'Dernier enregistrement'
TabOrder = 3
OnClick = dernier8Click
end
object DBGrid8: TDBGrid
Left = 0
Top = 8
Width = 665
Height = 120
DataSource = DataSource8
ReadOnly = True
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object BitBtn25: TBitBtn
Left = 4
Top = 168
Width = 141
Height = 25
Caption = 'Nouveau'
TabOrder = 5
OnClick = BitBtn25Click
end
object BitBtn32: TBitBtn
Left = 173
Top = 168
Width = 140
Height = 25
Caption = 'Modifier/Supprimer'
TabOrder = 6
OnClick = BitBtn32Click
end
object GroupBox8: TGroupBox
Left = 2
Top = 230
Width = 641
Height = 115
Caption = 'Modification/Suppression'
TabOrder = 7
object Label12: TLabel
Left = 16
Top = 24
Width = 75
Height = 13
Caption = 'Code_personne'
end
object Label18: TLabel
Left = 110
Top = 25
Width = 46
Height = 13
Caption = 'Code_film'
end
object Label21: TLabel
Left = 201
Top = 25
Width = 81
Height = 13
Caption = 'Code_exemplaire'
end
object Label23: TLabel
Left = 328
Top = 25
Width = 67
Height = 13
Caption = 'Date_emprunt'
end
object Label24: TLabel
Left = 473
Top = 25
Width = 74
Height = 13
Caption = 'Date_restitution'
end
object BitBtn15: TBitBtn
Left = 400
Top = 80
Width = 75
Height = 25
Caption = 'Modifier'
TabOrder = 0
OnClick = BitBtn15Click
end
object BitBtn16: TBitBtn
Left = 560
Top = 80
Width = 75
Height = 25
Caption = 'Annuler'
TabOrder = 1
end
object BitBtn40: TBitBtn
Left = 480
Top = 80
Width = 75
Height = 25
Caption = 'Supprimer'
Enabled = False
TabOrder = 2
OnClick = BitBtn40Click
end
object Edit12: TEdit
Left = 16
Top = 48
Width = 73
Height = 21
TabOrder = 3
end
object Edit18: TEdit
Left = 107
Top = 48
Width = 70
Height = 21
TabOrder = 4
end
object Edit21: TEdit
Left = 198
Top = 48
Width = 107
Height = 21
TabOrder = 5
end
object Edit23: TEdit
Left = 328
Top = 49
Width = 121
Height = 21
TabOrder = 6
end
object Edit24: TEdit
Left = 471
Top = 49
Width = 146
Height = 21
TabOrder = 7
end
end
object ComboBox8: TComboBox
Left = 472
Top = 176
Width = 129
Height = 21
ItemHeight = 13
TabOrder = 8
Items.Strings = (
'Code_personne'
'Code_film'
'Code_exemplaire'
'Date_emprunt'
'Date_restitution')
end
object BitBtn48: TBitBtn
Left = 604
Top = 190
Width = 75
Height = 25
Caption = 'Chercher'
TabOrder = 9
OnClick = BitBtn48Click
end
object Edit36: TEdit
Left = 470
Top = 205
Width = 131
Height = 21
TabOrder = 10
end
end
end
object MainMenu1: TMainMenu
Left = 592
Top = 8
object Fichier1: TMenuItem
Caption = '&Fichier'
object Quitter1: TMenuItem
Caption = '&Quitter'
OnClick = Quitter1Click
end
end
object Apropos1: TMenuItem
Caption = '&A propos...'
OnClick = Apropos1Click
end
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = Table1
Left = 576
Top = 8
end
object Table1: TTable
Active = True
TableName = 'personne.db'
Left = 480
Top = 8
end
object Table2: TTable
Active = True
TableName = 'membre.db'
Left = 472
Top = 8
end
object Table3: TTable
Active = True
TableName = 'film.db'
Left = 456
Top = 8
end
object Table4: TTable
Active = True
TableName = 'joue_dans.db'
Left = 440
Top = 8
end
object Table5: TTable
Active = True
TableName = 'media.db'
Left = 432
Top = 8
end
object Table6: TTable
Active = True
TableName = 'localisation.db'
Left = 416
Top = 8
end
object Table7: TTable
Active = True
TableName = 'exemplaire.db'
Left = 400
Top = 8
end
object Table8: TTable
Active = True
TableName = 'emprunt.db'
Left = 392
Top = 8
end
object DataSource2: TDataSource
AutoEdit = False
DataSet = Table2
Left = 568
Top = 8
end
object DataSource3: TDataSource
DataSet = Table3
Left = 560
Top = 8
end
object DataSource4: TDataSource
AutoEdit = False
DataSet = Table4
Left = 552
Top = 8
end
object DataSource5: TDataSource
AutoEdit = False
DataSet = Table5
Left = 544
Top = 8
end
object DataSource6: TDataSource
AutoEdit = False
DataSet = Table6
Left = 536
Top = 8
end
object DataSource7: TDataSource
AutoEdit = False
DataSet = Table7
Left = 528
Top = 8
end
object DataSource8: TDataSource
AutoEdit = False
DataSet = Table8
Left = 520
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -