📄 frmmain.~dfm
字号:
OnShow = tsYGZShow
object Bevel14: TBevel
Left = 2
Top = 15
Width = 692
Height = 172
end
object Bevel15: TBevel
Left = 2
Top = 191
Width = 692
Height = 198
end
object Bevel16: TBevel
Left = 2
Top = 393
Width = 692
Height = 41
Shape = bsFrame
Style = bsRaised
end
object Label1: TLabel
Left = 400
Top = 409
Width = 15
Height = 15
Caption = #24180
end
object Label2: TLabel
Left = 484
Top = 408
Width = 15
Height = 15
Caption = #26376
end
object dbgYGZYGXX: TDBGrid
Left = 4
Top = 17
Width = 689
Height = 169
DataSource = dm.dsYGXX
ImeName = 'itABC v5.30'
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ygh'
Title.Caption = #21592#24037#21495
Width = 106
Visible = True
end
item
Expanded = False
FieldName = 'xm'
Title.Caption = #22995' '#21517
Width = 128
Visible = True
end
item
Expanded = False
FieldName = 'aGz'
Title.Caption = #24037' '#31181
Width = 130
Visible = True
end
item
Expanded = False
FieldName = 'bm'
Title.Caption = #37096' '#38376
Width = 158
Visible = True
end
item
Expanded = False
FieldName = 'gzsj'
Title.Caption = #24037#20316#26102#38388
Width = 139
Visible = True
end>
end
object dbgYGZ: TDBGrid
Left = 4
Top = 193
Width = 688
Height = 196
DataSource = dm.dsYGZ
ImeName = 'itABC v5.30'
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'nian'
Title.Caption = #24180' '#20221
Visible = True
end
item
Expanded = False
FieldName = 'yue'
Title.Caption = #26376' '#20221
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'jbgz'
Title.Caption = #22522#26412#24037#36164
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'jt'
Title.Caption = #27941' '#36148
Width = 88
Visible = True
end
item
Expanded = False
FieldName = 'kc'
Title.Caption = #25187' '#38500
Width = 108
Visible = True
end
item
Expanded = False
FieldName = 'bx'
Title.Caption = #25253#38144'/'#20445#38505
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'zj'
Title.Caption = #24635' '#35745
Width = 130
Visible = True
end>
end
object btCountYGZ: TButton
Left = 16
Top = 401
Width = 56
Height = 25
Caption = #35745' '#31639
TabOrder = 2
OnClick = btCountYGZClick
end
object btConutAllYGZ: TButton
Left = 78
Top = 401
Width = 92
Height = 25
Caption = #35745#31639#25152#26377#20154
TabOrder = 3
OnClick = btConutAllYGZClick
end
object btDeleteYGZ: TButton
Left = 177
Top = 401
Width = 56
Height = 25
Caption = #21024' '#38500
TabOrder = 4
OnClick = btDeleteYGZClick
end
object btBaobiaoYGZ: TButton
Left = 241
Top = 401
Width = 56
Height = 25
Caption = #25253' '#34920
TabOrder = 5
end
object edtYGZ: TEdit
Left = 334
Top = 403
Width = 57
Height = 23
ImeName = 'itABC v5.30'
MaxLength = 4
TabOrder = 6
OnKeyPress = edtYGZKeyPress
end
object cbYGZ: TComboBox
Left = 420
Top = 404
Width = 57
Height = 23
ImeName = 'itABC v5.30'
ItemHeight = 15
TabOrder = 7
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
end
object pbYGZ: TProgressBar
Left = 520
Top = 408
Width = 150
Height = 16
TabOrder = 8
end
end
object tsNDJJ: TTabSheet
Caption = #24180#32456#22870#37329
ImageIndex = 6
OnShow = tsNDJJShow
object Bevel17: TBevel
Left = 2
Top = 15
Width = 691
Height = 173
end
object Bevel18: TBevel
Left = 2
Top = 192
Width = 692
Height = 192
end
object Bevel19: TBevel
Left = 3
Top = 389
Width = 692
Height = 44
Shape = bsFrame
Style = bsRaised
end
object Label3: TLabel
Left = 373
Top = 405
Width = 15
Height = 15
Caption = #24180
end
object Label4: TLabel
Left = 394
Top = 405
Width = 60
Height = 15
Caption = #24180#24230#25928#30410
end
object dbgNZJJYGXX: TDBGrid
Left = 4
Top = 17
Width = 687
Height = 169
DataSource = dm.dsYGXX
ImeName = #26497#21697#20116#31508#36755#20837#27861
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ygh'
Title.Caption = #21592#24037#21495
Width = 119
Visible = True
end
item
Expanded = False
FieldName = 'xm'
Title.Caption = #22995' '#21517
Width = 131
Visible = True
end
item
Expanded = False
FieldName = 'aGz'
Title.Caption = #24037' '#31181
Width = 136
Visible = True
end
item
Expanded = False
FieldName = 'bm'
Title.Caption = #37096' '#38376
Width = 143
Visible = True
end
item
Expanded = False
FieldName = 'gzsj'
Title.Caption = #24037#20316#26102#38388
Width = 132
Visible = True
end>
end
object dbgNZJJ: TDBGrid
Left = 4
Top = 194
Width = 689
Height = 188
DataSource = dm.dsNZJJ
ImeName = #26497#21697#20116#31508#36755#20837#27861
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'nian'
Title.Caption = #24180' '#20221
Visible = True
end
item
Expanded = False
FieldName = 'zj'
Title.Caption = #22870' '#37329
Visible = True
end>
end
object btCountNZJJ: TButton
Left = 16
Top = 400
Width = 56
Height = 25
Caption = #35745' '#31639
TabOrder = 2
end
object btCountAllNZJJ: TButton
Left = 82
Top = 400
Width = 87
Height = 25
Caption = #35745#31639#25152#26377#20154
TabOrder = 3
end
object btDeleteNZJJ: TButton
Left = 184
Top = 400
Width = 56
Height = 25
Caption = #21024' '#38500
TabOrder = 4
end
object btBaoBiaoNZJJ: TButton
Left = 247
Top = 400
Width = 56
Height = 25
Caption = #25253' '#34920
TabOrder = 5
end
object edtNZJJ: TEdit
Left = 313
Top = 401
Width = 56
Height = 23
ImeName = #26497#21697#20116#31508#36755#20837#27861
TabOrder = 6
end
object edtNDXY: TEdit
Left = 460
Top = 401
Width = 69
Height = 23
ImeName = #26497#21697#20116#31508#36755#20837#27861
TabOrder = 7
end
object ProgressBar1: TProgressBar
Left = 544
Top = 403
Width = 128
Height = 17
TabOrder = 8
end
end
object tsXT: TTabSheet
Caption = #31995' '#32479
ImageIndex = 7
end
object tsBZ: TTabSheet
Caption = #24110' '#21161
ImageIndex = 8
end
end
object ApplicationEvents1: TApplicationEvents
Left = 676
Top = 65530
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -