📄 jm_yyypptp.dfm
字号:
inherited frm_YYYPPTP: Tfrm_YYYPPTP
Left = 106
Top = 34
Caption = '邮资票品管理信息系统——通信票业务'
ClientHeight = 470
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label8: TLabel
Left = 419
Top = 139
Width = 48
Height = 12
Caption = '开单日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ModiPanel1: TModiPanel
Left = 0
Top = 439
Width = 692
Height = 31
Align = alBottom
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
BtnWidth = 75
OnBtnClick = ModiPanel1BtnClick
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 692
Height = 45
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object XttxTitle: TRxLabel
Left = 1
Top = 1
Width = 690
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 DWMC: TLabel
Left = 12
Top = 27
Width = 66
Height = 12
Caption = ' 使用单位:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
end
object Panel3: TPanel
Left = 0
Top = 45
Width = 692
Height = 394
Align = alClient
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 2
object Rgp_ppfl: TRadioGroup
Left = 1
Top = 1
Width = 690
Height = 41
Align = alTop
Caption = '营业员票品分类'
Columns = 5
ItemIndex = 0
Items.Strings = (
'集邮票'
'集邮品'
'购入票')
TabOrder = 0
OnClick = Rgp_ppflClick
end
object Panel2: TPanel
Left = 162
Top = 42
Width = 529
Height = 351
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object Label3: TLabel
Left = 281
Top = 11
Width = 48
Height = 12
Caption = '开单日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 41
Top = 11
Width = 36
Height = 12
Caption = '操作者'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 17
Top = 37
Width = 60
Height = 12
Caption = '票品调出者'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 17
Top = 62
Width = 60
Height = 12
Caption = '票品调入者'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 257
Top = 38
Width = 72
Height = 12
Caption = '调出复核日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 257
Top = 63
Width = 72
Height = 12
Caption = '调入复核日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGrid3: TDBGrid
Left = 1
Top = 84
Width = 527
Height = 266
Align = alBottom
DataSource = DataSource4
FixedColor = clMenu
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ImeName = '中文 (简体) - 全拼'
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Color = 16777185
Expanded = False
FieldName = 'ZH'
ReadOnly = True
Title.Caption = '志号'
Width = 68
Visible = True
end
item
Color = 16777185
Expanded = False
FieldName = 'PPMC'
ReadOnly = True
Title.Caption = '名称'
Width = 130
Visible = True
end
item
Color = 16777185
Expanded = False
FieldName = 'JJ'
PickList.Strings = (
'')
Title.Caption = '进价(元)'
Width = 97
Visible = True
end
item
Color = 16777185
Expanded = False
FieldName = 'DJ'
Title.Caption = '销价(元)'
Visible = True
end
item
Color = 16777185
Expanded = False
FieldName = 'SL'
Title.Caption = '数量'
Width = 85
Visible = True
end
item
Color = 16777185
Expanded = False
FieldName = 'LYKC'
Title.Caption = '调出者库存'
Visible = True
end>
end
object DBEdit1: TDBEdit
Left = 88
Top = 8
Width = 147
Height = 20
Color = clMenu
DataField = 'CZYXM'
DataSource = DataSource2
ReadOnly = True
TabOrder = 1
end
object ComboBox1: TComboBox
Left = 87
Top = 32
Width = 150
Height = 20
ItemHeight = 12
TabOrder = 2
end
object ComboBox2: TComboBox
Left = 87
Top = 56
Width = 150
Height = 20
ItemHeight = 12
TabOrder = 3
end
object DBDateEdit1: TDBDateEdit
Left = 343
Top = 8
Width = 151
Height = 21
DataField = 'RQ'
DataSource = DataSource2
ReadOnly = True
NumGlyphs = 2
TabOrder = 4
YearDigits = dyFour
end
object DBDateEdit2: TDBDateEdit
Left = 343
Top = 34
Width = 151
Height = 21
DataField = 'TCFH'
DataSource = DataSource2
ReadOnly = True
NumGlyphs = 2
TabOrder = 5
YearDigits = dyFour
end
object DBDateEdit3: TDBDateEdit
Left = 343
Top = 60
Width = 151
Height = 21
DataField = 'TRFH'
DataSource = DataSource2
ReadOnly = True
NumGlyphs = 2
TabOrder = 6
YearDigits = dyFour
end
end
object Panel1: TPanel
Left = 1
Top = 42
Width = 161
Height = 351
Align = alLeft
BevelOuter = bvNone
TabOrder = 2
object DBGrid2: TDBGrid
Left = 0
Top = 32
Width = 161
Height = 319
Align = alBottom
DataSource = DataSource2
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ImeName = '中文 (简体) - 全拼'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
OnDrawColumnCell = DBGrid2DrawColumnCell
Columns = <
item
Expanded = False
FieldName = 'DH'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Title.Caption = '调配单号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 144
Visible = True
end>
end
object CheckBox1: TCheckBox
Left = 8
Top = 8
Width = 133
Height = 17
Caption = '显示未复核的调配单'
Checked = True
State = cbChecked
TabOrder = 1
OnClick = CheckBox1Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -