📄 npyj.dfm
字号:
object npyjb: Tnpyjb
Left = 202
Top = 133
Width = 381
Height = 298
Caption = '理赔、押金、合同管理'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 297
Height = 265
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '理赔管理'
OnEnter = TabSheet1Enter
object Label1: TLabel
Left = 0
Top = 8
Width = 65
Height = 13
AutoSize = False
Caption = '员工编号:'
end
object Label2: TLabel
Left = 128
Top = 8
Width = 65
Height = 13
AutoSize = False
Caption = '员工姓名:'
end
object Label3: TLabel
Left = 0
Top = 40
Width = 65
Height = 13
AutoSize = False
Caption = '日 期:'
end
object Label4: TLabel
Left = 0
Top = 72
Width = 81
Height = 13
AutoSize = False
Caption = '毁损物品:'
end
object Label5: TLabel
Left = 0
Top = 104
Width = 73
Height = 13
AutoSize = False
Caption = '理赔金额:'
end
object Label6: TLabel
Left = 0
Top = 128
Width = 57
Height = 13
Caption = '备 注:'
end
object Edit1: TEdit
Left = 64
Top = 8
Width = 65
Height = 21
TabOrder = 0
OnEnter = Edit1Enter
OnExit = Edit1Exit
OnKeyUp = Edit1KeyUp
end
object Edit2: TEdit
Left = 192
Top = 8
Width = 89
Height = 21
TabOrder = 1
OnEnter = Edit1Enter
OnExit = Edit1Exit
OnKeyUp = Edit2KeyUp
end
object DateTimePicker1: TDateTimePicker
Left = 64
Top = 40
Width = 81
Height = 21
CalAlignment = dtaLeft
Date = 37832.9492548843
Time = 37832.9492548843
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object Edit3: TEdit
Left = 64
Top = 72
Width = 121
Height = 21
TabOrder = 3
end
object Edit4: TEdit
Left = 64
Top = 104
Width = 121
Height = 21
TabOrder = 4
end
object Memo1: TMemo
Left = 64
Top = 128
Width = 209
Height = 105
Lines.Strings = (
'Memo1')
TabOrder = 5
end
object DBGrid1: TDBGrid
Left = 0
Top = 32
Width = 289
Height = 89
DataSource = DataSource1
Options = [dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnDrawColumnCell = DBGrid2DrawColumnCell
OnKeyUp = DBGrid1KeyUp
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Width = 48
Visible = True
end>
end
end
object TabSheet2: TTabSheet
Caption = '押金管理'
ImageIndex = 1
OnEnter = TabSheet2Enter
object Label7: TLabel
Left = 1
Top = 0
Width = 65
Height = 13
AutoSize = False
Caption = '员工编号:'
end
object Label8: TLabel
Left = 0
Top = 32
Width = 65
Height = 13
AutoSize = False
Caption = '员工姓名:'
end
object Label9: TLabel
Left = 0
Top = 64
Width = 65
Height = 13
AutoSize = False
Caption = '日 期:'
end
object Label10: TLabel
Left = 0
Top = 104
Width = 65
Height = 13
AutoSize = False
Caption = '押 金:'
end
object Edit5: TEdit
Left = 72
Top = 0
Width = 81
Height = 21
TabOrder = 0
OnEnter = Edit5Enter
OnExit = Edit5Exit
OnKeyUp = Edit5KeyUp
end
object Edit6: TEdit
Left = 72
Top = 32
Width = 89
Height = 21
TabOrder = 1
OnEnter = Edit5Enter
OnExit = Edit5Exit
OnKeyUp = Edit6KeyUp
end
object Edit8: TEdit
Left = 72
Top = 104
Width = 89
Height = 21
TabOrder = 2
end
object Button7: TButton
Left = 176
Top = 104
Width = 75
Height = 25
Caption = '押金设定'
TabOrder = 3
OnClick = Button7Click
end
object DateTimePicker2: TDateTimePicker
Left = 72
Top = 64
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 37832.9627086111
Time = 37832.9627086111
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object DBGrid2: TDBGrid
Left = 0
Top = 56
Width = 289
Height = 81
DataSource = DataSource1
Options = [dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid2CellClick
OnDrawColumnCell = DBGrid2DrawColumnCell
OnKeyUp = DBGrid2KeyUp
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Width = 56
Visible = True
end>
end
end
object TabSheet3: TTabSheet
Caption = '合同管理'
ImageIndex = 2
object Label11: TLabel
Left = 0
Top = 0
Width = 65
Height = 13
AutoSize = False
Caption = '员工编号:'
end
object Label12: TLabel
Left = 0
Top = 32
Width = 73
Height = 13
AutoSize = False
Caption = '员工姓名:'
end
object Label13: TLabel
Left = 0
Top = 64
Width = 65
Height = 13
AutoSize = False
Caption = '入职时间:'
end
object Label14: TLabel
Left = 0
Top = 96
Width = 97
Height = 13
AutoSize = False
Caption = '合同签定月数:'
end
object Label15: TLabel
Left = 8
Top = 136
Width = 73
Height = 13
AutoSize = False
Caption = '合同级别:'
end
object Edit7: TEdit
Left = 64
Top = 0
Width = 65
Height = 21
TabOrder = 0
OnEnter = Edit7Enter
OnExit = Edit7Exit
OnKeyUp = Edit7KeyUp
end
object Edit9: TEdit
Left = 64
Top = 32
Width = 65
Height = 21
TabOrder = 1
OnEnter = Edit7Enter
OnExit = Edit7Exit
OnKeyUp = Edit9KeyUp
end
object Edit11: TEdit
Left = 88
Top = 96
Width = 121
Height = 21
TabOrder = 2
Text = 'Edit11'
end
object Edit12: TEdit
Left = 88
Top = 128
Width = 121
Height = 21
TabOrder = 3
Text = 'Edit12'
end
object DateTimePicker3: TDateTimePicker
Left = 64
Top = 64
Width = 81
Height = 21
CalAlignment = dtaLeft
Date = 37833.8639868981
Time = 37833.8639868981
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object DBGrid3: TDBGrid
Left = 0
Top = 53
Width = 289
Height = 100
DataSource = DataSource1
Options = [dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid3CellClick
OnDrawColumnCell = DBGrid2DrawColumnCell
OnKeyUp = DBGrid3KeyUp
Columns = <
item
Expanded = False
FieldName = 'A_name'
Title.Caption = '姓名'
Width = 55
Visible = True
end
item
Expanded = False
FieldName = 'A_number'
Title.Caption = '编号'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'A_bm'
Title.Caption = '部门'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'A_bz'
Title.Caption = '班组'
Width = 40
Visible = True
end>
end
object Button4: TButton
Left = 160
Top = 192
Width = 97
Height = 25
Caption = '合同到期预警'
TabOrder = 6
OnClick = Button4Click
end
end
end
object Button3: TButton
Left = 305
Top = 56
Width = 65
Height = 33
Caption = '确定保存'
TabOrder = 1
OnClick = Button3Click
end
object Button5: TButton
Left = 305
Top = 152
Width = 65
Height = 33
Caption = '退出'
TabOrder = 2
OnClick = Button5Click
end
object Button1: TButton
Left = 304
Top = 104
Width = 67
Height = 33
Caption = '查询'
TabOrder = 3
OnClick = Button1Click
end
object DataSource1: TDataSource
DataSet = DataModule1.yggb
Left = 328
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -