📄 bomexp.dfm
字号:
object frmBomExp: TfrmBomExp
Left = 434
Top = 232
BorderStyle = bsSingle
Caption = #20179#24211#20449#24687
ClientHeight = 437
ClientWidth = 620
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object DBGridEh1: TDBGridEh
Left = 0
Top = 77
Width = 620
Height = 341
Align = alClient
AutoFitColWidths = True
CurrencyStyle.CurrencyFont.Charset = ANSI_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -14
CurrencyStyle.CurrencyFont.Name = #23435#20307
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = #65509
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
CurrencyStyle.HeadFont.Style = []
DrawCurrency = True
DataSource = DataSource1
FixGridlinecolor = clGray
Gridlinecolor = clGray
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FooterRowCount = 1
FooterDisplayStyle = False
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking]
ParentFont = False
ReadOnly = True
RowDoublecolor = clWindow
RowSinglecolor = clCream
SumList.Active = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = btnEditClick
Columns = <
item
DisplayCurrency = False
DisplayZero = False
EditButtons = <>
FieldName = #29289#21697#32534#30721
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
Width = 120
end
item
DisplayCurrency = False
DisplayZero = False
EditButtons = <>
FieldName = #29289#21697#21517#31216
Footer.ValueType = fvtCount
Footers = <>
Width = 120
end
item
DisplayCurrency = True
DisplayZero = False
EditButtons = <>
FieldName = #29289#21697#21333#20215
Footers = <>
Width = 120
end
item
DisplayCurrency = False
DisplayZero = False
EditButtons = <>
FieldName = #29289#21697#25968#37327
Footers = <>
Width = 120
end
item
DisplayCurrency = True
DisplayZero = False
EditButtons = <>
FieldName = #37329#39069
Footer.FieldName = #37329#39069
Footer.ValueType = fvtSum
Footers = <>
Width = 120
end>
end
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 620
Height = 77
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 38
Width = 616
end
item
Control = Panel1
ImageIndex = -1
MinHeight = 33
Width = 616
end>
object ToolBar1: TToolBar
Left = 9
Top = 0
Width = 603
Height = 38
Align = alNone
ButtonHeight = 37
ButtonWidth = 35
Caption = 'ToolBar1'
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Images = Datamod.imgButtonList
ParentFont = False
ShowCaptions = True
TabOrder = 0
Transparent = True
object ToolButton1: TToolButton
Left = 0
Top = 0
Width = 2
Caption = 'ToolButton1'
ImageIndex = 16
Style = tbsSeparator
end
object btnFresh: TToolButton
Left = 2
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = btnFreshClick
end
object ToolButton2: TToolButton
Left = 41
Top = 0
Width = 8
Caption = 'ToolButton2'
ImageIndex = 1
Style = tbsSeparator
end
object btnNew: TToolButton
Left = 49
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = btnNewClick
end
object btnEdit: TToolButton
Left = 88
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = btnEditClick
end
object btnDelete: TToolButton
Left = 127
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = btnDeleteClick
end
object ToolButton6: TToolButton
Left = 166
Top = 0
Width = 8
Caption = 'ToolButton6'
ImageIndex = 5
Style = tbsSeparator
end
object BtnOut: TToolButton
Left = 174
Top = 0
Caption = #23548#20986
ImageIndex = 28
OnClick = BtnOutClick
end
object btnPrint: TToolButton
Left = 209
Top = 0
Caption = #25171#21360
ImageIndex = 25
Visible = False
end
object ToolButton4: TToolButton
Left = 244
Top = 0
Width = 8
Caption = 'ToolButton4'
ImageIndex = 17
Style = tbsSeparator
end
object btnExit: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #36864#20986
ImageIndex = 15
OnClick = btnExitClick
end
object ToolButton3: TToolButton
Left = 291
Top = 0
Width = 8
Caption = 'ToolButton3'
ImageIndex = 16
Style = tbsSeparator
end
end
object Panel1: TPanel
Left = 9
Top = 40
Width = 603
Height = 33
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 2
Top = 11
Width = 48
Height = 13
Caption = #24555#36895#26597#35810
end
object Edit1: TEdit
Left = 58
Top = 7
Width = 121
Height = 21
TabOrder = 0
OnChange = Edit1Change
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 418
Width = 620
Height = 19
Panels = <>
SimplePanel = False
end
object DataSource1: TDataSource
DataSet = QurOutput
Left = 64
Top = 248
end
object QurOutput: TADOQuery
Connection = Datamod.dbmain
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select '#25968#25454#32534#30721','#29289#21697#32534#30721','#29289#21697#21517#31216','#29289#21697#21333#20215','#29289#21697#25968#37327',('#29289#21697#21333#20215'*'#29289#21697#25968#37327') as '#37329#39069' from '#20179#24211#20449#24687)
Left = 24
Top = 248
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -