📄 unit_servicebartercard.dfm
字号:
Anchors = [akRight, akBottom]
end
object FlatButton3: TFlatButton
Left = 245
Top = 9
Width = 70
Height = 25
Caption = '删除'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 2
OnClick = FlatButton3Click
Anchors = [akRight, akBottom]
end
object FlatButton5: TFlatButton
Left = 361
Top = 9
Width = 70
Height = 25
Caption = '保存'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 3
OnClick = FlatButton5Click
Anchors = [akRight, akBottom]
end
object FlatButton4: TFlatButton
Left = 476
Top = 9
Width = 70
Height = 25
Caption = '取消'
Enabled = False
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 4
OnClick = FlatButton4Click
Anchors = [akRight, akBottom]
end
object FlatButton6: TFlatButton
Left = 591
Top = 9
Width = 66
Height = 25
Caption = '关闭'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 5
OnClick = FlatButtoncancelClick
Anchors = [akRight, akBottom]
end
end
end
object FlatPanel3: TFlatPanel
Left = 0
Top = 169
Width = 662
Height = 206
ParentColor = True
Align = alClient
TabOrder = 2
UseDockManager = True
object Label3: TLabel
Left = 0
Top = 174
Width = 84
Height = 14
Caption = '优惠购卡记录'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGridT_F_ServiceLog1: TDBGrid
Left = 1
Top = 1
Width = 311
Height = 204
Align = alLeft
DataSource = DataSourceT_F_ServiceLog1
ImeName = '中文 (简体) - 郑码'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ServiceCode'
Title.Caption = '流水号'
Width = 66
Visible = True
end
item
Expanded = False
FieldName = 'VIP_NO'
Title.Caption = 'VIP 卡号'
Width = 109
Visible = True
end
item
Expanded = False
FieldName = 'BeginTime'
Title.Caption = '受理时间'
Width = 85
Visible = True
end>
end
object FlatPanel5: TFlatPanel
Left = 312
Top = 1
Width = 349
Height = 204
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentColor = True
Align = alClient
TabOrder = 1
UseDockManager = True
object Label4: TLabel
Left = 8
Top = 8
Width = 42
Height = 14
Caption = '流水号'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 8
Top = 31
Width = 49
Height = 14
Caption = 'VIP卡号'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 177
Top = 31
Width = 56
Height = 14
Caption = '对象名称'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 56
Width = 56
Height = 14
Caption = '优惠时间'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 176
Top = 8
Width = 56
Height = 14
Caption = '修改工号'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 8
Top = 96
Width = 28
Height = 14
Caption = '说明'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object FlatEditServiceCode: TFlatEdit
Left = 66
Top = 4
Width = 104
Height = 20
ColorFocused = clWindow
ColorFlat = clBtnFace
ParentColor = True
Enabled = False
TabOrder = 0
end
object FlatEditvip_no: TFlatEdit
Left = 66
Top = 29
Width = 104
Height = 20
ColorFocused = clWindow
ColorFlat = clBtnFace
ParentColor = True
Enabled = False
MaxLength = 30
TabOrder = 1
end
object FlatEditObjName: TFlatEdit
Left = 235
Top = 31
Width = 103
Height = 20
ColorFocused = clWindow
ColorFlat = clBtnFace
ParentColor = True
Enabled = False
MaxLength = 30
TabOrder = 2
end
object FlatEditBeginTime: TFlatEdit
Left = 66
Top = 54
Width = 104
Height = 20
Hint = '日期格式：yyyy-mm-dd'
ColorFocused = clWindow
ColorFlat = clBtnFace
ParentColor = True
Enabled = False
MaxLength = 10
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnKeyPress = FlatEditBeginTimeKeyPress
end
object FlatMemoServCont: TFlatMemo
Left = 66
Top = 79
Width = 279
Height = 98
ColorFocused = clWindow
ColorFlat = clBtnFace
ParentColor = True
Enabled = False
MaxLength = 200
TabOrder = 4
end
object FlatEditWk_No: TFlatEdit
Left = 235
Top = 5
Width = 47
Height = 20
ColorFocused = clMenu
ColorFlat = clBtnFace
ParentColor = True
Enabled = False
TabOrder = 5
end
end
end
object DataSourceT_F_CustInfo1: TDataSource
DataSet = QueryT_F_CustInfo1
OnDataChange = DataSourceT_F_CustInfo1DataChange
Left = 116
Top = 91
end
object QueryT_F_CustInfo1: TQuery
DatabaseName = 'db_vipdl'
Left = 236
Top = 91
end
object Queryt_f_groupinto1: TQuery
DatabaseName = 'db_vipdl'
Left = 484
Top = 91
end
object DataSourcet_f_groupinfo1: TDataSource
DataSet = Queryt_f_groupinto1
OnDataChange = DataSourcet_f_groupinfo1DataChange
Left = 364
Top = 83
end
object QueryT_F_ServiceLog1: TQuery
DatabaseName = 'db_vipdl'
SQL.Strings = (
'SELECT SERVICECODE,OBJTYPE,OBJFLAG,VIP_NO,SERVOBJ,OBJNAME,CITYNO' +
',OFF_NO_HOME,TYPECODE,MODECODE,SERVKIND,QUALITYCODE,'
'FINISH,WK_NO,to_char(BEGINTIME,'#39'yyyy-mm-dd'#39') BEGINTIME,RATE,AMOU' +
'NT,TAX,SERVCONT,USEINTEGRAL,OBJADVICE,OBJINFO,SERVMONEY,USEMONEY' +
',TOTALMONEY'
'FROM T_F_ServiceLog'
'WHERE ObjType=:ObjType and'
'TypeCode=1 and'
'ServKind=1 and'
'ObjFlag=0 and'
'SERVOBJ=:sid')
Left = 176
Top = 219
ParamData = <
item
DataType = ftUnknown
Name = 'ObjType'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'sid'
ParamType = ptUnknown
end>
end
object DataSourceT_F_ServiceLog1: TDataSource
DataSet = QueryT_F_ServiceLog1
OnDataChange = DataSourceT_F_ServiceLog1DataChange
Left = 76
Top = 267
end
object Querytemp: TQuery
DatabaseName = 'db_vipdl'
Left = 64
Top = 203
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -