📄 sy_ckjhdzd_xd.dfm
字号:
object FrmY_CKJHDZD_XD: TFrmY_CKJHDZD_XD
Left = 198
Top = 134
BorderStyle = bsDialog
Caption = '做分配单向导'
ClientHeight = 343
ClientWidth = 542
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object BBt_Prior: TBitBtn
Left = 60
Top = 312
Width = 85
Height = 25
Caption = '上一步(&P)'
Enabled = False
TabOrder = 1
OnClick = BBt_PriorClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF3333333333333744333333333333F773333333333337
44473333333333F777F3333333333744444333333333F7733733333333374444
4433333333F77333733333333744444447333333F7733337F333333744444444
433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
CCC333333333333777FF33333333333333CC3333333333333773}
NumGlyphs = 2
end
object BBt_Over: TBitBtn
Left = 360
Top = 312
Width = 75
Height = 25
Caption = '完成(&W)'
Default = True
ModalResult = 1
TabOrder = 3
Visible = False
NumGlyphs = 2
end
object BBt_Next: TBitBtn
Left = 146
Top = 312
Width = 85
Height = 25
Caption = '下一步(&N)'
TabOrder = 0
OnClick = BBt_NextClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FF3333333333333447333333333333377FFF33333333333744473333333
333337773FF3333333333444447333333333373F773FF3333333334444447333
33333373F3773FF3333333744444447333333337F333773FF333333444444444
733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
33333777333333333333CC333333333333337733333333333333}
NumGlyphs = 2
end
object BBt_Quit: TBitBtn
Left = 435
Top = 312
Width = 75
Height = 25
Hint = '返回'
Cancel = True
Caption = '返回(&X)'
ModalResult = 2
TabOrder = 2
NumGlyphs = 2
end
object CP_XD: TPageControl
Left = 4
Top = 1
Width = 533
Height = 305
ActivePage = TS_2
DragKind = dkDock
MultiLine = True
ScrollOpposite = True
Style = tsFlatButtons
TabOrder = 4
object TS_1: TTabSheet
Caption = 'TS_1'
TabVisible = False
object Label1: TLabel
Left = 320
Top = 14
Width = 48
Height = 12
Caption = '库房号:'
end
object Label4: TLabel
Left = 11
Top = 15
Width = 24
Height = 12
Caption = '查找'
end
object CB_KFB: TFieldComboBox
Left = 371
Top = 10
Width = 120
Height = 20
Style = csDropDownList
ItemHeight = 0
TabOrder = 2
OnChange = CB_KFBChange
end
object GroupBox3: TGroupBox
Left = 8
Top = 39
Width = 510
Height = 254
Caption = '选择要做分配的票品'
TabOrder = 0
object DBG_YZPPTXXB: TDBGrid
Left = 5
Top = 21
Width = 500
Height = 227
DataSource = DS_YZPPTXXB
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ZH'
Title.Caption = '志号'
Width = 49
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Alignment = taCenter
Title.Caption = '进价(元)'
Width = 54
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
Title.Alignment = taCenter
Title.Caption = '票品名称'
Width = 118
Visible = True
end
item
Expanded = False
FieldName = 'KFMC'
Title.Alignment = taCenter
Title.Caption = '库房号'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'XJ'
Title.Alignment = taCenter
Title.Caption = '销价(元)'
Width = 53
Visible = True
end
item
Expanded = False
FieldName = 'ZK'
Title.Caption = '折扣'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'JSJ'
Title.Caption = '结算价'
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'TS'
Title.Alignment = taCenter
Title.Caption = '套数'
Width = 47
Visible = True
end>
end
end
object Edit1: TEdit
Left = 40
Top = 10
Width = 89
Height = 20
ImeName = '微软拼音输入法 3.0'
MaxLength = 10
TabOrder = 1
OnChange = Edit1Change
end
end
object TS_2: TTabSheet
Caption = 'TS_2'
ImageIndex = 1
TabVisible = False
object DBG_JJNFPJH: TDBGrid
Left = 216
Top = 56
Width = 307
Height = 235
DataSource = DS_JJNFPJH
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'DWMC'
Title.Caption = '单位名称'
Width = 162
Visible = True
end
item
Expanded = False
FieldName = 'DATA'
Title.Caption = '分配套数'
Width = 108
Visible = True
end>
end
object DBG_JJNFPJH1: TDBGrid
Left = 2
Top = 56
Width = 211
Height = 235
DataSource = DS_JJNFPJH1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
PopupMenu = data.pm_Export
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'JHH'
Title.Alignment = taCenter
Title.Caption = '计划号'
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
Title.Alignment = taCenter
Title.Caption = '票品名称'
Width = 121
Visible = True
end>
end
object RG_QKXZ: TRadioGroup
Left = 2
Top = 5
Width = 156
Height = 45
Caption = '情况选择'
Columns = 2
ItemIndex = 0
Items.Strings = (
'分配计划'
'分配单')
TabOrder = 2
OnClick = RG_QKXZClick
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -