📄 select_goods.~dfm
字号:
object selectgoodsfrm: Tselectgoodsfrm
Left = 254
Top = 274
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #36873#25321#29289#21697
ClientHeight = 356
ClientWidth = 577
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 577
Height = 89
Align = alTop
TabOrder = 0
object GroupBox2: TGroupBox
Left = 8
Top = 9
Width = 145
Height = 73
TabOrder = 0
object RadioButton1: TRadioButton
Left = 20
Top = 14
Width = 103
Height = 17
Caption = #25353#32534#30721#26597#35810
Checked = True
TabOrder = 0
TabStop = True
end
object RadioButton2: TRadioButton
Left = 20
Top = 31
Width = 103
Height = 17
Caption = #25353#21517#31216#26597#35810
TabOrder = 1
end
object RadioButton3: TRadioButton
Left = 20
Top = 49
Width = 95
Height = 17
Caption = #25353#25340#38899#26597#35810
TabOrder = 2
end
end
object GroupBox3: TGroupBox
Left = 160
Top = 9
Width = 307
Height = 73
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 32
Width = 48
Height = 13
Caption = #26597#35810#20540#65306
end
object Edit1: TEdit
Left = 72
Top = 29
Width = 219
Height = 21
TabOrder = 0
OnChange = Edit1Change
end
end
object GroupBox4: TGroupBox
Left = 473
Top = 9
Width = 96
Height = 73
TabOrder = 2
object BitBtn1: TBitBtn
Left = 11
Top = 13
Width = 75
Height = 25
Caption = #36873#21462'(&S)'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 11
Top = 40
Width = 75
Height = 27
Caption = #36820#22238'(&C)'
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
NumGlyphs = 2
end
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 89
Width = 577
Height = 267
Align = alClient
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
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 = 'goodscode'
Title.Caption = #29289#21697#32534#21495
Width = 84
Visible = True
end
item
Expanded = False
FieldName = 'goodsname'
Title.Caption = #29289#21697#21517#31216
Width = 168
Visible = True
end
item
Expanded = False
FieldName = 'goodstype'
Title.Caption = #35268#26684'|'#22411#21495
Width = 112
Visible = True
end
item
Expanded = False
FieldName = 'goodsunit'
Title.Caption = #21333#20301
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #36827#36135#20215
Visible = True
end
item
Expanded = False
FieldName = 'PYCode'
Title.Caption = #25340#38899#30721
Width = 137
Visible = True
end>
end
object Edit2: TEdit
Left = 328
Top = 160
Width = 121
Height = 21
ImeName = #26497#21697#20116#31508#36755#20837#27861
TabOrder = 2
Visible = False
OnChange = Edit2Change
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 96
Top = 144
end
object ADOQuery1: TADOQuery
Connection = MyDM.Conn
Parameters = <>
SQL.Strings = (
'select * from goodsInf')
Left = 128
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -