📄 unitmb.dfm
字号:
object mbForm: TmbForm
Left = 120
Top = 105
Width = 638
Height = 480
Caption = #27169#26495
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object mbPanel1: TPanel
Left = 0
Top = 39
Width = 630
Height = 414
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object mbPanel2: TPanel
Left = 0
Top = 0
Width = 630
Height = 89
Align = alTop
Color = clWindow
TabOrder = 0
DesignSize = (
630
89)
object lblBillDate: TLabel
Left = 424
Top = 6
Width = 81
Height = 34
Alignment = taCenter
Anchors = [akTop, akRight]
AutoSize = False
Caption = #24320#21333#26085#26399
Color = clBackground
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object lblInvoNo: TLabel
Left = 514
Top = 6
Width = 110
Height = 34
Alignment = taCenter
Anchors = [akTop, akRight]
AutoSize = False
Caption = #21333#25454#32534#21495
Color = clBackground
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object lblFormName: TLabel
Left = 12
Top = 11
Width = 40
Height = 19
Caption = #27169#24335
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblStore: TLabel
Left = 365
Top = 48
Width = 83
Height = 34
Alignment = taCenter
Anchors = [akTop, akRight]
AutoSize = False
Caption = #20179' '#24211
Color = clBackground
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object lblEmp: TLabel
Left = 453
Top = 48
Width = 83
Height = 34
Alignment = taCenter
Anchors = [akTop, akRight]
AutoSize = False
Caption = #19994#21153#21592
Color = clBackground
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object lblOther: TLabel
Left = 541
Top = 47
Width = 83
Height = 35
Alignment = taCenter
Anchors = [akTop, akRight]
AutoSize = False
Caption = #20184#27454#26399#38480
Color = clBackground
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object edtBillDate: TDateTimePicker
Left = 424
Top = 20
Width = 83
Height = 19
Anchors = [akTop, akRight]
CalAlignment = dtaLeft
Date = 37648
Format = 'yyyy-MM-dd'
Time = 37648
DateFormat = dfShort
DateMode = dmComboBox
DragKind = dkDock
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object edtInvoNo: TEdit
Left = 515
Top = 20
Width = 108
Height = 19
Anchors = [akTop, akRight]
BorderStyle = bsNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object edtEmp: TfrComboEdit
Left = 452
Top = 61
Width = 85
Height = 21
Style = csSimple
Anchors = [akTop, akRight]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 2
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFF8888888888FFFFFF8888444888FFFFFF8888444888FFFFFF888888888
8FFFFFF8888447888FFFFFF8888447888FFFFFF8888844888FFFFFF888888447
8FFFFFF8744887447FFFFFF8447888444FFFFFF8447888444FFFFFF884488744
7FFFFFF8884444478FFFFFF8888888888FFFFFFFFFFFFFFFFFFF}
OnButtonClick = edtEmpButtonClick
end
object edtStore: TfrComboEdit
Left = 364
Top = 61
Width = 84
Height = 21
Style = csSimple
Anchors = [akTop, akRight]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 3
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFF8888888888FFFFFF8888444888FFFFFF8888444888FFFFFF888888888
8FFFFFF8888447888FFFFFF8888447888FFFFFF8888844888FFFFFF888888447
8FFFFFF8744887447FFFFFF8447888444FFFFFF8447888444FFFFFF884488744
7FFFFFF8884444478FFFFFF8888888888FFFFFFFFFFFFFFFFFFF}
OnButtonClick = edtStoreButtonClick
end
end
object mbPanel3: TPanel
Left = 0
Top = 116
Width = 630
Height = 298
Align = alClient
BevelOuter = bvNone
TabOrder = 2
object Splitter1: TSplitter
Left = 88
Top = 0
Width = 2
Height = 298
Cursor = crHSplit
end
object DBGrid1: TDBGridEh
Left = 90
Top = 0
Width = 540
Height = 298
Align = alClient
DataSource = DataE2.dsDetail
FixedColor = 9090758
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
FooterColor = 16052953
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
OddRowColor = 16773360
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab]
ParentFont = False
SumList.Active = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWhite
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
TitleHeight = 16
VertScrollBar.VisibleMode = sbAlwaysShowEh
OnCellClick = DBGrid1CellClick
OnColEnter = DBGrid1ColEnter
OnColExit = DBGrid1ColExit
OnDrawColumnCell = DBGrid1DrawColumnCell
OnEnter = DBGrid1Enter
OnKeyPress = DBGrid1KeyPress
Columns = <
item
AutoDropDown = True
EditButtons = <>
FieldName = 'code'
Footers = <
item
Alignment = taCenter
Value = #21512#35745#65306
ValueType = fvtStaticText
end>
Title.Alignment = taCenter
Title.Caption = #32534#30721
Width = 83
end
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'name'
Footers = <>
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #21697#21517
Width = 198
end
item
EditButtons = <>
FieldName = 'perqty'
Footers = <>
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = #35268#26684
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWhite
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 43
end
item
Alignment = taCenter
AutoFitColWidth = False
EditButtons = <>
FieldName = 'units'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21333#20301
Width = 46
end
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'QTY'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #25968#37327
Width = 49
end
item
EditButtons = <>
EditMask = '0.00'
FieldName = 'PRICE'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21333#20215
Width = 60
end
item
EditButtons = <>
FieldName = 'total'
Footer.FieldName = 'Total'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #36135#21697#37329#39069
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -