📄 untscrap.dfm
字号:
inherited fm_Scrap_Query: Tfm_Scrap_Query
Left = 27
Top = 57
Caption = 'fm_Scrap_Query'
ClientHeight = 440
ClientWidth = 712
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 1
Top = 2
Width = 707
Height = 33
end
object Label1: TLabel
Left = 7
Top = 6
Width = 164
Height = 25
Alignment = taCenter
AutoSize = False
Caption = #25253#25439#21333#27983#35272
Font.Charset = DEFAULT_CHARSET
Font.Color = clHighlight
Font.Height = -19
Font.Name = #24188#22278
Font.Style = [fsBold, fsUnderline]
ParentFont = False
Layout = tlCenter
end
object Label2: TLabel
Left = 15
Top = 40
Width = 691
Height = 73
AutoSize = False
Caption = 'Label2'
Color = clBtnShadow
ParentColor = False
end
object Panel2: TPanel
Left = 0
Top = 399
Width = 712
Height = 41
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvLowered
Color = 16573127
TabOrder = 0
object BtnClose: TBitBtn
Left = 629
Top = 8
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 0
OnClick = BtnCloseClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
end
object Panel3: TPanel
Left = 7
Top = 37
Width = 695
Height = 73
BevelInner = bvRaised
BevelOuter = bvNone
Color = clSkyBlue
TabOrder = 1
object js: TLabel
Left = 9
Top = 45
Width = 70
Height = 14
Alignment = taCenter
AutoSize = False
Caption = #32463' '#25163' '#20154#65306
Layout = tlCenter
end
object Label12: TLabel
Left = 197
Top = 45
Width = 68
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #21046' '#21333' '#20154#65306
Layout = tlCenter
end
object Label7: TLabel
Left = 7
Top = 15
Width = 77
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #21333#25454#32534#21495#65306
Layout = tlCenter
end
object SpeedButton10: TSpeedButton
Left = 505
Top = 43
Width = 76
Height = 23
Caption = #26597' '#35810
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = SpeedButton10Click
end
object Label3: TLabel
Left = 190
Top = 15
Width = 75
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #24405#21333#26085#26399#65306
Layout = tlCenter
end
object Label4: TLabel
Left = 336
Top = 15
Width = 27
Height = 13
Alignment = taCenter
AutoSize = False
Caption = #33267
Layout = tlCenter
end
object BtnSelPayComponey: TSpeedButton
Left = 643
Top = 12
Width = 21
Height = 20
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = BtnSelPayComponeyClick
end
object SPBDetail: TSpeedButton
Left = 590
Top = 43
Width = 76
Height = 23
Caption = #21830#21697#32479#35745
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000333FFF3777777777F3000330FFFFFFF033777FF7F3FF3FF7F07B7030F00F0
0F0377777F7F7737737F0BBB030FFFFFFF0377777F7F3FFFF37F07B7030F0000
FF037777737F7777337F3000330FFFFFFF033777337F3FF3FF7F3333330F00F0
00033333337F7737777F3333330FFFF0FF033FFFFF7F3FF7F3730000030F08F0
F03377777F7F7737F7330999030FFFF0033377777F7FFFF77333099903000000
333377777F7777773333099903333333333377777F33FFFFFFF3000003300000
00337777733777777733333333330CCC033333333333777773333333333330C0
3333333333333777333333333333330333333333333333733333}
NumGlyphs = 2
OnClick = SPBDetailClick
end
object jsr: TComboBox
Left = 74
Top = 41
Width = 111
Height = 21
ItemHeight = 13
TabOrder = 0
end
object zdr: TComboBox
Left = 262
Top = 41
Width = 110
Height = 21
ItemHeight = 13
TabOrder = 1
end
object djbh: TComboBox
Left = 74
Top = 11
Width = 111
Height = 21
ItemHeight = 13
TabOrder = 2
end
object rq1: TMaskEdit
Left = 256
Top = 11
Width = 80
Height = 21
EditMask = '!9999/99/00;1;_'
MaxLength = 10
TabOrder = 3
Text = ' - - '
end
object rq2: TMaskEdit
Left = 364
Top = 11
Width = 80
Height = 21
EditMask = '!9999/99/00;1;_'
MaxLength = 10
TabOrder = 4
Text = ' - - '
end
object edtpart: TLabeledEdit
Left = 517
Top = 11
Width = 121
Height = 21
EditLabel.Width = 65
EditLabel.Height = 13
EditLabel.Caption = #21046#21333#37096#38376#65306
LabelPosition = lpLeft
LabelSpacing = 3
ReadOnly = True
TabOrder = 5
end
end
object DB: TDBGrid
Left = 7
Top = 112
Width = 697
Height = 288
Color = clCream
DataSource = dscheck
FixedColor = clSkyBlue
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnDblClick = DBDblClick
OnTitleClick = DBTitleClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'S_Code'
Title.Alignment = taCenter
Title.Caption = #21333#25454#32534#21495
Width = 248
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'S_NewDate'
Title.Alignment = taCenter
Title.Caption = #24405#21333#26085#26399
Width = 131
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'S_NewMan'
Title.Alignment = taCenter
Title.Caption = #21046#21333#20154
Width = 99
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'S_Operater'
Title.Alignment = taCenter
Title.Caption = #32463#25163#20154
Width = 101
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'S_Auditer'
Title.Alignment = taCenter
Title.Caption = #23457#26680#20154
Width = 95
Visible = True
end>
end
object DBGrid1: TDBGrid
Left = 7
Top = 112
Width = 697
Height = 288
DataSource = dsdetail
FixedColor = clSkyBlue
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'SD_sCode'
Title.Alignment = taCenter
Title.Caption = #21333#25454#32534#21495
Width = 202
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SD_cCode'
Title.Alignment = taCenter
Title.Caption = #21830#21697#32534#21495
Width = 158
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SD_cName'
Title.Alignment = taCenter
Title.Caption = #21830#21697#21517#31216
Width = 210
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SD_cCount'
Title.Alignment = taCenter
Title.Caption = #21830#21697#25968#37327
Width = 105
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 16
Top = 113
Width = 698
Height = 287
DataSource = DsDview
FixedColor = clSkyBlue
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 4
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
OnTitleClick = DBGrid2TitleClick
Columns = <
item
Expanded = False
FieldName = 'type'
Title.Alignment = taCenter
Title.Caption = #21830#21697#31867#22411
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'breed'
Title.Alignment = taCenter
Title.Caption = #21697#31181
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'CD_cCode'
Title.Alignment = taCenter
Title.Caption = #21830#21697#32534#30721
Width = 132
Visible = True
end
item
Expanded = False
FieldName = 'CD_cName'
Title.Alignment = taCenter
Title.Caption = #21830#21697#21517#31216
Width = 150
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CD_cCount'
Title.Alignment = taCenter
Title.Caption = #25253#25439#25968#37327
Width = 70
Visible = True
end>
end
object dscheck: TDataSource
DataSet = dmmain.CDSquery
Left = 544
Top = 8
end
object dsdetail: TDataSource
DataSet = dmmain.CDSquery2
Left = 592
Top = 8
end
object DsDview: TDataSource
DataSet = dmmain.CDSexecsql
Left = 480
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -