aiddepartment.dfm
来自「一套BCB6开发的电话管理系统」· DFM 代码 · 共 105 行
DFM
105 行
object AIDlgDepartment: TAIDlgDepartment
Left = 224
Top = 184
BorderIcons = []
BorderStyle = bsDialog
Caption = #37096#38272#20449#24687
ClientHeight = 248
ClientWidth = 301
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 4
Top = 7
Width = 292
Height = 192
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'number'
Title.Caption = #37096#38272#32232#30908
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'name'
Title.Caption = #37096#38272#21517#31281
Width = 168
Visible = True
end>
end
object OkBtn: TBitBtn
Left = 47
Top = 216
Width = 75
Height = 25
Caption = #30906#23450
ModalResult = 1
TabOrder = 1
OnClick = OkBtnClick
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888880000008888844888888888880000008888422488888888880000008884
2222488888888800000088422222248888888800000084222A22224888888800
00008222A8A222488888880000008A2A888A222488888800000088A88888A222
488888000000888888888A222488880000008888888888A22248880000008888
8888888A222488000000888888888888A222480000008888888888888A224800
000088888888888888A228000000888888888888888A88000000888888888888
888888000000888888888888888888000000}
end
object CancelBtn: TBitBtn
Left = 170
Top = 216
Width = 75
Height = 25
Caption = #21462#28040
ModalResult = 2
TabOrder = 2
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888880000008887788888888888880000008891178888897888880000008891
1178889117888800000088911117891111788800000088891111711111788800
0000888891111111178888000000888889111111788888000000888888111117
8888880000008888889111178888880000008888891111178888880000008888
9111711178888800000088891117891117888800000088891178889111788800
0000888891888889111888000000888888888888919888000000888888888888
888888000000888888888888888888000000}
end
object DepartmentQuery: TADOQuery
Connection = DMTelSys.TelSysADOConnection
Parameters = <>
SQL.Strings = (
'select * from department'
'order by number')
Left = 96
Top = 40
end
object DataSource1: TDataSource
DataSet = DepartmentQuery
Left = 152
Top = 64
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?