📄 c_ydhc.dfm
字号:
DataSource = dsYdhc
TabOrder = 5
end
object DBEdit5: TDBEdit
Left = 176
Top = 72
Width = 80
Height = 24
DataField = 'D_HCRS1'
DataSource = dsYdhc
TabOrder = 6
end
object DBEdit6: TDBEdit
Left = 16
Top = 112
Width = 80
Height = 24
DataField = 'D_HFSL'
DataSource = dsYdhc
TabOrder = 7
end
object DBEdit7: TDBEdit
Left = 96
Top = 112
Width = 80
Height = 24
DataField = 'D_HFJE'
DataSource = dsYdhc
TabOrder = 8
end
object DBEdit8: TDBEdit
Left = 176
Top = 112
Width = 281
Height = 24
DataField = 'D_HFBZ'
DataSource = dsYdhc
TabOrder = 9
end
object DBEdit9: TDBEdit
Left = 16
Top = 152
Width = 80
Height = 24
DataField = 'D_XHSL'
DataSource = dsYdhc
TabOrder = 10
end
object DBEdit10: TDBEdit
Left = 96
Top = 152
Width = 80
Height = 24
DataField = 'D_XHJE'
DataSource = dsYdhc
TabOrder = 11
end
object DBEdit11: TDBEdit
Left = 176
Top = 152
Width = 281
Height = 24
DataField = 'D_XHBZ'
DataSource = dsYdhc
TabOrder = 12
end
object DBEdit12: TDBEdit
Left = 16
Top = 192
Width = 80
Height = 24
DataField = 'D_SGSL'
DataSource = dsYdhc
TabOrder = 13
end
object DBEdit13: TDBEdit
Left = 96
Top = 192
Width = 80
Height = 24
DataField = 'D_SGJE'
DataSource = dsYdhc
TabOrder = 14
end
object DBEdit14: TDBEdit
Left = 176
Top = 192
Width = 281
Height = 24
DataField = 'D_SGBZ'
DataSource = dsYdhc
TabOrder = 15
end
object DBEdit15: TDBEdit
Left = 16
Top = 232
Width = 80
Height = 24
DataField = 'D_QTJE'
DataSource = dsYdhc
TabOrder = 16
end
object DBEdit16: TDBEdit
Left = 96
Top = 232
Width = 364
Height = 24
DataField = 'D_QTBZ'
DataSource = dsYdhc
TabOrder = 17
end
object DBEdit17: TDBEdit
Left = 16
Top = 272
Width = 80
Height = 24
DataField = 'D_HTSL'
DataSource = dsYdhc
TabOrder = 18
end
object DBEdit18: TDBEdit
Left = 96
Top = 272
Width = 364
Height = 24
DataField = 'D_HTBZ'
DataSource = dsYdhc
TabOrder = 19
end
object DBMemo1: TDBMemo
Left = 16
Top = 312
Width = 444
Height = 73
DataField = 'D_BZ'
DataSource = dsYdhc
TabOrder = 20
end
end
inherited Panel3: TPanel
Top = 472
inherited btnOK: TBitBtn
OnClick = btnOKClick
end
inherited btnCanc: TBitBtn
OnClick = btnCancClick
end
object btnYdqr: TBitBtn
Left = 8
Top = 5
Width = 100
Height = 25
Caption = #39044#23450#30830#35748'(&Q)'
TabOrder = 2
OnClick = btnYdqrClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888800000000000088880FFFFFFFFFF088880F00F00000F088880FFFFFFFFFF0
88880F00F00000F088880FFFFFFFFFF088880FFFFFFF0FF088880F00FFF080F0
88880F080F08080008440FF08080808880440000080808888844888880808888
8844888888088888804488888880000008448888888888888888}
end
object btnYdqx: TBitBtn
Left = 120
Top = 5
Width = 100
Height = 25
Caption = #21462#28040#30830#35748'(&X)'
TabOrder = 3
OnClick = btnYdqxClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888888888888888888888888888888888888888888888
8888888478888888888888748888844444888848888888444488884888888884
4488884888888848448888748888448884888887444488888888888888888888
8888888888888888888888888888888888888888888888888888}
end
object btnPrint: TBitBtn
Left = 297
Top = 5
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = #25171#21360'(&P)'
TabOrder = 4
OnClick = btnPrintClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888F8800000000000888808888888880808800000000000008080888888BBB88
0008088888877788080800000000000008800888888888808080800000000008
0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
088888880FFFFFFFF08888888000000000888888888888888888}
end
end
object tblYdhc: TTable
BeforePost = tblYdhcBeforePost
OnNewRecord = tblYdhcNewRecord
DatabaseName = 'LfHotelUser'
TableName = 'YDHC'
Left = 368
Top = 16
object tblYdhcD_YDBH: TStringField
FieldName = 'D_YDBH'
Required = True
Size = 12
end
object tblYdhcD_KRBH: TStringField
FieldName = 'D_KRBH'
Size = 12
end
object tblYdhcD_KRXM: TStringField
FieldName = 'D_KRXM'
Size = 30
end
object tblYdhcD_YDRQ: TDateTimeField
FieldName = 'D_YDRQ'
end
object tblYdhcD_SYRQ: TDateTimeField
FieldName = 'D_SYRQ'
DisplayFormat = 'yyyy-mm-dd'
EditMask = '!0000/00/99;1; '
end
object tblYdhcD_SYSJ: TDateTimeField
FieldName = 'D_SYSJ'
DisplayFormat = 'hh:nn'
EditMask = '!90:00;1; '
end
object tblYdhcD_SJDM: TStringField
FieldName = 'D_SJDM'
FixedChar = True
Size = 4
end
object tblYdhcD_HCBH: TStringField
FieldName = 'D_HCBH'
Size = 5
end
object tblYdhcD_HCMC: TStringField
FieldName = 'D_HCMC'
Size = 10
end
object tblYdhcD_HCZJ: TFloatField
FieldName = 'D_HCZJ'
end
object tblYdhcD_HCRS: TIntegerField
FieldName = 'D_HCRS'
end
object tblYdhcD_HCRS1: TIntegerField
FieldName = 'D_HCRS1'
end
object tblYdhcD_HFSL: TFloatField
FieldName = 'D_HFSL'
end
object tblYdhcD_HFJE: TFloatField
FieldName = 'D_HFJE'
end
object tblYdhcD_HFBZ: TStringField
FieldName = 'D_HFBZ'
Size = 30
end
object tblYdhcD_XHSL: TFloatField
FieldName = 'D_XHSL'
end
object tblYdhcD_XHJE: TFloatField
FieldName = 'D_XHJE'
end
object tblYdhcD_XHBZ: TStringField
FieldName = 'D_XHBZ'
Size = 30
end
object tblYdhcD_SGSL: TFloatField
FieldName = 'D_SGSL'
end
object tblYdhcD_SGJE: TFloatField
FieldName = 'D_SGJE'
end
object tblYdhcD_SGBZ: TStringField
FieldName = 'D_SGBZ'
Size = 30
end
object tblYdhcD_QTJE: TFloatField
FieldName = 'D_QTJE'
end
object tblYdhcD_QTBZ: TStringField
FieldName = 'D_QTBZ'
Size = 30
end
object tblYdhcD_HTSL: TFloatField
FieldName = 'D_HTSL'
end
object tblYdhcD_HTBZ: TStringField
FieldName = 'D_HTBZ'
Size = 30
end
object tblYdhcD_RZBZ: TStringField
FieldName = 'D_RZBZ'
FixedChar = True
Size = 1
end
object tblYdhcD_JSBZ: TStringField
FieldName = 'D_JSBZ'
FixedChar = True
Size = 1
end
object tblYdhcD_CZYXM: TStringField
FieldName = 'D_CZYXM'
Size = 8
end
object tblYdhcD_BZ: TBlobField
FieldName = 'D_BZ'
Size = 1
end
end
object dsYdhc: TDataSource
DataSet = tblYdhc
Left = 400
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -