📄 pfm_ygxx.dfm
字号:
inherited fm_ygxx: Tfm_ygxx
Left = 203
Top = 136
Width = 812
Height = 579
Caption = '员工信息'
Font.Charset = ANSI_CHARSET
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter [0]
Left = 185
Top = 0
Width = 6
Height = 552
Cursor = crHSplit
Color = clBtnShadow
ParentColor = False
end
inherited PageControl1: TPageControl
Left = 191
Width = 613
Height = 552
inherited TabSheet1: TTabSheet
object Label3: TLabel [0]
Left = 8
Top = 52
Width = 56
Height = 13
AutoSize = False
Caption = '员工姓名'
FocusControl = DBEdit3
end
object Label6: TLabel [1]
Left = 172
Top = 52
Width = 48
Height = 13
AutoSize = False
Caption = '员工类别'
FocusControl = DBEdit6
end
object Label7: TLabel [2]
Left = 8
Top = 112
Width = 48
Height = 13
AutoSize = False
Caption = '联系地址'
FocusControl = DBEdit7
end
object Label8: TLabel [3]
Left = 8
Top = 144
Width = 48
Height = 13
AutoSize = False
Caption = '联系电话'
FocusControl = DBEdit8
end
object Label9: TLabel [4]
Left = 176
Top = 144
Width = 48
Height = 13
AutoSize = False
Caption = '传呼号'
FocusControl = DBEdit9
end
object Label10: TLabel [5]
Left = 8
Top = 176
Width = 48
Height = 13
AutoSize = False
Caption = '手机号'
FocusControl = DBEdit10
end
object Label11: TLabel [6]
Left = 176
Top = 180
Width = 48
Height = 13
AutoSize = False
Caption = '分机号'
FocusControl = DBEdit11
end
object Label13: TLabel [7]
Left = 376
Top = 120
Width = 104
Height = 13
Caption = '照片(双击修改)'
end
object Label1: TLabel [8]
Left = 8
Top = 84
Width = 52
Height = 13
Caption = '所属单位'
FocusControl = DBEdit1
end
object Label2: TLabel [9]
Left = 8
Top = 24
Width = 52
Height = 13
Caption = '员工编号'
FocusControl = DBEdit2
end
inherited BitBtn_add: TBitBtn
Left = 8
Top = 368
end
inherited BitBtn_del: TBitBtn
Left = 88
Top = 368
end
inherited BitBtn_save: TBitBtn
Left = 168
Top = 368
end
inherited BitBtn_first: TBitBtn
Left = 8
Top = 320
end
inherited BitBtn_prev: TBitBtn
Left = 64
Top = 320
end
inherited BitBtn_next: TBitBtn
Left = 120
Top = 320
end
inherited BitBtn_last: TBitBtn
Left = 176
Top = 320
end
inherited BitBtn_cancel: TBitBtn
Left = 248
Top = 368
end
inherited BitBtn_quit: TBitBtn
Left = 392
Top = 368
end
object DBEdit3: TDBEdit
Left = 64
Top = 48
Width = 89
Height = 21
DataField = 'ygxm'
DataSource = DataSource1
TabOrder = 9
end
object DBEdit6: TDBEdit
Left = 232
Top = 48
Width = 69
Height = 21
DataField = 'yglb'
DataSource = DataSource1
TabOrder = 10
end
object DBEdit7: TDBEdit
Left = 64
Top = 112
Width = 184
Height = 21
DataField = 'lxdz'
DataSource = DataSource1
TabOrder = 11
end
object DBEdit8: TDBEdit
Left = 64
Top = 144
Width = 100
Height = 21
DataField = 'lxdh'
DataSource = DataSource1
TabOrder = 12
end
object DBEdit9: TDBEdit
Left = 228
Top = 144
Width = 124
Height = 21
DataField = 'chh'
DataSource = DataSource1
TabOrder = 13
end
object DBEdit10: TDBEdit
Left = 64
Top = 176
Width = 94
Height = 21
DataField = 'sjh'
DataSource = DataSource1
TabOrder = 14
end
object DBEdit11: TDBEdit
Left = 228
Top = 176
Width = 64
Height = 21
DataField = 'fjh'
DataSource = DataSource1
TabOrder = 15
end
object DBImage1: TDBImage
Left = 368
Top = 8
Width = 105
Height = 105
DataField = 'ygphoto'
DataSource = DataSource1
TabOrder = 16
OnDblClick = DBImage1DblClick
end
object DBEdit1: TDBEdit
Left = 64
Top = 80
Width = 89
Height = 21
DataField = 'dwmc'
DataSource = DataSource1
TabOrder = 17
end
object DBEdit2: TDBEdit
Left = 64
Top = 20
Width = 89
Height = 21
DataField = 'ygbm'
DataSource = DataSource1
TabOrder = 18
end
end
inherited TabSheet2: TTabSheet
inherited DBGrid1: TDBGrid
Width = 605
end
end
end
object GroupBox1: TGroupBox [2]
Left = 0
Top = 0
Width = 185
Height = 552
Align = alLeft
Caption = '员工编号'
TabOrder = 1
object TV1: TTreeView
Left = 2
Top = 15
Width = 181
Height = 494
Align = alClient
Indent = 19
TabOrder = 0
OnChange = TV1Change
end
object Panel1: TPanel
Left = 2
Top = 509
Width = 181
Height = 41
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object BitBtn1: TBitBtn
Left = 48
Top = 8
Width = 75
Height = 25
Caption = '刷新'
TabOrder = 0
OnClick = BitBtn1Click
end
end
end
inherited Query1: TQuery
Active = True
BeforePost = Query1BeforePost
SQL.Strings = (
'select * from t_ygxx')
object Query1ygbm: TStringField
FieldName = 'ygbm'
Origin = 'POSDB."dbo.t_ygxx".ygbm'
FixedChar = True
Size = 5
end
object Query1ygxm: TStringField
FieldName = 'ygxm'
Origin = 'POSDB."dbo.t_ygxx".ygxm'
FixedChar = True
Size = 10
end
object Query1dwmc: TStringField
FieldName = 'dwmc'
Origin = 'POSDB."dbo.t_ygxx".dwmc'
FixedChar = True
Size = 16
end
object Query1yglb: TStringField
FieldName = 'yglb'
Origin = 'POSDB."dbo.t_ygxx".yglb'
FixedChar = True
Size = 10
end
object Query1lxdz: TStringField
FieldName = 'lxdz'
Origin = 'POSDB."dbo.t_ygxx".lxdz'
FixedChar = True
Size = 10
end
object Query1lxdh: TStringField
FieldName = 'lxdh'
Origin = 'POSDB."dbo.t_ygxx".lxdh'
FixedChar = True
Size = 10
end
object Query1chh: TStringField
FieldName = 'chh'
Origin = 'POSDB."dbo.t_ygxx".chh'
FixedChar = True
Size = 10
end
object Query1sjh: TStringField
FieldName = 'sjh'
Origin = 'POSDB."dbo.t_ygxx".sjh'
FixedChar = True
Size = 10
end
object Query1fjh: TStringField
FieldName = 'fjh'
Origin = 'POSDB."dbo.t_ygxx".fjh'
FixedChar = True
Size = 10
end
object Query1ygphoto: TBlobField
FieldName = 'ygphoto'
Origin = 'POSDB."dbo.t_ygxx".ygphoto'
BlobType = ftBlob
Size = 1
end
end
object QryTV: TQuery
DatabaseName = 'posdb'
Left = 40
Top = 16
end
object OpenPicDialog1: TOpenPictureDialog
Left = 627
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -