📄 samplesearch.dfm
字号:
object SampleSearchForm: TSampleSearchForm
Left = 130
Top = 56
BorderStyle = bsSingle
Caption = #26679#26495#36164#26009#26597#35810#32479#35745
ClientHeight = 445
ClientWidth = 624
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Scaled = False
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 624
Height = 131
Align = alTop
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 170
Top = 5
Width = 250
Height = 24
Caption = #26679#26495#29983#20135#25968#25454#26597#35810#32479#35745
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 265
Top = 45
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object Label3: TLabel
Left = 35
Top = 45
Width = 48
Height = 12
Caption = #26679#26495#24207#21495
end
object Label4: TLabel
Left = 35
Top = 73
Width = 48
Height = 12
Caption = #23458#25143#21517#31216
end
object Label5: TLabel
Left = 265
Top = 75
Width = 48
Height = 12
Caption = #21152#24037#31867#22411
end
object Label6: TLabel
Left = 35
Top = 103
Width = 60
Height = 12
Caption = #20132#36135#26085#26399': '
end
object Label7: TLabel
Left = 205
Top = 100
Width = 18
Height = 12
Caption = 'TO:'
end
object Bevel1: TBevel
Left = 20
Top = 35
Width = 456
Height = 86
Shape = bsFrame
end
object Label8: TLabel
Left = 325
Top = 100
Width = 48
Height = 12
Caption = #25490#24207#26041#24335
end
object DateTimePicker1: TDateTimePicker
Left = 110
Top = 95
Width = 91
Height = 20
CalAlignment = dtaLeft
Date = 37411.691671331
Time = 37411.691671331
Color = clInfoBk
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object DateTimePicker2: TDateTimePicker
Left = 225
Top = 95
Width = 86
Height = 20
CalAlignment = dtaLeft
Date = 37411.6918108796
Time = 37411.6918108796
Color = clInfoBk
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object SampleNoEdit: TEdit
Left = 110
Top = 45
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
TabOrder = 2
end
object PartNoEdit: TEdit
Left = 345
Top = 45
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
TabOrder = 3
end
object CustNoEdit: TEdit
Left = 110
Top = 70
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
TabOrder = 4
end
object BoardTypeEdit: TEdit
Left = 345
Top = 70
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
TabOrder = 5
end
object CheckBox1: TCheckBox
Left = 90
Top = 45
Width = 16
Height = 17
Caption = 'CheckBox1'
TabOrder = 6
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 325
Top = 45
Width = 16
Height = 17
Caption = 'CheckBox2'
TabOrder = 7
OnClick = CheckBox2Click
end
object CheckBox3: TCheckBox
Left = 90
Top = 70
Width = 16
Height = 17
Caption = 'CheckBox3'
TabOrder = 8
OnClick = CheckBox3Click
end
object CheckBox4: TCheckBox
Left = 325
Top = 70
Width = 16
Height = 17
Caption = 'CheckBox4'
TabOrder = 9
OnClick = CheckBox4Click
end
object CheckBox5: TCheckBox
Left = 90
Top = 100
Width = 16
Height = 17
Caption = 'CheckBox5'
TabOrder = 10
OnClick = CheckBox5Click
end
object BitBtn1: TBitBtn
Left = 510
Top = 40
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 11
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 510
Top = 70
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 12
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 510
Top = 100
Width = 75
Height = 25
Caption = #39044#35272
TabOrder = 13
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
C880733777777777733700000000000000007777777777777777333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object OrderComboBox: TComboBox
Left = 380
Top = 95
Width = 86
Height = 20
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ItemHeight = 12
TabOrder = 14
Text = #26679#26495#24207#21495
Items.Strings = (
#26679#26495#24207#21495
#20135#21697#32534#21495
#23458#25143#32534#21495
#20132#36135#26085#26399)
end
end
object Panel2: TPanel
Left = 0
Top = 131
Width = 624
Height = 283
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 622
Height = 125
Align = alTop
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBGrid2: TDBGrid
Left = 1
Top = 126
Width = 622
Height = 156
Align = alClient
DataSource = DataSource2
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ParentFont = False
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ItemNo'
Visible = True
end
item
Expanded = False
FieldName = 'RouteCode'
Visible = True
end
item
Expanded = False
FieldName = 'RouteName'
Visible = True
end
item
Expanded = False
FieldName = 'FinishQty'
Visible = True
end
item
Expanded = False
FieldName = 'IsFinish'
Visible = True
end
item
Expanded = False
FieldName = 'Memo'
Width = 259
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 414
Width = 624
Height = 31
Align = alBottom
Alignment = taLeftJustify
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
object Label9: TLabel
Left = 80
Top = 10
Width = 108
Height = 12
Caption = #21512#35745#26679#26495#29983#20135#23610#25968#65306
end
object Label10: TLabel
Left = 330
Top = 10
Width = 72
Height = 12
Caption = #21512#35745#20132#36135#23610#25968
end
object DBEdit1: TDBEdit
Left = 190
Top = 5
Width = 121
Height = 20
Color = clInfoBk
DataField = 'ProductArea'
DataSource = DataSource3
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 415
Top = 5
Width = 121
Height = 20
Color = clInfoBk
DataField = 'FinishArea'
DataSource = DataSource3
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ReadOnly = True
TabOrder = 1
end
end
object DataSource1: TDataSource
DataSet = Query1
OnDataChange = DataSource1DataChange
Left = 175
Top = 160
end
object DataSource2: TDataSource
DataSet = Query2
Left = 185
Top = 295
end
object Query1: TQuery
DatabaseName = 'RedDatabase'
UniDirectional = True
Left = 255
Top = 165
end
object DataSource3: TDataSource
DataSet = Query3
Left = 50
Top = 335
end
object Query3: TQuery
DatabaseName = 'RedDatabase'
Left = 90
Top = 335
end
object Query2: TQuery
DatabaseName = 'RedDatabase'
SQL.Strings = (
'select C.SampleNo,C.ItemNo,C.RouteCode,D.RouteName,C.FinishQty,C' +
'.IsFinish,C.Memo from ProductSampleDetail C,StandardRoute D whe' +
're C.RouteCode=D.RouteCode and C.SampleNo=:SampleNo')
Left = 240
Top = 290
ParamData = <
item
DataType = ftUnknown
Name = 'SampleNo'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -