📄 c_ydcycx.dfm
字号:
end
item
Expanded = False
FieldName = 'D_SYSJ'
Title.Alignment = taCenter
Title.Caption = #29992#39184#26102#38388
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'D_SJDM'
Title.Alignment = taCenter
Title.Caption = #29992#39184#26102#27573
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'D_YCBZ'
Title.Caption = #29992#39184#26631#20934
Visible = True
end>
end
end
inherited Panel3: TPanel
Width = 690
inherited btnHelp: TBitBtn
Left = 531
end
inherited btnClose: TBitBtn
Left = 610
end
object btnPrint: TBitBtn
Left = 452
Top = 5
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = #25171#21360'(&P)'
TabOrder = 2
OnClick = btnPrintClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888F8800000000000888808888888880808800000000000008080888888BBB88
0008088888877788080800000000000008800888888888808080800000000008
0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
088888880FFFFFFFF08888888000000000888888888888888888}
end
end
inherited DosMove1: TDosMove
Options = [moEnter, moUpDn]
end
inherited qryMaster: TQuery
OnCalcFields = qryMasterCalcFields
DatabaseName = 'LfHotelUser'
SQL.Strings = (
'select * from YDCY where ((D_CTBH="0")and(D_YDBZ="P"))or((D_CTBH' +
'<>"0")and(D_YDBZ="T")) order by D_SYRQ,D_SYSJ')
object qryMasterD_YDBH: TStringField
FieldName = 'D_YDBH'
Origin = 'LFHOTELUSER.YDCY.D_YDBH'
Size = 12
end
object qryMasterD_CTBH: TStringField
FieldName = 'D_CTBH'
Origin = 'LFHOTELUSER.YDCY.D_CTBH'
Size = 5
end
object qryMasterD_CTMC: TStringField
FieldName = 'D_CTMC'
Origin = 'LFHOTELUSER.YDCY.D_CTMC'
Size = 10
end
object qryMasterD_KRBH: TStringField
FieldName = 'D_KRBH'
Origin = 'LFHOTELUSER.YDCY.D_KRBH'
Size = 12
end
object qryMasterD_KRXM: TStringField
FieldName = 'D_KRXM'
Origin = 'LFHOTELUSER.YDCY.D_KRXM'
Size = 30
end
object qryMasterD_YDRQ: TDateTimeField
FieldName = 'D_YDRQ'
Origin = 'LFHOTELUSER.YDCY.D_YDRQ'
end
object qryMasterD_SYRQ: TDateTimeField
FieldName = 'D_SYRQ'
Origin = 'LFHOTELUSER.YDCY.D_SYRQ'
DisplayFormat = 'yyyy-mm-dd'
end
object qryMasterD_SYSJ: TDateTimeField
FieldName = 'D_SYSJ'
Origin = 'LFHOTELUSER.YDCY.D_SYSJ'
DisplayFormat = 'hh:nn:ss'
end
object qryMasterD_SJDM: TStringField
FieldName = 'D_SJDM'
Origin = 'LFHOTELUSER.YDCY.D_SJDM'
FixedChar = True
Size = 4
end
object qryMasterD_YCBZ: TStringField
FieldName = 'D_YCBZ'
Origin = 'LFHOTELUSER.YDCY.D_YCBZ'
Size = 30
end
object qryMasterD_YCLX: TIntegerField
FieldName = 'D_YCLX'
Origin = 'LFHOTELUSER.YDCY.D_YCLX'
end
object qryMasterD_RS: TIntegerField
FieldName = 'D_RS'
Origin = 'LFHOTELUSER.YDCY.D_RS'
end
object qryMasterD_DJ: TFloatField
FieldName = 'D_DJ'
Origin = 'LFHOTELUSER.YDCY.D_DJ'
end
object qryMasterD_XFSL: TFloatField
FieldName = 'D_XFSL'
Origin = 'LFHOTELUSER.YDCY.D_XFSL'
end
object qryMasterD_XFJE: TFloatField
FieldName = 'D_XFJE'
Origin = 'LFHOTELUSER.YDCY.D_XFJE'
end
object qryMasterD_YDBZ: TStringField
FieldName = 'D_YDBZ'
Origin = 'LFHOTELUSER.YDCY.D_YDBZ'
FixedChar = True
Size = 1
end
object qryMasterD_RZBZ: TStringField
FieldName = 'D_RZBZ'
Origin = 'LFHOTELUSER.YDCY.D_RZBZ'
OnGetText = qryMasterD_RZBZGetText
FixedChar = True
Size = 1
end
object qryMasterD_KTBZ: TStringField
FieldName = 'D_KTBZ'
Origin = 'LFHOTELUSER.YDCY.D_KTBZ'
FixedChar = True
Size = 1
end
object qryMasterD_JSBZ: TStringField
FieldName = 'D_JSBZ'
Origin = 'LFHOTELUSER.YDCY.D_JSBZ'
FixedChar = True
Size = 1
end
object qryMasterD_BZ: TBlobField
FieldName = 'D_BZ'
Origin = 'LFHOTELUSER.YDCY.D_BZ'
Size = 1
end
object qryMasterD_CZYXM: TStringField
FieldName = 'D_CZYXM'
Origin = 'LFHOTELUSER.YDCY.D_CZYXM'
Size = 8
end
object qryMasterD_CTMCS: TStringField
FieldKind = fkCalculated
FieldName = 'D_CTMCS'
Size = 100
Calculated = True
end
object qryMasterD_LXDH: TStringField
FieldKind = fkLookup
FieldName = 'D_LXDH'
LookupDataSet = tblYdxx
LookupKeyFields = 'D_KRBH'
LookupResultField = 'D_LXDH'
KeyFields = 'D_KRBH'
Lookup = True
end
object qryMasterD_LXR: TStringField
FieldKind = fkLookup
FieldName = 'D_LXR'
LookupDataSet = tblYdxx
LookupKeyFields = 'D_KRBH'
LookupResultField = 'D_LXR'
KeyFields = 'D_KRBH'
Lookup = True
end
object qryMasterD_DWMC: TStringField
FieldKind = fkLookup
FieldName = 'D_DWMC'
LookupDataSet = tblYdxx
LookupKeyFields = 'D_KRBH'
LookupResultField = 'D_DWMC'
KeyFields = 'D_KRBH'
Lookup = True
end
object qryMasterD_BZNR: TStringField
FieldKind = fkCalculated
FieldName = 'D_BZNR'
Size = 40
Calculated = True
end
end
inherited qryDetail: TQuery
DatabaseName = 'LfHotelUser'
SQL.Strings = (
'select * from YDCY where (D_YDBH=:D_YDBH)and(D_CTBH<>"0")')
ParamData = <
item
DataType = ftString
Name = 'D_YDBH'
ParamType = ptUnknown
Size = 13
end>
object qryDetailD_YDBH: TStringField
FieldName = 'D_YDBH'
Origin = 'LFHOTELUSER.YDCY.D_YDBH'
Size = 12
end
object qryDetailD_CTBH: TStringField
FieldName = 'D_CTBH'
Origin = 'LFHOTELUSER.YDCY.D_CTBH'
Size = 5
end
object qryDetailD_CTMC: TStringField
FieldName = 'D_CTMC'
Origin = 'LFHOTELUSER.YDCY.D_CTMC'
Size = 10
end
object qryDetailD_KRBH: TStringField
FieldName = 'D_KRBH'
Origin = 'LFHOTELUSER.YDCY.D_KRBH'
Size = 12
end
object qryDetailD_KRXM: TStringField
FieldName = 'D_KRXM'
Origin = 'LFHOTELUSER.YDCY.D_KRXM'
Size = 30
end
object qryDetailD_YDRQ: TDateTimeField
FieldName = 'D_YDRQ'
Origin = 'LFHOTELUSER.YDCY.D_YDRQ'
end
object qryDetailD_SYRQ: TDateTimeField
FieldName = 'D_SYRQ'
Origin = 'LFHOTELUSER.YDCY.D_SYRQ'
DisplayFormat = 'yyyy-mm-dd'
end
object qryDetailD_SYSJ: TDateTimeField
FieldName = 'D_SYSJ'
Origin = 'LFHOTELUSER.YDCY.D_SYSJ'
DisplayFormat = 'hh:nn'
end
object qryDetailD_SJDM: TStringField
FieldName = 'D_SJDM'
Origin = 'LFHOTELUSER.YDCY.D_SJDM'
FixedChar = True
Size = 4
end
object qryDetailD_YCBZ: TStringField
FieldName = 'D_YCBZ'
Origin = 'LFHOTELUSER.YDCY.D_YCBZ'
Size = 30
end
object qryDetailD_YCLX: TIntegerField
FieldName = 'D_YCLX'
Origin = 'LFHOTELUSER.YDCY.D_YCLX'
end
object qryDetailD_RS: TIntegerField
FieldName = 'D_RS'
Origin = 'LFHOTELUSER.YDCY.D_RS'
end
object qryDetailD_DJ: TFloatField
FieldName = 'D_DJ'
Origin = 'LFHOTELUSER.YDCY.D_DJ'
end
object qryDetailD_XFSL: TFloatField
FieldName = 'D_XFSL'
Origin = 'LFHOTELUSER.YDCY.D_XFSL'
end
object qryDetailD_XFJE: TFloatField
FieldName = 'D_XFJE'
Origin = 'LFHOTELUSER.YDCY.D_XFJE'
end
object qryDetailD_YDBZ: TStringField
FieldName = 'D_YDBZ'
Origin = 'LFHOTELUSER.YDCY.D_YDBZ'
FixedChar = True
Size = 1
end
object qryDetailD_RZBZ: TStringField
FieldName = 'D_RZBZ'
Origin = 'LFHOTELUSER.YDCY.D_RZBZ'
FixedChar = True
Size = 1
end
object qryDetailD_KTBZ: TStringField
FieldName = 'D_KTBZ'
Origin = 'LFHOTELUSER.YDCY.D_KTBZ'
FixedChar = True
Size = 1
end
object qryDetailD_JSBZ: TStringField
FieldName = 'D_JSBZ'
Origin = 'LFHOTELUSER.YDCY.D_JSBZ'
FixedChar = True
Size = 1
end
object qryDetailD_BZ: TBlobField
FieldName = 'D_BZ'
Origin = 'LFHOTELUSER.YDCY.D_BZ'
Size = 1
end
object qryDetailD_CZYXM: TStringField
FieldName = 'D_CZYXM'
Origin = 'LFHOTELUSER.YDCY.D_CZYXM'
Size = 8
end
end
object tblYdxx: TTable
DatabaseName = 'LfHotelUser'
TableName = 'YDXX'
Left = 120
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -