📄 unitdept.dfm
字号:
object frmDept: TfrmDept
Left = 95
Top = 173
Width = 638
Height = 361
BorderIcons = [biMaximize]
Caption = #37096#38376#20195#30721#35774#32622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 528
Top = 0
Width = 102
Height = 334
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 15263976
TabOrder = 0
object btnAdd: TButton
Left = 19
Top = 14
Width = 75
Height = 25
Caption = #22686#21152'(&A)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btnAddClick
end
object btnCancel: TButton
Left = 19
Top = 174
Width = 75
Height = 25
Caption = #21462#28040'(&C)'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = btnCancelClick
end
object btnErase: TButton
Left = 19
Top = 54
Width = 75
Height = 25
Caption = #21024#38500'(&D)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnEraseClick
end
object btnMod: TButton
Left = 19
Top = 94
Width = 75
Height = 25
Caption = #20462#25913'(&M)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnModClick
end
object btnSave: TButton
Left = 19
Top = 134
Width = 75
Height = 25
Caption = #20445#23384'(&S)'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnSaveClick
end
object btnExit: TButton
Left = 19
Top = 214
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btnExitClick
end
end
object Panel1: TPanel
Left = 285
Top = 0
Width = 243
Height = 334
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 15263976
TabOrder = 1
object lblDept: TLabel
Left = 25
Top = 23
Width = 65
Height = 12
Caption = #37096#38376#20195#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblDeptName: TLabel
Left = 25
Top = 86
Width = 65
Height = 12
Caption = #37096#38376#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 59
Top = 55
Width = 146
Height = 12
Caption = '('#37096#38376#20195#30721#20026#20108#20301','#22914':01)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 59
Top = 111
Width = 170
Height = 12
Caption = '('#37096#38376#21517#31216#19981#33021#36229#36807#20116#20010#27721#23383')'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object lblPosition: TLabel
Left = 25
Top = 234
Width = 65
Height = 12
Caption = #37096#38376#20301#32622#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblLeader: TLabel
Left = 25
Top = 144
Width = 65
Height = 12
Caption = #37096#38376#20027#31649#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblJob: TLabel
Left = 25
Top = 186
Width = 65
Height = 12
Caption = #37096#38376#32844#33021#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lblBz: TLabel
Left = 25
Top = 274
Width = 39
Height = 12
Caption = #22791#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object edtDept: TEdit
Left = 93
Top = 20
Width = 89
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxLength = 2
ParentFont = False
TabOrder = 0
OnExit = edtDeptExit
OnKeyPress = edtDeptKeyPress
end
object edtDeptName: TEdit
Left = 93
Top = 83
Width = 135
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
MaxLength = 20
ParentFont = False
TabOrder = 1
OnKeyPress = edtDeptKeyPress
end
object edtPosition: TEdit
Left = 93
Top = 231
Width = 129
Height = 21
TabOrder = 4
OnKeyPress = edtDeptKeyPress
end
object edtLeader: TEdit
Left = 93
Top = 141
Width = 131
Height = 21
TabOrder = 2
OnKeyPress = edtDeptKeyPress
end
object edtJob: TEdit
Left = 93
Top = 183
Width = 129
Height = 21
TabOrder = 3
OnKeyPress = edtDeptKeyPress
end
object edtBz: TEdit
Left = 91
Top = 272
Width = 141
Height = 21
TabOrder = 5
OnKeyPress = edtBzKeyPress
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 285
Height = 334
Align = alClient
DataSource = dsDept
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clMaroon
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
Columns = <
item
Expanded = False
FieldName = 'Dept_id'
Title.Alignment = taCenter
Title.Caption = #37096#38376#20195#30721
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'Dept_Name'
Title.Alignment = taCenter
Title.Caption = #37096#38376#21517#31216
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Dept_Leader'
Title.Alignment = taCenter
Title.Caption = #37096#38376#20027#31649
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Dept_Job'
Title.Alignment = taCenter
Title.Caption = #37096#38376#32844#33021
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Dept_place'
Title.Alignment = taCenter
Title.Caption = #37096#38376#20301#32622
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Visible = True
end
item
Expanded = False
FieldName = 'Dept_Memo'
Title.Caption = #22791#27880
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clMaroon
Title.Font.Height = -12
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 120
Visible = True
end>
end
object dsDept: TDataSource
DataSet = DM.qry_Dept
OnDataChange = dsDeptDataChange
Left = 24
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -