📄 unit_custindiserv.dfm
字号:
Top = 13
Width = 133
Height = 20
Hint = '输完手机号码后,按回车键,查询用户姓名'
ColorFlat = clWhite
Enabled = False
MaxLength = 11
TabOrder = 1
OnKeyPress = FlatEditObject1ValueKeyPress
end
object FlatMaskEditBeginDate1: TFlatMaskEdit
Tag = 1
Left = 66
Top = 181
Width = 81
Height = 20
Hint = '格式:YYYY-MM-DD'
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
Enabled = False
EditMask = '0000-00-00;1;_'
MaxLength = 10
TabOrder = 5
Text = ' - - '
OnExit = FlatMaskEditBeginDate1Exit
ImeName = '中文 (简体) - 郑码'
end
object FlatMaskEditBeginTime1: TFlatMaskEdit
Tag = 1
Left = 149
Top = 181
Width = 42
Height = 20
Hint = '格式:HI24(24小时制)'
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
Enabled = False
EditMask = '!90:00;1;_'
MaxLength = 5
TabOrder = 6
Text = ' : '
ImeName = '中文 (简体) - 郑码'
end
object FlatMaskEditEndDate1: TFlatMaskEdit
Tag = 9
Left = 271
Top = 181
Width = 81
Height = 20
Hint = '格式:YYYY-MM-DD'
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
Enabled = False
TabOrder = 15
OnExit = FlatMaskEditEndDate1Exit
ImeName = '中文 (简体) - 郑码'
end
object FlatMaskEditEndTime1: TFlatMaskEdit
Tag = 10
Left = 355
Top = 181
Width = 42
Height = 20
ColorFlat = clWhite
AutoSize = False
BorderStyle = bsNone
Color = clWhite
Enabled = False
TabOrder = 16
ImeName = '中文 (简体) - 郑码'
end
object FlatCheckBoxFinish1: TFlatCheckBox
Tag = 1
Left = 433
Top = 183
Width = 79
Height = 17
Caption = '完成标志'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 7
TabStop = True
OnClick = FlatCheckBoxFinish1Click
end
object FlatEditServMoney1: TFlatEdit
Tag = 1
Left = 68
Top = 211
Width = 87
Height = 20
ColorFlat = clWhite
MaxLength = 7
TabOrder = 8
OnChange = FlatEditServMoney1Change
OnKeyPress = FlatEditServMoney1KeyPress
end
object FlatEditUseMoney1: TFlatEdit
Tag = 1
Left = 270
Top = 211
Width = 84
Height = 20
ColorFlat = clWhite
MaxLength = 7
TabOrder = 9
OnChange = FlatEditUseMoney1Change
OnKeyPress = FlatEditUseMoney1KeyPress
end
object FlatSpinEditFloatTotalMoney1: TFlatSpinEditFloat
Tag = 1
Left = 488
Top = 211
Width = 89
Height = 21
ColorFlat = clWhite
AutoSize = False
Digits = 2
Precision = 9
FloatFormat = ffGeneral
Enabled = False
Increment = 0.5
TabOrder = 17
end
object FlatMemoServCont2: TFlatMemo
Tag = 1
Left = 68
Top = 240
Width = 664
Height = 41
ColorFlat = clWhite
MaxLength = 200
ScrollBars = ssVertical
TabOrder = 10
Lines.Strings = (
'')
end
object FlatMemoObjInfo: TFlatMemo
Tag = 1
Left = 68
Top = 291
Width = 664
Height = 41
ColorFlat = clWhite
MaxLength = 200
ScrollBars = ssVertical
TabOrder = 11
end
object FlatMemoObjAdvice: TFlatMemo
Tag = 1
Left = 68
Top = 340
Width = 664
Height = 41
ColorFlat = clWhite
MaxLength = 200
ScrollBars = ssVertical
TabOrder = 12
end
object DBGrid2: TDBGrid
Left = 378
Top = 40
Width = 354
Height = 104
DataSource = DataSourceService
ImeName = '中文 (简体) - 郑码'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 18
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ServTop_Id'
Title.Caption = '个性服务代码'
Visible = False
end
item
Expanded = False
FieldName = 'SERV_TOPIC'
Title.Caption = '个性服务标题'
Width = 179
Visible = True
end
item
Expanded = False
FieldName = 'SERVCONTENT'
Title.Caption = '服务内容'
Width = 207
Visible = True
end
item
Expanded = False
FieldName = 'BEGINDATE'
Title.Caption = '开始时间'
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'ENDDATE'
Title.Caption = '结束时间'
Width = 132
Visible = True
end>
end
object FlatComboBoxServMode1: TFlatComboBox
Tag = 41
Left = 66
Top = 151
Width = 121
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 2
ItemIndex = -1
end
object DBGrid4: TDBGrid
Left = 8
Top = 40
Width = 354
Height = 104
DataSource = DataSourceRela
ImeName = '中文 (简体) - 郑码'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 19
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'VID'
Visible = False
end
item
Expanded = False
FieldName = 'VIPH'
Visible = False
end
item
Expanded = False
FieldName = 'Rel_Type'
Title.Caption = '关系类别'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'Name'
Title.Caption = '姓名'
Width = 87
Visible = True
end
item
Expanded = False
FieldName = 'Sex'
Title.Caption = '性别'
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'Tel'
Title.Caption = '电话号码'
Visible = True
end
item
Expanded = False
FieldName = 'Addr'
Title.Caption = '联系地址'
Visible = True
end
item
Expanded = False
FieldName = 'Work'
Title.Caption = '工作单位'
Visible = True
end
item
Expanded = False
FieldName = 'Intro'
Title.Caption = '备注'
Visible = True
end>
end
object FlatComboBoxServKind: TFlatComboBox
Tag = 1
Left = 272
Top = 152
Width = 126
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
Items.Strings = (
'主动服务'
'被叫服务')
TabOrder = 3
Text = '主动服务'
ItemIndex = 0
end
object FlatComboBoxServModeT: TFlatComboBox
Left = 435
Top = 348
Width = 46
Height = 22
Color = clWindow
ItemHeight = 14
TabOrder = 20
Text = 'FlatComboBoxServMode1'
Visible = False
ItemIndex = -1
end
object FlatButtonQuery1: TFlatButton
Left = 651
Top = 10
Width = 79
Height = 25
Caption = '查询'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 21
OnClick = FlatButtonQuery1Click
end
end
end
object TabSheet4: TTabSheet
Caption = '登记个性服务日志'
ImageIndex = 3
object Panel5: TPanel
Left = 2
Top = 2
Width = 742
Height = 387
BevelOuter = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 432
Top = 155
Width = 56
Height = 14
Caption = '服务质量'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 386
Top = 16
Width = 56
Height = 14
Caption = '用户姓名'
end
object Label38: TLabel
Left = 179
Top = 16
Width = 56
Height = 14
Caption = '手机号码'
Font.Charset = GB2312_CHARSET
Font.Color = clTeal
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 213
Top = 155
Width = 56
Height = 14
Caption = '服务性质'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -