📄 unit6.dfm
字号:
object Form6: TForm6
Left = 230
Top = 108
Width = 345
Height = 420
Caption = #22270#20070#20511#36824
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 337
Height = 386
ActivePage = TabSheet2
Align = alClient
TabIndex = 1
TabOrder = 0
TabWidth = 150
object TabSheet1: TTabSheet
Caption = #20511#20070
OnShow = TabSheet1Show
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 329
Height = 305
Align = alCustom
Color = clSkyBlue
ParentColor = False
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 77
Height = 16
Caption = #35835#32773#21345#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 40
Width = 77
Height = 16
Caption = #20070#12288#12288#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 64
Width = 77
Height = 16
Caption = #20070#12288#12288#21517':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Edit1: TEdit
Left = 96
Top = 14
Width = 217
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
TabOrder = 0
end
object GroupBox2: TGroupBox
Left = 16
Top = 88
Width = 153
Height = 217
Caption = #22270#20070#21015#34920
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 149
Height = 200
Align = alClient
DataSource = DM.DataSource7
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'bookid'
Title.Caption = #20070#21495
Visible = True
end
item
Expanded = False
FieldName = 'bookname'
Title.Caption = #20070#21517
Visible = True
end>
end
end
object GroupBox3: TGroupBox
Left = 168
Top = 88
Width = 153
Height = 217
Caption = #20511#20070#21015#34920
TabOrder = 2
object Memo1: TMemo
Left = 2
Top = 15
Width = 149
Height = 200
Align = alClient
TabOrder = 0
end
end
object DBEdit1: TDBEdit
Left = 96
Top = 38
Width = 217
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
DataField = 'bookid'
DataSource = DM.DataSource7
ReadOnly = True
TabOrder = 3
end
object DBEdit2: TDBEdit
Left = 96
Top = 62
Width = 217
Height = 19
BevelKind = bkFlat
BorderStyle = bsNone
DataField = 'bookname'
DataSource = DM.DataSource7
ReadOnly = True
TabOrder = 4
end
end
object BitBtn1: TBitBtn
Left = 56
Top = 320
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 1
OnClick = BitBtn1Click
Kind = bkOK
end
object BitBtn2: TBitBtn
Left = 184
Top = 320
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 2
OnClick = BitBtn2Click
Kind = bkCancel
end
end
object TabSheet2: TTabSheet
Caption = #36824#20070
ImageIndex = 1
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 329
Height = 305
Align = alCustom
Color = clSkyBlue
ParentColor = False
TabOrder = 0
object Label4: TLabel
Left = 16
Top = 16
Width = 77
Height = 16
Caption = #35835#32773#21345#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 40
Width = 77
Height = 16
Caption = #20070#12288#12288#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 16
Top = 64
Width = 77
Height = 16
Caption = #20070#12288#12288#21517':'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Edit2: TEdit
Left = 96
Top = 14
Width = 185
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
TabOrder = 0
end
object GroupBox5: TGroupBox
Left = 16
Top = 128
Width = 145
Height = 177
Caption = #22270#20070#21015#34920
TabOrder = 1
object DBGrid2: TDBGrid
Left = 2
Top = 15
Width = 141
Height = 160
Align = alClient
DataSource = DM.DataSource9
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid2DblClick
Columns = <
item
Expanded = False
FieldName = 'bookid'
Title.Caption = #20070#21495
Visible = True
end
item
Expanded = False
FieldName = 'bookname'
Title.Caption = #20070#21517
Visible = True
end>
end
end
object GroupBox6: TGroupBox
Left = 160
Top = 128
Width = 145
Height = 177
Caption = #36824#20070#21015#34920
TabOrder = 2
object Memo2: TMemo
Left = 2
Top = 15
Width = 141
Height = 160
Align = alClient
TabOrder = 0
end
end
object DBEdit3: TDBEdit
Left = 96
Top = 38
Width = 185
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
DataField = 'bookid'
DataSource = DM.DataSource9
ReadOnly = True
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 96
Top = 62
Width = 185
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
DataField = 'bookname'
DataSource = DM.DataSource9
ReadOnly = True
TabOrder = 4
end
object Button1: TButton
Left = 184
Top = 88
Width = 97
Height = 25
Caption = #33719#24471#20511#20070#21015#34920
TabOrder = 5
OnClick = Button1Click
end
end
object BitBtn3: TBitBtn
Left = 184
Top = 320
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 1
OnClick = BitBtn2Click
Kind = bkCancel
end
object BitBtn4: TBitBtn
Left = 56
Top = 320
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 2
OnClick = BitBtn4Click
Kind = bkOK
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -