📄 uprintcjb.dfm
字号:
Left = 113
Top = 248
Width = 96
Height = 21
TabOrder = 7
end
object ComboBox3: TComboBox
Left = 208
Top = 136
Width = 99
Height = 21
ItemHeight = 13
TabOrder = 8
Visible = False
OnExit = ComboBox1Exit
end
object ProgressBar: TProgressBar
Left = 16
Top = 302
Width = 105
Height = 17
Max = 9
TabOrder = 9
end
end
object Panel2: TPanel
Left = 240
Top = 43
Width = 784
Height = 646
Align = alClient
BevelOuter = bvNone
TabOrder = 3
object DBGridEh: TDBGridEh
Left = 0
Top = 0
Width = 784
Height = 646
Align = alClient
DataSource = DataSource
Flat = True
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghDialogFind]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
EditButtons = <>
FieldName = 'vxh'
Footers = <>
ShowImageAndText = True
Title.Alignment = taCenter
Width = 33
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #29677#32423
Footers = <>
Title.Alignment = taCenter
Width = 56
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #22995#21517
Footers = <>
Title.Alignment = taCenter
Width = 49
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #35797#23460#21517#31216
Footers = <>
Title.Alignment = taCenter
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #24231#20301#21495
Footers = <>
Title.Alignment = taCenter
Width = 39
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #35821#25991
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #25968#23398
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #33521#35821
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #29289#29702
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #21270#23398
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #25919#27835
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #21382#21490
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #22320#29702
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
Alignment = taCenter
EditButtons = <>
FieldName = #29983#29289
Footers = <>
Title.Alignment = taCenter
Width = 38
end
item
EditButtons = <>
FieldName = #24635#20998
Footers = <>
Title.Alignment = taCenter
end
item
EditButtons = <>
FieldName = #24179#22343#20998
Footers = <>
Title.Alignment = taCenter
end>
end
end
object ActionList: TActionList
Images = FMain.ImageList
Left = 384
Top = 104
object A_add: TAction
Caption = #22686' '#21152
ImageIndex = 15
ShortCut = 16449
end
object A_modify: TAction
Caption = #20462' '#25913
ImageIndex = 13
ShortCut = 16453
end
object A_save: TAction
Caption = #20445' '#23384
ImageIndex = 0
ShortCut = 16467
end
object A_delete: TAction
Caption = #21024' '#38500
ImageIndex = 10
ShortCut = 16452
end
object A_cancel: TAction
Caption = #25764' '#28040
ImageIndex = 2
ShortCut = 27
end
object A_preview: TAction
Caption = #25171' '#21360
ImageIndex = 3
end
object A_pr: TAction
Caption = #19978#19968#26465
ImageIndex = 7
end
object A_next: TAction
Caption = #19979#19968#26465
ImageIndex = 12
end
object A_find: TAction
Caption = #26597' '#35810
ImageIndex = 17
end
object A_refresh: TAction
Caption = #21047' '#26032
ImageIndex = 22
end
object A_tx: TAction
Caption = #36864' '#23398
ImageIndex = 6
end
end
object ADOQuery: TADOQuery
Connection = FMain.ADOConnection
CursorType = ctStatic
OnCalcFields = ADOQueryCalcFields
Parameters = <>
SQL.Strings = (
'select * from STU_info where not('#35797#23460#21517#31216' is null) order by '#29677#32423','#27969#27700#21495)
Left = 280
Top = 56
object ADOQueryvxh: TIntegerField
DisplayLabel = #24207#21495
FieldKind = fkCalculated
FieldName = 'vxh'
Calculated = True
end
object ADOQueryID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object ADOQueryDSDesigner: TWideStringField
FieldName = #35797#23460#21517#31216
Size = 16
end
object ADOQueryDSDesigner2: TWideStringField
FieldName = #24231#20301#21495
Size = 3
end
object ADOQueryDSDesigner3: TSmallintField
FieldName = #24207#21495
end
object ADOQueryDSDesigner4: TWideStringField
FieldName = #22995#21517
Size = 12
end
object ADOQueryDSDesigner5: TWideStringField
FieldName = #32423#21035
Size = 4
end
object ADOQueryDSDesigner6: TWideStringField
FieldName = #29677#32423
Size = 12
end
object ADOQueryDSDesigner18: TWideStringField
FieldName = #36864#23398#21542
Size = 2
end
object ADOQueryDSDesigner19: TWideStringField
FieldName = #23398#29983#31867#22411
Size = 4
end
object ADOQueryDSDesigner20: TWideStringField
FieldName = #31867#22411
Size = 2
end
object ADOQueryDSDesigner7: TFloatField
FieldName = #35821#25991
end
object ADOQueryDSDesigner8: TFloatField
FieldName = #25968#23398
end
object ADOQueryDSDesigner9: TFloatField
FieldName = #33521#35821
end
object ADOQueryDSDesigner10: TFloatField
FieldName = #29289#29702
end
object ADOQueryDSDesigner11: TFloatField
FieldName = #21270#23398
end
object ADOQueryDSDesigner12: TFloatField
FieldName = #25919#27835
end
object ADOQueryDSDesigner13: TFloatField
FieldName = #21382#21490
end
object ADOQueryDSDesigner14: TFloatField
FieldName = #22320#29702
end
object ADOQueryDSDesigner15: TFloatField
FieldName = #29983#29289
end
object ADOQueryDSDesigner16: TFloatField
FieldName = #24635#20998
end
object ADOQueryDSDesigner17: TFloatField
FieldName = #24179#22343#20998
end
object ADOQueryDSDesigner21: TWideStringField
FieldName = #27969#27700#21495
Size = 5
end
end
object DataSource: TDataSource
DataSet = ADOQuery
Left = 260
Top = 55
end
object PrintDBGridEh: TPrintDBGridEh
Options = []
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -11
PageFooter.Font.Name = 'MS Sans Serif'
PageFooter.Font.Style = []
PageHeader.Font.Charset = DEFAULT_CHARSET
PageHeader.Font.Color = clWindowText
PageHeader.Font.Height = -11
PageHeader.Font.Name = 'MS Sans Serif'
PageHeader.Font.Style = []
Units = MM
Left = 348
Top = 103
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -