sendcard.dfm
来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 2,576 行 · 第 1/5 页
DFM
2,576 行
Top = 298
Width = 784
Height = 59
Align = alBottom
TabOrder = 1
object Label38: TLabel
Left = 10
Top = 14
Width = 24
Height = 13
Caption = '工号'
FocusControl = DBEdit12
end
object Label43: TLabel
Left = 139
Top = 14
Width = 24
Height = 13
Caption = '卡号'
end
object DBText19: TDBText
Left = 171
Top = 13
Width = 48
Height = 13
AutoSize = True
DataField = 'cardno'
DataSource = Dsjieguasi
end
object Label44: TLabel
Left = 372
Top = 14
Width = 34
Height = 13
AutoSize = False
Caption = '部门'
end
object DBText20: TDBText
Left = 403
Top = 13
Width = 48
Height = 13
AutoSize = True
DataField = 'dept'
DataSource = Dsjieguasi
end
object Label45: TLabel
Left = 514
Top = 14
Width = 34
Height = 13
AutoSize = False
Caption = '职务'
end
object DBText21: TDBText
Left = 545
Top = 13
Width = 48
Height = 13
AutoSize = True
DataField = 'prof'
DataSource = Dsjieguasi
end
object Label46: TLabel
Left = 140
Top = 37
Width = 47
Height = 18
AutoSize = False
Caption = '建档人'
end
object DBText22: TDBText
Left = 182
Top = 36
Width = 48
Height = 13
AutoSize = True
DataField = 'operator'
DataSource = Dsjieguasi
end
object Label47: TLabel
Left = 258
Top = 37
Width = 59
Height = 13
AutoSize = False
Caption = '建档日期'
end
object DBText23: TDBText
Left = 314
Top = 36
Width = 48
Height = 13
AutoSize = True
DataField = 'cdate'
DataSource = Dsjieguasi
end
object Label48: TLabel
Left = 259
Top = 15
Width = 34
Height = 13
AutoSize = False
Caption = '姓名'
end
object DBText24: TDBText
Left = 290
Top = 14
Width = 48
Height = 13
AutoSize = True
DataField = 'name'
DataSource = Dsjieguasi
end
object DBEdit12: TDBEdit
Left = 41
Top = 10
Width = 90
Height = 21
DataField = 'workno'
DataSource = Dsjieguasi
TabOrder = 0
OnKeyDown = DBEdit12KeyDown
end
end
object Panel8: 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 = 2
object Label50: TLabel
Left = 27
Top = 12
Width = 92
Height = 13
Caption = '工号/卡号/姓名'
end
object Edit4: TEdit
Left = 130
Top = 8
Width = 81
Height = 21
MaxLength = 10
TabOrder = 0
OnExit = Edit4Exit
end
end
end
object TabSheet2: TTabSheet
Caption = '余额查询'
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 784
Height = 357
Align = alClient
DataSource = DataSource4
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnKeyPress = DBGrid1KeyPress
OnTitleClick = DBGrid1TitleClick
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 = 'dept'
Visible = True
end
item
Expanded = False
FieldName = 'prof'
Visible = True
end
item
Expanded = False
FieldName = 'cardkind'
PickList.Strings = (
'标准IC卡格式'
'长IC卡格式'
'新消费机IC卡格式')
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'times'
Visible = True
end
item
Expanded = False
FieldName = 'readok'
PickList.Strings = (
'True'
'False')
Visible = True
end
item
Expanded = False
FieldName = 'money2'
Title.Caption = '实卡上金额(元)'
Visible = True
end>
end
object cardno1: TEdit
Left = 184
Top = 104
Width = 121
Height = 21
TabOrder = 1
Text = 'cardno1'
Visible = False
end
object name1: TEdit
Left = 184
Top = 136
Width = 121
Height = 21
TabOrder = 2
Text = 'name1'
Visible = False
end
object Money1: TEdit
Left = 184
Top = 176
Width = 121
Height = 21
TabOrder = 3
Text = 'Money1'
Visible = False
end
object times1: TEdit
Left = 184
Top = 208
Width = 121
Height = 21
TabOrder = 4
Text = 'times1'
Visible = False
end
object ComboBox1: TComboBox
Left = 184
Top = 240
Width = 121
Height = 21
ItemHeight = 13
TabOrder = 5
Text = 'ComboBox1'
Visible = False
Items.Strings = (
'标准IC卡格式'
'长IC卡格式'
'新消费机IC卡格式')
end
end
object TabSheet3: TTabSheet
Caption = '充值维护'
ImageIndex = 2
object Panel1: TPanel
Left = 0
Top = 261
Width = 784
Height = 96
Align = alBottom
TabOrder = 0
object Label4: TLabel
Left = 27
Top = 14
Width = 36
Height = 13
AutoSize = False
Caption = '工号'
FocusControl = DBEdit2
end
object Label14: TLabel
Left = 177
Top = 14
Width = 36
Height = 13
AutoSize = False
Caption = '卡号'
end
object DBText6: TDBText
Left = 209
Top = 13
Width = 42
Height = 13
AutoSize = True
DataField = 'cardno'
DataSource = DataSource1
end
object Label16: TLabel
Left = 410
Top = 14
Width = 36
Height = 13
AutoSize = False
Caption = '部门'
end
object DBText2: TDBText
Left = 441
Top = 13
Width = 42
Height = 13
AutoSize = True
DataField = 'dept'
DataSource = DataSource1
end
object Label17: TLabel
Left = 598
Top = 14
Width = 36
Height = 13
AutoSize = False
Caption = '职务'
end
object DBText3: TDBText
Left = 629
Top = 13
Width = 42
Height = 13
AutoSize = True
DataField = 'prof'
DataSource = DataSource1
end
object Label5: TLabel
Left = 152
Top = 43
Width = 60
Height = 13
AutoSize = False
Caption = '充值日期'
FocusControl = DBEdit3
end
object Label6: TLabel
Left = 306
Top = 43
Width = 60
Height = 13
AutoSize = False
Caption = '充值次数'
end
object Label13: TLabel
Left = 517
Top = 70
Width = 48
Height = 13
AutoSize = False
Caption = '建档人'
end
object DBText4: TDBText
Left = 559
Top = 69
Width = 42
Height = 13
AutoSize = True
DataField = 'operator'
DataSource = DataSource1
end
object Label18: TLabel
Left = 627
Top = 70
Width = 61
Height = 13
AutoSize = False
Caption = '建档日期'
end
object DBText5: TDBText
Left = 683
Top = 69
Width = 42
Height = 13
AutoSize = True
DataField = 'cdate'
DataSource = DataSource1
end
object Label7: TLabel
Left = 407
Top = 43
Width = 60
Height = 13
AutoSize = False
Caption = '充值金额'
FocusControl = DBEdit1
end
object Label8: TLabel
Left = 297
Top = 15
Width = 36
Height = 13
AutoSize = False
Caption = '姓名'
end
object DBText1: TDBText
Left = 328
Top = 14
Width = 42
Height = 13
AutoSize = True
DataField = 'name'
DataSource = DataSource1
end
object Label9: TLabel
Left = 3
Top = 42
Width = 60
Height = 13
AutoSize = False
Caption = '卡号格式'
FocusControl = DBEdit3
end
object Label37: TLabel
Left = 27
Top = 71
Width = 36
Height = 13
AutoSize = False
Caption = '原因'
FocusControl = DBEdit10
end
object DBEdit2: TDBEdit
Left = 58
Top = 10
Width = 90
Height = 21
DataField = 'workno'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit3: TDBEdit
Left = 208
Top = 39
Width = 78
Height = 21
DataField = 'rq'
DataSource = DataSource1
TabOrder = 2
end
object DateTimePicker1: 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 = DateTimePicker1CloseUp
end
object DBEdit1: TDBEdit
Left = 463
Top = 39
Width = 42
Height = 21
DataField = 'money'
DataSource = DataSource1
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 363
Top = 39
Width = 41
Height = 21
Color = clScrollBar
DataField = 'timesum'
DataSource = DataSource1
TabOrder = 6
end
object ComboBox2: TComboBox
Left = 58
Top = 39
Width = 92
Height = 21
ItemHeight = 13
TabOrder = 1
Text = '标准IC卡格式'
Items.Strings = (
'标准IC卡格式'
'长IC卡格式'
'新消费机IC卡格式')
end
object DBEdit10: TDBEdit
Left = 58
Top = 67
Width = 447
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?