📄 pfm_bmxx.dfm
字号:
inherited fm_bmxx: Tfm_bmxx
Left = 189
Top = 108
Caption = '部门信息管理'
Font.Charset = ANSI_CHARSET
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited PageControl1: TPageControl
inherited TabSheet1: TTabSheet
object Label1: TLabel [0]
Left = 48
Top = 20
Width = 52
Height = 13
Caption = '部门代码'
FocusControl = DBEdit1
end
object Label2: TLabel [1]
Left = 48
Top = 104
Width = 65
Height = 13
Caption = '部门负责人'
FocusControl = DBEdit2
end
object Label3: TLabel [2]
Left = 48
Top = 144
Width = 52
Height = 13
Caption = '联系电话'
FocusControl = DBEdit3
end
object Label4: TLabel [3]
Left = 48
Top = 184
Width = 26
Height = 13
Caption = '备注'
end
object Label5: TLabel [4]
Left = 48
Top = 60
Width = 52
Height = 13
Caption = '部门名称'
FocusControl = DBEdit4
end
object DBEdit1: TDBEdit
Left = 48
Top = 36
Width = 137
Height = 21
DataField = 'bmmc'
DataSource = DataSource1
TabOrder = 9
end
object DBEdit2: TDBEdit
Left = 48
Top = 120
Width = 89
Height = 21
DataField = 'bmfzr'
DataSource = DataSource1
TabOrder = 10
end
object DBEdit3: TDBEdit
Left = 48
Top = 160
Width = 137
Height = 21
DataField = 'lxdh'
DataSource = DataSource1
TabOrder = 11
end
object DBMemo1: TDBMemo
Left = 48
Top = 200
Width = 257
Height = 121
DataField = 'remark'
DataSource = DataSource1
TabOrder = 12
end
object DBEdit4: TDBEdit
Left = 48
Top = 76
Width = 141
Height = 21
DataField = 'bmname'
DataSource = DataSource1
TabOrder = 13
end
end
end
inherited DataSource1: TDataSource
Left = 404
Top = 56
end
inherited Query1: TQuery
SQL.Strings = (
'select * from t_bmxx')
Left = 436
Top = 56
object Query1bmdm: TIntegerField
FieldName = 'bmdm'
Origin = 'POSDB."dbo.t_bmxx".bmdm'
end
object Query1bmmc: TStringField
FieldName = 'bmmc'
Origin = 'POSDB."dbo.t_bmxx".bmmc'
FixedChar = True
end
object Query1bmfzr: TStringField
FieldName = 'bmfzr'
Origin = 'POSDB."dbo.t_bmxx".bmfzr'
FixedChar = True
Size = 10
end
object Query1lxdh: TStringField
FieldName = 'lxdh'
Origin = 'POSDB."dbo.t_bmxx".lxdh'
FixedChar = True
Size = 16
end
object Query1remark: TStringField
FieldName = 'remark'
Origin = 'POSDB."dbo.t_bmxx".remark'
FixedChar = True
Size = 150
end
object Query1bmname: TStringField
FieldName = 'bmname'
Origin = 'POSDB."dbo.t_bmxx".bmname'
FixedChar = True
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -