sendcard.dfm
来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 2,576 行 · 第 1/5 页
DFM
2,576 行
Height = 21
DataField = 'reson'
DataSource = DataSource1
TabOrder = 4
OnKeyDown = DBEdit10KeyDown
end
end
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 784
Height = 261
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = DBGrid2TitleClick
Columns = <
item
Expanded = False
FieldName = 'workno'
Visible = True
end
item
Expanded = False
FieldName = 'cardno'
Visible = True
end
item
Expanded = False
FieldName = 'name'
Visible = True
end
item
Color = clInactiveCaption
Expanded = False
FieldName = 'timesum'
Visible = True
end
item
Expanded = False
FieldName = 'money'
Visible = True
end
item
Expanded = False
FieldName = 'rq'
Visible = True
end
item
Expanded = False
FieldName = 'dept'
Visible = True
end
item
Expanded = False
FieldName = 'prof'
Visible = True
end
item
Expanded = False
FieldName = 'readok'
Visible = True
end
item
Expanded = False
FieldName = 'cardkind'
Visible = True
end
item
Color = clInactiveCaption
Expanded = False
FieldName = 'operator'
Visible = True
end
item
Color = clInactiveCaption
Expanded = False
FieldName = 'cdate'
Visible = True
end
item
Expanded = False
FieldName = 'reson'
Visible = True
end>
end
end
object TabSheet4: TTabSheet
Caption = '退款维护'
ImageIndex = 3
object Panel2: TPanel
Left = 0
Top = 264
Width = 784
Height = 93
Align = alBottom
TabOrder = 0
object Label10: TLabel
Left = 27
Top = 14
Width = 38
Height = 13
AutoSize = False
Caption = '工号'
FocusControl = DBEdit5
end
object Label11: TLabel
Left = 177
Top = 14
Width = 38
Height = 13
AutoSize = False
Caption = '卡号'
end
object DBText7: TDBText
Left = 209
Top = 13
Width = 42
Height = 13
AutoSize = True
DataField = 'cardno'
DataSource = DataSource2
end
object Label12: TLabel
Left = 409
Top = 14
Width = 38
Height = 13
AutoSize = False
Caption = '部门'
end
object DBText8: TDBText
Left = 441
Top = 13
Width = 42
Height = 13
AutoSize = True
DataField = 'dept'
DataSource = DataSource2
end
object Label15: TLabel
Left = 597
Top = 14
Width = 38
Height = 13
AutoSize = False
Caption = '职务'
end
object DBText9: TDBText
Left = 629
Top = 13
Width = 42
Height = 13
AutoSize = True
DataField = 'prof'
DataSource = DataSource2
end
object Label19: TLabel
Left = 151
Top = 43
Width = 62
Height = 13
AutoSize = False
Caption = '退款日期'
FocusControl = DBEdit6
end
object Label21: TLabel
Left = 440
Top = 68
Width = 50
Height = 13
AutoSize = False
Caption = '建档人'
end
object DBText10: TDBText
Left = 483
Top = 67
Width = 48
Height = 13
AutoSize = True
DataField = 'operator'
DataSource = DataSource2
end
object Label22: TLabel
Left = 560
Top = 67
Width = 62
Height = 13
AutoSize = False
Caption = '建档日期'
end
object DBText11: TDBText
Left = 617
Top = 66
Width = 48
Height = 13
AutoSize = True
DataField = 'cdate'
DataSource = DataSource2
end
object Label23: TLabel
Left = 305
Top = 43
Width = 62
Height = 13
AutoSize = False
Caption = '退款金额'
FocusControl = DBEdit7
end
object Label24: TLabel
Left = 296
Top = 15
Width = 38
Height = 13
AutoSize = False
Caption = '姓名'
end
object DBText12: TDBText
Left = 328
Top = 14
Width = 48
Height = 13
AutoSize = True
DataField = 'name'
DataSource = DataSource2
end
object Label25: TLabel
Left = 2
Top = 42
Width = 62
Height = 13
AutoSize = False
Caption = '卡号格式'
FocusControl = DBEdit6
end
object Label33: TLabel
Left = 25
Top = 68
Width = 46
Height = 18
AutoSize = False
Caption = '原因'
WordWrap = True
end
object DBEdit5: TDBEdit
Left = 58
Top = 10
Width = 90
Height = 21
DataField = 'workno'
DataSource = DataSource2
TabOrder = 0
end
object DBEdit6: TDBEdit
Left = 208
Top = 39
Width = 78
Height = 21
DataField = 'rq'
DataSource = DataSource2
TabOrder = 2
end
object DateTimePicker2: TDateTimePicker
Left = 284
Top = 39
Width = 15
Height = 21
CalAlignment = dtaLeft
Date = 37314.0510421991
Time = 37314.0510421991
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 5
OnCloseUp = DateTimePicker2CloseUp
end
object DBEdit7: TDBEdit
Left = 362
Top = 39
Width = 66
Height = 21
DataField = 'money'
DataSource = DataSource2
TabOrder = 3
end
object ComboBox3: TComboBox
Left = 58
Top = 39
Width = 92
Height = 21
ItemHeight = 13
TabOrder = 1
Text = '标准IC卡格式'
Items.Strings = (
'标准IC卡格式'
'长IC卡格式'
'新消费机IC卡格式')
end
object DBEdit9: TDBEdit
Left = 58
Top = 64
Width = 371
Height = 21
DataField = 'reson'
DataSource = DataSource2
TabOrder = 4
OnKeyDown = DBEdit9KeyDown
end
end
object DBGrid3: TDBGrid
Left = 0
Top = 0
Width = 784
Height = 264
Align = alClient
DataSource = DataSource2
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = DBGrid3TitleClick
Columns = <
item
Expanded = False
FieldName = 'workno'
Visible = True
end
item
Expanded = False
FieldName = 'cardno'
Visible = True
end
item
Expanded = False
FieldName = 'name'
Visible = True
end
item
Expanded = False
FieldName = 'money'
Visible = True
end
item
Expanded = False
FieldName = 'rq'
Visible = True
end
item
Expanded = False
FieldName = 'dept'
Visible = True
end
item
Expanded = False
FieldName = 'prof'
Visible = True
end
item
Expanded = False
FieldName = 'cardkind'
Visible = True
end
item
Expanded = False
FieldName = 'reson'
Visible = True
end
item
Color = clInactiveCaption
Expanded = False
FieldName = 'operator'
Visible = True
end
item
Color = clInactiveCaption
Expanded = False
FieldName = 'cdate'
Visible = True
end>
end
end
object TabSheet5: TTabSheet
Caption = '充值/退款日查询'
ImageIndex = 4
object Panel3: TPanel
Left = 0
Top = 0
Width = 784
Height = 37
Align = alTop
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label20: TLabel
Left = 115
Top = 12
Width = 92
Height = 13
Caption = '工号/卡号/姓名'
end
object Label26: TLabel
Left = 294
Top = 12
Width = 52
Height = 13
Caption = '开始日期'
end
object Label27: TLabel
Left = 433
Top = 12
Width = 24
Height = 13
Caption = '---'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label28: TLabel
Left = 455
Top = 12
Width = 52
Height = 13
Caption = '结束日期'
end
object Edit1: TEdit
Left = 210
Top = 8
Width = 81
Height = 21
MaxLength = 10
TabOrder = 1
OnExit = ComboBox5Exit
end
object MaskEdit1: TMaskEdit
Left = 350
Top = 8
Width = 77
Height = 21
EditMask = '9999/99/99;1;_'
MaxLength = 10
TabOrder = 2
Text = ' / / '
end
object DateTimePicker3: TDateTimePicker
Left = 425
Top = 8
Width = 19
Height = 21
CalAlignment = dtaLeft
Date = 37316.6007212384
Time = 37316.6007212384
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 5
OnCloseUp = DateTimePicker3CloseUp
end
object MaskEdit2: TMaskEdit
Left = 510
Top = 8
Width = 81
Height = 21
EditMask = '9999/99/99;1;_'
MaxLength = 10
TabOrder = 3
Text = ' / / '
OnExit = ComboBox5Exit
end
object DateTimePicker4: TDateTimePicker
Left = 587
Top = 8
Width = 19
Height = 21
CalAlignment = dtaLeft
Date = 37316.6007212384
Time = 37316.6007212384
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 6
OnCloseUp = DateTimePicker4CloseUp
end
object ComboBox5: TComboBox
Left = 610
Top = 8
Width = 137
Height = 21
ItemHeight = 13
TabOrder = 4
OnExit = ComboBox5Exit
end
object RadioGroup1: TRadioGroup
Left = 3
Top = 1
Width = 108
Height = 31
Columns = 2
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?