📄 unit1.dfm
字号:
object FrmExcel: TFrmExcel
Left = 168
Top = 101
AutoScroll = False
Caption = 'Excel'
ClientHeight = 582
ClientWidth = 822
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 15
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 825
Height = 582
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #25968#25454#23548#20837
object Label3: TLabel
Left = 8
Top = 35
Width = 120
Height = 15
Caption = #23548#20837#21518#30340#25968#25454#20449#24687
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 84
Top = 7
Width = 45
Height = 15
Caption = #25991#20214#21517
end
object Label18: TLabel
Left = 560
Top = 7
Width = 108
Height = 15
Caption = #31532' '#39029#34920#26684
end
object Panel7: TPanel
Left = 126
Top = 3
Width = 433
Height = 23
BevelOuter = bvNone
Enabled = False
TabOrder = 7
object Edtexcelname: TEdit
Left = 4
Top = 2
Width = 427
Height = 19
BorderStyle = bsNone
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ImeName = #32043#20809#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
end
end
object BitBtn1: TBitBtn
Left = 344
Top = -108
Width = 75
Height = 25
Caption = 'BitBtn1'
TabOrder = 0
end
object btnin: TBitBtn
Left = 671
Top = 2
Width = 81
Height = 24
Caption = #23548#20837
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btninClick
end
object grdlist: TDBGrid
Left = 8
Top = 53
Width = 801
Height = 470
DataSource = DSsource
ImeName = #32043#20809#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 2
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object Panel1: TPanel
Left = 5
Top = 526
Width = 804
Height = 26
BevelOuter = bvLowered
TabOrder = 3
object Label17: TLabel
Left = 460
Top = 7
Width = 311
Height = 15
Caption = 'EXECL'#25968#25454#30340#36215#22987#34892#12289#21015#19981#33021#36229#36807#31532'4'#34892#12289#31532'4'#21015
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 21
Top = 7
Width = 340
Height = 15
Caption = #25968#25454#23548#20837#21069#35831#20851#38381'EXECL'#65292#21542#21017#31995#32479#26080#27861#27491#24120#36816#34892#65281
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object btnExit: TBitBtn
Left = 755
Top = 0
Width = 57
Height = 25
Caption = #36864#20986'&X'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnExitClick
end
object CBxnopage: TComboBox
Left = 578
Top = 4
Width = 43
Height = 23
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 15
ItemIndex = 0
ParentFont = False
TabOrder = 5
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40')
end
object btn: TBitBtn
Left = 7
Top = 2
Width = 74
Height = 24
Caption = #36873#25321#25991#20214
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = btnClick
end
end
object TabSheet2: TTabSheet
Caption = #25968#25454#32479#35745
ImageIndex = 1
object Panel2: TPanel
Left = -2
Top = -2
Width = 822
Height = 98
TabOrder = 0
object btngroup: TBitBtn
Left = 6
Top = 8
Width = 72
Height = 24
Caption = #20998#32452#26465#20214':'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btngroupClick
end
object btntotal: TBitBtn
Left = 6
Top = 33
Width = 72
Height = 24
Caption = #32479#35745#23383#27573':'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btntotalClick
end
object Panel4: TPanel
Left = 76
Top = 9
Width = 661
Height = 23
BevelOuter = bvLowered
Color = clSilver
TabOrder = 2
object Labgroup: TLabel
Left = 8
Top = 5
Width = 7
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object Panel5: TPanel
Left = 77
Top = 34
Width = 660
Height = 23
BevelOuter = bvLowered
Color = clSilver
TabOrder = 3
object Labtotal: TLabel
Left = 8
Top = 5
Width = 7
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object btnshow: TBitBtn
Left = 6
Top = 60
Width = 72
Height = 24
Caption = #24179#22343#23383#27573#65306
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnshowClick
end
object Button1: TButton
Left = 748
Top = 11
Width = 67
Height = 19
Caption = 'Button1'
TabOrder = 5
OnClick = Button1Click
end
object Panel9: TPanel
Left = 78
Top = 60
Width = 659
Height = 23
BevelOuter = bvLowered
Color = clSilver
TabOrder = 6
object labavg: TLabel
Left = 8
Top = 5
Width = 7
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object btnexectotal: TBitBtn
Left = 743
Top = 8
Width = 75
Height = 25
Caption = #32479#35745
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = btnexectotalClick
end
end
object Panel3: TPanel
Left = -1
Top = 96
Width = 820
Height = 458
TabOrder = 1
object Label2: TLabel
Left = 13
Top = 9
Width = 60
Height = 15
Caption = #32479#35745#20449#24687
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Grdtotal: TDBGrid
Left = 8
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -