📄 productunit.dfm
字号:
object frmProduct: TfrmProduct
Left = 134
Top = 82
BorderStyle = bsDialog
Caption = #21830#21697#23458#25143#31649#29702
ClientHeight = 606
ClientWidth = 882
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PC_Basic: TPageControl
Left = 260
Top = 16
Width = 997
Height = 617
TabOrder = 0
end
object RzPanel2: TRzPanel
Left = 0
Top = 0
Width = 653
Height = 606
Align = alClient
BorderOuter = fsNone
TabOrder = 1
object Panel1: TPanel
Left = 0
Top = 145
Width = 653
Height = 461
Align = alClient
BevelOuter = bvSpace
TabOrder = 0
object RzPageControl1: TRzPageControl
Left = 1
Top = 1
Width = 651
Height = 459
ActivePage = TabSheet1
Align = alClient
HotTrackStyle = htsText
TabIndex = 0
TabOrder = 0
TabOrientation = toBottom
FixedDimension = 19
object TabSheet1: TRzTabSheet
Caption = #29366#24577#35760#24405
object RzPageControl2: TRzPageControl
Left = 0
Top = 0
Width = 403
Height = 438
ActivePage = RzTabSheet1
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = []
ImageAlignment = haRight
HotTrackStyle = htsText
ParentFont = False
ParentShowHint = False
ShowFocusRect = False
ShowFullFrame = False
ShowHint = False
ShowShadow = False
TabIndex = 0
TabOrder = 0
TabOrientation = toLeft
TabSequence = tsReverse
TabStyle = tsRoundCorners
FixedDimension = 66
object RzTabSheet1: TRzTabSheet
Caption = #20801#38144#23458#25143
object ASClist: TCheckListBox
Left = 0
Top = 0
Width = 334
Height = 437
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
PopupMenu = pmTran
TabOrder = 0
end
end
object RzTabSheet2: TRzTabSheet
Caption = #35843#36135#23458#25143
object RCList: TCheckListBox
Left = 0
Top = 0
Width = 334
Height = 437
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
PopupMenu = pmTran
TabOrder = 0
end
end
object TabSheet3: TRzTabSheet
Caption = #38480#38144#23458#25143
object FSClist: TCheckListBox
Left = 0
Top = 0
Width = 334
Height = 437
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
PopupMenu = pmTran
TabOrder = 0
end
end
object TabSheet4: TRzTabSheet
Caption = #26410#38144#23458#25143
object NSClist: TCheckListBox
Left = 0
Top = 0
Width = 334
Height = 437
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
PopupMenu = pmTran
TabOrder = 0
end
end
end
object GroupBox1: TGroupBox
Left = 403
Top = 0
Width = 246
Height = 438
Align = alRight
Caption = ' '#35745#21010#35760#24405' '
TabOrder = 1
object PlanListBox: TListBox
Left = 2
Top = 15
Width = 242
Height = 179
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
PopupMenu = Plan
TabOrder = 0
OnDblClick = PlanListBoxDblClick
end
object PLList: TListBox
Left = 2
Top = 194
Width = 242
Height = 242
Align = alBottom
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ItemHeight = 13
TabOrder = 1
end
end
end
object TabSheet5: TRzTabSheet
Caption = #20998#26512#25253#34920
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 649
Height = 438
Align = alClient
Color = clBtnFace
Ctl3D = False
DataSource = DSSALE
Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
ParentCtl3D = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #23458#25143#20195#30721
Title.Alignment = taCenter
Width = 56
Visible = True
end
item
Expanded = False
FieldName = #23458#25143#21517#31216
Title.Alignment = taCenter
Width = 53
Visible = True
end
item
Expanded = False
FieldName = #38144#21806#29366#24577
Title.Alignment = taCenter
Title.Caption = #29366#24577
Width = 135
Visible = True
end
item
Expanded = False
FieldName = #38138#26085
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = #27490#26085
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = #38138#37327
Title.Alignment = taCenter
Width = 28
Visible = True
end
item
Expanded = False
FieldName = #34917#37327
Title.Alignment = taCenter
Width = 31
Visible = True
end
item
Expanded = False
FieldName = #34917#27425
Title.Alignment = taCenter
Width = 29
Visible = True
end
item
Expanded = False
FieldName = #36864#37327
Title.Alignment = taCenter
Width = 30
Visible = True
end
item
Expanded = False
FieldName = #27425#21697
Title.Alignment = taCenter
Width = 31
Visible = True
end
item
Expanded = False
FieldName = #24635#38144#37327
Title.Alignment = taCenter
Width = 39
Visible = True
end
item
Expanded = False
FieldName = #38144#21806#39069
Title.Alignment = taCenter
Width = 45
Visible = True
end
item
Expanded = False
FieldName = #27611#21033#28070
Title.Alignment = taCenter
Width = 44
Visible = True
end>
end
end
object TabSheet2: TRzTabSheet
Caption = #35843#25972#20215#26684
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 109
Height = 438
Align = alClient
Caption = #12288#35843#20215#31649#29702#12288
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object bcbPrice: TcxCheckBox
Left = 8
Top = 56
Caption = #25104#26412#20215
TabOrder = 0
OnClick = bcbPriceClick
Width = 65
end
object bStartDate: TcxCheckBox
Left = 8
Top = 24
Caption = #21551#29992#26085#26399
TabOrder = 1
OnClick = bStartDateClick
Width = 73
end
object StartDate: TRzDateTimePicker
Left = 80
Top = 24
Width = 121
Height = 21
Date = 39660.395608391210000000
Format = 'yyyy '#24180' MM '#26376' dd '#26085
Time = 39660.395608391210000000
DateFormat = dfLong
Enabled = False
TabOrder = 2
FrameHotTrack = True
FrameVisible = True
end
object lcbPrice: TcxLabel
Left = 80
Top = 56
AutoSize = False
Caption = '0'
Properties.Alignment.Horz = taCenter
Style.BorderStyle = ebsFlat
Height = 17
Width = 44
end
object cbPrice: TcxCalcEdit
Left = 126
Top = 54
EditValue = 0.000000000000000000
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taCenter
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clBlue
Style.Font.Height = -11
Style.Font.Name = 'MS Sans Serif'
Style.Font.Style = []
TabOrder = 4
Width = 76
end
object xsPrice: TcxCalcEdit
Left = 126
Top = 78
EditValue = 0.000000000000000000
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taCenter
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clBlue
Style.Font.Height = -11
Style.Font.Name = 'MS Sans Serif'
Style.Font.Style = []
TabOrder = 5
Width = 76
end
object lxsPrice: TcxLabel
Left = 80
Top = 80
AutoSize = False
Caption = '0'
Properties.Alignment.Horz = taCenter
Style.BorderStyle = ebsFlat
Height = 17
Width = 44
end
object bxsPrice: TcxCheckBox
Left = 8
Top = 80
Caption = #38144#21806#20215
TabOrder = 7
OnClick = bxsPriceClick
Width = 65
end
object bwsPrice: TcxCheckBox
Left = 8
Top = 104
Caption = #22806#30465#20215
TabOrder = 8
OnClick = bwsPriceClick
Width = 65
end
object lwsPrice: TcxLabel
Left = 80
Top = 104
AutoSize = False
Caption = '0'
Properties.Alignment.Horz = taCenter
Style.BorderStyle = ebsFlat
Height = 17
Width = 44
end
object wsPrice: TcxCalcEdit
Left = 126
Top = 102
EditValue = 0.000000000000000000
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taCenter
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clBlue
Style.Font.Height = -11
Style.Font.Name = 'MS Sans Serif'
Style.Font.Style = []
TabOrder = 10
Width = 76
end
object lsPrice: TcxCalcEdit
Left = 126
Top = 126
EditValue = 0.000000000000000000
Enabled = False
ParentFont = False
Properties.Alignment.Horz = taCenter
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clBlue
Style.Font.Height = -11
Style.Font.Name = 'MS Sans Serif'
Style.Font.Style = []
TabOrder = 11
Width = 76
end
object llsPrice: TcxLabel
Left = 80
Top = 128
AutoSize = False
Caption = '0'
Properties.Alignment.Horz = taCenter
Style.BorderStyle = ebsFlat
Height = 17
Width = 44
end
object blsPrice: TcxCheckBox
Left = 8
Top = 128
Caption = #38646#21806#20215
TabOrder = 13
OnClick = blsPriceClick
Width = 65
end
object bstPrice: TcxCheckBox
Left = 8
Top = 152
Caption = #27733#22836#20215
TabOrder = 14
OnClick = bstPriceClick
Width = 65
end
object lstPrice: TcxLabel
Left = 80
Top = 152
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -