📄 dept.~dfm
字号:
object dept_m: Tdept_m
Left = 15
Top = 21
Width = 748
Height = 534
Caption = '分机及部门配置'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 0
Top = 8
Width = 249
Height = 80
Caption = '部门配置'
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 24
Width = 57
Height = 13
AutoSize = False
Caption = '部门名称'
end
object ComboBox1: TComboBox
Left = 66
Top = 21
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 16
Top = 48
Width = 75
Height = 25
Caption = '增加'
TabOrder = 1
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 104
Top = 48
Width = 75
Height = 25
Caption = '删除'
TabOrder = 2
OnClick = BitBtn2Click
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 120
Width = 251
Height = 125
Caption = '电话号码配置'
TabOrder = 1
object Label2: TLabel
Left = 5
Top = 28
Width = 60
Height = 13
AutoSize = False
Caption = '电话号码'
end
object Label3: TLabel
Left = 8
Top = 56
Width = 32
Height = 13
AutoSize = False
Caption = '部门'
end
object Edit1: TEdit
Left = 67
Top = 24
Width = 121
Height = 21
TabOrder = 0
end
object ComboBox2: TComboBox
Left = 64
Top = 53
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 1
end
object BitBtn3: TBitBtn
Left = 21
Top = 94
Width = 75
Height = 25
Caption = '增加'
TabOrder = 2
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 111
Top = 92
Width = 75
Height = 25
Caption = '删除'
TabOrder = 3
OnClick = BitBtn4Click
end
end
object GroupBox3: TGroupBox
Left = 256
Top = 8
Width = 480
Height = 492
Caption = '话费查询'
TabOrder = 2
object Label4: TLabel
Left = 64
Top = 13
Width = 39
Height = 13
AutoSize = False
Caption = '日期'
end
object Label5: TLabel
Left = 67
Top = 53
Width = 29
Height = 13
AutoSize = False
Caption = '时间'
end
object DBGrid1: TDBGrid
Left = 16
Top = 72
Width = 446
Height = 374
DataSource = dddata.DS6
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object BitBtn5: TBitBtn
Left = 312
Top = 8
Width = 75
Height = 25
Caption = '查询'
TabOrder = 1
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 392
Top = 8
Width = 75
Height = 25
Caption = '打印'
TabOrder = 2
OnClick = BitBtn6Click
end
object DateTimePicker1: TDateTimePicker
Left = 112
Top = 10
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 0.866441331017995
Time = 0.866441331017995
DateFormat = dfShort
DateMode = dmUpDown
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object DateTimePicker2: TDateTimePicker
Left = 205
Top = 10
Width = 96
Height = 21
CalAlignment = dtaLeft
Date = 39260.9007803356
Time = 39260.9007803356
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 4
end
object DateTimePicker3: TDateTimePicker
Left = 112
Top = 48
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 39260
Time = 39260
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkTime
ParseInput = False
TabOrder = 5
end
object DateTimePicker4: TDateTimePicker
Left = 206
Top = 47
Width = 95
Height = 21
CalAlignment = dtaLeft
Date = 39260.9999884259
Time = 39260.9999884259
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkTime
ParseInput = False
TabOrder = 6
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -