📄 emp_pay.dfm
字号:
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = SaveBtnClick
Glyph.Data = {
8E060000424D8E06000000000000360400002800000018000000190000000100
08000000000058020000120B0000120B00000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CCFF0066CC
FF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399FF000099
FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33FF00CC33
FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600FF003300
FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FFCC00FFCC
CC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99CC009999
CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666CC003366
CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033CC00FF00
CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF990099FF
990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC990033CC
990000CC9900FF999900CC99990099999900669999003399990000999900FF66
9900CC66990099669900666699003366990000669900FF339900CC3399009933
9900663399003333990000339900FF009900CC00990099009900660099003300
990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF6600FFCC
6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC9966009999
6600669966003399660000996600FF666600CC66660099666600666666003366
660000666600FF336600CC33660099336600663366003333660000336600FF00
6600CC00660099006600660066003300660000006600FFFF3300CCFF330099FF
330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC330033CC
330000CC3300FF993300CC99330099993300669933003399330000993300FF66
3300CC66330099663300666633003366330000663300FF333300CC3333009933
3300663333003333330000333300FF003300CC00330099003300660033003300
330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC000099CC
000066CC000033CC000000CC0000FF990000CC99000099990000669900003399
000000990000FF660000CC66000099660000666600000066000033660000FF33
0000CC33000099330000663300003333000000330000CC000000990000006600
0000330000000000DD000000BB000000AA000000880000007700000055000000
44000000220000DD000000BB000000AA00000088000000770000005500000044
000000220000DDDDDD0055555500777777007777770044444400222222001111
110077000000550000004400000022000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD000000EFFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFD00000B133C00EFEFFDFDFDFDFDFDFDFDFDFDFDFD
FDFD0000EC000B133C00EFEFEFEFFDFDFDFDFDFDFDFDFDFD0000EDEDEC000B13
3C00EFEFEFEFEFEFFDFDFDFDFDFD0000EDEFEDEDEC000B133C00EFEFEFEFEFEF
FDFDFDFD0000F7ED00EFEDEDEC000B133C00EFEFEFEFFDFDFDFDFD001300F7ED
00EFEDEDEC000B133C00EFEFFDFDFDFDFDFDFD001300F7EDEDEFF7F700001313
3C00FDFDFDFDFDFDFDFDFD001300F7EDF7F70000131313133C00FDFDFDFDFDFD
FDFDFD001300F7F700001313131313133C00FDFDFDFDFDFDFDFDFD0013000000
131313130B0B13133C00FDFDFDFDFDFDFDFDFD001313131313130B0B07070B13
3C00FDFDFDFDFDFDFDFDFD00131313130B0B0707EB070B133C00FDFDFDFDFDFD
FDFDFD0013130B0B0707EBEBEB070B133C00FDFDFDFDFDFDFDFDFD0013130707
EBEBEBEBEB070B133C00FDFDFDFDFDFDFDFDFD001313FFEBEBEBEBEBEBF7F70B
00FDFDFDFDFDFDFDFDFDFD001313FFEBEBEBEBF7F7F70000FDFDFDFDFDFDFDFD
FDFDFD001313FFEBEBF7F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFD001313FFF7
F7F70000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFD001313F7F70000FDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFD000B0B0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFD0000FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD
FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD}
end
object CancelBtn: TBitBtn
Left = 441
Top = 3
Width = 75
Height = 28
Caption = #21462#28040'&C'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = CancelBtnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000008000
0000008000008080000000008000800080000080800080808000C0C0C000FF00
000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00DDDDDDD0000D
DDDDDDDDD00199900DDD0DDD0199111910DD00D019100001910D01019100DDD0
190D0111910DDDDD0910011910DDDDDD0190019B90DDDDDD019009B9990DDDDD
01900BBBBB90DDDD0910000000000DD0190DDDDDDDDDDD01910DDDDDDDDD0019
10DDDDDDD00019910DDDDDDDD0999100DDDDDDDDDD0000DDDDDD}
end
object ExtBtn: TBitBtn
Left = 533
Top = 3
Width = 75
Height = 28
Cancel = True
Caption = #36864#20986'&X'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ModalResult = 2
ParentFont = False
TabOrder = 4
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
end
object DBNavigator1: TDBNavigator
Left = 6
Top = 3
Width = 150
Height = 28
DataSource = DataSource1
VisibleButtons = [nbPrior, nbNext]
TabOrder = 5
end
end
object ComboBox_ID: TComboBox
Left = 80
Top = 9
Width = 137
Height = 24
Hint = #36755#20837#21592#24037#32534#21495#20877#25353#22238#36710#38190#12289#26041#21487#28155#21152
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 16
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = ComboBox_IDChange
OnKeyPress = ComboBox_IDKeyPress
end
object edtname: TEdit
Left = 320
Top = 9
Width = 121
Height = 23
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object edtsex: TEdit
Left = 514
Top = 9
Width = 49
Height = 23
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object Edtduty: TEdit
Left = 320
Top = 47
Width = 244
Height = 23
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object DBE_Pay: TDBEdit
Left = 80
Top = 46
Width = 116
Height = 24
Hint = #25552#31034#65306#22312#24403#21069#32534#36753#26694#20869#21487#30452#25509#20462#25913#23545#24212#21592#24037#30340#26376#34218#25910#20837
DataField = 'pay'
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
end
object ADOQtmp: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'')
Left = 176
Top = 128
end
object DataSource1: TDataSource
DataSet = ADOQuery1
OnStateChange = DataSource1StateChange
OnDataChange = DataSource1DataChange
Left = 392
Top = 232
end
object ADOQ_Emp_Pay: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*,b.empname,b.sex,b.state,c.dutyname,d.depname '
'from emp_pay a, employee b,duty c,department d'
'where a.empid=b.empid and b.dutyid=c.dutyid and b.depid=d.depid'
'order by d.depname, c.dutyname, b.sex')
Left = 336
Top = 128
object ADOQ_Emp_Payempid: TIntegerField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'empid'
end
object ADOQ_Emp_Payempname: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'empname'
Size = 10
end
object ADOQ_Emp_Paysex: TStringField
DisplayLabel = #24615#21035
FieldName = 'sex'
Size = 2
end
object ADOQ_Emp_Paypay: TBCDField
DisplayLabel = #26376#34218
FieldName = 'pay'
Precision = 18
Size = 2
end
object ADOQ_Emp_Paydutyname: TStringField
DisplayLabel = #32844#21153
FieldName = 'dutyname'
end
object ADOQ_Emp_Paydepname: TStringField
DisplayLabel = #37096#38376
FieldName = 'depname'
end
object ADOQ_Emp_Paystate: TBooleanField
FieldName = 'state'
end
end
object ADOQuery1: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
AfterInsert = ADOQuery1AfterInsert
BeforePost = ADOQuery1BeforePost
AfterPost = ADOQuery1AfterPost
Parameters = <>
SQL.Strings = (
'select * from emp_pay order by empid')
Left = 336
Top = 232
object ADOQuery1empid: TIntegerField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'empid'
end
object ADOQuery1empname: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldKind = fkLookup
FieldName = 'empname'
LookupDataSet = ADOQ_Emp_Pay
LookupKeyFields = 'empid'
LookupResultField = 'empname'
KeyFields = 'empid'
Lookup = True
end
object ADOQuery1sex: TStringField
DisplayLabel = #24615#21035
FieldKind = fkLookup
FieldName = 'sex'
LookupDataSet = ADOQ_Emp_Pay
LookupKeyFields = 'empid'
LookupResultField = 'sex'
KeyFields = 'empid'
Lookup = True
end
object ADOQuery1pay: TBCDField
DisplayLabel = #26376#34218
FieldName = 'pay'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 2
end
object ADOQuery1dutyname: TStringField
DisplayLabel = #32844#21153
FieldKind = fkLookup
FieldName = 'dutyname'
LookupDataSet = ADOQ_Emp_Pay
LookupKeyFields = 'empid'
LookupResultField = 'dutyname'
KeyFields = 'empid'
Lookup = True
end
object ADOQuery1depname: TStringField
DisplayLabel = #37096#38376
FieldKind = fkLookup
FieldName = 'depname'
LookupDataSet = ADOQ_Emp_Pay
LookupKeyFields = 'empid'
LookupResultField = 'depname'
KeyFields = 'empid'
Lookup = True
end
object ADOQuery1state: TBooleanField
FieldKind = fkLookup
FieldName = 'state'
LookupDataSet = ADOQ_Emp_Pay
LookupKeyFields = 'empid'
LookupResultField = 'state'
KeyFields = 'empid'
DisplayValues = #8730
Lookup = True
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -