📄 emppay_out.dfm
字号:
FFFFFFFFFFFFFFFFFFFF000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000FFFFFF00000000FF00000000000000000000
000000000000FFFFFF00000000FFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF0000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000000000000000000000000000FF00FF00FF00FF00}
end
object edtname: TEdit
Left = 80
Top = 44
Width = 97
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 edtsex: TEdit
Left = 220
Top = 44
Width = 36
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 = 5
end
object Edtpay: TEdit
Left = 80
Top = 74
Width = 177
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 6
Text = #65509'0.00'
end
object GroupBox5: TGroupBox
Left = 272
Top = 7
Width = 342
Height = 58
Caption = #36215#35755#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
object Label4: TLabel
Left = 86
Top = 27
Width = 16
Height = 16
Caption = #24180
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 146
Top = 24
Width = 16
Height = 16
Caption = #26376
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 24
Width = 16
Height = 16
Caption = #20174
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 176
Top = 24
Width = 16
Height = 16
Caption = #33267
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 261
Top = 24
Width = 16
Height = 16
Caption = #24180
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 321
Top = 24
Width = 16
Height = 16
Caption = #26376
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object year_s: TSpinEdit
Left = 24
Top = 19
Width = 60
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 0
MinValue = 2005
ParentFont = False
TabOrder = 0
Value = 0
end
object month_s: TSpinEdit
Left = 103
Top = 19
Width = 40
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 12
MinValue = 1
ParentFont = False
TabOrder = 1
Value = 1
end
object eyear: TSpinEdit
Left = 198
Top = 19
Width = 60
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 0
MinValue = 2005
ParentFont = False
TabOrder = 2
Value = 0
end
object emonth: TSpinEdit
Left = 278
Top = 19
Width = 40
Height = 26
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxValue = 12
MinValue = 1
ParentFont = False
TabOrder = 3
Value = 1
end
end
end
end
end
object ADOQtmp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 584
Top = 200
end
object DS_tmp: TDataSource
DataSet = ADOQ_emp
Left = 64
Top = 120
end
object ADOQ_emp: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 24
Top = 120
end
object ADOQ_Count: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 583
Top = 248
end
object ADOQ_search: TADOQuery
Connection = DataMod.ADOCon
Parameters = <>
Left = 583
Top = 312
end
object ADOQ_Emp_payout: TADOQuery
Connection = DataMod.ADOCon
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT a.*,b.opername,c.empname FROM Emp_Payout a,operator b,emp' +
'loyee c'
'where a.tmp_id=b.tmp_id and c.empid=a.empid'
''
'order by a.empid,yearmonth,rec_date')
Left = 260
Top = 336
object ADOQ_Emp_payoutlog_id: TAutoIncField
FieldName = 'log_id'
ReadOnly = True
end
object ADOQ_Emp_payoutempid: TIntegerField
FieldName = 'empid'
end
object ADOQ_Emp_payoutempname: TStringField
FieldName = 'empname'
end
object ADOQ_Emp_payoutyearmonth: TStringField
FieldName = 'yearmonth'
Size = 7
end
object ADOQ_Emp_payoutmoney: TBCDField
FieldName = 'money'
DisplayFormat = #65509',0.00'
EditFormat = '0.00'
Precision = 18
Size = 2
end
object ADOQ_Emp_payouttmp_id: TIntegerField
FieldName = 'tmp_id'
end
object ADOQ_Emp_payoutrec_date: TDateTimeField
FieldName = 'rec_date'
end
object ADOQ_Emp_payoutopername: TStringField
FieldName = 'opername'
Size = 10
end
end
object DS_Emp_payout: TDataSource
DataSet = ADOQ_Emp_payout
Left = 300
Top = 336
end
object RvProject1: TRvProject
Engine = RvSystem1
Left = 496
Top = 208
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 = 496
Top = 248
end
object Rv_TJ_EMP_Payout: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = ADOQ_Emp_payout
Left = 496
Top = 280
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -