📄 pfm_inputspxx.dfm
字号:
object fm_inputspxx: Tfm_inputspxx
Left = 198
Top = 107
Width = 680
Height = 559
Caption = '商品基本信息输入'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 672
Height = 532
ActivePage = TabSheet1
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '商品基本信息'
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 664
Height = 105
Align = alTop
Caption = '商品类别'
TabOrder = 0
object Label1: TLabel
Left = 32
Top = 20
Width = 26
Height = 13
Caption = '大类'
end
object Label2: TLabel
Left = 200
Top = 20
Width = 26
Height = 13
Caption = '小类'
end
object BBtnAddsblb: TBitBtn
Left = 400
Top = 40
Width = 89
Height = 25
Caption = '商品类别管理'
TabOrder = 0
OnClick = BBtnAddsblbClick
end
object CbBox1: TComboBox
Left = 32
Top = 40
Width = 121
Height = 21
Style = csDropDownList
Color = clInfoBk
ItemHeight = 13
TabOrder = 1
OnChange = CbBox1Change
end
object CbBox2: TComboBox
Left = 196
Top = 40
Width = 145
Height = 21
Style = csDropDownList
Color = clInfoBk
ItemHeight = 13
TabOrder = 2
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 105
Width = 664
Height = 399
Align = alClient
Caption = '商品信息输入'
TabOrder = 1
object Label20: TLabel
Left = 32
Top = 20
Width = 52
Height = 13
Caption = '商品编码'
FocusControl = DBEdit8
end
object Label21: TLabel
Left = 32
Top = 60
Width = 65
Height = 13
Caption = '商品条形码'
FocusControl = DBEdit16
end
object Label22: TLabel
Left = 32
Top = 100
Width = 52
Height = 13
Caption = '商品名称'
FocusControl = DBEdit20
end
object Label23: TLabel
Left = 32
Top = 140
Width = 52
Height = 13
Caption = '规格型号'
FocusControl = DBEdit21
end
object Label24: TLabel
Left = 32
Top = 180
Width = 26
Height = 13
Caption = '等级'
FocusControl = DBEdit22
end
object Label25: TLabel
Left = 32
Top = 220
Width = 26
Height = 13
Caption = '状态'
FocusControl = DBEdit23
end
object Label26: TLabel
Left = 32
Top = 260
Width = 52
Height = 13
Caption = '包装单位'
FocusControl = DBEdit24
end
object Label27: TLabel
Left = 32
Top = 300
Width = 52
Height = 13
Caption = '包装数量'
FocusControl = DBEdit25
end
object Label28: TLabel
Left = 32
Top = 340
Width = 26
Height = 13
Caption = '货号'
FocusControl = DBEdit26
end
object Label29: TLabel
Left = 224
Top = 24
Width = 65
Height = 13
Caption = '供应商代码'
end
object Label30: TLabel
Left = 224
Top = 100
Width = 26
Height = 13
Caption = '产地'
FocusControl = DBEdit28
end
object Label32: TLabel
Left = 224
Top = 140
Width = 52
Height = 13
Caption = '销售方式'
FocusControl = DBEdit30
end
object Label33: TLabel
Left = 224
Top = 180
Width = 52
Height = 13
Caption = '无税进价'
FocusControl = DBEdit31
end
object Label34: TLabel
Left = 224
Top = 220
Width = 52
Height = 13
Caption = '进货税率'
FocusControl = DBEdit32
end
object Label35: TLabel
Left = 224
Top = 260
Width = 52
Height = 13
Caption = '无税单价'
FocusControl = DBEdit33
end
object Label36: TLabel
Left = 224
Top = 300
Width = 52
Height = 13
Caption = '销售税率'
FocusControl = DBEdit34
end
object Label37: TLabel
Left = 224
Top = 340
Width = 39
Height = 13
Caption = '优惠率'
FocusControl = DBEdit35
end
object Label3: TLabel
Left = 224
Top = 64
Width = 65
Height = 13
Caption = '供应商名称'
FocusControl = DBEdit1
end
object Label4: TLabel
Left = 428
Top = 340
Width = 52
Height = 13
Caption = '商品类别'
FocusControl = DBEdit2
end
object DBEdit8: TDBEdit
Left = 32
Top = 36
Width = 125
Height = 21
DataField = 'spbm'
DataSource = DataSource1
TabOrder = 0
OnEnter = DBEdit8Enter
end
object DBEdit16: TDBEdit
Left = 32
Top = 76
Width = 125
Height = 21
DataField = 'sptxm'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit20: TDBEdit
Left = 32
Top = 116
Width = 125
Height = 21
DataField = 'spmc'
DataSource = DataSource1
TabOrder = 2
end
object DBEdit21: TDBEdit
Left = 32
Top = 156
Width = 125
Height = 21
DataField = 'ggxh'
DataSource = DataSource1
TabOrder = 3
end
object DBEdit22: TDBEdit
Left = 32
Top = 196
Width = 125
Height = 21
DataField = 'dengji'
DataSource = DataSource1
TabOrder = 4
end
object DBEdit23: TDBEdit
Left = 32
Top = 236
Width = 125
Height = 21
DataField = 'zhuangtai'
DataSource = DataSource1
TabOrder = 5
end
object DBEdit24: TDBEdit
Left = 32
Top = 276
Width = 125
Height = 21
DataField = 'baozhuangdw'
DataSource = DataSource1
TabOrder = 6
end
object DBEdit25: TDBEdit
Left = 32
Top = 316
Width = 125
Height = 21
DataField = 'baozhuangsl'
DataSource = DataSource1
TabOrder = 7
end
object DBEdit26: TDBEdit
Left = 32
Top = 355
Width = 125
Height = 21
DataField = 'hh'
DataSource = DataSource1
TabOrder = 8
end
object DBEdit28: TDBEdit
Left = 224
Top = 116
Width = 145
Height = 21
DataField = 'cd'
DataSource = DataSource1
TabOrder = 9
end
object DBEdit30: TDBEdit
Left = 224
Top = 156
Width = 145
Height = 21
DataField = 'xsfs'
DataSource = DataSource1
TabOrder = 10
end
object DBEdit31: TDBEdit
Left = 224
Top = 196
Width = 145
Height = 21
DataField = 'wsjj'
DataSource = DataSource1
TabOrder = 11
end
object DBEdit32: TDBEdit
Left = 224
Top = 236
Width = 145
Height = 21
DataField = 'jhsl'
DataSource = DataSource1
TabOrder = 12
end
object DBEdit33: TDBEdit
Left = 224
Top = 276
Width = 145
Height = 21
DataField = 'wsdj'
DataSource = DataSource1
TabOrder = 13
end
object DBEdit34: TDBEdit
Left = 224
Top = 316
Width = 145
Height = 21
DataField = 'xssl'
DataSource = DataSource1
TabOrder = 14
end
object DBEdit35: TDBEdit
Left = 224
Top = 356
Width = 145
Height = 21
DataField = 'yhl'
DataSource = DataSource1
TabOrder = 15
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 224
Top = 40
Width = 145
Height = 21
DataField = 'gysmc'
DataSource = DataSource1
KeyField = 'gysmc'
ListField = 'gysmc'
ListSource = DataSource2
TabOrder = 16
end
object BBtnAdd: TBitBtn
Left = 412
Top = 40
Width = 81
Height = 25
Caption = '加入新商品'
TabOrder = 17
OnClick = BBtnAddClick
end
object DBEdit1: TDBEdit
Left = 224
Top = 80
Width = 145
Height = 21
Color = clSilver
DataField = 'gysname'
DataSource = DataSource2
ReadOnly = True
TabOrder = 18
end
object DBEdit2: TDBEdit
Left = 428
Top = 356
Width = 144
Height = 21
DataField = 'splb'
DataSource = DataSource1
TabOrder = 19
end
end
end
object TabSheet2: TTabSheet
Caption = '商品列表信息'
ImageIndex = 1
object GroupBox3: TGroupBox
Left = 0
Top = 448
Width = 664
Height = 56
Align = alBottom
TabOrder = 0
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 664
Height = 448
Align = alClient
Color = clInfoBk
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
end
end
end
object DataSource1: TDataSource
DataSet = Query3
Left = 204
Top = 120
end
object Query2: TQuery
Active = True
DatabaseName = 'posdb'
SQL.Strings = (
'select gysmc,gysname from t_gysxx ')
Left = 488
Top = 168
object Query2gysmc: TStringField
FieldName = 'gysmc'
Origin = 'POSDB."dbo.t_gysxx".gysmc'
Size = 30
end
object Query2gysname: TStringField
FieldName = 'gysname'
Origin = 'POSDB."dbo.t_gysxx".gysname'
FixedChar = True
Size = 30
end
end
object DataSource2: TDataSource
DataSet = Query2
Left = 488
Top = 204
end
object Query1: TQuery
DatabaseName = 'posdb'
Left = 356
Top = 52
end
object Query3: TQuery
Active = True
BeforePost = Query3BeforePost
DatabaseName = 'posdb'
RequestLive = True
SQL.Strings = (
'select * from t_spxx')
Left = 136
Top = 124
end
object StProc1: TStoredProc
DatabaseName = 'posdb'
StoredProcName = 'myproc_ExistsSpbm;1'
Left = 412
Top = 205
ParamData = <
item
DataType = ftInteger
Name = 'RETURN_VALUE'
ParamType = ptResult
end
item
DataType = ftString
Name = '@chSpbm'
ParamType = ptInput
end
item
DataType = ftInteger
Name = '@intExists'
ParamType = ptInputOutput
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -