📄 ddsdcb.dfm
字号:
object Frmddsdcb: TFrmddsdcb
Left = 121
Top = -3
Width = 1024
Height = 741
Align = alClient
Caption = #12304#35746#21333#26102#27573#25104#26412#26597#35810#12305
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
WindowState = wsMaximized
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Pz: TPanel
Left = 0
Top = 0
Width = 1016
Height = 707
Align = alClient
Alignment = taRightJustify
BevelInner = bvLowered
BevelOuter = bvLowered
BorderStyle = bsSingle
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
object help: TLabel
Left = 2
Top = 622
Width = 1008
Height = 25
Align = alBottom
AutoSize = False
Color = clGradientActiveCaption
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Layout = tlCenter
end
object GroupBox4: TGroupBox
Left = 1
Top = 80
Width = 1013
Height = 542
Caption = #35746#21333#25104#26412#35760#24405
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 1009
Height = 525
Align = alClient
Color = clWhite
DataSource = DataModule1.DataSource28
FixedColor = clWhite
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlue
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnKeyPress = DBGrid1KeyPress
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'ddh'
Title.Alignment = taCenter
Title.Caption = #35746#21333#21495
Title.Color = clMoneyGreen
Width = 118
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'je'
Title.Alignment = taCenter
Title.Caption = #35746#21333#37329#39069
Title.Color = clMoneyGreen
Width = 118
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'llje'
Title.Alignment = taCenter
Title.Caption = #39046#26009#37329#39069
Title.Color = clMoneyGreen
Width = 118
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'ylje'
Title.Alignment = taCenter
Title.Caption = #20313#26009#36861#21152#37329#39069
Title.Color = clMoneyGreen
Width = 118
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'clje'
Title.Alignment = taCenter
Title.Caption = #20135#37327#37329#39069
Title.Color = clMoneyGreen
Width = 118
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'fyje'
Title.Alignment = taCenter
Title.Caption = #36153#29992#37329#39069
Title.Color = clMoneyGreen
Width = 118
Visible = True
end
item
Alignment = taRightJustify
Expanded = False
FieldName = 'cbje'
Title.Alignment = taCenter
Title.Caption = #25104#26412#37329#39069
Title.Color = clMoneyGreen
Width = 118
Visible = True
end>
end
end
object Pd: TPanel
Left = 2
Top = 647
Width = 1008
Height = 54
Align = alBottom
BevelInner = bvLowered
BorderStyle = bsSingle
Color = clWhite
TabOrder = 1
object bdelete: TBitBtn
Left = 521
Top = 9
Width = 89
Height = 33
Caption = #21024' '#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = bdeleteClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
DADAADADADADA1ADADADDADADADA11DADAD1ADADADAD111DAD1DDADADADAD11A
D11A00000000000115AD0888888888511ADA08008008081511AD08888888811A
D1150444444514444D51D4FFFFF15FFF4ADAA4F00F00F00F4DADD4FFFFFFFFFF
4ADAA444444444444DADD484484484484ADAA444444444444DAD}
end
object breturn: TBitBtn
Left = 615
Top = 9
Width = 89
Height = 33
Caption = #36820' '#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = breturnClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADA0ADADA
DADAADADA00DADADADADDADA0A007ADADADAADA0ADAD707DADADDAD0DADADA07
DADAADAD0D007DA0ADADDADAD00A70DA0ADAADADAD0DAD0D0DADDADADADADAD0
0ADAADADADADADA00DADDADADADAD70A0ADAADADADA707AD0DADDADA0007DAD0
DADAADAD0DADA707ADADDADA0AD7077ADADAADAD00077DADADAD}
end
object bprintc: TBitBtn
Left = 427
Top = 9
Width = 89
Height = 33
Caption = 'EXCEL'#34920
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = bprintcClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000120B0000120B00001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
DADAADADADAD00000000DADA4ADA0FFFFFF0ADAD44AD0F7777F04444444A0FFF
FFF0ADAD44AD0F7777F0DADA4ADA0FFFFFF0ADADADAD0F7777F0DA00000A0FFF
FFF0AD0FFF0D0000000000000F0ADADADADA0FFF0F0DADADADAD0F7F000ADADA
DADA0F7F00ADADADADAD0FF00ADADADADADA0000ADADADADADAD}
end
object Bddcbhz: TBitBtn
Left = 320
Top = 9
Width = 103
Height = 33
Caption = #35746#21333#25104#26412#27719#24635
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BddcbhzClick
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F0000000CE0E0000C40E00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFF000FFFFF000FF0000FFFF
FFF080FFFFF080FF0000FFFFFFF0007FFF7000FF0000FFFFFFF00000000000FF
0000FF0000008000080000FF0000FF0FFFF08000080000FF0000FF0F00F00000
000000FF0000FF0FFFFF0000F0000FFF0000FF0CCCCCC00CCC00FFFF0000FFFC
FFFFF00FFF00FFFF0000FFFCF00F00080F00FFFF0000FFFCFFFFFFFFFFCFFFFF
0000FFFCCCCCCCCCCCCFFFFF0000FFFC8CC8CC8CC8CFFFFF0000FFFCCCCCCCCC
CCCFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
FFFFFFFFFFFFFFFF0000}
end
end
object pq: TPanel
Left = 2
Top = 2
Width = 1008
Height = 71
Align = alTop
BevelInner = bvLowered
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object cllqq: TCheckBox
Left = 88
Top = 16
Width = 77
Height = 17
Caption = #39046#26009#36215#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object cylqq: TCheckBox
Left = 310
Top = 16
Width = 80
Height = 17
Caption = #20313#26009#36215#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object ylqq: TDateTimePicker
Left = 388
Top = 16
Width = 81
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 2
end
object llqq: TDateTimePicker
Left = 164
Top = 16
Width = 80
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 3
end
object Cclqq: TCheckBox
Left = 545
Top = 16
Width = 77
Height = 17
Caption = #20135#37327#36215#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Cfyqq: TCheckBox
Left = 765
Top = 16
Width = 80
Height = 17
Caption = #36153#29992#36215#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object fyqq: TDateTimePicker
Left = 843
Top = 16
Width = 81
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 6
end
object clqq: TDateTimePicker
Left = 621
Top = 16
Width = 80
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 7
end
object Cllzq: TCheckBox
Left = 88
Top = 40
Width = 77
Height = 17
Caption = #39046#26009#27490#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object Cylzq: TCheckBox
Left = 310
Top = 40
Width = 80
Height = 17
Caption = #20313#26009#27490#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object ylzq: TDateTimePicker
Left = 388
Top = 40
Width = 81
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 10
end
object llzq: TDateTimePicker
Left = 164
Top = 40
Width = 80
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 11
end
object Cclzq: TCheckBox
Left = 545
Top = 40
Width = 77
Height = 17
Caption = #20135#37327#27490#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 12
end
object Cfyzq: TCheckBox
Left = 765
Top = 40
Width = 80
Height = 17
Caption = #36153#29992#27490#26399
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object fyzq: TDateTimePicker
Left = 843
Top = 40
Width = 81
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 14
end
object clzq: TDateTimePicker
Left = 621
Top = 40
Width = 80
Height = 21
BevelInner = bvNone
BevelOuter = bvNone
Date = 38907.000000000000000000
Time = 38907.000000000000000000
TabOrder = 15
end
end
end
object OpenDialog1: TOpenDialog
Left = 280
Top = 256
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -