📄 ckjh_jjw.dfm
字号:
object Frm_CKJH_JJW: TFrm_CKJH_JJW
Left = 31
Top = 26
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '零星请领分配单制定'
ClientHeight = 518
ClientWidth = 709
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object XttxTitle: TRxLabel
Left = 0
Top = 0
Width = 709
Height = 24
Align = alTop
Alignment = taCenter
Caption = '零星请领分配单制定'
Font.Charset = GB2312_CHARSET
Font.Color = clGreen
Font.Height = -24
Font.Name = '楷体_GB2312'
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object pgc_JY: TPageControl
Left = 0
Top = 24
Width = 709
Height = 457
ActivePage = tbs_Detail
Align = alClient
Style = tsFlatButtons
TabOrder = 0
OnChange = pgc_JYChange
object tbs_List: TTabSheet
Caption = '列表'
object Bevel2: TBevel
Left = 0
Top = 0
Width = 701
Height = 28
Align = alTop
end
object lbl_color_0: TLabel
Left = 117
Top = 8
Width = 70
Height = 12
AutoSize = False
Color = clWhite
ParentColor = False
end
object lbl_color_2: TLabel
Left = 369
Top = 8
Width = 70
Height = 12
AutoSize = False
Color = 16710385
ParentColor = False
end
object lbl_color_1: TLabel
Left = 622
Top = 8
Width = 70
Height = 12
AutoSize = False
Color = 14803425
ParentColor = False
end
object Label10: TLabel
Left = 5
Top = 8
Width = 108
Height = 12
Caption = '未签批的计划分配单'
end
object Label13: TLabel
Left = 256
Top = 8
Width = 108
Height = 12
Caption = '已签批的计划分配单'
end
object Label14: TLabel
Left = 510
Top = 8
Width = 108
Height = 12
Caption = '已处理的计划分配单'
end
object dbg_List: TDBGridEh
Left = 0
Top = 28
Width = 701
Height = 358
LineColor = clBlack
SelectedFontColor = clHighlightText
Align = alClient
DataSource = ds_List
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
OnDrawColumnCell = dbg_ListDrawColumnCell
OnDblClick = dbg_ListDblClick
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = '宋体'
FooterFont.Style = []
FooterColor = clWindow
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = '￥'
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = '楷体_GB2312'
CurrencyStyle.HeadFont.Style = []
Columns = <
item
FieldName = 'CKJHDH'
Title.Alignment = taCenter
Title.Caption = '出库计划单号'
Width = 74
Footers = <>
end
item
FieldName = 'DWJC'
Title.Alignment = taCenter
Title.Caption = '单位简称'
Width = 114
Footers = <>
end
item
FieldName = 'RCKXZMC'
Title.Alignment = taCenter
Title.Caption = '出库性质'
Width = 65
Footers = <>
end
item
FieldName = 'ZBR'
Title.Alignment = taCenter
Title.Caption = '制表人'
Width = 54
Footers = <>
end
item
FieldName = 'ZDRQ'
Title.Alignment = taCenter
Title.Caption = '制单日期'
Width = 77
Footers = <>
end
item
FieldName = 'PZR'
Title.Alignment = taCenter
Title.Caption = '批准人'
Width = 69
Footers = <>
end
item
FieldName = 'BZ'
Title.Alignment = taCenter
Title.Caption = '备注'
Width = 192
Footers = <>
end>
end
object Panel5: TPanel
Left = 0
Top = 386
Width = 701
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object chk_KDQSRQ: TCheckBox
Left = 9
Top = 16
Width = 97
Height = 17
Caption = '开单起始日期'
Checked = True
State = cbChecked
TabOrder = 0
end
object chk_KDJZRQ: TCheckBox
Left = 253
Top = 16
Width = 97
Height = 17
Caption = '开单终止日期'
Checked = True
State = cbChecked
TabOrder = 2
end
object chk_DH: TCheckBox
Left = 503
Top = 16
Width = 181
Height = 17
Caption = '单号'
TabOrder = 4
end
object edt_DH: TEdit
Left = 565
Top = 14
Width = 121
Height = 20
TabOrder = 5
end
object de_KDQSRQ: TDateEdit
Left = 105
Top = 14
Width = 121
Height = 21
NumGlyphs = 2
PopupFont.Charset = DEFAULT_CHARSET
PopupFont.Color = clWindowText
PopupFont.Height = -11
PopupFont.Name = 'MS Sans Serif'
PopupFont.Style = []
TabOrder = 1
end
object de_KDJZRQ: TDateEdit
Left = 354
Top = 14
Width = 121
Height = 21
NumGlyphs = 2
PopupFont.Charset = DEFAULT_CHARSET
PopupFont.Color = clWindowText
PopupFont.Height = -11
PopupFont.Name = 'MS Sans Serif'
PopupFont.Style = []
TabOrder = 3
end
end
end
object tbs_Detail: TTabSheet
Caption = '计划单详细信息'
ImageIndex = 1
object dbgEh_Detail: TDBGridEh
Left = 0
Top = 77
Width = 592
Height = 318
LineColor = clBlack
SelectedFontColor = clHighlightText
Align = alClient
DataSource = ds_Detail
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
FooterRowCount = 1
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = '宋体'
FooterFont.Style = []
FooterColor = clMenu
SumList.Active = True
OptionsEh = [dghFixed3D, dghFooter3D, dghHighlightFocus, dghClearSelection]
OnGetFooterParams = dbgEh_DetailGetFooterParams
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = '￥'
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = '楷体_GB2312'
CurrencyStyle.HeadFont.Style = []
Columns = <
item
Color = 16776176
FieldName = 'KFMC'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '库房'
Width = 71
Footer.Alignment = taCenter
Footer.ValueType = fvtStaticText
Footer.Value = '合计'
Footers = <>
end
item
Color = 16776176
FieldName = 'PPMC'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '票品名称'
Width = 91
Footers = <>
end
item
Color = 16776176
FieldName = 'JJ'
ReadOnly = True
Title.Caption = '进价(元)'
Width = 50
Footers = <>
end
item
FieldName = 'XJ'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '销价(元)'
Width = 50
Footers = <>
end
item
FieldName = 'ZK'
Title.Alignment = taCenter
Title.Caption = '折扣%'
Width = 35
Footers = <>
end
item
FieldName = 'JSJ'
Title.Alignment = taCenter
Title.Caption = '结算价(元)'
Width = 50
Footers = <>
end
item
FieldName = 'FPSL'
Title.Alignment = taCenter
Title.Caption = '分配数量'
Width = 59
Footer.ValueType = fvtSum
Footer.FieldName = 'FPSL'
Footers = <>
end
item
Color = 16776176
FieldName = 'CKZJE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '出库总金额(元)'
Width = 76
Footer.ValueType = fvtSum
Footer.FieldName = 'CKZJE'
Footers = <>
end
item
Color = 16776176
FieldName = 'JSJE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '结算总金额(元)'
Width = 76
Footer.ValueType = fvtSum
Footer.FieldName = 'JSJE'
Footers = <>
end>
end
object Panel4: TPanel
Left = 0
Top = 395
Width = 701
Height = 32
Align = alBottom
BevelOuter = bvNone
TabOrder = 3
object Label5: TLabel
Left = 10
Top = 10
Width = 48
Height = 12
Caption = '制表人：'
Transparent = True
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -