📄 billbase.dfm
字号:
inherited frmBillBase: TfrmBillBase
Left = 571
Top = 191
ActiveControl = EdtNO_S
Caption = #21934#25818#22522#39006
ClientHeight = 527
ClientWidth = 800
Font.Height = -15
OnCloseQuery = FormCloseQuery
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 15
object plTitle: TPanel
Left = 0
Top = 0
Width = 800
Height = 41
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object FormTitle: TLabel
Left = 24
Top = 10
Width = 108
Height = 21
Caption = 'FormTitle'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -21
Font.Name = #27161#26999#39636
Font.Style = [fsBold]
ParentFont = False
end
object Panel3: TPanel
Left = 334
Top = 2
Width = 464
Height = 37
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object Label5: TLabel
Left = 16
Top = 13
Width = 48
Height = 15
Caption = #27969#27700#34399
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentFont = False
end
object Button10: TButton
Left = 378
Top = 7
Width = 75
Height = 25
Action = acExit
TabOrder = 0
end
object editNO: TwwDBEdit
Left = 75
Top = 8
Width = 145
Height = 21
Hint = 'fNo'
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = [fsBold]
Frame.Enabled = True
Frame.FocusBorders = []
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object Button9: TButton
Left = 301
Top = 7
Width = 75
Height = 25
Action = acBilltype
TabOrder = 2
end
end
end
object PnlBrowse: TPanel
Left = 11
Top = 57
Width = 780
Height = 87
BevelOuter = bvNone
TabOrder = 2
object GridBrowse: TDBGridEh
Left = 0
Top = 0
Width = 780
Height = 42
Align = alClient
DataSource = DSMaster
FixedColor = 12835543
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -15
FooterFont.Name = #32048#26126#39636
FooterFont.Style = []
PopupMenu = pupmenubrowse
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #32048#26126#39636
TitleFont.Style = []
OnDrawColumnCell = GridBrowseDrawColumnCell
end
object Panel2: TPanel
Left = 0
Top = 42
Width = 780
Height = 45
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Panel4: TPanel
Left = 618
Top = 2
Width = 160
Height = 41
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object btnrefresh: TButton
Left = 6
Top = 8
Width = 75
Height = 25
Action = acRefresh
TabOrder = 0
end
object btnsearch: TButton
Left = 82
Top = 8
Width = 75
Height = 25
Action = acBillSearch
TabOrder = 1
end
end
object Button11: TButton
Left = 5
Top = 10
Width = 75
Height = 25
Action = acFirst
TabOrder = 1
end
object Button12: TButton
Left = 80
Top = 10
Width = 75
Height = 25
Action = acPrior
TabOrder = 2
end
object Button13: TButton
Left = 156
Top = 10
Width = 75
Height = 25
Action = acNext
TabOrder = 3
end
object Button14: TButton
Left = 232
Top = 10
Width = 75
Height = 25
Action = acLast
TabOrder = 4
end
end
end
object PnlEdit: TPanel
Left = 12
Top = 146
Width = 780
Height = 372
BevelOuter = bvNone
TabOrder = 1
object pnEdit: TPanel
Left = 0
Top = 0
Width = 780
Height = 240
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object plStandard: TPanel
Left = 0
Top = 0
Width = 780
Height = 55
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label6: TLabel
Left = 30
Top = 29
Width = 64
Height = 15
Caption = #21934#25818#32232#34399
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentFont = False
end
object lblCancelInfo: TLabel
Left = 104
Top = 7
Width = 72
Height = 13
Caption = 'FormTitle'
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = [fsBold]
ParentFont = False
end
object plcalendar: TPanel
Left = 284
Top = 0
Width = 496
Height = 55
Align = alRight
BevelOuter = bvNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 53
Top = 11
Width = 80
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #26032#24314#20154
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 273
Top = 11
Width = 80
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #20462#25913#20154
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 353
Top = 11
Width = 140
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #20462#25913#26178#38291
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 133
Top = 11
Width = 140
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #26032#24314#26178#38291
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object edtCreauser: TwwDBEdit
Left = 53
Top = 31
Width = 80
Height = 19
Hint = 'fcreauser'
BorderStyle = bsNone
Ctl3D = False
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ReadOnly = True
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtmodiuser: TwwDBEdit
Left = 273
Top = 31
Width = 80
Height = 19
Hint = 'fmodiuser'
BorderStyle = bsNone
Ctl3D = False
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtcreadate: TwwDBEdit
Left = 133
Top = 31
Width = 140
Height = 19
Hint = 'fcreadate'
BorderStyle = bsNone
Ctl3D = False
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ReadOnly = True
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtmodidate: TwwDBEdit
Left = 353
Top = 31
Width = 140
Height = 19
Hint = 'fmodidate'
BorderStyle = bsNone
Ctl3D = False
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ReadOnly = True
TabOrder = 3
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
object EdtNO_S: TwwDBEdit
Left = 102
Top = 26
Width = 137
Height = 21
Hint = 'fNo_S'
CharCase = ecUpperCase
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
end
object plGrid: TPanel
Left = 0
Top = 240
Width = 780
Height = 94
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Grid: TDBGridEh
Tag = 1
Left = 0
Top = 0
Width = 780
Height = 44
Align = alClient
DataSource = dsDetail
FixedColor = 12835543
Flat = True
FooterColor = 14015231
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -15
FooterFont.Name = #32048#26126#39636
FooterFont.Style = []
FooterRowCount = 1
SumList.Active = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #32048#26126#39636
TitleFont.Style = []
OnCellClick = GridCellClick
OnDrawColumnCell = GridDrawColumnCell
Columns = <
item
AlwaysShowEditButton = True
AutoDropDown = True
ButtonStyle = cbsDropDown
EditButtons = <>
FieldName = 'fcode'
Footers = <
item
ValueType = fvtStaticText
end>
Title.Caption = #29986#21697#32232#30908
Width = 130
OnEditButtonDown = GridColumns0EditButtonDown
end
item
EditButtons = <>
FieldName = 'fname'
Footers = <>
Title.Caption = #21517#31281
Width = 160
end
item
EditButtons = <>
FieldName = 'fspec'
Footers = <>
Title.Caption = #35215#26684
Width = 180
end
item
EditButtons = <>
FieldName = 'funitName'
Footers = <
item
Value = #21512#35336#65109
ValueType = fvtStaticText
end>
Title.Caption = #21934#20301
end
item
DisplayFormat = '0.00'
EditButtons = <>
FieldName = 'fqty'
Footers = <
item
ValueType = fvtSum
end>
Title.Caption = #25976#37327
Width = 100
end
item
DisplayFormat = '0.00'
EditButtons = <>
FieldName = 'funitprice'
Footers = <
item
ValueType = fvtSum
end>
Title.Caption = #21934#20729
Width = 100
end
item
DisplayFormat = '0.00'
EditButtons = <>
FieldName = 'famount'
Footers = <
item
ValueType = fvtSum
end>
Title.Caption = #32317#20729
Width = 100
end>
end
object plOther: TPanel
Left = 0
Top = 44
Width = 780
Height = 50
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object LabelSubmitUser: TLabel
Left = 19
Top = 9
Width = 56
Height = 13
Caption = #23529' '#26680' '#20154
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentFont = False
end
object LabelSubmitDate: TLabel
Left = 19
Top = 30
Width = 56
Height = 13
Caption = #23529#26680#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentFont = False
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -