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.
857 lines
29 KiB
Plaintext
857 lines
29 KiB
Plaintext
11 months ago
|
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
|