📄 emptj_shouzhi_all.dfm
字号:
object FrmEMPTJ_SHOUZHI_ALL: TFrmEMPTJ_SHOUZHI_ALL
Left = 201
Top = 209
BorderStyle = bsDialog
Caption = #21592#24037#25910#25903#24635#36134#34920
ClientHeight = 490
ClientWidth = 672
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poMainFormCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object DBGrid: TDBGrid
Left = 0
Top = 0
Width = 672
Height = 435
Align = alClient
DataSource = DataSource
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'empid'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'empname'
Title.Alignment = taCenter
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'shou'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 140
Visible = True
end
item
Expanded = False
FieldName = 'fshou'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 123
Visible = True
end
item
Expanded = False
FieldName = 'zhi'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 123
Visible = True
end
item
Expanded = False
FieldName = 'balance'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -15
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 135
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 435
Width = 672
Height = 55
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Bevel1: TBevel
Left = 0
Top = 0
Width = 672
Height = 6
Align = alTop
Shape = bsTopLine
end
object Label_Display: TLabel
Left = 2
Top = 33
Width = 198
Height = 15
Caption = #27491#22312#32479#35745#25968#25454#65292#35831#31245#20505'......'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object SearchBtn: TBitBtn
Left = 503
Top = 27
Width = 70
Height = 26
Cursor = crHandPoint
Caption = #26597#35810'&Q'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = SearchBtnClick
end
object PrtBtn: TBitBtn
Left = 415
Top = 27
Width = 70
Height = 26
Cursor = crHandPoint
Hint = #20462#25913'|'#20462#25913
Caption = #25171#21360'&P'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = PrtBtnClick
end
object ExtBtn: TBitBtn
Left = 596
Top = 27
Width = 70
Height = 26
Cursor = crHandPoint
Cancel = True
Caption = #36864#20986'&X'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ModalResult = 7
ParentFont = False
TabOrder = 2
end
object CheckBox1: TCheckBox
Left = 321
Top = 32
Width = 81
Height = 17
Caption = #37325#26032#32479#35745
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
end
object ProgressBar1: TProgressBar
Left = 0
Top = 6
Width = 672
Height = 16
Align = alTop
TabOrder = 4
end
object CheckBox2: TCheckBox
Left = 203
Top = 32
Width = 109
Height = 17
Caption = #21253#25324#31163#32844#20154#21592
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
end
end
object DataSource: TDataSource
DataSet = ADOQuery1
Left = 336
Top = 168
end
object ADOQtmp: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
''
'select * from earn_ABS')
Left = 144
Top = 144
end
object Rv_TJ_EMP_ALLSZ: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = ADOQuery1
Left = 488
Top = 144
end
object RvSystem1: TRvSystem
TitleSetup = #30830#23450#25253#34920#36755#20986#26041#24335
TitleStatus = #27491#22312#29983#25104#25253#34920
TitlePreview = #25968#25454#39044#35272
SystemSetups = [ssAllowDestPrinter]
SystemFiler.StatusFormat = #27491#22312#29983#25104#31532'%p'#39029','#35831#31245#20505'.....'
SystemPreview.FormState = wsMaximized
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = #27491#22312#25171#21360#31532'%p'#39029
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 488
Top = 112
end
object RvProject1: TRvProject
Engine = RvSystem1
Left = 488
Top = 72
end
object ADOQuery1: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.id,a.empid,b.empname,a.shou,a.fshou,a.zhi,a.balance fro' +
'm Personshouzhi a,employee b'
'where a.empid=b.empid')
Left = 304
Top = 168
object ADOQuery1empname: TStringField
DisplayLabel = #22995#21517
FieldName = 'empname'
Size = 10
end
object ADOQuery1shou: TBCDField
DisplayLabel = #20027#25910#20837
FieldName = 'shou'
DisplayFormat = #65509',0.00'
Precision = 18
Size = 2
end
object ADOQuery1fshow: TBCDField
DisplayLabel = #38468#25910#20837
FieldName = 'fshou'
DisplayFormat = #65509',0.00'
Precision = 18
Size = 2
end
object ADOQuery1zhi: TBCDField
DisplayLabel = #24635#25903#20986
FieldName = 'zhi'
DisplayFormat = #65509',0.00'
Precision = 18
Size = 2
end
object ADOQuery1balance: TBCDField
DisplayLabel = #32467#20313
FieldName = 'balance'
DisplayFormat = #65509',0.00'
Precision = 18
Size = 2
end
object ADOQuery1empid: TIntegerField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'empid'
end
end
object ADOQpersonshouzhi: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 144
Top = 184
end
object ADOQemp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 144
Top = 232
end
object ADOQupdate: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 520
Top = 264
end
object ADOQGetyearmonth: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 520
Top = 176
end
object ADOQ_TJFlag: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 520
Top = 320
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -