📄 newbookin.dfm
字号:
object newbookform: Tnewbookform
Left = 204
Top = 149
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = #25945#26448#20837#24211
ClientHeight = 407
ClientWidth = 586
Color = clWhite
TransparentColorValue = clNavy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 16
Top = 8
Width = 553
Height = 337
Caption = #25945#26448#20449#24687
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsItalic]
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 32
Top = 32
Width = 72
Height = 20
Caption = #25945#26448#21517#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 48
Top = 72
Width = 52
Height = 20
Caption = #20316#32773#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 112
Width = 88
Height = 20
Caption = #20986#29256#24180#26376#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 32
Top = 152
Width = 72
Height = 20
Caption = #32463#21150#20154#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 192
Width = 92
Height = 20
Caption = #26412#27425#25968#37327#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 16
Top = 272
Width = 96
Height = 20
Caption = #20837#24211#26102#38388#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 232
Width = 92
Height = 20
Caption = #33719#22870#24773#20917#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 313
Top = 32
Width = 76
Height = 20
Caption = #20986#29256#31038#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 296
Top = 112
Width = 92
Height = 20
Caption = #35746#20070#21333#20301#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 296
Top = 72
Width = 92
Height = 20
Caption = #25945#26448#21333#20215#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 296
Top = 152
Width = 92
Height = 20
Caption = #21407#26377#25968#37327#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 296
Top = 232
Width = 92
Height = 20
Caption = #20351#29992#35828#26126#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 320
Top = 272
Width = 52
Height = 20
Caption = #35828#26126#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 312
Top = 192
Width = 72
Height = 20
Caption = #24635#25968#37327#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clFuchsia
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 120
Top = 32
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Edit1'
end
object Edit2: TEdit
Left = 120
Top = 72
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Edit3: TEdit
Left = 120
Top = 152
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'Edit3'
end
object Edit4: TEdit
Left = 120
Top = 192
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'Edit4'
OnExit = Edit4Exit
end
object Edit5: TEdit
Left = 120
Top = 232
Width = 161
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
Text = 'Edit5'
end
object Edit6: TEdit
Left = 392
Top = 32
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
Text = 'Edit6'
end
object Edit7: TEdit
Left = 392
Top = 72
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
Text = 'Edit7'
OnExit = Edit7Exit
end
object Edit8: TEdit
Left = 392
Top = 152
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
Text = 'Edit8'
end
object MaskEdit1: TMaskEdit
Left = 120
Top = 112
Width = 106
Height = 28
EditMask = '!9999/99/99;1;'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 10
ParentFont = False
TabOrder = 8
Text = ' - - '
end
object MaskEdit2: TMaskEdit
Left = 120
Top = 272
Width = 118
Height = 28
EditMask = '!9999/99/99;1;_'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 10
ParentFont = False
TabOrder = 9
Text = ' - - '
end
object Edit10: TEdit
Left = 392
Top = 232
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
Text = 'Edit10'
end
object ComboBox1: TComboBox
Left = 392
Top = 112
Width = 145
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 20
ParentFont = False
TabOrder = 11
end
object Edit11: TEdit
Left = 392
Top = 272
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
Text = 'Edit11'
end
object Edit12: TEdit
Left = 392
Top = 192
Width = 121
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
Text = 'Edit12'
end
end
object BitBtn1: TBitBtn
Left = 88
Top = 360
Width = 97
Height = 33
Caption = #30830#23450
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 416
Top = 360
Width = 97
Height = 33
Caption = #36864#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object ADOTable1: TADOTable
Left = 584
Top = 384
end
object ADOQuery1: TADOQuery
Parameters = <>
Left = 584
Top = 344
end
object ADOConnection1: TADOConnection
Left = 584
Top = 416
end
object ADODataSet1: TADODataSet
Parameters = <>
Left = 584
Top = 264
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -