📄 assistunit.dfm
字号:
object frm_assist: Tfrm_assist
Left = 535
Top = 376
BorderIcons = [biSystemMenu]
BorderStyle = bsNone
Caption = #24403#21069#22312#32447#27979#35797#20154#21592
ClientHeight = 307
ClientWidth = 469
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 12
object rzpnl1: TRzPanel
Left = 0
Top = 0
Width = 469
Height = 307
Align = alClient
BorderOuter = fsStatus
Color = 13534810
TabOrder = 0
OnMouseDown = rzpnl1MouseDown
object btn1: TSpeedButton
Left = 434
Top = 11
Width = 23
Height = 22
Caption = 'r'
Flat = True
Font.Charset = SYMBOL_CHARSET
Font.Color = clWhite
Font.Height = -7
Font.Name = 'Marlett'
Font.Style = [fsBold]
ParentFont = False
OnClick = btn1Click
end
object dbgrdh1: TDBGridEh
Left = 1
Top = 39
Width = 467
Height = 267
Align = alBottom
AutoFitColWidths = True
DataSource = ds_qry_assist
EvenRowColor = clCream
Flat = True
FooterColor = clSkyBlue
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
ReadOnly = True
RowLines = 2
SumList.Active = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
TitleHeight = 1
TitleLines = 2
Columns = <
item
EditButtons = <>
FieldName = 'SerialID'
Footers = <>
Layout = tlCenter
end
item
EditButtons = <>
FieldName = 'RID'
Footers = <>
Layout = tlCenter
Title.Alignment = taCenter
Title.Caption = 'ID'
Width = 60
end
item
EditButtons = <>
FieldName = 'MOduleName'
Footer.Alignment = taCenter
Footer.DisplayFormat = #22312#32447' 0 '#20154
Footer.ValueType = fvtCount
Footers = <>
Layout = tlCenter
Title.Alignment = taCenter
Title.Caption = #22995#21517
Width = 80
end
item
EditButtons = <>
FieldName = 'MenuName'
Footers = <>
Layout = tlCenter
Title.Alignment = taCenter
Title.Caption = #35745#31639#26426
Width = 80
end
item
EditButtons = <>
FieldName = 'MenuCaption'
Footers = <>
Layout = tlCenter
Title.Alignment = taCenter
Title.Caption = #31867#22411
Width = 60
end
item
EditButtons = <>
FieldName = 'ParentName'
Footers = <>
Layout = tlCenter
Title.Alignment = taCenter
Title.Caption = #27979#39064
Width = 60
end
item
EditButtons = <>
FieldName = 'IsLine'
Footers = <>
Layout = tlCenter
Title.Alignment = taCenter
Title.Caption = #22312#32447
Width = 40
end>
end
end
object qry_assist: TADOQuery
Active = True
Connection = DM.conn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from assisttb where IsLine = true')
Left = 138
Top = 15
end
object ds_qry_assist: TwwDataSource
DataSet = qry_assist
Left = 177
Top = 15
end
object tmr1: TTimer
OnTimer = tmr1Timer
Left = 211
Top = 13
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -