📄 unit7.~dfm
字号:
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PopupMenu = suiPopupMenu1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWhite
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
UIStyle = MacOS
BorderColor = 8355711
FocusedColor = clGreen
SelectedColor = clYellow
FontColor = clBlack
TitleFontColor = clWhite
FixedBGColor = 12874553
BGColor = 15198183
Columns = <
item
Expanded = False
FieldName = 'id'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = #27969#27700#21495
Width = 169
Visible = True
end
item
Expanded = False
FieldName = #21488#21495
Width = 105
Visible = True
end
item
Expanded = False
FieldName = #23458#20154#25968#37327
Width = 112
Visible = True
end
item
Expanded = False
FieldName = #26085#26399
Width = 160
Visible = True
end
item
Expanded = False
FieldName = #26102#38388
Width = 172
Visible = True
end
item
Expanded = False
FieldName = #37329#39069
Width = 120
Visible = True
end>
end
object suiEdit3: TsuiEdit
Left = 88
Top = 144
Width = 73
Height = 17
UIStyle = MacOS
BorderColor = 8355711
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 4
end
object suiButton2: TsuiButton
Left = 184
Top = 144
Width = 73
Height = 25
Caption = #32479#35745
AutoSize = False
UIStyle = MacOS
TabOrder = 3
Transparent = True
ModalResult = 0
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton2Click
ResHandle = 0
end
end
object suiMainMenu1: TsuiMainMenu
OwnerDraw = True
UIStyle = MacOS
MenuItemHeight = 20
SeparatorHeight = 12
BarWidth = 26
BarColor = clBlack
Color = clBlack
SeparatorColor = clBlack
SelectedBorderColor = 12874553
SelectedColor = 12874553
SelectedFontColor = clWhite
FontColor = clBlack
BorderColor = clBlack
FlatMenu = False
FontName = 'MS Sans Serif'
FontSize = 8
FontCharset = DEFAULT_CHARSET
UseSystemFont = True
Left = 144
Top = 248
object N4: TMenuItem
Caption = #25968#25454#25805#20316
object N5: TMenuItem
Caption = #25968#25454#22791#20221
OnClick = N5Click
end
object N6: TMenuItem
Caption = #21024#38500#25152#36873#25152#26377#25968#25454
OnClick = N6Click
end
end
end
object suiPopupMenu1: TsuiPopupMenu
OwnerDraw = True
UIStyle = MacOS
MenuItemHeight = 20
SeparatorHeight = 12
BarWidth = 26
BarColor = clBlack
Color = clBlack
SeparatorColor = clBlack
SelectedBorderColor = 12874553
SelectedColor = 12874553
SelectedFontColor = clWhite
FontColor = clBlack
BorderColor = clBlack
FlatMenu = False
FontName = 'MS Sans Serif'
FontSize = 8
FontCharset = DEFAULT_CHARSET
UseSystemFont = True
Left = 200
Top = 120
object N1: TMenuItem
Caption = #21047#26032
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#26174
OnClick = N2Click
end
object N3: TMenuItem
Caption = #25171#21360
OnClick = N3Click
end
object ExCL1: TMenuItem
Caption = #23548#20986'EXCL'
OnClick = ExCL1Click
end
end
object ADOTable1: TADOTable
Connection = Form1.ADOConnection1
OnFilterRecord = ADOTable1FilterRecord
TableName = #20184#27454
Left = 192
Top = 208
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 48
Top = 216
end
object frPrintGrid1: TfrPrintGrid
DBGrid = suiDBGrid1
FitWidth.Enabled = False
FitWidth.ShrinkOptions = [frsoProportional, frsoShrinkOnly]
FitWidth.ResizePercent = 30
FitWidth.ApplyBeforeOnCustomize = False
PageSize = 9
PageWidth = 0
PageHeight = 0
PageMargins.Left = 0
PageMargins.Top = 0
PageMargins.Right = 0
PageMargins.Bottom = 0
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = [fsBold]
Title.Color = clWhite
Title.Frame = []
Title.FrameWidth = 1
PageHeader.Font.Charset = DEFAULT_CHARSET
PageHeader.Font.Color = clWindowText
PageHeader.Font.Height = -13
PageHeader.Font.Name = 'Arial'
PageHeader.Font.Style = []
PageHeader.Color = clWhite
PageHeader.Frame = []
PageHeader.FrameWidth = 1
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -13
PageFooter.Font.Name = 'Arial'
PageFooter.Font.Style = []
PageFooter.Color = clWhite
PageFooter.Frame = []
PageFooter.FrameWidth = 1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWhite
Header.Font.Height = -13
Header.Font.Name = 'Arial'
Header.Font.Style = [fsBold]
Header.Color = clNavy
Header.Frame = [frLeft, frTop, frRight, frBottom]
Header.FrameWidth = 1
Body.Font.Charset = DEFAULT_CHARSET
Body.Font.Color = clWindowText
Body.Font.Height = -13
Body.Font.Name = 'Arial'
Body.Font.Style = []
Body.Color = clWhite
Body.Frame = [frLeft, frTop, frRight, frBottom]
Body.FrameWidth = 1
Left = 360
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -