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