📄 sampledelete.dfm
字号:
object SampleDeleteForm: TSampleDeleteForm
Left = 62
Top = 98
BorderStyle = bsSingle
Caption = #21024#38500#26679#26495#29983#20135#25968#25454
ClientHeight = 456
ClientWidth = 639
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 Label5: TLabel
Left = 260
Top = 70
Width = 48
Height = 13
Caption = #21152#24037#31867#22411
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 639
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 = 215
Top = 5
Width = 200
Height = 24
Caption = #21024#38500#26679#26495#29983#20135#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 20
Top = 35
Width = 456
Height = 86
Shape = bsFrame
end
object Label3: TLabel
Left = 35
Top = 50
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 Label6: TLabel
Left = 35
Top = 98
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 Label2: TLabel
Left = 265
Top = 50
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object Label8: TLabel
Left = 325
Top = 100
Width = 48
Height = 12
Caption = #25490#24207#26041#24335
end
object Label9: TLabel
Left = 265
Top = 70
Width = 48
Height = 12
Caption = #21152#24037#31867#22411
end
object BitBtn1: TBitBtn
Left = 505
Top = 35
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 505
Top = 65
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 505
Top = 95
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 2
Kind = bkClose
end
object CheckBox5: TCheckBox
Left = 90
Top = 95
Width = 11
Height = 17
Caption = 'CheckBox5'
TabOrder = 3
OnClick = CheckBox5Click
end
object CheckBox3: TCheckBox
Left = 90
Top = 70
Width = 16
Height = 17
Caption = 'CheckBox3'
TabOrder = 4
OnClick = CheckBox3Click
end
object CheckBox1: TCheckBox
Left = 90
Top = 45
Width = 16
Height = 17
Caption = 'CheckBox1'
TabOrder = 5
OnClick = CheckBox1Click
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
Kind = dtkDate
ParseInput = False
TabOrder = 6
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
Kind = dtkDate
ParseInput = False
TabOrder = 7
end
object CheckBox2: TCheckBox
Left = 325
Top = 45
Width = 16
Height = 17
Caption = 'CheckBox2'
TabOrder = 8
OnClick = CheckBox2Click
end
object CheckBox4: TCheckBox
Left = 325
Top = 70
Width = 16
Height = 17
Caption = 'CheckBox4'
TabOrder = 9
OnClick = CheckBox4Click
end
object OrderComboBox: TComboBox
Left = 380
Top = 95
Width = 86
Height = 20
ItemHeight = 12
TabOrder = 10
Text = #26679#26495#24207#21495
Items.Strings = (
#26679#26495#24207#21495
#20135#21697#32534#21495
#23458#25143#32534#21495
#20132#36135#26085#26399)
end
object SampleNoEdit: TEdit
Left = 110
Top = 45
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
TabOrder = 11
end
object CustNoEdit: TEdit
Left = 110
Top = 70
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
TabOrder = 12
end
object PartNoEdit: TEdit
Left = 345
Top = 45
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
TabOrder = 13
end
object BoardTypeEdit: TEdit
Left = 345
Top = 70
Width = 121
Height = 20
Color = clInfoBk
Enabled = False
TabOrder = 14
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 131
Width = 639
Height = 150
Align = alTop
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBGrid2: TDBGrid
Left = 0
Top = 281
Width = 639
Height = 148
Align = alClient
DataSource = DataSource2
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object StatusBar1: TStatusBar
Left = 0
Top = 429
Width = 639
Height = 27
Panels = <
item
Text = #35831#19981#35201#38543#20415#21024#38500#26679#26495#29983#20135#25968#25454','#21024#38500#21518#19981#21487#24674#22797#65281#65281#65281
Width = 50
end>
SimplePanel = False
SimpleText = #35831#19981#35201#38543#20415#21024#38500#26679#26495#29983#20135#25968#25454','#21024#38500#21518#19981#21487#24674#22797#65281#65281#65281
end
object DataSource1: TDataSource
DataSet = Query1
OnDataChange = DataSource1DataChange
Left = 180
Top = 160
end
object Query1: TQuery
DatabaseName = 'RedDatabase'
Left = 255
Top = 165
end
object DataSource2: TDataSource
DataSet = Query2
Left = 185
Top = 350
end
object Query2: TQuery
DatabaseName = 'RedDatabase'
SQL.Strings = (
'select C.SampleNo,C.ItemNo,C.RouteCode,C.FinishQty,C.IsFinish,C.' +
'Memo from ProductSampleDetail C where C.SampleNo=:SampleNo')
Left = 245
Top = 350
ParamData = <
item
DataType = ftUnknown
Name = 'SampleNo'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -