📄 unit8.dfm
字号:
object Form8: TForm8
Left = 254
Top = 221
Width = 785
Height = 509
Caption = #22270#20070#20511#38405#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 793
Height = 105
TabOrder = 0
object zh_Ledit: TLabeledEdit
Left = 16
Top = 32
Width = 121
Height = 21
EditLabel.Width = 24
EditLabel.Height = 13
EditLabel.Caption = #35777#21495
TabOrder = 0
end
object Button1: TButton
Left = 240
Top = 40
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 392
Top = 40
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 2
OnClick = Button2Click
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 112
Width = 785
Height = 113
Caption = #35835#32773#20010#20154#20449#24687
TabOrder = 1
object xm_Ledit: TLabeledEdit
Left = 8
Top = 48
Width = 121
Height = 21
EditLabel.Width = 30
EditLabel.Height = 13
EditLabel.Caption = #22995#21517' '
TabOrder = 0
end
object xb_Ledit: TLabeledEdit
Left = 144
Top = 48
Width = 121
Height = 21
EditLabel.Width = 30
EditLabel.Height = 13
EditLabel.Caption = #24615#21035' '
TabOrder = 1
end
object lb_Ledit: TLabeledEdit
Left = 288
Top = 48
Width = 121
Height = 21
EditLabel.Width = 33
EditLabel.Height = 13
EditLabel.Caption = #31867#21035' '
TabOrder = 2
end
object kjsl_Ledit: TLabeledEdit
Left = 440
Top = 48
Width = 121
Height = 21
EditLabel.Width = 57
EditLabel.Height = 13
EditLabel.Caption = #21487#20511#25968#37327' '
TabOrder = 3
end
object yjsl_Ledit: TLabeledEdit
Left = 592
Top = 48
Width = 121
Height = 21
EditLabel.Width = 54
EditLabel.Height = 13
EditLabel.Caption = #24050#20511#25968#37327' '
TabOrder = 4
end
end
object DBGrid1: TDBGrid
Left = 8
Top = 248
Width = 713
Height = 169
DataSource = DataSource1
PopupMenu = PopupMenu1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'Code'
Title.Caption = #26465#30721
Visible = True
end
item
Expanded = False
FieldName = 'BookName'
Title.Caption = #20070#21517
Visible = True
end
item
Expanded = False
FieldName = 'jsrq'
Title.Caption = #20511#20070#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'hsrq'
Title.Caption = #36824#20070#26085#26399
Visible = True
end>
end
object Button3: TButton
Left = 688
Top = 432
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = Button3Click
end
object Query1: TQuery
DatabaseName = 'Gx'
Constrained = True
SQL.Strings = (
'select jieyueb.Code,jsrq,hsrq ,cangshub.BookName from jieyueb cr' +
'oss join cangshub'
'where jieyueb.Code=cangshub.Code ')
Left = 448
Top = 320
end
object DataSource1: TDataSource
DataSet = Query1
Left = 440
Top = 272
end
object PopupMenu1: TPopupMenu
Left = 448
Top = 376
object N1: TMenuItem
Caption = #36824#20070
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20511#20070
OnClick = N2Click
end
object N3: TMenuItem
Caption = #32493#20511
OnClick = N3Click
end
object N4: TMenuItem
Caption = #21024#38500
OnClick = N4Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -