📄 mainform.dfm
字号:
object Main: TMain
Left = 131
Top = 114
Width = 668
Height = 427
Caption = #22270#20070#32508#21512#31649#29702#31995#32479
Color = 16248814
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 19
Width = 660
Height = 355
Hint = #20999#25442#25511#21046#39029
ActivePage = TabSheet1
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HotTrack = True
Images = ImageList1
MultiLine = True
OwnerDraw = True
ParentFont = False
ParentShowHint = False
RaggedRight = True
ShowHint = False
TabHeight = 25
TabOrder = 0
TabPosition = tpLeft
TabWidth = 90
OnDrawTab = PageControl1DrawTab
OnMouseMove = StaticText1MouseMove
object TabSheet1: TTabSheet
Caption = #38144#21806
Highlighted = True
object Panel1: TPanel
Left = 0
Top = 0
Width = 627
Height = 113
Align = alTop
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Serif'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 0
object StaticText1: TStaticText
Left = 7
Top = 10
Width = 79
Height = 23
BiDiMode = bdLeftToRight
Caption = '&B'#26465' '#30721':'
FocusControl = Edit1
ParentBiDiMode = False
ParentShowHint = False
ShowHint = False
TabOrder = 7
OnMouseMove = StaticText1MouseMove
end
object Edit1: TEdit
Left = 85
Top = 9
Width = 97
Height = 22
Hint = #36755#20837#20070#31821#30340#26465#30721
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
OnKeyPress = Edit1KeyPress
OnMouseMove = StaticText1MouseMove
end
object StaticText3: TStaticText
Left = 381
Top = 10
Width = 78
Height = 23
Caption = '&R'#25240' '#25187':'
FocusControl = Edit3
ParentShowHint = False
ShowHint = False
TabOrder = 8
OnMouseMove = StaticText1MouseMove
end
object StaticText5: TStaticText
Left = 3
Top = 34
Width = 76
Height = 23
Caption = ' '#20215' '#26684': '
FocusControl = Edit5
ParentShowHint = False
ShowHint = False
TabOrder = 9
OnMouseMove = StaticText1MouseMove
end
object StaticText6: TStaticText
Left = 376
Top = 34
Width = 76
Height = 23
Caption = ' '#24635#20215#26684': '
ParentShowHint = False
ShowHint = False
TabOrder = 10
OnMouseMove = StaticText1MouseMove
end
object StaticText7: TStaticText
Left = 191
Top = 34
Width = 79
Height = 23
Caption = '&C'#25968' '#37327':'
FocusControl = Edit6
ParentShowHint = False
ShowHint = False
TabOrder = 11
OnMouseMove = StaticText1MouseMove
end
object StaticText8: TStaticText
Left = 189
Top = 10
Width = 72
Height = 23
Caption = ' '#20070' '#21517': '
FocusControl = Edit4
ParentShowHint = False
ShowHint = False
TabOrder = 12
OnMouseMove = StaticText1MouseMove
end
object Edit3: TEdit
Left = 456
Top = 9
Width = 97
Height = 21
Hint = #25171#25240#25968
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 2
Text = '10'
OnKeyPress = Edit3KeyPress
OnMouseMove = StaticText1MouseMove
end
object Edit4: TEdit
Left = 271
Top = 9
Width = 97
Height = 21
Hint = #20070#31821#21517#31216
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = False
TabOrder = 1
OnMouseMove = StaticText1MouseMove
end
object Edit5: TEdit
Left = 85
Top = 33
Width = 97
Height = 21
Hint = #20070#31821#20215#26684
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = False
TabOrder = 3
Text = '0.0'
OnMouseMove = StaticText1MouseMove
end
object Edit6: TEdit
Left = 271
Top = 33
Width = 97
Height = 21
Hint = #36141#20080#25968#37327
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 4
Text = '1'
OnChange = Edit6Change
OnKeyPress = Edit6KeyPress
OnMouseMove = StaticText1MouseMove
end
object StaticText11: TStaticText
Left = 462
Top = 97
Width = 92
Height = 17
BevelKind = bkSoft
Caption = ' '#21462#28040#24403#21069#25805#20316' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 13
OnClick = StaticText11Click
OnMouseDown = StaticText10MouseDown
OnMouseMove = StaticText1MouseMove
OnMouseUp = StaticText10MouseUp
end
object StaticText10: TStaticText
Left = 423
Top = 97
Width = 34
Height = 17
BevelKind = bkSoft
Caption = ' '#30830#35748
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 14
OnClick = StaticText10Click
OnMouseDown = StaticText10MouseDown
OnMouseMove = StaticText1MouseMove
OnMouseUp = StaticText10MouseUp
end
object Edit7: TEdit
Left = 456
Top = 33
Width = 97
Height = 21
Hint = #24635#20215#26684
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ReadOnly = True
ShowHint = False
TabOrder = 5
Text = '0.0'
OnMouseMove = StaticText1MouseMove
end
object StaticText2: TStaticText
Left = 256
Top = 58
Width = 4
Height = 4
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 15
end
object StaticText4: TStaticText
Left = 4
Top = 58
Width = 83
Height = 23
Caption = '&M'#22791' '#27880':'
FocusControl = Memo1
ParentShowHint = False
ShowHint = False
TabOrder = 16
OnMouseMove = StaticText1MouseMove
end
object Memo1: TMemo
Left = 85
Top = 57
Width = 467
Height = 36
Hint = #22791#27880#20449#24687
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
ParentShowHint = False
ScrollBars = ssVertical
ShowHint = False
TabOrder = 6
OnKeyPress = Memo1KeyPress
OnMouseMove = StaticText1MouseMove
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 113
Width = 627
Height = 234
Align = alClient
Caption = #38144#21806#39033
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 623
Height = 197
Hint = #38144#21806#26126#32454#34920
Align = alClient
Color = 16632508
Ctl3D = False
DataSource = Data.SellSource
FixedColor = 16248814
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ParentShowHint = False
ReadOnly = True
ShowHint = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnMouseMove = StaticText1MouseMove
Columns = <
item
Expanded = False
FieldName = 'Barcode'
Title.Caption = #26465#30721
Visible = True
end
item
Expanded = False
FieldName = 'BookName'
Title.Caption = #20070#21517
Visible = True
end
item
Expanded = False
FieldName = 'Price'
Title.Caption = #20215#26684
Visible = True
end
item
Expanded = False
FieldName = 'SellCount'
Title.Caption = #25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'Rebate'
Title.Caption = #25240#25187
Visible = True
end
item
Expanded = False
FieldName = 'PriceSum'
Title.Caption = #24635#20215#26684
Visible = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -