📄 unit1.dfm
字号:
object Form1: TForm1
Left = 131
Top = 91
BorderStyle = bsToolWindow
Caption = '添加和删除人员'
ClientHeight = 541
ClientWidth = 737
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object Backdrop1: TBackdrop
Tag = -1
Left = 0
Top = 0
Width = 737
Height = 541
EndColor = clSilver
StartColor = clTeal
TabOrder = 0
object Label5: TLabel
Left = 552
Top = 8
Width = 65
Height = 13
AutoSize = False
Caption = '部门简介'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object DBGrid1: TDBGrid
Left = 0
Top = 256
Width = 737
Height = 281
DataSource = DataSource1
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'BuD'
Title.Caption = '部门代号'
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'BuNa'
Title.Caption = '部门名称'
Width = 93
Visible = True
end
item
Expanded = False
FieldName = 'BuC'
Title.Caption = '部门长'
Width = 43
Visible = True
end
item
Expanded = False
FieldName = 'BUNu'
Title.Caption = '部门人数'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'BuJ'
Title.Caption = '部门简介'
Width = 471
Visible = True
end>
end
object bushu: TPanel
Left = 0
Top = 0
Width = 737
Height = 257
Caption = 'bushu'
TabOrder = 1
object Backdrop2: TBackdrop
Left = 1
Top = 1
Width = 735
Height = 255
EndColor = clTeal
StartColor = clWhite
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 64
Width = 65
Height = 13
AutoSize = False
Caption = '部门代号'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 16
Top = 128
Width = 65
Height = 13
AutoSize = False
Caption = '部门人数'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 232
Top = 64
Width = 65
Height = 13
AutoSize = False
Caption = '部门名称'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 232
Top = 128
Width = 65
Height = 13
AutoSize = False
Caption = '部门长'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Button3: TButton
Left = 16
Top = 192
Width = 65
Height = 25
Caption = '科室设置'
Enabled = False
TabOrder = 0
OnClick = Button3Click
end
object Button1: TButton
Left = 240
Top = 192
Width = 50
Height = 22
Caption = '添加'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 304
Top = 192
Width = 50
Height = 22
Caption = '删除'
TabOrder = 2
OnClick = Button2Click
end
object Edit1: TDBEdit
Left = 96
Top = 56
Width = 121
Height = 21
DataField = 'BuD'
DataSource = DataSource1
TabOrder = 3
OnChange = Edit3Change
end
object Edit2: TDBEdit
Left = 312
Top = 56
Width = 121
Height = 21
DataField = 'BuNa'
DataSource = DataSource1
TabOrder = 4
OnChange = Edit3Change
end
object Edit4: TDBEdit
Left = 96
Top = 120
Width = 121
Height = 21
DataField = 'BuNu'
DataSource = DataSource1
TabOrder = 5
OnChange = Edit3Change
end
object Edit3: TDBEdit
Left = 312
Top = 120
Width = 121
Height = 21
DataField = 'BuC'
DataSource = DataSource1
TabOrder = 6
OnChange = Edit3Change
end
object Memo1: TDBMemo
Left = 488
Top = 16
Width = 185
Height = 185
DataField = 'BuJ'
DataSource = DataSource1
TabOrder = 7
OnChange = Edit3Change
end
object Button18: TButton
Left = 176
Top = 192
Width = 50
Height = 22
Caption = '修改'
TabOrder = 8
OnClick = Button18Click
end
object Button23: TButton
Left = 112
Top = 192
Width = 50
Height = 22
Caption = '查询'
TabOrder = 9
OnClick = cha2Click
end
object Button26: TButton
Left = 368
Top = 192
Width = 50
Height = 22
Caption = '退出'
TabOrder = 10
OnClick = Button24Click
end
object Edit16: TEdit
Left = -8
Top = 232
Width = 121
Height = 21
TabOrder = 11
Text = '"C:\program files\sie\Ske.DB"'
Visible = False
end
object Edit19: TEdit
Left = 48
Top = 232
Width = 121
Height = 21
TabOrder = 12
Text = '"C:\program files\sie\Sban.DB"'
Visible = False
end
object Edit25: TEdit
Left = 120
Top = 232
Width = 121
Height = 21
TabOrder = 13
Text = '"C:\program files\sie\Sgr.DB"'
Visible = False
end
end
end
object DBGrid2: TDBGrid
Left = 0
Top = 256
Width = 737
Height = 281
DataSource = DataSource2
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
Columns = <
item
Expanded = False
FieldName = 'KeD'
Title.Caption = '科室代号'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'KeNa'
Title.Caption = '科室名称'
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'KeC'
Title.Caption = '科长'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'KeNu'
Title.Caption = '科室人数'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'KeJ'
Title.Caption = '科室简介'
Width = 501
Visible = True
end>
end
object DBGrid3: TDBGrid
Left = 0
Top = 256
Width = 737
Height = 281
DataSource = DataSource3
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 5
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Visible = False
Columns = <
item
Expanded = False
FieldName = 'BanD'
Title.Caption = '班组代号'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'BanNa'
Title.Caption = '班组名称'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'BanC'
Title.Caption = '班组长'
Width = 44
Visible = True
end
item
Expanded = False
FieldName = 'BanNu'
Title.Caption = '班组人数'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'BanJ'
Title.Caption = '班组简介'
Width = 527
Visible = True
end>
end
object banshu: TPanel
Left = 1
Top = 0
Width = 737
Height = 257
Caption = 'banshu'
TabOrder = 3
Visible = False
object Backdrop4: TBackdrop
Left = 1
Top = 1
Width = 735
Height = 255
EndColor = clTeal
StartColor = clWhite
TabOrder = 0
object Label10: TLabel
Left = 16
Top = 128
Width = 65
Height = 25
AutoSize = False
Caption = '班组人数'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label11: TLabel
Left = 16
Top = 64
Width = 65
Height = 17
AutoSize = False
Caption = '班组代号'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label12: TLabel
Left = 232
Top = 64
Width = 65
Height = 25
AutoSize = False
Caption = '班组名称'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label13: TLabel
Left = 232
Top = 128
Width = 65
Height = 13
AutoSize = False
Caption = '组长'
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Button7: TButton
Left = 304
Top = 192
Width = 50
Height = 22
Caption = '删除'
TabOrder = 0
OnClick = Button7Click
end
object Button8: TButton
Left = 240
Top = 192
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -