hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '9abf05a513'
${ noResults }
DONGSHENG6/业务统计/u_rp_edi.dfm

857 lines
29 KiB
Plaintext
Raw Blame History

object frm_rp_edi: Tfrm_rp_edi
Left = 129
Top = 53
Width = 1235
Height = 772
Caption = #33329#21333#23548#20837#19982#20998#26512
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object bsSkinGauge1: TbsSkinGauge
Left = 0
Top = 719
Width = 1219
Height = 15
TabOrder = 4
SkinDataName = 'gauge'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ShowProgressText = True
ShowPercent = True
MinValue = 0
MaxValue = 100
Value = 50
Vertical = False
Align = alBottom
end
object bsSkinPanel2: TbsSkinPanel
Left = 0
Top = 0
Width = 1219
Height = 41
TabOrder = 0
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel2'
Align = alTop
object bsSkinPanel1: TbsSkinPanel
Left = 1
Top = 1
Width = 306
Height = 39
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel1'
Align = alLeft
object Label1: TLabel
Left = 58
Top = 12
Width = 41
Height = 13
AutoSize = False
Caption = #24037#20316#31807
end
object ComboBox1: TComboBox
Left = 106
Top = 8
Width = 89
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ItemHeight = 16
ParentFont = False
TabOrder = 1
end
object Button2: TbsSkinButton
Left = 6
Top = 8
Width = 50
Height = 25
TabOrder = 0
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #25171#24320
NumGlyphs = 2
Spacing = 1
OnClick = Button2Click
end
object Button1: TbsSkinButton
Left = 200
Top = 8
Width = 44
Height = 25
TabOrder = 2
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #23548#20837
NumGlyphs = 2
Spacing = 1
OnClick = Button1Click
end
object Button3: TbsSkinButton
Left = 244
Top = 8
Width = 55
Height = 25
TabOrder = 3
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #32456#27490
NumGlyphs = 2
Spacing = 1
end
end
object bsSkinPanel3: TbsSkinPanel
Left = 307
Top = 1
Width = 1408
Height = 39
TabOrder = 1
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel3'
Align = alLeft
object Label2: TLabel
Left = 248
Top = 12
Width = 57
Height = 13
AutoSize = False
Caption = #23458#25143#21517#31216
end
object Label3: TLabel
Left = 8
Top = 12
Width = 33
Height = 13
AutoSize = False
Caption = #26085#26399
end
object Label4: TLabel
Left = 128
Top = 12
Width = 25
Height = 13
AutoSize = False
Caption = '-------'
end
object bsSkinButton1: TbsSkinButton
Left = 832
Top = 8
Width = 75
Height = 25
TabOrder = 5
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #24320#22987#20998#26512
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton1Click
end
object ComboBox2: TComboBox
Left = 660
Top = 20
Width = 121
Height = 21
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ItemHeight = 13
TabOrder = 0
Visible = False
OnKeyPress = ComboBox2KeyPress
end
object dt1: TbsSkinDateEdit
Left = 40
Top = 10
Width = 90
Height = 20
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 0
Date = 43466
TodayDefault = False
CalendarWidth = 200
CalendarHeight = 150
CalendarFont.Charset = DEFAULT_CHARSET
CalendarFont.Color = clWindowText
CalendarFont.Height = 14
CalendarFont.Name = 'Arial'
CalendarFont.Style = []
FirstDayOfWeek = Sun
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = True
SkinDataName = 'buttonedit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
MaxLength = 9
ParentFont = False
TabOrder = 1
Text = '2019-01-01'
OnChange = dt1Change
end
object dt2: TbsSkinDateEdit
Left = 152
Top = 10
Width = 90
Height = 20
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 0
Date = 43239.6641446759
TodayDefault = False
CalendarWidth = 200
CalendarHeight = 150
CalendarFont.Charset = DEFAULT_CHARSET
CalendarFont.Color = clWindowText
CalendarFont.Height = 14
CalendarFont.Name = 'Arial'
CalendarFont.Style = []
FirstDayOfWeek = Sun
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = True
SkinDataName = 'buttonedit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
MaxLength = 9
ParentFont = False
TabOrder = 2
Text = '2018/5/19'
OnChange = dt2Change
end
object bsSkinRadioGroup1: TbsSkinRadioGroup
Left = 432
Top = 4
Width = 153
Height = 32
TabOrder = 3
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = True
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
OnClick = bsSkinRadioGroup1Click
ButtonSkinDataName = 'radiobox'
ButtonDefaultFont.Charset = DEFAULT_CHARSET
ButtonDefaultFont.Color = clWindowText
ButtonDefaultFont.Height = 14
ButtonDefaultFont.Name = 'Arial'
ButtonDefaultFont.Style = []
Columns = 3
ItemIndex = 2
Items.Strings = (
#24212#25910
#24212#20184
#21033#28070)
end
object bsSkinRadioGroup2: TbsSkinRadioGroup
Left = 588
Top = 4
Width = 129
Height = 32
TabOrder = 4
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinRadioGroup2'
OnClick = bsSkinRadioGroup2Click
ButtonSkinDataName = 'radiobox'
ButtonDefaultFont.Charset = DEFAULT_CHARSET
ButtonDefaultFont.Color = clWindowText
ButtonDefaultFont.Height = 14
ButtonDefaultFont.Name = 'Arial'
ButtonDefaultFont.Style = []
Columns = 2
ItemIndex = 0
Items.Strings = (
#26609#29366#22270
#23454#32447#22270)
end
object bsSkinRadioGroup3: TbsSkinRadioGroup
Left = 716
Top = 3
Width = 109
Height = 32
TabOrder = 6
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinRadioGroup2'
OnClick = bsSkinRadioGroup2Click
ButtonSkinDataName = 'radiobox'
ButtonDefaultFont.Charset = DEFAULT_CHARSET
ButtonDefaultFont.Color = clWindowText
ButtonDefaultFont.Height = 14
ButtonDefaultFont.Name = 'Arial'
ButtonDefaultFont.Style = []
Columns = 2
ItemIndex = 0
Items.Strings = (
#26376
#21608)
end
object wwDBLookupCombo25: TwwDBLookupCombo
Left = 305
Top = 7
Width = 120
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
DropDownAlignment = taLeftJustify
Selected.Strings = (
#22996#25176#21457#36865#26041#9'20'#9#22996#25176#21457#36865#26041#9#9)
LookupTable = t_code_CUST
LookupField = #22996#25176#21457#36865#26041
Color = clWhite
DropDownCount = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 7
AutoDropDown = True
ShowButton = True
PreciseEditRegion = False
AllowClearKey = False
ShowMatchText = True
end
end
end
object Chart1: TChart
Left = 0
Top = 41
Width = 1219
Height = 226
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
#36130#21153#25968#25454#23545#27604)
Align = alTop
Color = 15189677
Enabled = False
TabOrder = 1
end
object Chart2: TChart
Left = 0
Top = 493
Width = 1219
Height = 226
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
#31665#37327#23545#27604)
Align = alTop
Color = 15189677
Enabled = False
TabOrder = 3
end
object Chart3: TChart
Left = 0
Top = 267
Width = 1219
Height = 226
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
#31080#25968#23545#27604)
Align = alTop
Color = 15189677
Enabled = False
TabOrder = 2
end
object OpenDialog1: TOpenDialog
Left = 144
Top = 40
end
object QryExcel: TADOQuery
Connection = frm_main.db
Parameters = <>
Left = 336
Top = 48
end
object ADOQuery1: TADOQuery
Connection = frm_main.db
Parameters = <>
Left = 392
Top = 40
end
object QryData: TADOQuery
Connection = frm_main.db
Parameters = <>
Left = 448
Top = 48
end
object t_num: TADOQuery
Connection = frm_main.db
Parameters = <
item
Name = 'dt1'
Attributes = [paNullable]
DataType = ftDateTime
Precision = 16
Size = 16
Value = Null
end
item
Name = 'dt2'
Attributes = [paNullable]
DataType = ftDateTime
Precision = 16
Size = 16
Value = Null
end>
SQL.Strings = (
'select datepart(year,'#24405#20837#26085#26399') as '#24180#24230','
' sum(case when datepart(month,'#24405#20837#26085#26399')=1 then 1 else 0 end)' +
' as '#39#19968#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=2 then 1 else 0 end)' +
' as '#39#20108#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=3 then 1 else 0 end)' +
' as '#39#19977#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=4 then 1 else 0 end)' +
' as '#39#22235#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=5 then 1 else 0 end)' +
' as '#39#20116#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=6 then 1 else 0 end)' +
' as '#39#20845#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=7 then 1 else 0 end)' +
' as '#39#19971#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=8 then 1 else 0 end)' +
' as '#39#20843#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=9 then 1 else 0 end)' +
' as '#39#20061#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=10 then 1 else 0 end' +
') as '#39#21313#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=11 then 1 else 0 end' +
') as '#39#21313#19968#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=12 then 1 else 0 end' +
') as '#39#21313#20108#26376#39
' from t_op_seae_edi where '#24405#20837#26085#26399' between :dt1 and :dt2'
' group by datepart(year,'#24405#20837#26085#26399')')
Left = 720
Top = 248
end
object t_ys: TADOQuery
Connection = frm_main.db
Parameters = <
item
Name = 'dt1'
Size = -1
Value = Null
end
item
Name = 'dt2'
Size = -1
Value = Null
end>
SQL.Strings = (
'SELECT YEAR('#24405#20837#26085#26399') '#24180#24230','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =1 THEN '#24212#25910#37329#39069' ELSE 0 END) '#19968#26376', '
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =2 THEN '#24212#25910#37329#39069' ELSE 0 END) '#20108#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =3 THEN '#24212#25910#37329#39069' ELSE 0 END) '#19977#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =4 THEN '#24212#25910#37329#39069' ELSE 0 END) '#22235#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =5 THEN '#24212#25910#37329#39069' ELSE 0 END) '#20116#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =6 THEN '#24212#25910#37329#39069' ELSE 0 END) '#20845#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =7 THEN '#24212#25910#37329#39069' ELSE 0 END) '#19971#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =8 THEN '#24212#25910#37329#39069' ELSE 0 END) '#20843#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =9 THEN '#24212#25910#37329#39069' ELSE 0 END) '#20061#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =10 THEN '#24212#25910#37329#39069' ELSE 0 END) '#21313#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =11 THEN '#24212#25910#37329#39069' ELSE 0 END) '#21313#19968#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =12 THEN '#24212#25910#37329#39069' ELSE 0 END) '#21313#20108#26376
' FROM '
' (select '
' case when '#24212#25910' IS null then 0 else '#24212#25910' end as '#24212#25910#37329#39069','
' case when '#24212#20184' IS null then 0 else '#24212#20184' end as '#24212#20184#37329#39069',*'
' from t_op_seae_edi where '#24405#20837#26085#26399' between :dt1 and :dt2 ) t'
' GROUP BY YEAR('#24405#20837#26085#26399')')
Left = 592
Top = 120
end
object t_yf: TADOQuery
Connection = frm_main.db
Parameters = <
item
Name = 'dt1'
Size = -1
Value = Null
end
item
Name = 'dt2'
Size = -1
Value = Null
end>
SQL.Strings = (
'SELECT YEAR('#24405#20837#26085#26399') '#24180#24230','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =1 THEN '#24212#20184#37329#39069' ELSE 0 END) '#19968#26376', '
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =2 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20108#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =3 THEN '#24212#20184#37329#39069' ELSE 0 END) '#19977#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =4 THEN '#24212#20184#37329#39069' ELSE 0 END) '#22235#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =5 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20116#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =6 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20845#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =7 THEN '#24212#20184#37329#39069' ELSE 0 END) '#19971#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =8 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20843#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =9 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20061#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =10 THEN '#24212#20184#37329#39069' ELSE 0 END) '#21313#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =11 THEN '#24212#20184#37329#39069' ELSE 0 END) '#21313#19968#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =12 THEN '#24212#20184#37329#39069' ELSE 0 END) '#21313#20108#26376
' FROM '
' (select '
' case when '#24212#25910' IS null then 0 else '#24212#25910' end as '#24212#25910#37329#39069','
' case when '#24212#20184' IS null then 0 else '#24212#20184' end as '#24212#20184#37329#39069',*'
' from t_op_seae_edi where '#24405#20837#26085#26399' between :dt1 and :dt2 ) t'
' GROUP BY YEAR('#24405#20837#26085#26399')')
Left = 640
Top = 104
end
object t_lr: TADOQuery
Connection = frm_main.db
Parameters = <
item
Name = 'dt1'
Size = -1
Value = Null
end
item
Name = 'dt2'
Size = -1
Value = Null
end>
SQL.Strings = (
'SELECT YEAR('#24405#20837#26085#26399') '#24180#24230','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =1 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =1 THEN '#24212#20184#37329#39069' ELSE 0 END) '#19968#26376', '
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =2 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =2 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20108#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =3 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =3 THEN '#24212#20184#37329#39069' ELSE 0 END) '#19977#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =4 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =4 THEN '#24212#20184#37329#39069' ELSE 0 END) '#22235#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =5 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =5 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20116#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =6 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =6 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20845#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =7 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =7 THEN '#24212#20184#37329#39069' ELSE 0 END) '#19971#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =8 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =8 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20843#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =9 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHEN' +
' MONTH('#24405#20837#26085#26399') =9 THEN '#24212#20184#37329#39069' ELSE 0 END) '#20061#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =10 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHE' +
'N MONTH('#24405#20837#26085#26399') =10 THEN '#24212#20184#37329#39069' ELSE 0 END) '#21313#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =11 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHE' +
'N MONTH('#24405#20837#26085#26399') =11 THEN '#24212#20184#37329#39069' ELSE 0 END) '#21313#19968#26376','
'SUM(CASE WHEN MONTH('#24405#20837#26085#26399') =12 THEN '#24212#25910#37329#39069' ELSE 0 END)-SUM(CASE WHE' +
'N MONTH('#24405#20837#26085#26399') =12 THEN '#24212#20184#37329#39069' ELSE 0 END) '#21313#20108#26376
' FROM '
' (select '
' case when '#24212#25910' IS null then 0 else '#24212#25910' end as '#24212#25910#37329#39069','
' case when '#24212#20184' IS null then 0 else '#24212#20184' end as '#24212#20184#37329#39069',*'
' from t_op_seae_edi where '#24405#20837#26085#26399' between :dt1 and :dt2 ) t'
' GROUP BY YEAR('#24405#20837#26085#26399')')
Left = 680
Top = 128
end
object t_ctn: TADOQuery
Connection = frm_main.db
Parameters = <
item
Name = 'dt1'
Size = -1
Value = Null
end
item
Name = 'dt2'
Size = -1
Value = Null
end>
SQL.Strings = (
'select datepart(year,'#24405#20837#26085#26399') as '#24180#24230','
' sum(case when datepart(month,'#24405#20837#26085#26399')=1 then '#23454#38469#31665#25968' else 0 e' +
'nd) as '#39#19968#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=2 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#20108#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=3 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#19977#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=4 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#22235#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=5 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#20116#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=6 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#20845#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=7 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#19971#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=8 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#20843#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=9 then '#23454#38469#31665#25968' else 0 ' +
'end) as '#39#20061#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=10 then '#23454#38469#31665#25968' else 0' +
' end) as '#39#21313#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=11 then '#23454#38469#31665#25968' else 0' +
' end) as '#39#21313#19968#26376#39','
' sum(case when datepart(month,'#24405#20837#26085#26399')=12 then '#23454#38469#31665#25968' else 0' +
' end) as '#39#21313#20108#26376#39
' from '
' (select case when '#31665#25968' is null then 0 when '#31665#25968'='#39#39' then 0 else '#31665 +
#25968' end as '#23454#38469#31665#25968',* from t_op_seae_edi '
' where '#24405#20837#26085#26399' between :dt1 and :dt2) t'
' group by datepart(year,t.'#24405#20837#26085#26399')'
' ')
Left = 792
Top = 248
end
object t_code_CUST: TADOQuery
Active = True
Connection = frm_main.db
CursorType = ctStatic
Filtered = True
Parameters = <>
SQL.Strings = (
'select distinct '#22996#25176#21457#36865#26041' from t_op_seae_edi where ltrim(rtrim('#22996#25176#21457#36865#26041 +
'))<>'#39#39' order by '#22996#25176#21457#36865#26041)
Left = 900
Top = 104
end
object t_code_cust1: TDataSource
DataSet = t_code_CUST
Left = 897
Top = 144
end
end
Reference in New Issue View Git Blame Copy Permalink