📄 unit1.dfm
字号:
Top = 224
Width = 50
Height = 22
Caption = '返回'
TabOrder = 2
OnClick = Button10Click
end
object Button11: TButton
Left = 40
Top = 224
Width = 50
Height = 22
Caption = '完成'
TabOrder = 3
OnClick = Button11Click
end
object Button16: TButton
Left = 464
Top = 224
Width = 50
Height = 22
Caption = '退出'
TabOrder = 4
OnClick = Button16Click
end
object Edit31: TDBEdit
Left = 80
Top = 184
Width = 121
Height = 21
DataField = 'Rjtime'
DataSource = DataSource4
TabOrder = 5
OnChange = Edit15Change
end
object Edit32: TDBEdit
Left = 304
Top = 184
Width = 121
Height = 21
DataField = 'Rhtime'
DataSource = DataSource4
TabOrder = 6
OnChange = Edit15Change
end
object Edit18: TDBEdit
Left = 56
Top = 136
Width = 489
Height = 21
DataField = 'Radr'
DataSource = DataSource4
TabOrder = 7
OnChange = Edit15Change
end
object Edit20: TDBEdit
Left = 56
Top = 88
Width = 121
Height = 21
DataField = 'Rtel'
DataSource = DataSource4
TabOrder = 8
OnChange = Edit15Change
end
object Edit23: TDBEdit
Left = 232
Top = 88
Width = 121
Height = 21
DataField = 'Rstel'
DataSource = DataSource4
TabOrder = 9
OnChange = Edit15Change
end
object Edit21: TDBEdit
Left = 408
Top = 88
Width = 121
Height = 21
DataField = 'Rmail'
DataSource = DataSource4
TabOrder = 10
OnChange = Edit15Change
end
object Edit17: TDBEdit
Left = 40
Top = 48
Width = 81
Height = 21
DataField = 'Rjg'
DataSource = DataSource4
TabOrder = 11
OnChange = Edit15Change
end
object Edit22: TDBEdit
Left = 184
Top = 48
Width = 81
Height = 21
DataField = 'Rborn'
DataSource = DataSource4
TabOrder = 12
OnChange = Edit15Change
end
object hyear: TDBComboBox
Left = 320
Top = 48
Width = 57
Height = 21
DataField = 'Rxian'
DataSource = DataSource4
ItemHeight = 13
Items.Strings = (
'一年'
'二年'
'三年'
'四年'
'五年'
'六年'
'七年'
'八年'
'九年'
'十年'
'十年以上')
TabOrder = 13
OnChange = Edit15Change
end
object Edit30: TDBEdit
Left = 416
Top = 48
Width = 113
Height = 21
DataField = 'Rwei'
DataSource = DataSource4
TabOrder = 14
OnChange = Edit15Change
end
object Edit13: TDBEdit
Left = 424
Top = 8
Width = 65
Height = 21
DataField = 'RXue'
DataSource = DataSource4
TabOrder = 15
OnChange = Edit15Change
end
object Edit24: TDBEdit
Left = 328
Top = 8
Width = 49
Height = 21
DataField = 'RAge'
DataSource = DataSource4
TabOrder = 16
OnChange = Edit15Change
end
object Edit15: TDBEdit
Left = 152
Top = 8
Width = 81
Height = 21
DataField = 'RName'
DataSource = DataSource4
TabOrder = 17
OnChange = Edit15Change
end
object Edit14: TDBEdit
Left = 40
Top = 8
Width = 65
Height = 21
DataField = 'RD'
DataSource = DataSource4
TabOrder = 18
OnChange = Edit15Change
end
object Memo5: TDBMemo
Left = 552
Top = 8
Width = 185
Height = 217
DataField = 'RJ'
DataSource = DataSource4
TabOrder = 19
end
object sex: TDBComboBox
Left = 264
Top = 8
Width = 41
Height = 21
DataField = 'RSex'
DataSource = DataSource4
ItemHeight = 13
Items.Strings = (
'男'
'女')
TabOrder = 20
OnChange = Edit15Change
end
object Button20: TButton
Left = 208
Top = 224
Width = 50
Height = 22
Caption = '修改'
TabOrder = 21
OnClick = Button20Click
end
object Button21: TButton
Left = 144
Top = 224
Width = 50
Height = 22
Caption = '查询'
TabOrder = 22
OnClick = cha2Click
end
end
end
object keshu: TPanel
Left = 0
Top = -1
Width = 737
Height = 257
Caption = 'keshu'
TabOrder = 2
Visible = False
object Backdrop3: TBackdrop
Left = 1
Top = 1
Width = 735
Height = 255
Align = alNone
EndColor = clTeal
StartColor = clWhite
TabOrder = 0
object Label6: 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 Label7: 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 Label8: 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 Label9: 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 Button4: TButton
Left = 320
Top = 192
Width = 50
Height = 22
Caption = '删除'
TabOrder = 0
OnClick = Button4Click
end
object Button5: TButton
Left = 256
Top = 192
Width = 50
Height = 22
Caption = '添加'
TabOrder = 1
OnClick = Button5Click
end
object Button6: TButton
Left = 16
Top = 192
Width = 65
Height = 25
Caption = '班组设置'
TabOrder = 2
OnClick = Button6Click
end
object Button14: TButton
Left = 384
Top = 192
Width = 50
Height = 22
Caption = '返回'
TabOrder = 3
OnClick = Button14Click
end
object cha2: TButton
Left = 128
Top = 192
Width = 50
Height = 22
Caption = '查询'
TabOrder = 4
OnClick = cha2Click
end
object Edit5: TDBEdit
Left = 96
Top = 56
Width = 121
Height = 21
DataField = 'KeD'
DataSource = DataSource2
TabOrder = 5
OnChange = Edit5Change
end
object Edit6: TDBEdit
Left = 312
Top = 56
Width = 121
Height = 21
DataField = 'KeNa'
DataSource = DataSource2
TabOrder = 6
OnChange = Edit5Change
end
object Edit7: TDBEdit
Left = 96
Top = 120
Width = 121
Height = 21
DataField = 'KeNu'
DataSource = DataSource2
TabOrder = 7
OnChange = Edit5Change
end
object Edit8: TDBEdit
Left = 312
Top = 120
Width = 121
Height = 21
DataField = 'KeC'
DataSource = DataSource2
TabOrder = 8
OnChange = Edit5Change
end
object Memo2: TDBMemo
Left = 504
Top = 32
Width = 185
Height = 201
DataField = 'KeJ'
DataSource = DataSource2
TabOrder = 9
end
object Button17: TButton
Left = 192
Top = 192
Width = 50
Height = 22
Caption = '修改'
TabOrder = 10
OnClick = Button17Click
end
object Button24: TButton
Left = 448
Top = 192
Width = 50
Height = 22
Caption = '退出'
TabOrder = 11
OnClick = Button24Click
end
end
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 48
Top = 8
end
object Table1: TTable
DatabaseName = 'C:\program files\sie'
TableName = 'Sbu.DB'
Left = 48
Top = 48
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = False
Active = True
Left = 192
Top = 16
end
object DataSource2: TDataSource
DataSet = Query2
Left = 81
Top = 9
end
object DataSource3: TDataSource
DataSet = Query3
Left = 113
Top = 9
end
object DataSource4: TDataSource
DataSet = Query4
Left = 144
Top = 9
end
object Query2: TQuery
RequestLive = True
SQL.Strings = (
'SELECT * from "C:\program files\sie\Ske.DB"')
Left = 81
Top = 49
end
object Query3: TQuery
RequestLive = True
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sban.DB"')
Left = 113
Top = 49
end
object Query4: TQuery
RequestLive = True
SQL.Strings = (
'SELECT * from "C:\program files\sie\Sgr.DB"')
Left = 145
Top = 49
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -