📄 billstatus.dfm
字号:
inherited frmbillStatus: TfrmbillStatus
Left = 98
Top = 178
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #21333#25454#29366#24577
ClientHeight = 472
ClientWidth = 718
Color = clWhite
Font.Height = -12
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 8
Top = 7
Width = 701
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
TabOrder = 0
object FormTitle: TLabel
Left = 24
Top = 10
Width = 6
Height = 19
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -19
Font.Name = #21326#25991#34892#26999
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 230
Top = 13
Width = 48
Height = 12
Caption = #21333#25454#32534#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Panel3: TPanel
Left = 388
Top = 2
Width = 311
Height = 37
Align = alRight
BevelOuter = bvNone
Color = clWhite
TabOrder = 0
object btnExit: TButton
Left = 230
Top = 5
Width = 75
Height = 25
Action = acExit
TabOrder = 0
end
object Button2: TButton
Left = 78
Top = 5
Width = 75
Height = 25
Action = acCancel
TabOrder = 1
end
object Button3: TButton
Left = 154
Top = 5
Width = 75
Height = 25
Action = acFinish
Caption = #32467#28165
TabOrder = 2
end
end
object EditNO: TwwDBEdit
Left = 302
Top = 10
Width = 137
Height = 18
Hint = 'fNo'
CharCase = ecUpperCase
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
object GroupBox1: TGroupBox
Left = 8
Top = 48
Width = 701
Height = 418
TabOrder = 1
object pnEdit: TPanel
Left = 2
Top = 14
Width = 697
Height = 200
Align = alTop
BevelOuter = bvNone
Color = clWhite
TabOrder = 0
object Label1: TLabel
Left = 253
Top = 11
Width = 90
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #26032#24314#20154
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 343
Top = 11
Width = 129
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #26032#24314#26102#38388
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 472
Top = 11
Width = 90
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #20462#25913#20154
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 561
Top = 11
Width = 129
Height = 20
Alignment = taCenter
AutoSize = False
Caption = #20462#25913#26102#38388
Color = clTeal
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = #32048#26126#39636
Font.Style = []
ParentColor = False
ParentFont = False
end
object LblStatus: TLabel
Left = 26
Top = 8
Width = 66
Height = 20
Caption = 'Status'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -20
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object edtmodidate: TwwDBEdit
Left = 561
Top = 31
Width = 129
Height = 18
Hint = 'fmodidate'
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efRightBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 3
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtmodiuser: TwwDBEdit
Left = 472
Top = 31
Width = 88
Height = 18
Hint = 'fmodiuser'
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtcreadate: TwwDBEdit
Left = 343
Top = 31
Width = 129
Height = 18
Hint = 'fcreadate'
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtCreauser: TwwDBEdit
Left = 253
Top = 31
Width = 90
Height = 18
Hint = 'fcreauser'
BorderStyle = bsNone
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Frame.Enabled = True
Frame.FocusBorders = [efLeftBorder, efBottomBorder]
Frame.NonFocusBorders = [efLeftBorder, efBottomBorder]
Frame.FocusStyle = efsFrameSingle
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
object plGrid: TPanel
Left = 2
Top = 214
Width = 697
Height = 202
Align = alClient
BevelOuter = bvNone
Color = clWhite
TabOrder = 1
object Grid: TDBGridEh
Tag = 1
Left = 0
Top = 0
Width = 697
Height = 152
Align = alClient
DataSource = dsDetail
FixedColor = 12835543
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FooterColor = 14015231
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #32048#26126#39636
FooterFont.Style = []
FooterRowCount = 1
ParentFont = False
SumList.Active = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #32048#26126#39636
TitleFont.Style = []
OnDrawColumnCell = GridDrawColumnCell
end
object plOther: TPanel
Left = 0
Top = 152
Width = 697
Height = 50
Align = alBottom
BevelOuter = bvNone
Color = clWhite
TabOrder = 1
object LabelcancelDate: TLabel
Left = 246
Top = 30
Width = 48
Height = 12
Caption = #21462#28040#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LabelcancelUser: TLabel
Left = 246
Top = 9
Width = 48
Height = 12
Caption = #21462' '#28040' '#20154
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object labelfinishuser: TLabel
Left = 474
Top = 9
Width = 48
Height = 12
Caption = #32080' '#28165' '#20154
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object labelfinishdate: TLabel
Left = 474
Top = 30
Width = 48
Height = 12
Caption = #32080#28165#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object edtCancelDate: TwwDBEdit
Left = 309
Top = 26
Width = 138
Height = 18
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 0
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtCancelUser: TwwDBEdit
Left = 309
Top = 4
Width = 138
Height = 18
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtFinishUser: TwwDBEdit
Left = 537
Top = 4
Width = 138
Height = 18
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
object edtFinishDate: TwwDBEdit
Left = 537
Top = 26
Width = 138
Height = 18
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 3
UnboundDataType = wwDefault
WantReturns = False
WordWrap = False
end
end
end
end
object ActionList1: TActionList
Left = 192
Top = 160
object acSubmit: TAction
Caption = #23529#26680
end
object acCancel: TAction
Caption = #21462#28040
OnExecute = acCancelExecute
end
object acFinish: TAction
Caption = #32080#28165
OnExecute = acFinishExecute
end
object acExit: TAction
Caption = #36864#20986
OnExecute = acExitExecute
end
end
object CDSMaster: TClientDataSet
Aggregates = <>
Params = <>
Left = 344
Top = 152
end
object DSMaster: TDataSource
AutoEdit = False
DataSet = CDSMaster
OnStateChange = DSMasterStateChange
OnDataChange = DSMasterDataChange
Left = 360
Top = 169
end
object CDSdetail: TClientDataSet
Aggregates = <>
Params = <>
OnCalcFields = CDSdetailCalcFields
Left = 272
Top = 152
end
object dsDetail: TDataSource
DataSet = CDSdetail
Left = 296
Top = 168
end
object MSNSaveinfo: TMSNPopUp
Text = 'text'
TimeOut = 1
Width = 200
Height = 100
GradientColor1 = 16764057
GradientColor2 = clWhite
ScrollSpeed = 28
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
HoverFont.Charset = DEFAULT_CHARSET
HoverFont.Color = clBlue
HoverFont.Height = -11
HoverFont.Name = 'MS Sans Serif'
HoverFont.Style = [fsUnderline]
Title = 'title'
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Options = [msnCascadePopups, msnAllowScroll]
TextAlignment = taCenter
TextCursor = crDefault
PopupMarge = 2
PopupStartX = 16
PopupStartY = 2
DefaultMonitor = dmDesktop
Left = 440
Top = 160
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -