📄 aidcompanyinfo.dfm
字号:
object AIDlgCompanyInfo: TAIDlgCompanyInfo
Left = 258
Top = 110
BorderStyle = bsDialog
Caption = #20844#21496#20449#24687
ClientHeight = 398
ClientWidth = 364
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 = 8
Top = 8
Width = 348
Height = 337
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object OkBtn: TBitBtn
Left = 73
Top = 361
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 = 196
Top = 361
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 CompanyQuery: TADOQuery
Connection = DMTelSys.TelSysADOConnection
Parameters = <>
SQL.Strings = (
'select * from Company'
'order by gscode')
Left = 176
Top = 104
end
object DataSource1: TDataSource
DataSet = CompanyQuery
Left = 136
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -