📄 unit1.dfm
字号:
object Form1: TForm1
Left = 206
Top = 15
Width = 763
Height = 560
Caption = #22899#24615#22522#30784#20307#28201#31649#29702#36719#20214
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 751
Height = 41
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
751
41)
object SpeedButton1: TSpeedButton
Left = 2
Top = 2
Width = 110
Height = 35
AllowAllUp = True
Anchors = [akRight, akBottom]
Caption = #22686#21152#19968#20010#26032#21608#26399
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000BEBEBEBEBEBE
BEBEBEBDBDBDB9B9B6C9C9D96E6E657E7E0036361863636A6F6F6D6464624040
475757004F4F00545400BEBEBEBEBEBEBCBCBDBFBFBDD1D1D18C8C85B5B50BFE
FE007575388C8C9A464643D3D3D07D7D8BAEAE009E9E01A9A900BFBFBFBCBCBC
C4C4C2B6B6B87F7F975C5C1BFFFF00F9F9007F7F3F8484931C1C19E6E6E38585
94BABA00A3A302A7A700B9B9BAC5C5C1B9B9C36161388484005B5B00FFFF03FF
FF026969267E7E896C6C699F9F9D64646D878703929203B1B100CBCBC4B4B4C2
4B4B37AEAE00CACA03757500C8C800B2B2008D8D007979007272006464006B6B
00646400858500A3A300A8A8BD5F5F364B4B00C6C604B5B5057070006B6B33A2
A2B6767677797979B1B1B2C1C1C1BCBCBCC7C7C58D8D8E606000464611B0B000
676701BFBF00B9B9006C6C008B8B479A9AA69E9E9C9E9E9E989898FFFFFFFFFF
FFB7B7B7CBCBC7636300636300BFBF035F5F005F5F0E6666415E5E0B83833977
7787C3C3BFC3C3C3787878FFFFFFF7F7F77B7B7BBEBEBB6262005D5D01C0C000
5C5C00636338DFDFFF7575297E7E307B7B8CC6C6C3C6C6C67A7A7AA5A5A5DBDB
DB636363A2A29F6969016666005A5A1649490F6B6B2FDCDCF675752685853889
899B8F8F8D8E8E8E9292924C4C4CCFCFCFFFFFFFBFBFBC63630259590065654D
66663A646424DDDDFC6F6F1B7E7E2DF2F2F8B8B8B6B7B7B7F2F2F28181819E9E
A0FFFFFFBEBEBB5D5D00595900696947666637616125E2E2F29B9B8552523F77
77768383828282827979796B6B6B47473E63636362626147472E5A5A00676748
6565316D6D2DEEEEFBF1F1F3F1F1F6E9E9E9E7E7E7E3E3E3F5F5F5ACACAC4141
008C8C8CC9C9C9C1C1C65757016B6B4768684B35350D9A9AA396969396969597
97979696969A9A9AACACAF7A7A7A3636008F8F8FC9C9C9BBBBBA595900727241
E0E0F0AEAEB0A9A9A8A8A8A9A8A8A8A6A6A6B2B2B27F7F7F3535006565659595
97B0B0B0C1C1C1BDBDBD55551D4141259E9EA4A7A7A4A8A8A8A8A8A8A8A8A8A7
A7A7B2B2B28282823D3D029A9A9AD5D5D4BFBFBFBDBDBDBEBEBE}
Layout = blGlyphTop
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 125
Top = 2
Width = 100
Height = 35
Caption = #20462#25913#24403#21069#21608#26399
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000000000000000000000000000000000003D3D3D7C7C7C
7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E
7EC1C1C1BDBDBDBEBEBE646462E2E2E1FDFDFCBBBBFAFDFDFBFDFDFBFDFDFBFD
FDFBFDFDFBFDFDFBFCFCFAFEFEFC6E6E6DB8B8B8BEBEBEBEBEBE6B6B35EAEAB3
FDFDC6BCBCC5FDFDC6FDFDC6FDFDC6FDFDC6FDFDC6FDFDC6FCFCC6FCFCBF7171
55C4C4CCC0C0BEBDBDBD6A6A44E9E9C3FDFDD6BCBCD5FDFDD6FDFDD6FDFDD6FD
FDD6FDFDD6FDFDD6F9F9D4FFFFDE444431404040C2C2C1C1C1C1686840E7E7BE
FDFDD5BCBCD4FDFDD5FDFDD5FDFDD5FDFDD5FCFCD5F8F8D1FFFFDBBFBF982424
110000003B3B3AC1C1C16A6A3DE9E9BBFDFDCFBCBCCDFDFDCEFDFDCEFDFDCEFC
FCCDFFFFCDFFFFD5EAEAB45E5E475E5E694747450000003F3F3F6A6A43E9E9C1
FDFDD5BCBCD4FDFDD5FDFDD5FBFBD4FFFFD8EFEFDA8F8F92656563BBBBBAB0B0
AFA6A6A6616161000000686840E7E7BEFDFDD5BCBCD4FDFDD5FCFCD4FFFFD9EA
EAC47C7C68B1B1B5F9F9F9FFFFFFFFFFFFB9B9B9A1A1A14646466A6A3DE9E9BB
FDFDCFBBBBCDFCFCCDFAFACDE8E8AF929279E4E4EEE8E8EBFFFFFEF4F4F4F8F8
F8D3D3D3626262C0C0C06A6A43EAEAC1FDFDD5BFBFD6FBFBD4FFFFE2AFAF99B4
B4BCE0E0C7484831D5D5DAFFFFFFFFFFFF9090908B8B8BCFCFCF686840E6E6BE
FDFDD5CFCFA7F4F4CDCECEA65C5C47ADADB668684F888871818185C2C2C08080
7F4040408A8A8AC3C3C36A6A3DE9E9BBFCFCCFB5B7C1978F892F5870005F662F
4644007A8000777C006C6F00616B006C70082827383131A6A7A76A6A43EAEAC1
FDFDD5BEBED6FEFED6D1D1A86868546868687373707373724545335C5C325E5E
4B8B8B8F9C9C9BC0C0C0666640E3E3BDFAFAD3B8B8D2F8F8D3FFFFDEF5F5E2BC
BCBCBCBCBBBBBBBBF4F4E1FFFFDF747461C5C5C9C7C7C6BEBEBE73737CFBFBFF
FFFFFFCBCBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6B6B
6FB7B7B6BDBDBEBEBEBE4545439D9D9BB0B0AE7676ADB0B0AEB0B0AEAFAFAEAC
ACACADADACACACACAFAFAEB0B0AF787877BFBFBFBEBEBEBEBEBE}
Layout = blGlyphTop
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 242
Top = 2
Width = 100
Height = 35
Caption = #21024#38500#24403#21069#21608#26399
Flat = True
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
1800000000000003000000000000000000000000000000000000000000005454
005A5A005656005757005757005757005757005757005757005757005757005D
5D095555AEADADC3C4C41E1E1E26858525DADA1FCCCC22CECE20CECE20CECE20
CECE20CECE20CECE20CECE20CCCC22D8D8209F9F8A7A7AC8C9C9508F8F2D8383
6EF0F089FFFF7BFFFF85FFFF85FFFF85FFFF85FFFF85FFFF85FFFF85FFFF85FE
FE85FFFF3A7A7AB1AAAA48999963C0C0639C9C86FFFF9FF6F67BF9F97BF9F97B
F9F97BF9F97BF9F97BF9F97BF9F97AF7F781F9F960C7C77D787845898984E2E2
46585868F5F5B1FFFF85FFFF87FFFF86FFFF88FFFF86FFFF86FFFF86FFFF86FF
FF87FFFF8AFFFF7394944F9C9C7EB6B6695E5E60A2A25BC1C15AB9B952B3B357
B6B64FAEAE59B8B857B7B757B7B759B8B84DABAB5FB8B85C7C7C509E9E76ADAD
6859596E61614F40406557579B8C8C878080B1AAAA6B6464787171777070736C
6CC0B8B86B65656363634A89896AF0F053B2B25BBABA5FBEBE79DBDB74BCBCBB
B6B6CACDCDD3D5D58182827B7C7CD7D9D9CECFCF8D8F8FD1D1D126656570F5F5
94FFFF8CFFFF91FFFF72F9F92D9B9B628181B1AAAABFC1C1B3B3B3CFCFCFB8B8
B8454545AAAAAAC2C2C2AD9F9F43838351B1B154AEAE51B1B14281819586869F
A0A06C6C6CD0D0D08080807A7A7A666666929292B0B0B0C1C1C1CCCCCCB6AFAF
878080898282878080B7B0B0CCCDCDC6C6C64C4C4C7979797F7F7F9898982626
26B7B7B7C6C6C6BCBCBCBBBBBBC0C1C1CACCCCCACBCBCACCCCC0C1C1BCBCBCB8
B8B8818181B1B1B1474747D4D4D4757575B4B3B3BDBDBDBEBEBEBEBEBEBDBDBD
BCBCBCBCBCBCBCBCBCBDBDBDBDBDBDC7C7C7909090AFAFAFD2D2D2EAEAEAC2C0
C08C8F8FD1D4D4BCBCBCBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBD
BDBDC7C7C7838383B3B3B3FFFFFFD1D7D7403030877D7DC4C6C6BEBEBEBEBEBE
BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBDBDBDC8C8C8858484979B9B6346
46670000823D3DC0C8C8BEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBE
BEBEBEBEBEBDBBBBC9CFCF5A4444AA0000A44343BFBFBFBFBFBF}
Layout = blGlyphTop
OnClick = SpeedButton3Click
end
end
object templine: TDBChart
Left = 1
Top = 192
Width = 752
Height = 321
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Gradient.EndColor = clWhite
Gradient.StartColor = 8454143
Gradient.Visible = True
LeftWall.Brush.Color = clWhite
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -21
Title.Font.Name = 'Arial'
Title.Font.Style = [fsBold]
Title.Text.Strings = (
#22522#30784#20307#28201#26354#32447#22270)
BottomAxis.Automatic = False
BottomAxis.AutomaticMaximum = False
BottomAxis.AutomaticMinimum = False
BottomAxis.ExactDateTime = False
BottomAxis.Increment = 1.000000000000000000
BottomAxis.LabelsMultiLine = True
BottomAxis.Maximum = 30.000000000000000000
BottomAxis.Minimum = 1.000000000000000000
DepthAxis.ExactDateTime = False
DepthAxis.Increment = 0.200000000000000000
LeftAxis.Automatic = False
LeftAxis.AutomaticMaximum = False
LeftAxis.AutomaticMinimum = False
LeftAxis.AxisValuesFormat = '##0.##'
LeftAxis.ExactDateTime = False
LeftAxis.Increment = 0.200000000000000000
LeftAxis.Maximum = 37.200000000000000000
LeftAxis.Minimum = 35.800000000000000000
LeftAxis.MinorGrid.Width = 5
LeftAxis.MinorTickLength = 3
LeftAxis.Title.Caption = #22522#30784#20307#28201
Legend.Alignment = laBottom
Legend.ColorWidth = 50
Legend.ResizeChart = False
Legend.ShadowSize = 0
Legend.TextStyle = ltsPlain
Legend.VertMargin = 22
RightAxis.Visible = False
ScaleLastPage = False
View3D = False
Align = alCustom
BevelInner = bvRaised
BevelOuter = bvLowered
BevelWidth = 0
BorderStyle = bsSingle
TabOrder = 1
OnMouseMove = templineMouseMove
object tishi: TLabel
Left = 7
Top = 15
Width = 100
Height = 19
Caption = #25552#31034#20449#24687#65306
Color = clCream
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Series4: TLineSeries
Marks.ArrowLength = 10
Marks.Style = smsValue
Marks.Visible = False
DataSource = subtable
SeriesColor = 16744703
Title = ' '#22522#30784#20307#28201
XLabelsSource = 'seq'
LinePen.Width = 2
Pointer.Brush.Color = 16711808
Pointer.HorizSize = 2
Pointer.InflateMargins = False
Pointer.Pen.Color = clBlue
Pointer.Style = psRectangle
Pointer.VertSize = 2
Pointer.Visible = True
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
XValues.ValueSource = 'seq'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
YValues.ValueSource = 'temp'
end
object Series1: TPointSeries
Marks.Arrow.Visible = False
Marks.ArrowLength = 20
Marks.Visible = False
SeriesColor = clRed
Title = ' '#26376#32463
XLabelsSource = 'yj'
Pointer.Brush.Color = clRed
Pointer.InflateMargins = True
Pointer.Style = psDiamond
Pointer.Visible = True
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
XValues.ValueSource = 'seq'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
YValues.ValueSource = 'yj'
end
object Series2: TPointSeries
Marks.ArrowLength = 0
Marks.Visible = False
SeriesColor = clGreen
Title = ' '#21516#25151
Pointer.Brush.Color = clBlue
Pointer.InflateMargins = True
Pointer.Style = psTriangle
Pointer.Visible = True
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1.000000000000000000
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1.000000000000000000
YValues.Order = loNone
end
end
object Panel1: TPanel
Left = 0
Top = 42
Width = 705
Height = 145
Caption = 'Panel1'
TabOrder = 2
object DBGrid1: TDBGrid
Left = 5
Top = 5
Width = 257
Height = 133
Color = clGradientActiveCaption
DataSource = DataSource1
FixedColor = cl3DLight
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'startdate'
Title.Alignment = taCenter
Title.Caption = #24320#22987#26102#38388
Width = 89
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'days'
Title.Alignment = taCenter
Title.Caption = #21608#26399
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'remark'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 82
Visible = True
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -