📄 untpurchase.~dfm
字号:
object frmPurChase: TfrmPurChase
Left = 197
Top = 236
Width = 696
Height = 480
Caption = #37319#36141#21333
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object grdPurChase: TDBGrid
Left = 40
Top = 120
Width = 625
Height = 217
DataSource = souPurChaseGrd
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object btnOK: TBitBtn
Left = 504
Top = 392
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 1
Kind = bkOK
end
object qryPurChaseGrd: TADOQuery
Active = True
Connection = datGoodsOrder.conGoodsOrder
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select GoodsCode,Quantity'
'from PurChase')
Left = 240
Top = 72
object qryPurChaseGrdGoodsCode: TStringField
DisplayLabel = #21830#21697#32534#21495
FieldName = 'GoodsCode'
FixedChar = True
Size = 10
end
object qryPurChaseGrdQuantity: TBCDField
DisplayLabel = #27714#36141#25968#37327
FieldName = 'Quantity'
Precision = 19
end
end
object souPurChaseGrd: TDataSource
DataSet = qryPurChaseGrd
Left = 312
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -