📄 sy_ckjhdzd_xzpp.dfm
字号:
object FrmY_CKJHDZD_XZPP: TFrmY_CKJHDZD_XZPP
Left = 132
Top = 197
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 = poOwnerFormCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 355
Top = 11
Width = 48
Height = 12
Caption = '库房号:'
end
object Label4: TLabel
Left = 11
Top = 11
Width = 24
Height = 12
Caption = '查找'
end
object BitBtn1: TBitBtn
Left = 360
Top = 312
Width = 75
Height = 25
Caption = '确定'
Default = True
ModalResult = 1
TabOrder = 0
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 435
Top = 312
Width = 75
Height = 25
Cancel = True
Caption = '取消'
ModalResult = 2
TabOrder = 1
NumGlyphs = 2
end
object Edit1: TEdit
Left = 40
Top = 6
Width = 89
Height = 20
ImeName = '微软拼音输入法 3.0'
MaxLength = 10
TabOrder = 2
OnChange = Edit1Change
end
object CB_KFB: TFieldComboBox
Left = 407
Top = 6
Width = 120
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
OnChange = CB_KFBChange
end
object DBG_PP: TDBGrid
Left = 5
Top = 32
Width = 532
Height = 272
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
PopupMenu = data.pm_Export
TabOrder = 4
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'KFMC'
Title.Alignment = taCenter
Title.Caption = '库房'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'ZH'
Title.Alignment = taCenter
Title.Caption = '志号'
Width = 47
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
Title.Alignment = taCenter
Title.Caption = '票品名称'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Alignment = taCenter
Title.Caption = '进价(元)'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'XJ'
Title.Alignment = taCenter
Title.Caption = '销价(元)'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'ZK'
Title.Alignment = taCenter
Title.Caption = '折扣'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'JSJ'
Title.Alignment = taCenter
Title.Caption = '结算价'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'TS'
Title.Alignment = taCenter
Title.Caption = '套数'
Width = 59
Visible = True
end>
end
object Qry_Static: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT A.ZH, A.MC PPMC, B.PPDM, B.KFDM, B.KWH, B.JJ, B.YJ, B.XJ,' +
' B.TS, B.BZ, B.ZK, B.JSJ FROM TB_JYPTXXB A,TYS_YPPKC B WHERE A.' +
'TDM=B.PPDM')
Left = 212
Top = 164
object Qry_StaticZH: TStringField
FieldName = 'ZH'
Origin = 'YZPP.TB_YZPPTXXB.ZH'
Size = 11
end
object Qry_StaticPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TB_YZPPTXXB.TMC'
Size = 60
end
object Qry_StaticKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TYS_JYPPKC.KFDM'
Size = 3
end
object Qry_StaticKWH: TStringField
FieldName = 'KWH'
Origin = 'YZPP.TYS_JYPPKC.KWH'
Size = 30
end
object Qry_StaticJJ: TFloatField
FieldName = 'JJ'
Origin = 'YZPP.TYS_JYPPKC.JJ'
OnGetText = Qry_StaticJJGetText
end
object Qry_StaticYJ: TFloatField
FieldName = 'YJ'
Origin = 'YZPP.TYS_JYPPKC.YJ'
end
object Qry_StaticXJ: TFloatField
FieldName = 'XJ'
Origin = 'YZPP.TYS_JYPPKC.XJ'
OnGetText = Qry_StaticJJGetText
end
object Qry_StaticTS: TFloatField
FieldName = 'TS'
Origin = 'YZPP.TYS_JYPPKC.TS'
DisplayFormat = '#,##'
end
object Qry_StaticBZ: TStringField
FieldName = 'BZ'
Origin = 'YZPP.TYS_JYPPKC.BZ'
Size = 40
end
object Qry_StaticKFMC: TStringField
FieldKind = fkLookup
FieldName = 'KFMC'
LookupDataSet = Qry_KFB
LookupKeyFields = 'KFDM'
LookupResultField = 'KFMC'
KeyFields = 'KFDM'
Lookup = True
end
object Qry_StaticZK: TFloatField
FieldName = 'ZK'
Origin = 'YZPP.TYS_JYPPKC.ZK'
end
object Qry_StaticJSJ: TFloatField
FieldName = 'JSJ'
Origin = 'YZPP.TYS_JYPPKC.JSJ'
OnGetText = Qry_StaticJJGetText
end
object Qry_StaticPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TYS_YPPKC.PPDM'
Size = 15
end
end
object DataSource1: TDataSource
DataSet = Qry_Static
Left = 240
Top = 164
end
object Qry_KFB: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT * FROM TGS_KFB')
Left = 244
Top = 68
object Qry_KFBKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TGS_KFB.KFDM'
Size = 3
end
object Qry_KFBKFMC: TStringField
FieldName = 'KFMC'
Origin = 'YZPP.TGS_KFB.KFMC'
Size = 30
end
end
object Qry_Static1: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT A.ZH ZH ,A.TMC PPMC ,A.JHH JHH,B.PPDM PPDM ,B.KFDM KFDM,B' +
'.KWH KWH ,B.JJ JJ ,B.YJ YJ ,B.XJ XJ ,B.TS TS ,B.BZ BZ FROM TB_YZ' +
'PPTXXB A,TYS_GRPPKC B WHERE A.TDM=B.PPDM ')
Left = 92
Top = 172
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -