📄 pfm_ckxx.dfm
字号:
inherited fm_ckxx: Tfm_ckxx
Left = 201
Top = 217
Width = 743
Caption = '仓库信息管理'
Font.Charset = ANSI_CHARSET
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited PageControl1: TPageControl
Width = 735
Font.Charset = ANSI_CHARSET
ParentFont = False
inherited TabSheet1: TTabSheet
object Label2: TLabel [0]
Left = 16
Top = 16
Width = 52
Height = 13
Caption = '仓库代码'
FocusControl = DBEdit2
end
object Label3: TLabel [1]
Left = 16
Top = 56
Width = 52
Height = 13
Caption = '仓库面积'
FocusControl = DBEdit3
end
object Label4: TLabel [2]
Left = 16
Top = 96
Width = 52
Height = 13
Caption = '仓库地址'
FocusControl = DBEdit4
end
object Label5: TLabel [3]
Left = 16
Top = 136
Width = 52
Height = 13
Caption = '联系电话'
FocusControl = DBEdit5
end
object Label6: TLabel [4]
Left = 16
Top = 176
Width = 39
Height = 13
Caption = '管理者'
end
object Label7: TLabel [5]
Left = 16
Top = 216
Width = 26
Height = 13
Caption = '备注'
end
object Label1: TLabel [6]
Left = 148
Top = 16
Width = 52
Height = 13
Caption = '仓库名称'
FocusControl = DBEdit6
end
object DBEdit2: TDBEdit
Left = 16
Top = 32
Width = 113
Height = 21
DataField = 'ckmc'
DataSource = DataSource1
TabOrder = 9
end
object DBEdit3: TDBEdit
Left = 16
Top = 72
Width = 109
Height = 21
DataField = 'ckmj'
DataSource = DataSource1
TabOrder = 10
end
object DBEdit4: TDBEdit
Left = 16
Top = 112
Width = 213
Height = 21
DataField = 'ckdz'
DataSource = DataSource1
TabOrder = 11
end
object DBEdit5: TDBEdit
Left = 16
Top = 152
Width = 213
Height = 21
DataField = 'lxdh'
DataSource = DataSource1
TabOrder = 12
end
object DBMemo1: TDBMemo
Left = 16
Top = 232
Width = 353
Height = 89
DataField = 'remark'
DataSource = DataSource1
TabOrder = 13
end
object Memo1: TMemo
Left = 408
Top = 28
Width = 241
Height = 237
TabStop = False
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Lines.Strings = (
' 注意:'
''
' 1.仓库代码少于10个字,加入后不要'
' 要随意改动。'
''
' 2.仓库代码与分店代码不能重复!')
ParentFont = False
ReadOnly = True
TabOrder = 14
end
object DBEdit1: TDBEdit
Left = 16
Top = 192
Width = 213
Height = 21
DataField = 'glydm'
DataSource = DataSource1
TabOrder = 15
end
object DBEdit6: TDBEdit
Left = 148
Top = 32
Width = 144
Height = 21
DataField = 'ckname'
DataSource = DataSource1
TabOrder = 16
end
end
inherited TabSheet2: TTabSheet
inherited DBGrid1: TDBGrid
Width = 727
end
end
end
inherited DataSource1: TDataSource
Left = 116
Top = 72
end
inherited Query1: TQuery
Active = True
BeforePost = Query1BeforePost
SQL.Strings = (
'select * from t_ckxx')
Left = 116
Top = 40
object Query1ckdm: TIntegerField
FieldName = 'ckdm'
Origin = 'POSDB."dbo.t_ckxx".ckdm'
end
object Query1ckmc: TStringField
FieldName = 'ckmc'
Origin = 'POSDB."dbo.t_ckxx".ckmc'
FixedChar = True
Size = 10
end
object Query1ckname: TStringField
FieldName = 'ckname'
Origin = 'POSDB."dbo.t_ckxx".ckname'
FixedChar = True
end
object Query1ckmj: TIntegerField
FieldName = 'ckmj'
Origin = 'POSDB."dbo.t_ckxx".ckmj'
end
object Query1ckdz: TStringField
FieldName = 'ckdz'
Origin = 'POSDB."dbo.t_ckxx".ckdz'
FixedChar = True
Size = 50
end
object Query1lxdh: TStringField
FieldName = 'lxdh'
Origin = 'POSDB."dbo.t_ckxx".lxdh'
Size = 16
end
object Query1glydm: TStringField
FieldName = 'glydm'
Origin = 'POSDB."dbo.t_ckxx".glydm'
FixedChar = True
end
object Query1remark: TStringField
FieldName = 'remark'
Origin = 'POSDB."dbo.t_ckxx".remark'
FixedChar = True
Size = 200
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -