📄 data.~dfm
字号:
object datafrm: Tdatafrm
Left = 286
Top = 171
Width = 566
Height = 449
Caption = #25968#25454#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 Label1: TLabel
Left = 70
Top = 13
Width = 83
Height = 13
AutoSize = False
Caption = #25968#25454#26597#35810
end
object Label2: TLabel
Left = 70
Top = 40
Width = 75
Height = 13
AutoSize = False
Caption = #36873#25321#21024#38500
end
object Label3: TLabel
Left = 154
Top = 38
Width = 108
Height = 13
Caption = #22635#20837#35201#21024#38500#30340#24207#21495#65306
end
object StringGrid1: TStringGrid
Left = 6
Top = 77
Width = 547
Height = 260
ColCount = 14
Ctl3D = False
DefaultColWidth = 60
DefaultRowHeight = 18
FixedCols = 0
RowCount = 15
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 224
Top = 363
Width = 84
Height = 27
Caption = #36755#20986#25968#25454
TabOrder = 1
OnClick = BitBtn1Click
end
object ComboBox1: TComboBox
Left = 154
Top = 6
Width = 116
Height = 21
ItemHeight = 13
TabOrder = 2
Text = #20117#21495
Items.Strings = (
#20117#21495
#23721#26679#21495)
end
object Button1: TButton
Left = 390
Top = 6
Width = 68
Height = 20
Caption = #26597' '#35810
TabOrder = 3
OnClick = Button1Click
end
object Edit1: TEdit
Left = 282
Top = 6
Width = 96
Height = 21
TabOrder = 4
end
object Edit2: TEdit
Left = 282
Top = 38
Width = 96
Height = 21
TabOrder = 5
end
object Button2: TButton
Left = 390
Top = 38
Width = 67
Height = 20
Caption = #21024' '#38500
TabOrder = 6
OnClick = Button2Click
end
object ExcelApplication1: TExcelApplication
AutoConnect = False
ConnectKind = ckRunningOrNew
AutoQuit = False
Left = 96
Top = 344
end
object ExcelWorksheet1: TExcelWorksheet
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 128
Top = 344
end
object SaveDialog1: TSaveDialog
Filter = '*.xls|xls'
Left = 168
Top = 344
end
object ExcelWorkbook1: TExcelWorkbook
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 64
Top = 344
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -