📄 gy_addppdm.dfm
字号:
object FrmY_ADDPPDM1: TFrmY_ADDPPDM1
Left = 122
Top = 155
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = '选择票品'
ClientHeight = 293
ClientWidth = 546
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Label3: TLabel
Left = 414
Top = 7
Width = 36
Height = 12
Caption = '年度:'
end
object BitBtn1: TBitBtn
Left = 360
Top = 262
Width = 75
Height = 25
Caption = '确定'
Default = True
ModalResult = 1
TabOrder = 0
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 451
Top = 262
Width = 75
Height = 25
Cancel = True
Caption = '取消'
ModalResult = 2
TabOrder = 1
NumGlyphs = 2
end
object ND: TSpinEdit
Left = 462
Top = 3
Width = 54
Height = 21
Hint = '更改年度'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
MaxLength = 4
MaxValue = 9999
MinValue = 0
ParentFont = False
TabOrder = 2
Value = 9999
OnChange = NDChange
end
object DBG_YZPPTXXB: TDBGrid
Left = 7
Top = 27
Width = 530
Height = 225
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
PopupMenu = data.pm_Export
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ZH'
Title.Alignment = taCenter
Title.Caption = '志号'
Width = 74
Visible = True
end
item
Expanded = False
FieldName = 'TMC'
Title.Alignment = taCenter
Title.Caption = '票品名称'
Width = 174
Visible = True
end
item
Expanded = False
FieldName = 'MC'
Title.Alignment = taCenter
Title.Caption = '类别'
Width = 81
Visible = True
end
item
Expanded = False
FieldName = 'TPMS'
Title.Alignment = taCenter
Title.Caption = '全套枚数'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'TPMZ'
Title.Alignment = taCenter
Title.Caption = '面值(元)'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'FXRQ'
Title.Alignment = taCenter
Title.Caption = '发行日期'
Width = 56
Visible = True
end>
end
object Qry_PPDM: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'Select A.TDM,A.TMC,A.ZH,A.TPMS,A.TPSJ,A.TPMZ,A.FXRQ,A.JHH,B.MC f' +
'rom TB_YZPPTXXB A,TG_YZPPLDMB B'
'WHERE A.PPLB=B.YZLDM')
Left = 121
Top = 83
object Qry_PPDMTDM: TStringField
FieldName = 'TDM'
Size = 13
end
object Qry_PPDMZH: TStringField
FieldName = 'ZH'
Size = 11
end
object Qry_PPDMTPMS: TFloatField
FieldName = 'TPMS'
end
object Qry_PPDMTPMZ: TFloatField
FieldName = 'TPMZ'
OnGetText = Qry_PPDMTPMZGetText
end
object Qry_PPDMTPSJ: TFloatField
FieldName = 'TPSJ'
OnGetText = Qry_PPDMTPMZGetText
end
object Qry_PPDMTMC: TStringField
FieldName = 'TMC'
Size = 60
end
object Qry_PPDMFXRQ: TDateTimeField
FieldName = 'FXRQ'
end
object Qry_PPDMJHH: TStringField
FieldName = 'JHH'
Size = 8
end
object Qry_PPDMMC: TStringField
FieldName = 'MC'
Origin = 'YZPP.TG_YZPPLDMB.MC'
end
end
object DataSource1: TDataSource
DataSet = Qry_PPDM
Left = 169
Top = 83
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -